Hallo,
bin Neuling bei Webservices.
Folgender D5-Code:
procedure TForm1.Button1Click(Sender: TObject);
var
SoapClient: OleVariant;
Res: Variant;
begin
Screen.Cursor := crHourGlass;
try
SoapClient := CreateOleObject('MSSOAP.SoapClient30');
SoapClient.mssoapinit('http://gov.genealogy.net/services/ComplexService?wsdl');
Res := SoapClient.searchByName('Heidkate');
finally
Screen.Cursor := crDefault;
end;
end;
Der obige Code läuft problemlos durch. Der Webservice (über MSSOAP.SoapClient30) gibt als Result eine XML-Struktur zurück.
varType(Res) ergibt varDispatch.
Wie kann ich auf Res zugreifen bzw. wie kann ich Res z.B. in eine TStringList konvertieren?
Vielen Dank für jede Hilfe.
Marco
bin Neuling bei Webservices.
Folgender D5-Code:
procedure TForm1.Button1Click(Sender: TObject);
var
SoapClient: OleVariant;
Res: Variant;
begin
Screen.Cursor := crHourGlass;
try
SoapClient := CreateOleObject('MSSOAP.SoapClient30');
SoapClient.mssoapinit('http://gov.genealogy.net/services/ComplexService?wsdl');
Res := SoapClient.searchByName('Heidkate');
finally
Screen.Cursor := crDefault;
end;
end;
Der obige Code läuft problemlos durch. Der Webservice (über MSSOAP.SoapClient30) gibt als Result eine XML-Struktur zurück.
varType(Res) ergibt varDispatch.
Wie kann ich auf Res zugreifen bzw. wie kann ich Res z.B. in eine TStringList konvertieren?
Vielen Dank für jede Hilfe.
Marco