История изменений

Исправление sunjob, 21.04.22 01:08 (текущая версия) :

наверное, надо было сразу вызывающий код добавить (используется TMemo.Lines / TStrings)

procedure TForm1.btnPostClick(Sender: TObject);
var
  ResponceStream: TStream;
begin
  //
  // teURL      : TEdit - http://192.168.0.250/api/cmd
  // mPostParams: TMemo - содержит ключи-значения
  //
  ResponceStream := PostRequest(teURL.Text, mPostParams.Lines);
  try
    mClientLog.Lines.LoadFromStream(ResponceStream);
  finally
    ResponceStream.Free;
  end;
end;

спасибо громеное :о) доберусь до железа, потестирую

Исходная версия sunjob, 21.04.22 01:08:

наверное, надо было сразу вызывающий код добавить (используется TMemo.Lines / TStrings)

procedure TForm1.btnPostClick(Sender: TObject);
var
  ResponceStream: TStream;
begin
  //
  // teURL      : TEdit - http://192.168.0.250/api/cmd
  // mPostParams: TMemo - содержит ключи-значения
  //
  ResponceStream := PostRequest(teURL.Text, mPostParams.Lines);
  try
    mClientLog.Lines.LoadFromStream(ResponceStream);
  finally
    ResponceStream.Free;
  end;
end;
[/fpc]
спасибо громеное :о) доберусь до железа, потестирую