Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Post запрос... (https://forum.antichat.xyz/showthread.php?t=27333)

RedBull@12 16.11.2006 08:46
Post запрос...
 
Здравствуйте,Уважаемые Античатовцы.

Вот как-то сидел за компом и не знал что делать,тут меня посетила замечательная мысль написать прогу на Delph'е. Смысл проги ходить по интету по определенным сайтам и собирать информацию из аккаунта.
Все начиналось довольно хорошо, но появилась загвоздка...а именно мне нужно сформировать POST запрос к серверу и получить от сервера ответ и куки.
а вот вроде пишу правильно, но при прогонке делфа мне выдает ошибку сокета #10061
Код:
    begin   
tL := TStringList.Create;
tL.Add('cf=akk-login');
tL.Add('ulogin='+ login );
tL.Add('pass='+pass);
tL.Add('imageField.x='+xs2);
tL.Add('imageField.y'+ys2);
    try   
IdHTTP1.post(adres,tL);
    finally   
tL.Free; 
    end; 
end;
Что здесь написано не правильно?

madnet 16.11.2006 11:37
А где в твоем коде собственно открытие сокета???

RedBull@12 16.11.2006 11:45
так вот я спрашиваю, как обойти эту ошибку...как более грамотно составить код?

RedBull@12 16.11.2006 13:24
ааа...еще одина мелочь запрос должен быть в форме
cf=akk-login&ulogin=login&pass=pass&imageField.x=xs2&imag eField.y=ys2
кто может помоги в написании кода,грамотного кода...
или напишите мне в личку...
Заранее спасибо

a1nt 06.12.2006 17:26
Ты вообще что-то странное написал если честно, все правильно, но смысла ноль, надо
Код:
var tL: TIdMultiPartFormDataStream;
begin
tL:= TIdMultiPartFormDataStream.Create;
formdata.AddFormField('par1','1');
formdata.AddFormField('par2','2');
formdata.AddFormField('par3','3');
formdata.AddFormField('par4','4');
Memo1.Lines.Add(IDHTTP1.Post('/index.php',formdata));
Обязательно подключи к IdHTTP IdCookieManager, думаю, разберешься как полученные куки записать (там событие на получение).


Время: 23:29