客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
操作步骤如下： 1、在VS.2003下编写WebServices，代码如下：
1 [WebMethod]
｛用C#开发web services的时候，如果你这样写 sqlDataAdapter1.Fill(ds,'tablename');｝那么你是看不到上面橙色筐中的字段的。千万不要表明数据集中表名。你这样写就可以了，sqlDataAdapter1.Fill(ds);就能显示字段了！2 public string HelloWorld() 3 { 4 return "Hello World"; 5 } 6 7 [WebMethod] 8 public DataSet GetBook() 9 { 10 sqlDataAdapter1.Fill(dsBook); 11 return dsBook; 12 } 2、新建一个Delphi7项目，分别加入TButton,THTTPRIO,TXMLTransformProvider,TClientDataSet,TDataSource,TDBGrid 3、在Delphi7中导入WebService 首选，选择File/New/Other/选择WebService/选择WSDL IMPORTER 4、这样在Unit1单元中引用WSDL单元，并在Button1的OnClick中写入代码如下：
1 procedure TForm1.Button1Click(Sender: TObject);
2 var 3 test:Service1Soap;//这个就是WSDL下的类接口对象 4 msg:widestring; 5 begin 6 //HTTPRIO1 其实就是所谓的代理类，它负责进行数据传输发送Request和接受Response的 7 test:=HTTPRIO1 as Service1Soap; 8 9 msg:=test.HelloWorld;//这就是调用web服务所暴露给我们的web服务方法WebMethod 10 showmessage(msg); 11 test.GetBook; 12 end; 13 设置HTTPRIO1的属性
1 procedure TForm1.HTTPRIO1AfterExecute(const MethodName: String;
2 SOAPResponse: TStream); 3 var 4 XMLDoc: IXMLDocument; 5 begin 6 SOAPResponse.Position := 0; 7 ClientDataset1.Active := FALSE; 8 SOAPResponse.Position := 0; 9 XMLDoc := NewXMLDocument; 10 XMLDoc.Encoding := 'SUTF8'; //应该是'SUTF8'并需要引用XMLIntf,XMLDoc两个单元 11 SOAPResponse.Position := 0; 12 XMLDoc.LoadFromStream(SOAPResponse); 13 XMLDoc.SaveToFile('c:\abc.xml'); //可用这个文件做格式 14 XMLTransformProvider1.TransformRead.SourceXmlDocument := XMLDoc.GetDOMDocument; 15 ClientDataset1.Active := TRUE; 16 end; 17
|
2022-08-15
2022-08-17
2022-09-23
2023-10-27
2022-08-18
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论