然后再重新访问页面,应该就 OK 了。
Delphi 7建立测试程序
1、新建一个应用程序:
2、拖一个 button 一个 edit 和一个 HTTPRIO(在 webservices 页上)到窗体上;
3、接下来:
File-> new-> other-> webservices-> WSDL importer
输入 wsdl 文件地址,点击 next 导入
保存 unit Service1
4、在 unit1(form1 的单元文件)中引用 Service1
5、HTTPRIO1 的URL 属性设置为'http://localhost/WebService1/Service1.asmx?WSDL '
6、添加 form1 的代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, InvokeRegistry, Rio, SOAPHTTPClient;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
HTTPRIO1: THTTPRIO;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses
Service1;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=(HTTPRIO1 as Service1Soap).HelloWorld;
end;
end.
评论1
最新资源