盒子论坛 v2.1

用用向导建一个datasnap rest服务端，服务端写一个方法用来返回内存流，代码如下
function TServerMethods.DownLoadFile(AFileName: string): TMemoryStream;
begin
  if FileExists(AFileName) then
  begin
     Result := TMemoryStream.Create;
     Result.LoadFromFile(AFileName);
  end;
end;
再建一个vcl app 用idhttp来调用这个方法，当idhttp下载完毕这个文件后，居然这个服务端模块不会释放。如果服务端的方法是返回简单数据类型，比如integer，string等，客户端调用结束后，服务端模块是会自动释放的。server设置为Invocation。如果谁有环境，帮我测试下，或者告诉我解决方法。xe5和xe6均如此。
----------------------------------------------
-

作者：

cuit_xiong (熊猫)	★☆☆☆☆	-
	普通会员

2014/6/14 23:04:01

1楼：

求大家帮帮忙啊
----------------------------------------------
-

作者：

happyhills (老妖)	▲▲▲▲△	-
	普通会员

2014/6/15 10:53:38

2楼：

function TServerMethods.DownLoadFile(AFileName: string): TMemoryStream;
var
tmpm:TMemoryStream;
begin
  if FileExists(AFileName) then
  begin
     tmpm:= TMemoryStream.Create;
     tmpm.LoadFromFile(AFileName);
     result:=tmpm;
  end;
end;
----------------------------------------------
-文科男，程序员。

作者：

cuit_xiong (熊猫)	★☆☆☆☆	-
	普通会员

2014/6/15 22:33:43

3楼：

happyhills (老妖)

你这个代码做个测试吗我实际测试过，这样一样在客户端调用完这个过程后，连接依然不会断开，服务端实例不会释放
----------------------------------------------
-

信息

登陆以后才能回复