DPD Webservice

[horstmeyer]

Nein, dass funktioniert leider nicht! Für die Printoption habe ich die Deklaration jetzt herausbekommen, aber wie man den array of printoption deklariert, ist mir immer noch nicht klar:

Code:

procedure TForm1.MLButton2Click(Sender: TObject);
var
  ret : storeOrdersResponseType;
  myShipmentService44Client : ShipmentService_4_4;
  apiAuth : authentication;
  myPrintOptionList : array of PrintOption;
  myPrintOption : PrintOption;
begin

    try

    // Übergeordnete Klasse erzeugen
    myPrintOption := PrintOption.Create;
    // Optionsobject erzeugen ???
    //printoptionObject := printoption.Create;
    // Optionsobject an das Array der übergeordneten Klasse hängen (alternativ als Zuweisung mit ":=" anstelle von "<TArray> +" ??
    //myPrintObject.printOptions := printObject .printOptions + [printOptionObject]
    // Hier die Properties der Option füllen
//    myPrintoption.startPosition := 0;
    myPrintoption.paperFormat:=paperFormat(0);
    myPrintoption.startPosition:=StartPosition(0);
    myPrintoption.outputFormat:=Outputformattype(0);

      // printOptions
//      PrintOption[] myPrintOptionList = new PrintOption[1];
//      PrintOption myPrintOption = new PrintOption();
//      myPrintOption.setPaperFormat(com.dpd.common.service.types.ShipmentService._4_4.PrintOptionPaperFormat.A4);
//      myPrintOption.setStartPosition(com.dpd.common.service.types.ShipmentService._4_4.StartPosition.UPPER_LEFT);
//      myPrintOption.setOutputFormat(com.dpd.common.service.types.ShipmentService._4_4.OutputFormatType.PDF);
//      myPrintOptionList[0] = myPrintOption;

      showmessage('storeorder');
    except
      showmessage('Fehler');
    end;

end;

Muss ich für myPrintOptionList evtl. einen eigenen Type anlegen?