文档章节

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

vga
 vga
发布于 2017/09/07 06:38
字数 480
阅读 17
收藏 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

粉丝 21
博文 359
码字总数 24366
作品 0
佳木斯
Delphi调用 C# 写的webservice

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

vga
2014/11/25
0
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
971
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
0
3
golang语言中的math库中效率低下,可能是类型转换花费了大量时间?

今天写了个加密的东西,用到了math.Sqrt求质数,发现用的时间很久,先不管下面的例子算法是否有问题,我就写了个demo寻找10 000 000以内的质数个数,原本这个demo是delphi写的,我把它翻译成...

大洋的顶端
2017/10/26
0
14
多语言开发的个人体验

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

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

没有更多内容

加载失败,请刷新页面

加载更多

Hbase 概述及特点

1、Hbase概述 HBase是一种构建在HDFS之上的分布式、面向列的存储系统。在需要实时读写、随机访问超大规模数据集时,可以使用HBase。 尽管已经有许多数据存储和访问的策略和实现方法,但事实上...

PeakFang-BOK
6分钟前
0
0
TortoiseGit(乌龟git)保存用户名密码的方法

windows下比较比较好用的git客户端有2种: 1. msysgit + TortoiseGit(乌龟git) 2. GitHub for Windows github的windows版也用过一段时间,但还是不太习惯。所以目前仍然青睐与msysgit+乌龟g...

simpower
25分钟前
0
0
Java并发编程:volatile关键字解析

volatile这个关键字可能很多朋友都听说过,或许也都用过。在Java 5之前,它是一个备受争议的关键字,因为在程序中使用它往往会导致出人意料的结果。在Java 5之后,volatile关键字才得以重获生...

engeue
42分钟前
2
0
通过ajax访问远程天气预报服务

http://www.webxml.com.cn/zh_cn/index.aspx 更改wsdl文件 打开文件将15行,51行,101行去掉 然后把文件复制到c盘 然后在桌面上面就生成了文件 将文件打成jar包 package cn.it.ws.weather;...

江戸川
今天
1
0
聊聊storm的tickTuple

序 本文主要研究一下storm的tickTuple 实例 TickWordCountBolt public class TickWordCountBolt extends BaseBasicBolt { private static final Logger LOGGER = LoggerFactory.getLogg......

go4it
今天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部