Отправка запроса Synapse

[Imbalancez]

В общем отправляю запрос, а ответа нету, в чем собственно проблема?

begin
Result:=false;
HTTP:= THTTPSend.Create;
response:=TStringList.Create();
stream:= TStringStream.Create('');
response.Clear;


HTTP.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)';
HTTP.MimeType:='application/x-www-form-urlencoded';
HTTP.Headers.Add('Referer: https://cp.timeweb.ru/login.php');


Stream.WriteString('_host=imap.timeweb.ru&_show_form=login_hosting&_action=login&username='+login+'&password='+pass);


HTTP.HTTPMethod('POST', 'https://cp.timeweb.ru/');


Response.LoadFromStream(HTTP.Document);
Form1.Memo1.Lines.Add(Response.Text);


if Pos('logout',response.Text) <> 0 then

Даже если ответом будет HTTP.Header.Text
Он короткий какойто, в общем по нему анреал валид определить.

Ответ HTTP.Header.Text:

POST / HTTP/1.0Host: cp.timeweb.ru:443
Keep-Alive: 300
Connection: keep-alive
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
Referer: https://cp.timeweb.ru/login.php

и все.

[Человек_Борща]

Ну вы собственно ничего и не отправляете на сервер.
Запишите свой StringStream в HTTP.Document

[Imbalancez]

Сообщение от Человек_Борща

Ну вы собственно ничего и не отправляете на сервер.
Запишите свой StringStream в HTTP.Document

HTTP.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)';
HTTP.MimeType:='application/x-www-form-urlencoded';
HTTP.Headers.Add('Referer: https://cp.timeweb.ru/login.php');

Stream.WriteString('_host=imap.timeweb.ru&_show_form=login_hosting&_action=login&username='+login+'&password='+pass);
HTTP.Document.LoadFromStream(stream);

HTTP.HTTPMethod('POST', 'https://cp.timeweb.ru/');

Response.LoadFromStream(HTTP.Document);
Form1.Memo1.Lines.Add(Response.Text);

Записал, но при отправке запроса, ответ такой же...
Только теперь выбивает
_host=imap.timeweb.ru&_show_form=lo gin_hosting&_action=login&username= ***&password=***

[Человек_Борща]

в модуле synutil есть метод WriteStrToStream, используйте его.

Еще можете попробовать THHTPSendEx(ссылка в подписи) с ним проще будет.

[Imbalancez]

THHTPSendEx - Пример авторизации можете дать?

[Человек_Борща]

пример:

var
 sPOST,         //POST запрос
 sHTML:string;  //Ответ HTML
 http:THTTPSendEx;
begin
  http:=THTTPSendEx.Create('I am OPERA!!!111 User-agent','1.1');
  try
     sPOST:='login=LOL&pwd=123';
     if http.Post('http://lol4to.com/',sPOST,sHTML) then
     begin
       //Запрос прошёл на сервер
       
       if http.IsSucsessfull then 
       begin
         //Код ответа 200
       end;
    
       if http.IsRedirect then
       begin
         //Код ответа 301 или 302
         //http.Location - содержит "куда послали"
       end;
     end;
  finally
    FreeAndNil(http);
  end;
end;

Код писал тут. Велика вероятность, что в слове Sucsessfull я допустил ошибку

[Imbalancez]

Сообщение от Человек_Борща

пример:

var
 sPOST,         //POST запрос
 sHTML:string;  //Ответ HTML
 http:THTTPSendEx;
begin
  http:=THTTPSendEx.Create('I am OPERA!!!111 User-agent','1.1');
  try
     sPOST:='login=LOL&pwd=123';
     if http.Post('http://lol4to.com/',sPOST,sHTML) then
     begin
       //Запрос прошёл на сервер
       
       if http.IsSucsessfull then 
       begin
         //Код ответа 200
       end;
    
       if http.IsRedirect then
       begin
         //Код ответа 301 или 302
         //http.Location - содержит "куда послали"
       end;
     end;
  finally
    FreeAndNil(http);
  end;
end;

Код писал тут. Велика вероятность, что в слове Sucsessfull я допустил ошибку

Спасибо, в общем решил мозг не е*ать и написал на идни, работает как часы :D