habs jetzt folgendermassen gelöst.
Delphi-Quellcode:
type
TKommEinstWebs =
record
URL, Svc, Prt:
String;
end;
...
with aKommEinst
do
begin
URL:=parURL;
Svc:=parSvc;
Prt:=parPrt;
end;
oefk:=GetoefkPortType(aKommEinst, False);
...
function GetoefkPortType(pKommEinst:TKommEinstWebs; UseWSDL: Boolean; Addr:
string; HTTPRIO: THTTPRIO): oefkPortType;
{const
defWSDL = 'Z:\!Desktop\WebserviceClient\Klass\doku\WSDL\oefk.wsdl';
defURL = 'http://www.sla.de/oefksoap';
defSvc = 'oefk';
defPrt = 'oefk';}
var
RIO: THTTPRIO;
defWSDL, defURL, defSvc, defPrt:
String;
begin
with pKommEinst
do
begin
defURL:=
URL;
defSvc:=Svc;
defPrt:=Prt;
end;
Können mit dieser Lösung Probleme auftauchen
