XLM Payload als Post

[-=ZGD=-]

Du hast in deinem Quelltext Writeln('iwas'); stehen.

Entferne diese oder kommentiere sie aus.

Das kommt daher, dass Delphi versucht diese Informationen auf die Konsole zu schreiben, du aber keine hast
Und wenn nichts da ist, knallt es eben.

[strom]

Hallo ZGD,

bekomme jetzt noch als Meldung: Wert für IOHandler ist ungültig?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  RequestBody: TStream;
  ResponseBody: string;
begin
  HTTP := TIdHTTP.Create;
  try
    try
      RequestBody := TStringStream.Create('{123456789}',
        TEncoding.UTF8);
      try
        HTTP.Request.Accept := 'input.xml HTTP/1.0';
        HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
        ResponseBody := HTTP.Post('https://login.fireboard.net/api?authkey={123456789}&call=operation_data',
          RequestBody);
        //WriteLn(ResponseBody);
       // WriteLn(HTTP.ResponseText);
      finally
        RequestBody.Free;
      end;
    except
      on E: EIdHTTPProtocolException do
      begin
        Showmessage(E.Message);
        Showmessage(E.ErrorMessage);
      end;
      on E: Exception do
      begin
        ShowMEssage(E.Message); // Fehlermeldung : Wert für IOHandler ist ungültig !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      end;
    end;
  finally
    HTTP.Free;
    Memo1.Lines.Insert(0, FormatDateTime('hh:nn:ss',Now));
  end;
  //ReadLn;
  //ReportMemoryLeaksOnShutdown := True;
end;

[mjustin]

Zitat von strom:

Hallo ZGD,

bekomme jetzt noch als Meldung: Wert für IOHandler ist ungültig?

Ältere Indy Versionen erfordern, dass ein OpenSSL IOHandler erzeugt und der TIdHTTP Komponenten zugewiesen werden muss.

Die aktuelle Indy Version erzeugt für HTTPS automatisch einen passenden IOHandler.

Lösung: entweder den passenden TIdIOHandlerOpenSSL erzeugen und der IOHandler Property zuweisen, oder Indy aktualisieren.

[strom]

Hallo,
würde mich für diese Lösung entscheiden:

Lösung: entweder den passenden TIdIOHandlerOpenSSL erzeugen und der IOHandler Property zuweisen,

Wie würde so eine Zuweisung aussehen?

[strom]

Hallo,

meinst Du das so? "HTTP.IOHandler.AllData(nl);"

+nl
+nl

und so weiter.......??

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  RequestBody: TStream;
  ResponseBody,nl: string;
begin
  HTTP := TIdHTTP.Create;
  try
    try
      RequestBody := TStringStream.Create('{123456789}',TEncoding.UTF8);
      try
        HTTP.Request.Accept := 'input.xml HTTP/1.0';
        HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
        ResponseBody := HTTP.Post('https://login.fireboard.net/api?authkey={123456789}&call=operation_data',
          RequestBody);
        HTTP.IOHandler.AllData(nl); // in etwa so?
      finally
        RequestBody.Free;
      end;
    except
      on E: EIdHTTPProtocolException do
      begin
        Showmessage(E.Message);
        Showmessage(E.ErrorMessage);
      end;
      on E: Exception do
      begin
       Memo1.Lines.Insert(0,(E.Message)+' '+FormatDateTime('hh:nn:ss',Now));
      end;
    end;
  finally
    HTTP.Free;
    Memo1.Lines.Insert(0,'Zeitstempel '+ FormatDateTime('hh:nn:ss',Now));
  end;
end;

[-=ZGD=-]

Lösungen hier in der DP

Oder durch die Suche indy https

[strom]

Habe mir die Beispiele angesehen, mache ich doch!
Versehe ich nicht??

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  RequestBody: TStream;
  ResponseBody: string;
begin
  HTTP := TIdHTTP.Create;
  try
    try
      RequestBody := TStringStream.Create('{123456789}',TEncoding.UTF8);
      try
        HTTP.Request.Accept := 'input.xml HTTP/1.0';
        HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
        ResponseBody := HTTP.Post('https://login.fireboard.net/api?authkey={123456789}&call=operation_data',RequestBody); // hier wird der Key doch übermittelt! 
      finally
        RequestBody.Free;
      end;