Indy Http Post mit StringList

[stefan681]

Hallo,

ich habe folgendes Problem:

Ich müsste von einer Webseite per Http-Post-Befehl Daten abrufen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
    Params : TStringList;
    Enc : TEncoding;
    ResponseStr : String;

begin

  with IdHTTP do begin
    try
      Request.ContentType := 'text/html';

      Params := TStringList.Create;
      try
        with Params do begin
          Clear;
          Add('[Client]');
          Add('server_id = XX.XX.XX.XX');
          Add('prog_id = XX');
          Add('login_string = XX');
          Add('login_client = XX');
          Add('read_min_date = 2016-09-01');
          Add('read_from_date =last');
          Add('read_max_lines = 1500');
        end;
        Enc := CharsetToEncoding(Request.CharSet);
        try
          ResponseStr := Post('http://XX.XX.XX.XX/XX/XX/XX/XX.cgi?prog_id=dtdbdata1,index_id=1100', params);
        finally
          Enc.Free;
        end;
      finally
        Params.Free;
      end;
    finally
      Free;
    end;
  end;

  Memo.Lines.Clear;
  Memo.Lines.Text := ResponseStr;
end;

Damit bekomme ich einen Fehler, das die Anmeldung fehlschlägt.

Lade ich die Parameter-Datei aus einem Verzeichnis, so funktioniert es:

ResponseStr := Post('http://XX.XX.XX.XX/XX/XX/XX/XX.cgi?prog_id=dtdbdata1,index_id=1100', 'P:\Params.TXT');

Hat jemand eine Idee, wodran das liegen kann?

Vielen Dank.

Gruß

Stefan