12,162
社区成员
发帖
与我相关
我的任务
分享WEB Service如果下载一个文件
我用Delphi.Net写了个WebService，有一个方法是取得某一个文件，返回值为 TBytes
function TWebService1.GetFileBytes: TBytes;
var
fileName: String;
fs: FileStream;
begin
fileName := Context.Server.MapPath('') + '\file\A.jpg';//文件名。
if &File.Exists(fileName) then
begin
fs := FileStream.Create(fileName, FileMode.Open);
try
fs.Position := 0;
SetLength(Result, fs.get_Length);
fs.Read(Result, 0, fs.get_Length);
finally
fs.Free;
end;
end;
end;
在Delphi中调用时，如下：
procedure TForm1.Button1Click(Sender: TObject);
var
tempStream: TMemoryStream;
A: TByteDynArray;
begin
tempStream := TMemoryStream.Create;
A := GetTWebService1Soap.GetFileBytes;
tempStream.WriteBuffer(A, Length(A));
tempStream.SaveToFile('d:\a.jpg');
end;
但是所生成的文件是不对的。为什么？？？
function TWebService1.GetFileBytes: TBytes;
var
fileName: String;
fs: FileStream;
begin
fileName := Context.Server.MapPath('') + '\file\A.jpg';//文件名。
if &File.Exists(fileName) then
begin
fs := FileStream.Create(fileName, FileMode.Open);
try
fs.Position := 0;
SetLength(Result, fs.get_Length);
fs.Read(Result, 0, fs.get_Length);
finally
fs.Free;
end;
end;
end;
在Delphi中调用时，如下：
procedure TForm1.Button1Click(Sender: TObject);
var
tempStream: TMemoryStream;
A: TByteDynArray;
begin
tempStream := TMemoryStream.Create;
A := GetTWebService1Soap.GetFileBytes;
tempStream.WriteBuffer(A, Length(A));
tempStream.SaveToFile('d:\a.jpg');
end;
但是所生成的文件是不对的。为什么？？？
...全文
请发表友善的回复…
发表回复
duncansun 2006-05-08
- 打赏
- 举报
用WSE2.0
webwalker 2006-05-06
- 打赏
- 举报
up
duncansun 2006-05-04
- 打赏
- 举报
楼上的真有趣!!!
insiderc 2006-05-03
- 打赏
- 举报
kongwai(周宏伟)?3721的？
kongwai 2006-04-30
- 打赏
- 举报
我已经解决了.....
谢谢各位的支持..
谢谢各位的支持..
迈克揉索芙特 2006-04-30
- 打赏
- 举报
做过vb.net的，Delphi的代码看不懂，苦恼啊。
帮楼主顶。
帮楼主顶。
kongwai 2006-04-30
- 打赏
- 举报
楼上的，这个例子我早看了，但好像不行呀。不知道Delphi调用后，是否还需要进行Base64解密？
孟子E章 2006-04-30
- 打赏
- 举报
http://dotnet.aspx.cc/ShowDetail.aspx?id=6381BD5F-51F3-4339-4239-1328564A1B2A
kongwai 2006-04-30
- 打赏
- 举报
你不知道Delphi有.Net版的呀？
fangwancong 2006-04-29
- 打赏
- 举报
Delphi怎么跑到.Net来了？
