文档章节

delphi调用C#写的web服务例子

vga
 vga
发布于 2017/09/07 06:38
字数 480
阅读 16
收藏 0
点赞 0
评论 0
delphi调用C#写的web服务例子-----------(重点 InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap), ioDocument);)
http://blog.csdn.net/xcplates/archive/2009/11/29/4900036.aspx

最近一个项目用到了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;


本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/xcplates/archive/2009/11/29/4900036.aspx

本文转载自:http://blog.csdn.net/xcplates/article/details/4900036

共有 人打赏支持
vga

vga

粉丝 19
博文 336
码字总数 23381
作品 0
佳木斯
Delphi调用 C# 写的webservice

Delphi调用 C# webservice总结 用delphi的THTTPRIO控件调用了c#写的webservice。 下面是我调试时遇到的一些问题: 1:导入wsdl文件:file--new----other----webservice---WSDLimporter---输入...

vga ⋅ 2014/11/25 ⋅ 0

(转)Delphi 调用C#编写的WebService 参数为Null解决方法 附中文乱码问题

(转)Delphi 调用C#编写的WebService参数为Null解决方法 附中文乱码问题 //add-------to support UTF-8 RIO.HTTPWebNode.UseUTF8InHeader:= true; //添加该行,指定采用UTF-8代码传输 RIO....

vga ⋅ 2015/02/13 ⋅ 1

用delphi的THTTPRIO控件调用c#写的webservice。

用delphi的THTTPRIO控件调用c#写的webservice 下面是我调试时遇到的一些问题: 1,导入wsdl文件:file--new----other----wenservice---WSDLimporter---输入wsdl地址:如下:http://10.0.1.128:...

vga ⋅ 2014/11/25 ⋅ 3

多语言开发的个人体验

在文章的前面,先定义一下,这里谈的“语言”(A)指的是“语言以及使用该语言可以很容易调用的基本类库及可免费或低代价获得的第三方类库及开源类库”(B)。在很多情况下谈“语言”和谈“语...

最美的回忆 ⋅ 2017/06/07 ⋅ 0

FastReport2.5 打印数据库blob图片

我现在使用FastReport2.5打印,客户从web系统下载安装FastReport,web系统通过自定义协议调用客户本地FastReport程序,因此对应有打印服务端(socket通信),服务端会从数据库加载打印模板、...

liutao7514 ⋅ 2014/10/13 ⋅ 1

C#实现Windows后台服务实例浅析

C#实现Windows后台服务实例之前要明白的一些概念:所谓Windows后台服务,即后台自动运行的程序,一般随操作系统启动而启动,在我的电脑 服务后应用程序 服务里面能看到当前电脑的服务.一般而言,...

vga ⋅ 2014/04/29 ⋅ 1

关于delphi Com+调用C# DLL的一点说明[转]

最近公司进行产品改造,由于存在部分代码是用delphi写的Com+需要调用C#写的Dll方法,经过网上一些搜索和摸索,调用已经OK。但是至于两者之间的事务问题还需要用到的朋友深入研究。 现在来说一...

老朱教授 ⋅ 2017/08/27 ⋅ 0

c# 和 delphi 的 base64 编码一致问题 webservice

c# 和 delphi 的 base64 编码一致问题 webservice 由于项目需要为包括c/s和b/s的多个平台提供统一业务逻辑,写个webservice来完成这个任务,通过webservice封装业务逻辑,为其他平台提供接口...

vga ⋅ 2014/10/04 ⋅ 0

使用Java快速入门Thrift

Apache Thrift是一个facebook建立的RPC框架,现在是一个Apache的顶级项目。Thrift允许通过一个跨语言的定义文件的方式定义数据类型和服务接口,这个文件作为RPC客户端和服务器通信的标准,你...

王振威 ⋅ 2012/07/08 ⋅ 12

delphi开发activex控件的心得

delphi开发activex控件 2009-01-12 12:18:01| 分类: delphi | 标签: |举报 |字号大中小 订阅 用Delphi开发OCX的心得 最近在做的一个B/S系统要在客户端读取USB锁的要求,所以就需要写一个O...

vga ⋅ 2014/02/27 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

vbs 取文件大小 字节

dim namedim fs, s'name = Inputbox("姓名")'msgbox(name)set fs = wscript.createobject("scripting.filesystemobject") 'fs为FSO实例if (fs.folderexists("c:\temp"))......

vga ⋅ 5分钟前 ⋅ 0

高并发之Nginx的限流

首先Nginx的版本号有要求,最低为1.11.5 如果低于这个版本,在Nginx的配置中 upstream web_app { server 到达Ip1:端口 max_conns=10; server 到达Ip2:端口 max_conns=10; } server { listen ...

算法之名 ⋅ 今天 ⋅ 0

Spring | IOC AOP 注解 简单使用

写在前面的话 很久没更新笔记了,有人会抱怨:小冯啊,你是不是在偷懒啊,没有学习了。老哥,真的冤枉:我觉得我自己很菜,还在努力学习呢,正在学习Vue.js做管理系统呢。即便这样,我还是不...

Wenyi_Feng ⋅ 今天 ⋅ 0

博客迁移到 https://www.jianshu.com/u/aa501451a235

博客迁移到 https://www.jianshu.com/u/aa501451a235 本博客不再更新

为为02 ⋅ 今天 ⋅ 0

win10怎么彻底关闭自动更新

win10自带的更新每天都很多,每一次下载都要占用大量网络,而且安装要等得时间也蛮久的。 工具/原料 Win10 方法/步骤 单击左下角开始菜单点击设置图标进入设置界面 在设置窗口中输入“服务”...

阿K1225 ⋅ 今天 ⋅ 0

Elasticsearch 6.3.0 SQL功能使用案例分享

The best elasticsearch highlevel java rest api-----bboss Elasticsearch 6.3.0 官方新推出的SQL检索插件非常不错,本文一个实际案例来介绍其使用方法。 1.代码中的sql检索 @Testpu...

bboss ⋅ 今天 ⋅ 0

informix数据库在linux中的安装以及用java/c/c++访问

一、安装前准备 安装JDK(略) 到IBM官网上下载informix软件:iif.12.10.FC9DE.linux-x86_64.tar放在某个大家都可以访问的目录比如:/mypkg,并解压到该目录下。 我也放到了百度云和天翼云上...

wangxuwei ⋅ 今天 ⋅ 0

PHP语言系统ZBLOG或许无法重现月光博客的闪耀历史[图]

最近在写博客,希望通过自己努力打造一个优秀的教育类主题博客,名动江湖,但是问题来了,现在写博客还有前途吗?面对强大的自媒体站点围剿,还有信心和可能型吗? 至于程序部分,我选择了P...

原创小博客 ⋅ 今天 ⋅ 0

IntelliJ IDEA 2018.1新特性

工欲善其事必先利其器,如果有一款IDE可以让你更高效地专注于开发以及源码阅读,为什么不试一试? 本文转载自:netty技术内幕 3月27日,jetbrains正式发布期待已久的IntelliJ IDEA 2018.1,再...

Romane ⋅ 今天 ⋅ 0

浅谈设计模式之工厂模式

工厂模式(Factory Pattern)是 Java 中最常用的设计模式之一。这种类型的设计模式属于创建型模式,它提供了一种创建对象的最佳方式。 在工厂模式中,我们在创建对象时不会对客户端暴露创建逻...

佛系程序猿灬 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部