Witam. Jestem w trakcie tworzenia oprogramowania do generowania przesyłek do brokera/kuriera poprzez API brokera.
Mam problem z jednym parametrem w której zmienną jest tablica struktur.
Wykorzystuję Tidhttp do wysyłania POST
W dokumentacji API widnieje:
Parametry wejściowe funkcji CheckPrices.xml:
session string(32)
paymentType string(20)
receiverPostCode string(10)
packages tablica struktur package1
Parametry package1
weight float
height float
width float
length float
W przypadku parametrów typu String nie mam problemu, lecz niewiem jak ugryźć tą tablicę struktur.
procedure Zamow_paczke(order:IXMLDocument; response : TStream);
var
lHTTP: TIdHTTP;
lParamList: TStringList;
Node: IXMLNode;
package: TStringList;
begin
Node:=order.DocumentElement;
lParamList := TStringList.Create;
package := TStringList.Create;
lParamList.Add('session='+session);
lParamList.Add('paymentType='+Node.ChildNodes['paymentType'].Text);
lParamList.Add('receiverPostCode='+Node.ChildNodes['receiverPostCode'].Text);
lParamList.Add('packages=???????????');
lHTTP := TIdHTTP.Create(nil);
try
lHTTP.Post('http:/stronabrokera.pl/api/checkData.xml', lParamList, response);
finally
lHTTP.Free;
lParamList.Free;
end;
end;
Znalazłem kod w PHP, ale nie wiem jak przenieść to do delphi
$order = new CreateOrderRequest([
'courier' => '5',
'paymentType' => 'paczka',
'receiverPostCode' => '02-825',
'packages' => [
['weight' => 1, 'width' => 1, 'length' => 1, 'height' => 1, 'unsortableShape' => 0],
]
]);