XLM Payload als Post

[strom]

Nein

habe sowas noch nicht gemacht ist bestimmt wieder ein Riesen Ding! oder?

[-=ZGD=-]

Nicht sonderlich, aber geht auch anders

Nutze hier Punkt 4) SSL. Damit sollte es funktionieren.

Ich komm gerade nicht zum Testen mit XE7, da ich das Windows 10.1 Update mach

Edit

Habe es getestet. Gibt Probleme. Gelöst durch das Benutzen dieser DLLs. Lege diese ins gleiche Verzeichnis wie deine EXE. Also schätzungsweise nach

Code:

Win32/Debug

Grüße,
Stefan

[mjustin]

Zitat von strom:

Nein

habe sowas noch nicht gemacht ist bestimmt wieder ein Riesen Ding! oder?

Nicht so schlimm wie es sich anhört. Man muss die Indy Komponenten nicht unbedingt in der IDE installieren, wenn man sie nur dynamisch (zur Laufzeit) erzeugt.

- Indy herunterladen oder aus dem Subversion Repository auschecken
- Die Verzeichnisse Lib\Code, Lib\Protocols und Lib\System dem Projekt-Suchpfad hinzufügen (damit ist sichergestellt, dass nur diese eine Projekt die neue Version verwendet)
- kompilieren

[strom]

Erstmal vielen Dank für die Hilfe!

aber der Hund liegt woanders begraben, immer noch die gleiche Meldung ;-(

[mjustin]

Zitat von strom:

Erstmal vielen Dank für die Hilfe!

aber der Hund liegt woanders begraben, immer noch die gleiche Meldung ;-(

Funktioniert der Code aus meinem Beispiel in Beitrag #6 denn?

[-=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 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 von 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

Woher hast du denn den Schlüssel?

[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!