Size: a a a

2020 October 08

ВЖ

Владислав Жданов... in Delphi & Lazarus
через такую функцию

function TFMain.SendHTTP(AURL, AParams: string): string;
var
 LStream: TStringStream;
begin
 LStream := TStringStream.Create(AParams, TEncoding.UTF8);
 try
   LStream.WriteString(AParams);
   LStream.Position := 0;

   if Assigned(IdHTTP) then
     with IdHTTP do
     begin
       ConnectTimeout := 10000;

       with Request do
       begin
         Clear;
         BasicAuthentication := true;
         ContentType := 'application/x-www-form-urlencoded';
         AcceptCharSet := 'utf-8';
       end;

       try
         Result := Post(AURL, LStream);
       except
         on e: exception do
           Result := e.Message
       end;
     end;
 finally
   LStream.Free;
 end;
end;
источник

AS

Alexey Shumkin in Delphi & Lazarus
Владислав Жданов
через такую функцию

function TFMain.SendHTTP(AURL, AParams: string): string;
var
 LStream: TStringStream;
begin
 LStream := TStringStream.Create(AParams, TEncoding.UTF8);
 try
   LStream.WriteString(AParams);
   LStream.Position := 0;

   if Assigned(IdHTTP) then
     with IdHTTP do
     begin
       ConnectTimeout := 10000;

       with Request do
       begin
         Clear;
         BasicAuthentication := true;
         ContentType := 'application/x-www-form-urlencoded';
         AcceptCharSet := 'utf-8';
       end;

       try
         Result := Post(AURL, LStream);
       except
         on e: exception do
           Result := e.Message
       end;
     end;
 finally
   LStream.Free;
 end;
end;
так ты ж тело запроса и пишешь сам ))
источник

ВЖ

Владислав Жданов... in Delphi & Lazarus
пишу
источник

AS

Alexey Shumkin in Delphi & Lazarus
Владислав Жданов
пишу
уточни тогда, что значит "прологировать POST-запрос"?
источник

ВЖ

Владислав Жданов... in Delphi & Lazarus
тут вопрос то в том: с моего компьютера отправка успешная, я вижу результат, который на сайт прилетает.
А с другого компьютера, который серверный, такого нет. И вот хотелось бы понять и вывести причину: что происходит, к чему происходит обращение и почему не отправляется с сервера
источник

AS

Alexey Shumkin in Delphi & Lazarus
Владислав Жданов
тут вопрос то в том: с моего компьютера отправка успешная, я вижу результат, который на сайт прилетает.
А с другого компьютера, который серверный, такого нет. И вот хотелось бы понять и вывести причину: что происходит, к чему происходит обращение и почему не отправляется с сервера
это проще проснифать
источник

AS

Alexey Shumkin in Delphi & Lazarus
Alexey Shumkin
это проще проснифать
если HTTP
источник

ВЖ

Владислав Жданов... in Delphi & Lazarus
сервер обменивается с другими машинами, и конкретно отследить мой пакет вряд ли получится
источник

AS

Alexey Shumkin in Delphi & Lazarus
Владислав Жданов
сервер обменивается с другими машинами, и конкретно отследить мой пакет вряд ли получится
я тя умоляю ))
источник

AS

Alexey Shumkin in Delphi & Lazarus
ваще сетевые проблемы диагностируются не так )
источник

AS

Alexey Shumkin in Delphi & Lazarus
я бы первым делом проверил, что с этого сервера есть коннект к твоему серверу
источник

ВЖ

Владислав Жданов... in Delphi & Lazarus
он есть
источник

AS

Alexey Shumkin in Delphi & Lazarus
потом - что POST-запрос проходит (видал я такое, что пост-запросы не проходят)
источник

AS

Alexey Shumkin in Delphi & Lazarus
Это проще всего делается curl-ом
источник

AS

Alexey Shumkin in Delphi & Lazarus
Владислав Жданов
он есть
как проверял?
источник

ВЖ

Владислав Жданов... in Delphi & Lazarus
доступ на свою машину я имею, и на сайт через браузер тоже зайти могу
источник

AS

Alexey Shumkin in Delphi & Lazarus
Владислав Жданов
доступ на свою машину я имею, и на сайт через браузер тоже зайти могу
браузер не через прокси ли ходит?
источник

ВЖ

Владислав Жданов... in Delphi & Lazarus
а болт его знает. Вообще не должен, но черт его знает, как сис. админы сеть выстраивали
источник

ВГ

Вадим Гунько... in Delphi & Lazarus
Может кто протестить на винде https://github.com/GuvaCode/raylib-pas а то отправил пулл и не проверил ...
источник

AS

Alexey Shumkin in Delphi & Lazarus
а куда ПР отправил? )))
настрой travis ci ))
вот пример ))
https://github.com/daar/travis-fpc/blob/master/.travis.yml
источник