Post запрос...

Post запрос...

16.11.2006, 08:46

RedBull@12

Участник форума

Регистрация: 06.11.2006

Сообщений: 129

С нами: 10269701

Репутация: 58

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;

Что здесь написано не правильно?

𝕏 Twitter Reddit Telegram Копировать ссылку