Download Data from Internet

uses Wininet

function DownloadURL(const aUrl: string): Boolean;
var
 hSession: HINTERNET;
 hService: HINTERNET;
 lpBuffer: array[0..1024 + 1] of Char;
 dwBytesRead: DWORD;
begin
 Result := False;
 // hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
 hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 try
 if Assigned(hSession) then
 begin
 hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, 0, 0);
 if Assigned(hService) then
 try
 while True do
 begin
 dwBytesRead := 1024;
 InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
 if dwBytesRead = 0 then break;
 lpBuffer[dwBytesRead] := #0;
 Form1.Memo1.Lines.Add(lpBuffer);
 end;
 Result := True;
 finally
 InternetCloseHandle(hService);
 end;
 end;
 finally
 InternetCloseHandle(hSession);
 end;
end;

Beispiel :

procedure TForm1.Button2Click(Sender: TObject);
begin
  DownloadURL('http://www.google.com/intl/de/images/home_title.gif')
end;