...show the source code of a webpage in a Memo?

Author: Dev4u.ch
Homepage: http://www.dev4u.ch

Category: Internet / LAN

// You need a TMemo, a TButton und a NMHTTP
// Man braucht ein TMemo, einen TButton und eine TNMHTTP

procedure TForm1.Button1Click(Sender: TObject);
begin
  
NMHTTP1.Get('www.swissdelphicenter.ch');
  memo1.Text := NMHTTP1.Body
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base