[scroyler]

Сообщение от m1sclick

На дух не переношу idHTTP по этому Synapse.
На примере vk.com

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, HTTPSend, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 HTTPSend: THTTPSend;
 stream: TStringStream;
begin
 HTTPSend:= THTTPSend.Create;
 HTTPSend.HTTPMethod('get', 'vk.com');
 stream:= TStringStream.Create;
 HTTPSend.Document.SaveToStream(stream);
 Memo1.Lines.Add(copy(stream.DataString, pos('E-mail', stream.DataString), 17));
 HTTPSend.Clear;
 stream.Clear;
end;

end. 


спасибо,но ошибку выдает в каждой строке(
HTTPSend, StdCtrls в юсес добавлял.