Post запрос...

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by RedBull@12, 16 Nov 2006.

  1. RedBull@12

    RedBull@12 Elder - Старейшина

    Joined:
    5 Nov 2006
    Messages:
    121
    Likes Received:
    21
    Reputations:
    5
    Здравствуйте,Уважаемые Античатовцы.

    Вот как-то сидел за компом и не знал что делать,тут меня посетила замечательная мысль написать прогу на Delph'е. Смысл проги ходить по интету по определенным сайтам и собирать информацию из аккаунта.
    Все начиналось довольно хорошо, но появилась загвоздка...а именно мне нужно сформировать POST запрос к серверу и получить от сервера ответ и куки.
    а вот вроде пишу правильно, но при прогонке делфа мне выдает ошибку сокета #10061
    Code:
        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;
    Что здесь написано не правильно?
     
    1 person likes this.
  2. madnet

    madnet Умиротворенный

    Joined:
    9 Dec 2004
    Messages:
    868
    Likes Received:
    343
    Reputations:
    423
    А где в твоем коде собственно открытие сокета???
     
    _________________________
  3. RedBull@12

    RedBull@12 Elder - Старейшина

    Joined:
    5 Nov 2006
    Messages:
    121
    Likes Received:
    21
    Reputations:
    5
    так вот я спрашиваю, как обойти эту ошибку...как более грамотно составить код?
     
  4. RedBull@12

    RedBull@12 Elder - Старейшина

    Joined:
    5 Nov 2006
    Messages:
    121
    Likes Received:
    21
    Reputations:
    5
    ааа...еще одина мелочь запрос должен быть в форме
    cf=akk-login&ulogin=login&pass=pass&imageField.x=xs2&imageField.y=ys2
    кто может помоги в написании кода,грамотного кода...
    или напишите мне в личку...
    Заранее спасибо
     
  5. a1nt

    a1nt Elder - Старейшина

    Joined:
    16 Dec 2005
    Messages:
    131
    Likes Received:
    39
    Reputations:
    25
    Ты вообще что-то странное написал если честно, все правильно, но смысла ноль, надо
    Code:
    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, думаю, разберешься как полученные куки записать (там событие на получение).
     
    1 person likes this.