最近一个项目用到了delphi调用C#写的web服务的功能。用了一天的时间找原因,终于测试通过了。 这是一个通过web服务把一个照片上传到网站指定位置的方法。先测试了N次都不成功,通过跟踪发现delphi根本没传过来任何值,通过查资料发现VS2005 默认是用的 SoapDocumentProtocol而Delphi 是使用的 SoapRpcProtocol.这会造成所以客户端传过去的字符串变 成null,需要在生成的接口单元的INITIALIZATION 部分加上一句:InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap), ioDocument); 搞定了。服务代码: [WebMethod] public int UploadFile(byte[] fs, string FileName) { try { ///定义并实例化一个内存流,以存放提交上来的字节数组。 ///定义实际文件对象,保存上载的文件。 string FullFilename = Server.MapPath("photo//") + FileName; if (File.Exists(FullFilename)) { File.Delete(FullFilename); } FileStream f = new FileStream(FullFilename, FileMode.Create, FileAccess.Write); f.Write(fs, 0, fs.Length); f.Close(); f = null; return 1; } catch { return 2; } } delphi客户端代码: procedure TFrmUpLoad.btn2Click(Sender: TObject); function ReadFile(fileName:string): TByteDynArray; var fs:TFileStream; iSize:Int64; begin try fs:=TFileStream.Create(fileName,fmOpenRead); iSize:=fs.Seek(0,soFromEnd); SetLength(Result,iSize); fs.Seek(0,soFromBeginning); fs.ReadBuffer(Result[0],iSize); finally fs.Free; end; end; var defWSDL, defURL, defSvc , defPrt :string; MyWSUpFile:WSUpFileSoap; fs: TByteDynArray; fileName:string; begin fs:=ReadFile(edt1.Text); defWSDL := 'http://'+sysinfo.WZ+'/wsupfile.asmx?wsdl'; defURL := 'http://'+sysinfo.WZ+'/wsupfile.asmx'; defSvc := 'WSUpFile'; defPrt := 'WSUpFileSoap'; HTTPRIO1.WSDLLocation:=defWSDL; HTTPRIO1.Port:=defPrt; HTTPRIO1.URL:=defURL; HTTPRIO1.Service:=defSvc; HTTPRIO1.HTTPWebNode.UseUTF8InHeader:=true; fileName:=HYBH+ExtractFileExt(edt1.Text); //注意这一行,可在程序运行中动态改变服务地址,以前俺就不知道这个。 MyWSUpFile:=GetWSUpFileSoap(True,defWSDL,HTTPRIO1); //MyWSUpFile:=HTTPRIO1 as WSUpFileSoap; try try case (MyWSUpFile.UploadFile(fs,fileName)) of 0:MyShowMessage('用户无权限'); 1:begin FrmHYGL.ADOQuery1.Edit; FrmHYGL.ADOQuery1.FieldByName('ZP').AsString:=fileName; FrmHYGL.ADOQuery1.Post; MyShowMessage('上传成功'); end; 2:MyShowMessage('上传失败'); end; finally MyWSUpFile:=nil; end; except MyShowMessage('调用web服务失败!'); end; end;
delphi调用C#写的web服务例子
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
Delphi启动/停止Windows服务,启动类型修改为"自动"
Delphi啓動/停止Windows服務,啓動類型修改爲"自動" unit U_StartServices; interface uses
leon_kin
2020-06-15 00:30:08
【Delphi】 微信和支付宝支付SDK(当面付) D7 D2007 D2010 XE2 XE7 XE8 XE10跨平台 已支持RSA256
Im_Leo
2020-06-02 11:42:56
【Delphi】阿里云OSS SDK D7 D2007 D2010 XE2 XE7 XE8 XE10跨平台 支持STS 支持媒体上传
Im_Leo
2020-06-02 11:42:56
Delphi7串口通讯实例(含Spcomm控件)
一个人的博客@你
2020-03-16 18:39:15
小数位数的保留代码与大小写转换
China学习者
2020-02-23 18:16:59
从源数组中取不同的随机数
xxfly
2020-02-20 23:30:10
COM 接口得到实现该接口的对象实例
xxfly
2020-02-20 23:30:10
RzListView
xxfly
2020-02-20 23:30:10
Delphi7 --浅谈Delphi过程与函数
北风lll
2019-02-23 23:27:13
Delphi7--遇到的一些小知识
北风lll
2019-02-21 19:02:12
Delphi7--循环结构语句
北风lll
2019-02-21 19:02:12
24小時熱門文章
-
NETCore中实现一个轻量无负担的极简任务调度ScheduleTask
-
docker使用特定的网络
-
使用c#强大的表达式树实现对象的深克隆之解决循环引用的问题
-
容器中nginx无法使用同一个网络下的容器域名
-
避免DbContext同时在多个线程调用
-
GPT-4o 引领人机交互新风向,向量数据库赛道沸腾了
-
free AI online tools All In One
-
痞子衡嵌入式:恩智浦i.MX RT1xxx系列MCU启动那些事(12.A)- uSDHC eMMC启动时间(RT1170)
-
基于Ubuntu-22.04安装K8s-v1.28.2实验(二)使用kube-vip实现集群VIP访问
-
基于Ubuntu-22.04安装K8s-v1.28.2实验(三)数据卷挂载NFS(网络文件系统)