XLM Payload als Post

[strom]

Hallo,

bekomme immer die Fehlermeldung : "HTTP/1.0 301 Moved Permanently" ?

Delphi-Quellcode:

function ExecuteAPI: string;
var
  lHTTP: TIdHTTP;
  lParamList: TStringList;
begin
  lParamList := TStringList.Create;
  lParamList.Add('<?xml version="1.0" encoding="UTF-8">');
  lParamList.Add('<testOperation version="1.0> ');
  lParamList.Add('<uniqueId>blablablabla</uniqueId>');
  lParamList.Add('<basicData>');
  lParamList.Add('<externalNumber>OF120131</externalNumber>');
  lParamList.Add('<keyword>F2/keyword>');
  lParamList.Add('<announcement>Test</announcement>');
  lParamList.Add('<location>Teststrasse 1</location>');
  lParamList.Add('<geo_location>');
  lParamList.Add('</basicData>');
  lParamList.Add('</testOperation>');
  lHTTP := TIdHTTP.Create(nil);
  try
    Result := lHTTP.Post('http://login.test.info/api?authkey=blablablabla=&call=operationData', lParamList);
  finally
    lHTTP.Free;
    lParamList.Free;
  end;
end;

Aufruf

Delphi-Quellcode:

begin
 ExecuteAPI;
end;

[mkinzler]

Die Url stimmt?

Die Xml-Struktur ist so auch nicht ganz korrekt

[strom]

Hey,
was ist an der Struktur falsch?

URL ,müsste so richtig sein!

[-=ZGD=-]

Zitat von mkinzler:

Die Url stimmt?

Noch!
Diese wurde wohl umgezogen.
Die Information sollte im Response stehen: Location gibt die neue URL an.

[himitsu]

Zitat:

Code:

<testOperation version="1.0>

Da fehlt mindestens ein "

Und IdHTTP überträgt das dann auch wirklich als UTF-8?
In der XML steht, dass sie UTF-8 ist,
aber was InHTTP macht, ist eine andere Angelegenheit.

Tipp: ParamList speichern und die Datei an http://www.xmlvalidation.com/?L=2 übergeben.

[mjustin]

Es darf keine TStringList verwendet werden. Indy benutzt dann für den Request das Format application/x-www-form-urlencoded.

Stattdessen muss ein Stream verwendet werden, zum Beispiel ein TStringStream.

Ein Beispiel für ein HTTPS POST mit einem JSON Body habe ich hier:

https://mikejustin.wordpress.com/201...-6-https-post/

Delphi-Quellcode:

program JSONPostExample;
 
{$APPTYPE CONSOLE}
 
uses
  IdHTTP, IdGlobal, SysUtils, Classes;
 
var
  HTTP: TIdHTTP;
  RequestBody: TStream;
  ResponseBody: string;
begin
  HTTP := TIdHTTP.Create;
  try
    try
      RequestBody := TStringStream.Create('{"日本語":42}',
        TEncoding.UTF8);
      try
        HTTP.Request.Accept := 'application/json';
        HTTP.Request.ContentType := 'application/json';
        ResponseBody := HTTP.Post('https://httpbin.org/post',
          RequestBody);
        WriteLn(ResponseBody);
        WriteLn(HTTP.ResponseText);
      finally
        RequestBody.Free;
      end;
    except
      on E: EIdHTTPProtocolException do
      begin
        WriteLn(E.Message);
        WriteLn(E.ErrorMessage);
      end;
      on E: Exception do
      begin
        WriteLn(E.Message);
      end;
    end;
  finally
    HTTP.Free;
  end;
  ReadLn;
  ReportMemoryLeaksOnShutdown := True;
end.

[strom]

Hallo, bekomme es einfach nicht hin! Fehlercode E/A 105 ??

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('http://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
        WriteLn(E.Message);
        WriteLn(E.ErrorMessage);
      end;
      on E: Exception do
      begin
        WriteLn(E.Message);
      end;
    end;
  finally
    HTTP.Free;
  end;
  ReadLn;
  ReportMemoryLeaksOnShutdown := True;
end;