.NET WEB SERVICE 学习记录（二）

建立WEB SERVICE的CLIENT端
    用DELPHI7, “FILE”－》“NEW” －》“APPLICATION”

 
其中主要单元的代码如下：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, InvokeRegistry, xmldom, Grids, DBGrids, DB, DBClient, Provider,
  Xmlxform, StdCtrls, Rio, SOAPHTTPClient,DBTables,XMLIntf,XMLDoc,SOAPConst;

type
  TForm1 = class(TForm)
    HTTPRIO1: THTTPRIO;
    Button1: TButton;
    Memo1: TMemo;
    XMLTransformProvider1: TXMLTransformProvider;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Database1: TDatabase;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

USES SERVICE1;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var 
  A:Service1Soap;
  B:WideString; 
  XMLDoc: IXMLDocument;
  time1 : Tdatetime;
begin
  DataSource1.DataSet :=  ClientDataSet1;
  time1 := now;
  A := HTTPRIO1 as Service1Soap;
  B := A.GetPersonTable;
  Memo1.Lines.Add( B );
  DataSource1.DataSet :=  ClientDataSet1;
  ClientDataset1.Active := FALSE;
  XMLDoc := NewXMLDocument;
  XMLDoc.Encoding := SUTF8;
  XMLDoc.LoadFromXML(B);
  XMLTransformProvider1.TransformRead.SourceXmlDocument := XMLDoc.GetDOMDocument;
  ClientDataset1.Active := TRUE;
  showmessage(floattostr((now-time1)*24*60*60));
end;



procedure TForm1.Button2Click(Sender: TObject);
VAR
    time1 : Tdatetime;
begin
  TIME1 := NOW;
  DataSource1.DataSet :=  QUERY1;
  //DATABASE1.Close;
  //DATABASE1.OPEN;   打开数据库连接需要很久
       QUERY1.Close;
       QUERY1.Open;
  showmessage(floattostr((now-time1)*24*60*60));
end;

end.

其编译前，需要要配置ClientDataSet1、HTTPRIO1、XMLTransformProvider1，以及接口单元文件SERVICE1.PAS(WSDL导入)
1.ClientDataSet1的配置：ClientDataSet1.ProviderName ＝ XMLTransformProvider1
2. 配置HTTPRIO1：HTTPRIO1.WSDLLocation ＝ http://localhost/mywebservice/Service1.asmx?WSDL
    如果WEB SERVICES 是可用的，则HTTPRIO1.SERVICES 拉出Service1，HTTPRIO1.PORT 拉出Service1SOAP，
3. 产生SERVICE1.PAS, “FILE”->“NEW”->“OTHER”->"WEB SERVICES”->“WSDL Importer”
    在Location of WSDL File or Url：中输入http://localhost/mywebservice/Service1.asmx?WSDL，然后next－》finish
    这样就有了SERVICE1.PAS, 并在主界面上引用USES SERVICE1;
4. 配置XMLTransformProvider1前需要配置一个*.XTR文件来引导如何解析XML文件，是要赋值给属性      XMLTransformProvider1.TransformRead.TransformationFile
   配置过程：需要用到DELPHI7的工具XML MAPPER(在DELPHI7的tools工具中)
     1）.需要一个从接口传过来的XML原形，如

<PersonTable>
  <temp>
    <USER_ID>14</USER_ID>
    <USER_NAME>test</USER_NAME>
    <USER_PASSWORD>test</USER_PASSWORD>
    <USED_DATE>2003-11-05T00:00:00.0000000+08:00</USED_DATE>
    <CHANGE_DATE>2005-03-15T14:47:58.0000000+08:00</CHANGE_DATE>
    <LOGOUT_FLAG>0</LOGOUT_FLAG>
    <USER_ADMIN_FLAG>0</USER_ADMIN_FLAG>
    <USER_EMAIL>test@iconsh.com.cn</USER_EMAIL>
  </temp>
   

</PersonTable>

  保存为1.XML（可以先用程序从接口先得到，就是把ClientDataset1.Active := TRUE;先注销，从MEMO1得到XML原型）
2）. 打开XML MAPPER,在左边框“Document View”中右键点击“open XML document”，打开上步骤存的1.XML
   就可以看到表格结构了
3）. 在XML MAPPER,左边框的结构上右键“SELECT ALL”把所有字段都选择到中间框
4）.点击XML MAPPER的菜单Create|Datapacket from XML.,则在右边的Datapacket看到转换的表格了
5) 点击XML mapper的菜单保存转换过程 File －》Save －》 Transformation，保存名称为“ToDp.xtr”，这样就建立了对应格式用的格式文件
5.配置XMLTransformProvider1： XMLTransformProvider1.TransformRead.TransformationFile＝目录＋ToDp.xtr

这样就完成了客户端，进行编译运行就可以看到从WEB SERVICE传过来的数据了，如果改SQL,需要重新配置Transformation的文件“ToDp.xtr”