delphi与asp.net 的web服务小演示

最新推荐文章于 2024-09-21 16:56:47 发布

hstod

最新推荐文章于 2024-09-21 16:56:47 发布

阅读量823

点赞数

分类专栏： ASP.NET Delphi 文章标签： delphi asp.net web服务 service soap exception

本文链接：https://blog.csdn.net/hstod/article/details/1702053

版权

ASP.NET 同时被 2 个专栏收录

13 篇文章 0 订阅

订阅专栏

Delphi

4 篇文章 0 订阅

订阅专栏

首先编写 http://127.0.0.1:1001/WebService1/Service1.asmx 服务加入如下代码：

[WebMethod(Description="Web UpFile")]
  public string UploadFile(byte[] fs,string FileName)
  {
   try
   {
    ///定义并实例化一个内存流，以存放提交上来的字节数组。
    MemoryStream m = new MemoryStream(fs);
    ///定义实际文件对象，保存上载的文件。
    FileStream f = new FileStream(Server.MapPath(".") + "//"+ FileName, FileMode.Create);
    ///把内内存里的数据写入物理文件
    m.WriteTo(f);
    m.Close();
    f.Close();
    f = null;
    m = null;
    return "文件已经上传成功。";
   }
   catch(Exception ex)
   {
    return ex.Message;
   }
  }

编译过就生成web service

在IE地址内输入http://127.0.0.1:1001/WebService1/Service1.asmx?wsdl获得wsdl代码并保存成a.wsdl文件

运行delphi

File->new->Other->web service->wsdl importer 选择刚才生成a.wsd选下一步即可生成借口代码文件IWebServer.pas

修改IWebServer.pas defWSDL值改为 http://127.0.0.1:1001/WebService1/Service1.asmx?Wsdl

在delphi内新建立项目在web service下选择HTTPRIO组件

设置HTTPRIO1.converter.options.soUTF8inHeader := True

HTTPRIO1.httpwebnode.useUTF8inHeader := True

在代码中输入

procedure TForm1.Button1Click(Sender: TObject);

var
WS: Service1Soap;
FT: TFileStream;
Bs: TByteDynArray;
begin
FT:= TFileStream.Create('c:/a,.doc',fmOpenRead );
SetLength(bs,Ft.Size);
Ft.Position:=0;
Ft.Read(Pointer(bs)^,Ft.Size);
WS:= HTTPRIO1 as Service1Soap;
WS.UploadFile(bs,'aa.doc');
end;

需要在uses处加入Types，IWebServer但愿

并且需要修改HTTPRIO1的url属性为 http://127.0.0.1:1001/WebService1/Service1.asmx?Wsdl

F9 即可实现C向服务方传送文件的功能