Zitat von
Keldorn:
Hallo
was genau ist TXmlGCT?
wenn es nicht nur ein record ist, mußt du es auch erzeugen.
Delphi-Quellcode:
request:=TXmlGCT.create;
request.blabla:='dingsda';
...
response:= p_CS.GCT(request); // Hier tritt der Fehler auf
Deine Bemerkung zur Delphi-Hilfe verstehe ich nicht, bzw wie sieht die
wsdl aus?
Mfg Frank
Hallo Frank,
Mit der Delphihilfe meine ich die Eingabehilfe bei der Codeerstellung.
TXmlGCT ist durch die automatische XLS-Datenbindung von Delphi erzeugt worden.
Hier nur der auf das relevate reduzierte Code:
Delphi-Quellcode:
{ XML-Datenbindung }
unit CS;
interface
uses xmldom, XMLDoc, XMLIntf;
type
{ Forward-Deklarationen }
IXMLGCT =
interface;
{ IXMLGCT }
IXMLGCT =
interface(IXMLNode)
['
{801D71FE-7836-48D9-8256-E1E51E909F03}']
end;
{ Forward-Deklarationen }
TXMLGCT =
class;
{ TXMLGCT }
TXMLGCT =
class(TXMLNode, IXMLGCT)
protected
{ IXMLGCT }
end;
implementation
{ TXMLGetCardTerminals }
// keine Funktionen
end.
Und hier noch mal der Code, der duch die zugehöhrige
wsdl-Datei erzeugt wurde:
Delphi-Quellcode:
unit CSW;
interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns, CS;
type
Type GCT = TXMLGCT;
CSPortType =
interface(IInvokable)
['
{63B1C593-F454-74AF-4DF0-32ED9BBFD746}']
function GCT(
const parameter: GCT): GCTResponse;
stdcall;
end;
function GetCSPortType(UseWSDL: Boolean=System.False; Addr: string='
'; HTTPRIO: THTTPRIO =
nil): CSPortType;
implementation
[...]
Gruss vom Klaus