Показать код HTML страницы в TMemo

Материал из DRKB


// You need a TMemo, a TButton and a NMHTTP
procedure TForm1.Button1Click(Sender: TObject);
begin
  NMHTTP1.Get('www.swissdelphicenter.ch');
  memo1.Text := NMHTTP1.Body
end;


Source: http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 03537