Idhttp auf Konsole nutzen

[marabu]

Moin,

der Indy-HTTPClient arbeitet nicht mit Windows-Nachrichten. Bei mir funktioniert es so:

Delphi-Quellcode:

program iget;

{$APPTYPE CONSOLE}

uses
  Forms,
  Classes,
  SysUtils,
  IdHTTP;

{$R *.res}

var
  http: TIdHTTP;
  s: TStrings;
  fs: TFileStream;

begin
  fs := TFileStream.Create(ParamStr(2), fmCreate);
  s := TStringList.Create;
  s.Values['mode'] := 'write';
  s.Values['txt'] := 'hallo ihr da:)';
  http := TIdHTTP.Create(nil);
  try
    http.HandleRedirects := True;
    try
      http.Post(ParamStr(1), s, fs);
    except
      on E: Exception do
      begin
        WriteLn(E.message);
        ReadLn;
      end;
    end;
  finally
    fs.Free;
    s.Free;
    http.Free;
  end;
end.

Freundliche Grüße