Working with .NET data in Delphi

Author：傻猫
发布时间：June 24, 2007
13119views
One comment
14829 words
Categories：搞软件

Webservices offer a rich world of functionality. This world is available to the Delphi programmer with the introduction of the Webservice importer introduced in Delphi 6, with version 6.02 also available in Delphi pro. A webservice can work with pretty complex data, with .NET it is a snap to return and&nbsp; receive complete XML datasets. Delphi does not know how to work with these datasets natively. In this paper I will show how to work with .NET data using the GekkoDotNetDataset componenet.<h3>The .NET webservice</h3>The webservice I am going to build will be a web-wrapper round a database. The database is an Access database local on the web-server. It&nbsp; contains&nbsp; customers, invoices and invoice details.<img height="394" alt="" width="400" border="0" src="http://www.gekko-software.nl/DotNet/WDN0801.jpg" />Methods of the webservice will expose this data to the web as strongly typed XML datasets. Other methods will accept XML datasets to update the database. Importing these tables in a .NET application will result in a nice XSD <a name="schema">schema</a><img height="627" alt="" width="773" border="0" src="http://www.gekko-software.nl/DotNet/WDN0802.jpg" />For a step by step story how to build such a service you can read <a href="https://www.samool.com/go/aHR0cDovL3d3dy5kb3RuZXRqdW5raWVzLmNvbS90dXRvcmlhbHMuYXNweD90dXRvcmlhbGlkPTQ3NQ==" target="_blank" >one of my dotnetjunkies stories</a>, for the moment I will concentrate on the actual webmethods.The Customers method returns a dataset containing all customers. It does so by creating a new typed dataset object : DataSetCustomers. This object is filled by the oleDbDataAdapter, the internals of this component do the real access to the database.&nbsp;&nbsp;public DataSetCustomers Customers() { &nbsp;&nbsp;&nbsp; DataSetCustomers ds = new DataSetCustomers(); &nbsp;&nbsp;&nbsp; oleDbDataAdapterCustomers.Fill(ds); &nbsp;&nbsp;&nbsp; return ds; }The entire resulting XML dataset is returned. One of the many nice things of an XML dataset is that it can be serialized, it can be represented as one long string of characters. Which is something which is very easy to transport over the standard HTTP protocol.To fill the contents of the invoices dataset, as described by the <a href="https://www.samool.com/go/aHR0cDovL3d3dy5nZWtrby1zb2Z0d2FyZS5ubC9Eb3ROZXQvQXJ0MDguaHRtI3NjaGVtYQ==" target="_blank" >schema</a>, takes a little more effort. The three tables can live together in one dataset but for every table another oleDbDataAdapter is needed.[WebMethod]public DataSetInvoices Invoices() { &nbsp;&nbsp;&nbsp; DataSetInvoices ds = new DataSetInvoices(); &nbsp;&nbsp;&nbsp; oleDbDataAdapterCustomers.Fill(ds.Customers); &nbsp;&nbsp;&nbsp; oleDbDataAdapterInvoices.Fill(ds.Invoices); &nbsp;&nbsp;&nbsp; oleDbDataAdapterInvoiceDetails.Fill(ds.InvoiceDetails); &nbsp;&nbsp;&nbsp; return ds; }Using dataAdapters all query possibilities of the database can be used. For an example you are still invited at the dotnetjunkies. DataAdapters can also be used to write to a database. The updates to be written are passed as a typed XML dataset. Which make the implementation of of the webmethod a one-liner:[WebMethod]public void UpDateCustomers(DataSetCustomers ds) { &nbsp;&nbsp;&nbsp; oleDbDataAdapterCustomers.Update(ds.Customers); }Multiple tables can be updated in one go in the UpdateInvoices method. The order in these updates will be performed is important:[WebMethod]public void UpdateInvoices(DataSetInvoices ds) { &nbsp;&nbsp;&nbsp; oleDbDataAdapterCustomers.Update(ds.Customers); &nbsp;&nbsp;&nbsp; oleDbDataAdapterInvoices.Update(ds.Invoices); &nbsp;&nbsp;&nbsp; oleDbDataAdapterInvoiceDetails.Update(ds.InvoiceDetails); }You cannot enter a new invoice if you don't know the customer yet. These integrity checks are also performed in an .NET XML dataset object. But in there they can be switched off by setting the EnforceConstraints property to false.<h3>A .NET webservice consumer at work</h3>In .NET you can build a windows client application which imports the webservice and it will work perfect with all functionality of the webservice. Which means that a windows application can update an Access database somewhere on a webserver on the other side of the globe using plain HTTP.The client reads that data from the webserver like thislocalhost.DataSetWebService ws =new localhost.DataSetWebService(); dataSetCustomers1.Clear(); dataSetCustomers1.Merge(ws.Customers());The dataset is bound to a grid. Here the user can do some editing after which the update is invokedlocalhost.DataSetWebService ws =new localhost.DataSetWebService(); ws.UpDateCustomers(dataSetCustomers1);See this consumer at work in the dotnetjunkies story.<h3>Importing the webservice in Delphi</h3>It would be very nice to work with this webservice in Delphi. I will use Delphi 6.02 pro which has full support for webservices clients. Delphi has a webservice importer which is found under the file | New | Other | Webservices menu. After entering the URL of the webservice Delphi will generate a unit describing the webservice.The webservice has two types, being the Customers and the Invoices XSD schema. The service has four methods who use these types in their parameters or as result-type. And this is what the Delphi makes out of it :<img height="442" alt="" width="725" border="0" src="http://www.gekko-software.nl/DotNet/WDN0804.jpg" />Which looks pretty disappointing. The Return types of Customers and Invoices webmethods are recognized as composite types Customers and Invoices. Alas, these types contain no members at all. Things get worse with the update methods. Both have a parameter named ds of type Invoices or Customers. The importer generates two methods with a parameter named ds of a type named ds as well. This ds type is declared and does not have any members either. That's not going to work. Many webservices work very well with Delphi but in this case it will need some extra help.<h3>Introducing the GekkoDotNetDataSet component&nbsp;</h3>I have built the GekkoDotNetDataSet component. This component is based on the HTTPrio component and can be found in the demo code. It takes the following approach to the problem:<ul> <li>It wraps up one XML dataset.</li> <li>It provides the data to other Delphi components as (client-)datasets.</li> <li>The webservice has to have a function member which returns the typed dataset.</li> <li>The webservice has to have an update member which accepts the typed XML dataset in a parameter.</li></ul>The component introduces two new published events and one new published property, visible in the object inspector.<ul> <li>OnRequestGetInvocation, an event which is fired when the component requests the XMLdataset from the service.</li> <li>Paramname. A string to store the name of the parameter of the updatemethod.</li> <li>OnRequestUpdateInvocation, an event which is fired when the component requests the webservice to update the data.</li></ul>The component has two public methods and two public properties to read and write data<ul> <li>The Get method reads the data into the componennt.</li> <li>The DataTable publishes all data in an array of Delphi (Client)datasets.</li> <li>TableCount counts the number of Delphi datasets.</li> <li>The Update method sends all updates to the webservice</li></ul>This componenet is part of the GekkoDotNetPackage, it will install itself on the webservices page.<h3>Reading data with GekkoDotNetDataSet component&nbsp;</h3>I drop two of these components on the form. One for the Web Services' Customers dataset and the other for the Invoices dataset. Despite it's emptiness I can use the imported Service1.pas. The GekkoDotNetDataSet component is a HTTPrio descendent so I have to set the WSDLlocation in both components , it will be <a href="https://www.samool.com/go/aHR0cDovL2xvY2FsaG9zdC9XZWJTZXJ2aWNlcy9EYXRhU2VydmljZS9TZXJ2aWNlMS5hc214P3dzZGw=" target="_blank" >http://localhost/WebServices/DataService/Service1.asmx?wsdl</a>. The component's only new property is ParamName, it is the name of the parameter of the Update methode, ds for both components.The real new stuff is in two new events. These get fired when the component Get's or Update's data. As the component does not know which member of the webservice to invoke to read or write data it will make a callback to the component's user. Requesting the user to do the actual invoke.procedure TForm1.DataSetCustomersRequestGetInvocation(Sender: TObject); var Iservice : DataSetWEbServiceSoap; &nbsp;&nbsp; begin &nbsp;&nbsp; Iservice:= DataSetCustomers as DataSetWebServiceSoap; &nbsp;&nbsp; Iservice.Customers; &nbsp;&nbsp; end;You have to get to the actual webservice by typecasting the component to the interface of the service, which can be done because the component is a HTTPrio wrapping up the webservice. The declaration of DataSetWebServiceSoap is in the imported Service1.pas. On this interface you call the function which will return the intended XML dataset. In the requestGetInvocation-eventhandler of the other componenent the Invoices method will be invoked.The click of a button will fill the form with a dataset, which dataset depends on a radiogroupprocedure TForm1.ButtonGetClick(Sender: TObject); var i : integer; &nbsp;&nbsp;&nbsp; DNdataSet : TGekkoDotNetDataSet; &nbsp;&nbsp; begin &nbsp;&nbsp; case RadioGroup1.ItemIndex of &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0 : DNdataSet:= DataSetCustomers; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1 : DNdataSet:= DataSetInvoices; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else DNdataSet:= nil; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp; if Assigned(DNdataSet) then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DNdataSet.Get; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CreateDataGrids(DNdataSet); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp; end;By calling get on the customers dataset the DataSetCustomersRequestGetInvocation eventhandler will be executed. Which will make the right invocation.Now the tables of the are filled I will show what's in them. The form has an empty pagecontrol. For every dataset a page is added to the pagecontrol :&nbsp;procedure TForm1.CreateDataGrids(Sender: TObject); &nbsp;&nbsp; var tP : tTabSheet; &nbsp;&nbsp; ds : tDataSource; &nbsp;&nbsp; dn : tDBNavigator; &nbsp;&nbsp; dg : tDBGrid; &nbsp;&nbsp; i : integer; &nbsp;&nbsp; DNdataSet : TGekkoDotNetDataSet; &nbsp;&nbsp; begin &nbsp;&nbsp; DNdataSet:= sender as TGekkoDotNetDataSet; &nbsp;&nbsp; if DNdataSet &lt;&gt; nil then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; for i:= 0 to DNdataSet.TableCount - 1 do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; tP:=tTabSheet.Create(self); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; tP.PageControl:= PageControl1; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; tP.Caption:= DNdataSet.DataTable[i].Name; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ds:= tDataSource.Create(Self); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dn:= tDBnavigator.Create(self); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dn.Align:= alTop; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dn.Parent:= tP; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dn.DataSource:= ds; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dg:= tDBGrid.Create(self); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dg.Align:= alClient; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dg.Parent:= tP; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dg.DataSource:= ds; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ds.DataSet:= DNdataSet.DataTable[i]; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp; end;For every (client-)dataset in the GekkoDotNetDataSet I create a new page with a datagrid and a dbNavigator.When running this application I can browse and update the data in my Delphi form.<h3>Updating data with GekkoDotNetDataSet component&nbsp;</h3>To return all updates to the webservice the component uses another eventprocedure TForm1.DataSetInvoicesRequestUpdateInvocation(Sender: TObject); var Iservice : DataSetWEbServiceSoap; &nbsp;&nbsp; begin &nbsp;&nbsp; Iservice:= DataSetInvoices as DataSetWebServiceSoap; &nbsp;&nbsp; Iservice.UpDateInvoices(ds.Create); &nbsp;&nbsp; end;This event is fired by the componenet when it's Update method is called. The component does not know which member to invoke, in this eventhandler the component' user is requested to invoke the desired method. The ds class is declared in the imported unit. It has no members but it will do to invoke the method.The form sends the updates by the click of a buttonprocedure TForm1.ButtonSaveClick(Sender: TObject); var DNdataSet : TGekkoDotNetDataSet; &nbsp;&nbsp; begin &nbsp;&nbsp; case RadioGroup1.ItemIndex of &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 0 : DNdataSet:= DataSetCustomers; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1 : DNdataSet:= DataSetInvoices; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else DNdataSet:= nil; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp; if Assigned(DnDataSet) then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DNdataSet.Update; &nbsp;&nbsp; end;Now we have a Delphi application which works with a .NET webservice and can read or write XML dataset data.<img height="665" alt="" width="700" border="0" src="http://www.gekko-software.nl/DotNet/WDN0805.jpg" /><h3>Inpecting the webservice's request and response</h3>To get an idea what is going on I have set the GekkoDotNetDataSet componenet's before- and after- execution event to show the full SOAP request and response in explorer windows.The request is passed to the eventhandler as a string and the response as a stream. The ShowXML method will send the stream to a browser, it does so by saving the xml as a temporary file and pointing a browser to it. In the BeforeExcute event the string request has to be written to a stream before being sent to the ShowXML method.procedure TForm1.HTTPRIO1BeforeExecute(const MethodName: String; var SOAPRequest: WideString); &nbsp;&nbsp; var ts : tStringStream; &nbsp;&nbsp; buffer : string; begin &nbsp;&nbsp; buffer:= SOAPrequest; &nbsp;&nbsp; ts:= tStringStream.Create(buffer); &nbsp;&nbsp; Showxml(ts, Send); end;procedure TForm1.HTTPRIO1AfterExecute(const MethodName: String; SOAPResponse: TStream); begin &nbsp;&nbsp; ShowXML(SOAPResponse, Receive); end;Now you can see the full requests as they are sent to the .NET webservice and the response.<h3>(Don't) try this ay home !</h3>The GekkoDotNetDataSet component relies on the tDNdataSet, whose internals are described in <a href="https://www.samool.com/go/aHR0cDovL3d3dy5nZWtrby1zb2Z0d2FyZS5ubC9Eb3ROZXQvQXJ0MDcuaHRt" target="_blank" >another paper</a>. The class has been created by trial and error in investigating the results of .NET built webservices. If you want to use the class in your own code please consider the following points (this is a disclaimer !)<ul> <li>The dataset does (by long) not support all possible field-types.</li> <li>The functionality is based on the diffgram structure as found, this structure is not (as far as I know) backed up by some kind of formal specification. Special testing deserve the roworder attribute and the localization settings.</li> <li>New updated versions of the component and these papers will appear on this website.</li></ul>You are welcome to experiment with the component and any suggestions, remarks, comments, or other feedback will be greatly appreciated. It will all be used in the&nbsp; updates.<h3>Where are we ?</h3>In this paper we have seen how a Delphi webservice client can work with a webservice which works with XML (diffgram) datasets. All functionality is stored in the GekkoDotNetDataSet component, which is based on Delphi's HTTPrio component.<h3>What's next ?</h3><ul> <li><a href="https://www.samool.com/go/aHR0cDovL3d3dy5nZWtrby1zb2Z0d2FyZS5ubC9Eb3ROZXQvRG90TmV0RGF0YVNldEluRGVscGhpLnppcA==" target="_blank" >Download the code</a>.</li> <li>Inside <a href="https://www.samool.com/go/aHR0cDovL3d3dy5nZWtrby1zb2Z0d2FyZS5ubC9Eb3ROZXQvQXJ0MDkuaHRt" target="_blank" >the component</a>.</li> <li>Inside <a href="https://www.samool.com/go/aHR0cDovL3d3dy5nZWtrby1zb2Z0d2FyZS5ubC9Eb3ROZXQvQXJ0MDcuaHRt" target="_blank" >tDNdataset</a> class.</li> <li><a href="https://www.samool.com/go/aHR0cDovL3d3dy5nZWtrby1zb2Z0d2FyZS5ubC9Eb3ROZXQvQXJ0MDYuaHRt" target="_blank" >Data in .NET</a>.</li></ul>&nbsp;文章来源: <a href="https://www.samool.com/go/aHR0cDovL3d3dy5nZWtrby1zb2Z0d2FyZS5ubC9Eb3ROZXQvQXJ0MDYuaHRt" target="_blank" >http://www.gekko-software.nl/DotNet/Art06.htm</a>

Last modification：August 16th, 2009 at 12:30 pm

如果觉得我的文章对你有用，请随意赞赏

One comment

kasper34
2010-03-04 19:50:31

The quality of your superb release about this good post can be compared with the research essay at buy essay service only. Hence, you do this in a good way. Thank you a lot for your work!

Reply