Hent HTML-kode i D7

der er mange måder at gøre det på.

Uses UrlMon;

function DownloadFile(Source, Dest: string): Boolean;
begin
  try
    Result :=  UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
  except
    Result := False;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if DownloadFile('http://1.2.3.4/minside.html', 'c:\~tmp.htm') then
  memo1.lines.loadfromfile('c:\~tmp.htm');
  else
  ShowMessage('Download unsuccesful');
end;

drop 1 idhttp fra indy clients fanebladet

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Clear;
memo1.Text := idhttp1.Get('http://www.eksperten.dk');
end;

Stoney

Stoney's svar var det bedste til det jeg skulle bruge det til (lidt dumt at skulle gemme det i en fil først). Men jeg synes også dkn skulle have lidt trøstepoint - han kom trods alt først.