PHPArray über Indy HTTP Post übergeben?

[Koloss]

Wie übergebe ich ein doppeltes Array(PHPArray) über HTTP mit Delphi?

PHPCode:

Code:

  $variable = array(
  array(
    "Test1",
    "Test2"
  ),
  array(
    "Test3",
    "Test4"
  ),
  array(
    "Test5",
    "Test6"
  )
);

Mein Delphi Code:

Code:

procedure PostHTTP;
var
  ParamList: TStringList;
begin
  ParamList := TStringList.Create;
  ParamList.Add('Param1=???'); // dort gehört das doppelte PHPArray rein
  IdHTTP.Post('http://www.abc.com/api.php', ParamList));
  ParamList.Free;
end;

Verwende Delphi XE10

[Redeemer]

Das hat an sich überhaupt nichts mit Delphi zu tun. HTTP bzw. PHP stellt sich schon bei eindimensionalen Arrays sehr seltsam an (Parameter müssen auf [] enden) und für zweidimensionale dürfte kein Standard in HTTP existieren (somit ist das auch keine Frage zu PHP). Ich würde daher vermuten, dass du dir dein eigenes Format überlegen musst, das du in Delphi zusammensetzen und in PHP parsen musst. Entweder ein einzelner Parameter (z.B. CSV als Payload) oder eindimensionale Array-Parameter mit einer Kommaliste je Wert oder so. Escaping nicht vergessen.

[Koloss]

PHP gegenstelle ist eine API, ich bin da nur der Client!

Ich habe oben nur gezeigt wie es unter PHP aussieht, nur wie setze ich das eben in Delphi um?

[Redeemer]

Wenn man das hier auf mehrere Dimensionen erweitert, könnte es klappen. Für dein Beispiel wäre dies:

Code:

variable[0][]=Test1&variable[0][]=Test2&variable[1][]=Test3&variable[1][]=Test4&variable[2][]=Test5&variable[2][]=Test6

oder

Code:

variable[0][0]=Test1&variable[0][1]=Test2&variable[1][0]=Test3&variable[1][1]=Test4&variable[2][0]=Test5&variable[2][1]=Test6

Du kannst auch PHP selbst fragen: http_build_query, dann sagt dir PHP, wie das aussehen muss, wenn man das nativ macht ($_POST['variable'] ist dein Array). Das könnte/sollte/müsste der zweite Code sein, der erste würde vielleicht auch gehen, dann übernähme PHP das Zuweisen von Indizes in den inneren Arrays. Wenn die API jetzt natürlich CSV- oder JSON-Payload erwartet, wäre das blöd. Dann hülfe nur ein Mitschnitt der Kommikation.

Wie gesagt, hat mit Delphi absolut gar nichts zu tun.

[Koloss]

Danke @Redeemer!

Du hast mich auf die Löasung gebracht! Eigentlich eh ganze easy.

Code:

procedure PostHTTP;
var
  ParamList: TStringList;
begin
  ParamList := TStringList.Create;
  ParamList.Add('Param1[0][0]=bla');
  ParamList.Add('Param1[1][0]=blabla');
  // usw.
  IdHTTP.Post('http://www.abc.com/api.php', ParamList));
  ParamList.Free;
end;

Das mit & ging nicht, denke das wird nur über querys in der url via GET funktionieren.

[Redeemer]

Indy escapet das wohl einfach, wenn du mehrere Parameter in einen reinpackst. Sprich & wird zu %26.