
02.08.2008, 22:53
|
|
Участник форума
Регистрация: 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..
|
|
|