XLM Payload als Post

[-=ZGD=-]

Kann dein "geht immer noch nicht" nicht nachvollziehen.

Delphi XE7

Delphi-Quellcode:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdHttp, IdSSLOpenSSL, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  http: TIdHttp;
  params: TStringList;
begin
  try
    http := TIdHTTP.Create(nil);
    params := TStringList.Create;
    http.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    memo1.Text := http.Post('https://login.fireboard.net/api?authkey=blablablabla=&call=operationData', params);
  finally

  end;
end;

end.

Einfach

Delphi-Quellcode:

Button & Memo

auf das Formular und OnClick() beim Button das rein.
Wenn du alles "richtig" gemacht hast, erhältst du als Antwort:

Code:

{"status":"error","errors":["unauthorized"]}

Wichtig

Hast du die beiden DLLs wie weiter oben beschrieben ins Verzeichnis zur Projekt-EXE gelegt?

[strom]

Hallo Ihr lieben,

schönen Dank für Eure Hilfe, werde den Fehler bestimmt noch finden!
Muss jetzt erstmal alles verstehen :) und testen!

Vielleicht ist auch der Schüssel falsch? Mal schauen...

Danke Danke Danke

[-=ZGD=-]

Zitat:

Zitat von strom (Beitrag 1344825)

Hallo Ihr lieben,

schönen Dank für Eure Hilfe, werde den Fehler bestimmt noch finden!
Muss jetzt erstmal alles verstehen :) und testen!

Vielleicht ist auch der Schüssel falsch? Mal schauen...

Danke Danke Danke

Woher hast du denn den Schlüssel? :D

[strom]

hallo mjustin,

funktioniert leider auch nicht :-( :(

[strom]

hallo ZGD,

Code:

{"status":"error","errors":["unauthorized"]}

diese Meldung bekomme ich auch mit dem vorgegebenen Schlüssel!
Mir wurde bestimmt der falsche Schlüssel mitgeteilt!

[-=ZGD=-]

Immerhin bist du der Lösung nahe :)

[strom]

Hallo,
also der Schlüssel ist korrekt! Ist die XML Formatierung in der StringList so richtig?
Liegt vielleicht hier der Fehler?

Delphi-Quellcode:

function ExecuteAPI: string;
var
 http: TIdHttp;
 params: TStringList;
begin
 try
  http := TIdHTTP.Create(nil);
  params := TStringList.Create;
  params.Add('<?xml version="1.0" encoding="UTF-8"?>');
  params.Add('<fireboardOperation version="1.0">');
  params.Add('<uniqueId>11202020</uniqueId>');
  params.Add('<basicData>');
  params.Add('<externalNumber>OF120131</externalNumber>');
  params.Add('<keyword>F2/keyword>');
  params.Add('<announcement>Wohnungsbrand</announcement>');
  params.Add('<location>Test, Teststraße 1</location>');
  params.Add('<geo_location>');
  params.Add('</basicData>');
  params.Add('</fireboardOperation>');
  http.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  Form3.Memo8.Lines.Insert(0,http.Post('https://login.fireboard.net/api?authkey=123456789=&call=operation_Data', params)+' '
  + FormatDateTime ('dd.mm.yyyy , hh:nn:ss', Now));
 finally
  params.Free;
 end;
end;

[-=ZGD=-]

Delphi-Quellcode:

function ExecuteAPI: string;
var
 http: TIdHttp;
 params: TStringList;
begin
 try
  http := TIdHTTP.Create(nil);
  params := TStringList.Create;
  params.Add('<?xml version="1.0" encoding="UTF-8"?>');
  params.Add('<fireboardOperation version="1.0">');
  params.Add('<uniqueId>11202020</uniqueId>');
  params.Add('<basicData>');
  params.Add('<externalNumber>OF120131</externalNumber>');
  params.Add('<keyword>F2/keyword>');
  params.Add('<announcement>Wohnungsbrand</announcement>');
  params.Add('<location>Test, Teststraße 1</location>');
  params.Add('<geo_location>');
  params.Add('</basicData>');
  params.Add('</fireboardOperation>');
  http.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  Form3.Memo8.Lines.Insert(0,http.Post('https://login.fireboard.net/api?authkey=123456789=&call=operation_Data', params)+' '
  + FormatDateTime ('dd.mm.yyyy , hh:nn:ss', Now));
 finally
  params.Free;
 end;
end;

Tag

Delphi-Quellcode:

geo_location

wurde geöffnet, aber nicht geschlossen.

[Mavarik]

Zitat:

Zitat von -=ZGD=- (Beitrag 1344952)

Delphi-Quellcode:

function ExecuteAPI: string;
var
 http: TIdHttp;
 params: TStringList;
begin
 try
  http := TIdHTTP.Create(nil);
  params := TStringList.Create;
  params.Add('<?xml version="1.0" encoding="UTF-8"?>');
  params.Add('<fireboardOperation version="1.0">');
  params.Add('<uniqueId>11202020</uniqueId>');
  params.Add('<basicData>');
  params.Add('<externalNumber>OF120131</externalNumber>');
  params.Add('<keyword>F2/keyword>'); // < fehlt
  params.Add('<announcement>Wohnungsbrand</announcement>');
  params.Add('<location>Test, Teststraße 1</location>');
  params.Add('<geo_location>');// Endtag?
  params.Add('</basicData>');
  params.Add('</fireboardOperation>');
  http.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  Form3.Memo8.Lines.Insert(0,http.Post('https://login.fireboard.net/api?authkey=123456789=&call=operation_Data', params)+' '
  + FormatDateTime ('dd.mm.yyyy , hh:nn:ss', Now));
 finally
  params.Free;
 end;
end;

Tag

Delphi-Quellcode:

geo_location

wurde geöffnet, aber nicht geschlossen.

Noch 2 Fehler?

[mjustin]

Dass TStringList nicht für die Parameter verwendet werden darf hatte ich in Beitrag #6 ja bereits erwähnt. Auch fehlt das Encoding - es ist nur im XML, aber nicht im Request angegeben, dieser verwendet daher das Plattform-Encoding (ANSI).