Announcement

**Andreas Kosch** · 25.11.2003, 13:18

Hallo,

die Sache mit den Web Services ist eigentlich ganz einfach. Gem�� der Definition der Web Service Description Working Group (W3C) steckt folgendes dahinter: "Ein Web Service ist eine durch eine URI (Uniform Ressource Identifier) identifizierbare Software-Anwendung oder eine Komponente, deren Interfaces (Schnittstellen) dazu dienen, �ber standardisierte XML-Aufrufe (SOAP) eine direkte Kommunikation zwischen Software-Anwendungen durch das Austauschen von als XML vorliegenden Daten zu erm�glichen, wobei daf�r Internet-basierende Protokolle verwendet werden. ".

Wenn mit .NET ein Web Service entwickelt wird (d.h. dieser ver�ffentlich �ber das [WebMethod]-Attribut bestimmte Methoden), so kann ein beliebiger Client die WSDL-Information (Web Service Description Language) mit der maschinenlesbaren Schnittstellen-Beschreibung abfordern. Die WSDL ist daher ein plattformunabh�ngiges Gegenst�ck zu den Typbibliotheken von COM (Component Object Model). Bei COM baut der Standard-Marshaler von Windows �ber die maschinenlesbaren Infos aus der Typbibliothek die "Proxy-Klasse" (genauer gesagt, Stub und Proxy) automatisch zusammen. Ein Web Service soll jedoch unabh�ngig vom Betriebssystem sein, daher schaltet man WSDL als offenen Standard dazwischen und �berl�sst das Generieren der Proxy-Klassen den jeweiligen Entwicklungsumgebungen. Solange f�r ein Betriebssystem eine Entwicklungsumgebung verf�gbar ist, die die WSDL-Daten "versteht", kann ein beliebiger Client auf den Web Service zugreifen.

Angenommen, ein Delphi 7-Client (kein .NET, sondern "nur" Win32) importiert diese WSDL-Information. In diesem Fall generiert die Entwicklungsumgebung (Delphi 7) daraus den Sourcecode f�r die Proxy-Klasse. Diese Proxy-Klasse ist daf�r zust�ndig, die bidirektionale XML-Kommunikation (SOAP) in die eigenen Sprachaufrufe umzusetzen. Mit einem konkreten Beispiel sieht das so aus:

a) ASP.NET XML Web Service
<pre>
[WebMethod]
public DataSet GetCustomerAsDataSet(string sCity)
{
this.bdpDataAdapter1.SelectCommand.Parameters[0].Value = sCity;
DataSet aDS = new DataSet();
this.bdpDataAdapter1.Fill(aDS, "Customer");
return aDS;
}

[WebMethod]
public XmlNode GetCustomerAsXmlNode(string sCity)
{
return new XmlDataDocument(GetCustomerAsDataSet(sCity));
}
</pre>

b) Delphi 7-Client ruft diesen Web Service auf (beim WSDL-Import wurde die IP-Adresse fest verdrahtet, kann allerdings zur Laufzeit bei Bedarf ersetzt werden) und zeigt die erhaltenen Datenmenge aus dem DataSet in seiner tabellarischen Darstellung �ber die TDBGrid-Komponente von Delphi an. Dabei sorgt ein Transformer daf�r, dass die XML-Daten in das Borland-eigene ClientDataSet-Format konvertiert werden:
<pre>
procedure TForm1.Button2Click(Sender: TObject);
var
aWS : WebService1Soap;
sData : String;
begin
aWS := GetWebService1Soap;
sData := aWS.GetCustomerAsXmlNode(EditCity.Text);
Memo1.Lines.Text := sData;
XMLTransformProvider1.TransformRead.SourceXml := sData;
ClientDataSet1.Close;
ClientDataSet1.Open;
end;
</pre>
Die von Delphi beim Import der WSDL automatisch generierte Proxy-Klasse sieht so aus:
<pre>
// ************************************************** ********************** //
// Die in dieser Datei deklarierten Typen wurden aus Daten generiert, die aus 
// unten beschriebener WSDL-Datei stammen:
// WSDL : http://localhost/OSWSCSBXmlNode/WebService1.asmx?WSDL
// Codierung : utf-8
// Version : 1.0
// (05.10.2003 15:58:13 - 1.33.2.5)
// ************************************************** ********************** //

unit WebService1;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

type

