Post запрос через Synapse

[Lauri]

 https:=thttpsend.Create;
    Data := TStringStream.Create('');



   Data.WriteString('wan=91.123.124.12');
   Data.WriteString('os=XP');
   HTTPs.Document.LoadFromStream(Data);

   HTTPs.HTTPMethod('POST','http://host.com');

     https.Clear;

Только начал изучать синапс. Прошу "гуру" помочь
на код не кричит но запрос не доходит к серверу(

[mss]

   Data.WriteString('wan=91.123.124.12');
   Data.WriteString('os=XP');
   Data.Position := 0;
   HTTPs.Document.LoadFromStream(Data);

[Lauri]

всёравно не доходит запрос

[mss]

Что, вот прямо так и говорит "Я, запрос, не дохожу" ?

[Lauri]

У меня переменные записываються в базу и отображаються в скрипте, при этом запросе ничего не отображаеться. Переменные введены правильно.

[mss]

if not HTTPs.HTTPMethod(..) then
ShowMessage(Format ('%u %s', [HTTPs.ResultCode, HTTPs.ResultString])

[Lauri]

mss
спасибо, вижу запрос передаёться ибо ошибок нет...не знаю в чём проблема теперь...
При эдентичном запросе через инди нормально записывает в базу...

[mss]

А так

   
   Data.WriteString(EncodeURLElement('wan=91.123.124.12'));
   Data.WriteString(EncodeURLElement'os=XP'));

?

[Lauri]

function EncodeURLElement(Const Value: string): string;

добавил эту функцию и изменил так как ты написал.
Тоже самое(

[Lauri]

Просмотрел сниффером
Запрос даже не отправляеться почему то... ошибки нету...
юзаю код

     https:=thttpsend.Create;
    Data := TStringStream.Create('');



   Data.WriteString('wan=91.123.124.12');
   Data.WriteString('os=XP');
   data.Position:=0;
   HTTPs.Document.LoadFromStream(Data);
 if not  HTTPs.HTTPMethod('POST','http://crasher.byethost3.com/') then writeln('error')
 else
 writeln('Peredal');