实例——应用web service组件.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 48 行

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;