在 D7 的 WebService 里使用 [附件] TSOAPAttachment 的方式来传递大量的二进制数据比如文件下载：

[电脑玩家]

1. 服务器端方法：

procedure TIMytest.GetAttach(out Attach: TSOAPAttachment);
begin
Attach := TSOAPAttachment.Create;
Attach.SetSourceFile('D:\aaa.gif');
end;

要注意到是，服务器端需要创建这个 Attach 对象，否则会出错；

2. 客户端调用服务器端的接口方法；

procedure TForm1.Button2Click(Sender: TObject);
var
Attach: TSOAPAttachment;
Intf: IIMytest;
begin
Attach := TSOAPAttachment.Create;
Intf := HTTPRIO1 as IIMytest;
try
Intf.GetAttach(Attach);
Attach.SaveToFile('D:\abc.gif');
finally
Intf := nil;
Attach.Free;
end;
end;

注意：客户端调用这个方法的时候，也必须创建 Attach 对象的实例。

服务器端只要通过 SetSourceFile 指定要读取的文件名就可以了。客户端可以采用 SaveToFile 就能把接收到的附件保存为文件。