Delphi-Quellcode:
procedure TForm3.btn1Click(Sender: TObject);
var
myService : SalesServiceSoap;
myLogin : WebLogin;
myDealer : DealerInformationModel;
myInfo : CompleteVehicleInformationModel;
myEquipment : ArrayOfEquipmentModel;
//myHeader : ISOAPHeaders;
begin
myService := GetSalesServiceSoap();
myLogin := WebLogin.Create;
myLogin.User := edt1.Text;
myLogin.Password := edt2.Text;
myLogin.Language := 1;
//myHeader := myService as ISOAPHeaders;
//myHeader.Send(myLogin); { add the header to outgoing message }
(myService as ISOAPHeaders).Send(myLogin); { add the header to outgoing message }
myInfo := myService.CompleteVehicleInformation(edt3.text);
myEquipment := myService.CompleteVehicleInformation(edt3.text).Equipment;
end;
end;
Läuft durch,der Fehler bleibt
