Thema: Delphi Webservice

Einzelnen Beitrag anzeigen

InschenierSB

Registriert seit: 25. Apr 2018
Ort: Regensburg
39 Beiträge
 
#23

AW: Webservice

  Alt 26. Apr 2018, 15:03
Ja nee.... also da muss er durch... Das ist so ähnlich wie wenn ich was handwerkliches mache und habe steinaltes Werkzeug. Das geht vielleicht bis zu einem bestimmten Grad aber dann ist Schluss.
Aber was anderes, wenn ich das WSDL Dokument in die Delphi 2010 Version importiere, sieht es definitiv komplett anders aus als im Delphi 6
Wie kann ich jetzt die Parameter(4 mal Boolean und 1 String) der Funktion übergeben? Der Typ ist im WSDL-Dokument deklariert. Das ist ja dann in der Main.pas ein undefinierter Bezeichner.
Ich füge mal nur den relevanten Code ein:
Das ist aus dem WSDL-Dokument die deklarierte Funktion.
Delphi-Quellcode:
  // URL : http://tst-rbg16:8029/Lot.svc
  // ************************************************************************ //
  ILot = interface(IInvokable)
  ['{1E7F22BE-D470-57BE-AF25-CBAC66BA2E10}']
    function GetLotInfoByLotName(const requestMessage: GetLotInfoByLotNameRequest2): GetLotInfoByLotNameResponse2; stdcall;

Weiterhin der Code für die Deklaration von "GetLotInfoByLotNameRequest2"

Delphi-Quellcode:
  // ************************************************************************ //
  GetLotInfoByLotNameRequest2 = class(BaseRequest2)
  private
    FCheckSlotPos: Boolean;
    FCheckSlotPos_Specified: boolean;
    FEquipmentValidation: Boolean;
    FEquipmentValidation_Specified: boolean;
    FLotName: string;
    FLotName_Specified: boolean;
    FReturnBrokenWafers: Boolean;
    FReturnBrokenWafers_Specified: boolean;
    FUseSlotPosition: Boolean;
    FUseSlotPosition_Specified: boolean;

Und in der Main.pas rufe ich nun die Funktion GetLotInfoByLotName auf
und wie übergebe ich nun die Parameter vom Typ GetLotInfoByLotNameRequest2 ??
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  HTTPRIO1.URL:='http://tst-rbg14:8019/Lot.svc';

  sResult:= (HTTPRIO1 as ILot).GetLotInfoByLotName(?????)
end;
  Mit Zitat antworten Zitat