// ************************************************** ********************** //
// Die folgenden Typen, auf die im WSDL-Dokument Bezug genommen wird, sind in dieser Datei
// nicht repr�sentiert. Sie sind entweder Aliase(@) anderer repr�sentierter Typen oder auf sie wurde Bezug genommen,
// aber in diesem Dokument nicht deklariert (!). Die Typen aus letzterer Kategorie
// sind normalerweise mit vordefinierten/bekannten XML- oder Borland-Typen verbunden; sie k�nnten aber auch ein Anzeichen 
// f�r ein falsches WSDL-Dokument sein, das einen Schema-Typ nicht deklariert oder importiert..
// ************************************************** ********************** //
// !:string - "http://www.w3.org/2001/XMLSchema"

GetCustomerAsDataSetResult = class; { "http://tempuri.org/" }

// ************************************************** ********************** //
// Namespace : http://tempuri.org/
// ************************************************** ********************** //
GetCustomerAsDataSetResult = class(TRemotable)
private
Fschema: WideString;
published
property schema: WideString read Fschema write Fschema;
end;

GetCustomerAsXmlNodeResult = type WideString; { "http://tempuri.org/" }

// ************************************************** ********************** //
// Namespace : http://tempuri.org/
// soapAction: http://tempuri.org/%operationName%
// Transport : http://schemas.xmlsoap.org/soap/http
// Stil : document
// Bindung : WebService1Soap
// Service : WebService1
// Port : WebService1Soap
// URL : http://localhost/OSWSCSBXmlNode/WebService1.asmx
// ************************************************** ********************** //
WebService1Soap = interface(IInvokable)
['{3392229C-09D2-6D56-CE62-6850ABB2629D}']
function GetCustomerAsDataSet(const sCity: WideString): GetCustomerAsDataSetResult; stdcall;
function GetCustomerAsXmlNode(const sCity: WideString): GetCustomerAsXmlNodeResult; stdcall;
end;

function GetWebService1Soap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): WebService1Soap;

implementation

function GetWebService1Soap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): WebService1Soap;
const
defWSDL = 'http://localhost/OSWSCSBXmlNode/WebService1.asmx?WSDL';
defURL = 'http://localhost/OSWSCSBXmlNode/WebService1.asmx';
defSvc = 'WebService1';
defPrt = 'WebService1Soap';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as WebService1Soap);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;

initialization
InvRegistry.RegisterInterface(TypeInfo(WebService1 Soap), 'http://tempuri.org/', 'utf-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(Web Service1Soap), 'http://tempuri.org/%operationName%');
InvRegistry.RegisterInvokeOptions(TypeInfo(WebServ ice1Soap), ioDocument);
RemClassRegistry.RegisterXSClass(GetCustomerAsData SetResult, 'http://tempuri.org/', 'GetCustomerAsDataSetResult');
RemClassRegistry.RegisterXSInfo(TypeInfo(GetCustom erAsXmlNodeResult), 'http://tempuri.org/', 'GetCustomerAsXmlNodeResult');

end.
</pre&gt

**Charly Spitzenberger** · 14.01.2004, 16:08

Ich habe da auch noch eine Frage:
Kann man eigentlich �berhaupt keine statischen arrays als Parameter bei einem Web-Services Aufruf �bergeben???
Ich m�chte gern folgendes realisieren:<pre>
type
TColor = (red, blue, green);
TColArr = array[TColor, 1..2] of integer;

procedure test(aArr: TColArr);
</pre>


Als dynamische Arrays (array of integer) ist das ja alles sch�n machbar - aber gibt es in Web-Services eine M�glichkeit f�r statische arrays??

**Andreas Kosch** · 15.01.2004, 08:23

Hallo,

wenn man sich selbst darum k�mmert, dass in der WSDL die XML Schema-Beschreibung der eigenen Strukturen erscheint, kann man alles M�gliche (solange kein Feature genutzt wird, dass nur in einer Sprache vorkommt) �bertragen. Das folgende Beispiel demonstriert dies, hier sorgen die SoapRpcMethod- und SoapInclude-Attribute daf�r, dass die Beschreibung in die WSDL aufgenommen wird:
<pre>
<WebMethod(Description:="Liefert entweder OSWinUser oder OSWebUser als Nachfahre von OSComplexData zur�ck"), _
SoapRpcMethod(), SoapInclude(GetType(OSWinUser)), SoapInclude(GetType(OSWebUser))> _
Public Function GetInstance(ByVal iValue As Integer) As OSComplexData
Select Case iValue
Case 1
Dim aNewObj As New OSWinUser()
aNewObj.LogonTime = Date.Now()
Return aNewObj
Case 2
Dim aNewObj As New OSWebUser()
aNewObj.UserName = Me.User.Identity.Name
aNewObj.UserKey = 4711
aNewObj.HomePage = "http://www.entwickler.com"
Return aNewObj
End Select
End Function
</pre&gt

Announcement

Web Servicecs Newbee Fragen

Web Servicecs Newbee Fragen

Comment

Comment

Comment