Anonymní profil jarek – Programujte.com

Ahoj,
zkouším v D7 použít Synapsi, ale u jedné konkrétní stránky nedostanu zpět rozumná data a vůbec netuším proč.

uses HTTPSend



procedure TForm1.Button1Click(Sender: TObject);

var

  dokument:TStrings;

begin

  dokument:=TStringList.Create;

  if HttpGetText('http://meta.wikimedia.org/wiki/Wikinews',dokument) then

    ShowMessage(dokument.Text);

  dokument.Free;

end;