DELPHI6.0 ブラウザ上の画像をLocalに保存するには？ (ID：5773)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

InternetOpenUrlを使った例。

var
 hSession: HINTERNET;
 hService: HINTERNET;
 lpBuffer: array[0..1024] of Char;
 dwBytesRead: Cardinal;
 str: String;
begin
  str := '';
  hSession := InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
  if Assigned(hSession) then
  begin
    hService := InternetOpenUrl(hSession, 'http://www.yahoo.co.jp/', nil, 0, INTERNET_FLAG_RELOAD, 0);
    try
      if Assigned(hService) then
      begin
        while true do
        begin
          FillChar(lpBuffer, SizeOf(lpBuffer), #0);
          InternetReadFile(hService, @lpBuffer, SizeOf(lpBuffer), dwBytesRead);
          if dwBytesRead = 0 then Break;
          str := str + Copy(lpBuffer, 0, dwBytesRead - 1);
        end; //while
        str := AdjustLineBreaks(str);
        Memo1.Lines.Add(str);
      end; //if Assigned(hService)
    finally
     InternetCloseHandle(hService);
    end;
  end; //if Assigned(hSession)

finally
  InternetCloseHandle(hSession);
 end;
end;

そういえば、たかみちえさんのところにHTTPでのダウンロードを実現するコンポーネントありませんでしたっけ？

←解決時は質問者本人がここをチェックしてください。

戻る