应用Web Service组件

Delphi SOAP 客户端示例

最新推荐文章于 2022-02-03 23:30:37 发布

原创最新推荐文章于 2022-02-03 23:30:37 发布 · 341 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#service #web #服务器 #function #string #数据库

Delphi 专栏收录该内容

95 篇文章

订阅专栏

本文介绍了一个使用 Delphi 实现的 SOAP 客户端示例，该客户端能够连接到远程服务器并获取动物名称列表。通过按钮点击事件，程序实现了与服务器交互、填充组合框以及响应选择变更等功能。

function Tmyfirst.animalsname:string; stdcall;
 var     
 c: Tstringlist;
 begin
    c:=TStringList.Create ;
    data_md.Table1.First;
    while not data_md.Table1.Eof do
    begin
    c.Add(data_md.Table1.fieldbyname('name').AsString);
    data_md.Table1.Next;
    end;
    result:=c.Text;
    c.Free;
 end;
//
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage((HTTPRIO1 as Imyfirst).SayHello);
  combobox1.Items.Text:=(HTTPRIO1 as Imyfirst).animalsname;
end;
//Button2的作用是根据服务器端给出的Idata_md窗体的WSDL数据，连接远程服务器端的数据库，并激活ComboBoxl，其Onclick事件的程序代码如下： 
procedure TForm1.Button2Click(Sender: TObject);
begin
  SoapConnection1.Close ;
  ClientDataSet1.Close;  SoapConnection1.URL:='http://localhost:8081/Project1.myfirst/soap/Idata_md' ;
  SoapConnection1.Open;
  ClientDataSet1.Open;
  ComboBox1.Enabled :=true;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  ClientDataSet1.First;
  ClientDataSet1.IndexName:='name';
  ClientDataSet1.setkey;  ClientDataSet1.FieldByName('name').AsString:=combobox1.Items[combobox1.itemindex];
  ClientDataSet1.GotoNearest;
end;
//
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  ClientDataSet1.First;
  ClientDataSet1.IndexName:='name';
  ClientDataSet1.setkey;  ClientDataSet1.FieldByName('name').AsString:=combobox1.Items[combobox1.itemindex];
  ClientDataSet1.GotoNearest;
end;