用所有的分数和大家来探讨这个问题

Question

function TWSArc.MemTest(const Mem:WideString):Integer;safecall;
begin
  Result:=0;
end;
这是我在WebService里写的几个特别简单的程序。下面是客户端的调用。
procedure TFm1Main.Button9Click(Sender: TObject);
var
  UploadData:WideString;
begin
  UploadData:=EncodeData(Edit10.text);
  GetIWSArc(false,'').MemTest(UploadData);
end;
注：Edit10是文件名，EncodeData是对字符进行编码得到一个WideString类型的字符流。请大家注意这个WideString类型的变量，只要该函数一运行，服务器的内存(DLLHost)就会增加，而且不会下降，这样当文件比较大的时候，或者小文件多次执行之后服务器的内存会一直增加！这是一个很可怕的问题。通过这种方式可以传递48K一下的字符流到服务器，多次连续传递然后到服务器进行组合能传递大文件，但这样传递的后果是内存，可怕的内存。哪位碰到过这个问题？我这里还写了一些用WS进行文件上传和下载的代码，有兴趣的朋友可以和我交流，谢谢大家。

Answer 1

我的邮箱[email protected],欢迎交流。

Answer 2

我用 Delphi 的 WebService 编写向导也写过类似的程序，传的文件是 3M 多，而且一次传出去的，同时又从服务器传回来，工作都很正常啊，传出去之前我改为 Base64 的编码。没有出现你说的问题。