Показать сообщение отдельно

  #9  
Старый 02.08.2008, 22:53
A_V
Участник форума
Регистрация: 18.02.2008
Сообщений: 125
Провел на форуме:
562108

Репутация: 107
По умолчанию

procedure TForm1.Button1Click(Sender: TObject);
var
SHttp: TSwinHttp;
begin
SHttp := TSwinHttp.Create();
SHttp.InThread := false; // переводим в синхронный режим
SHttp.Post('http://mail.yandex.ru/pda/', 'login=111&passwd=222' );
if SHttp.Error = 0 then // если всё успешно
Memo1.Lines.LoadFromStream(SHttp.Response.Content) ;
SHttp.Free;

end;

вот сделал на компоненте новом что то я не въезжаю что не правильно ...

Последний раз редактировалось A_V; 02.08.2008 в 22:57..