论坛 › datasnap讨论区 › 是网上使用TDSClientCallbackChannelManager回调的例子,释放的疑问

螃蟹 发表于 2015-5-21 09:53:08

是网上使用TDSClientCallbackChannelManager回调的例子,释放的疑问

这个是网上使用TDSClientCallbackChannelManager回调的例子
procedure TForm17.mmMessageChange(Sender: TObject);   
var
vMessage : TJSONString;
begin
        vMessage := TJSONString.Create(mmMessage.Lines.Text);
        ServerContainer5.DSServer1.BroadcastMessage(DEMOChannel, vMessage);
end;

这个过程每次Memo变化都会发出字符串，实测内存不断上升，在哪里能释放掉 ？vMessage create后就没有free

ozhy1 发表于 2015-6-15 21:53:10

var
LJSONObject: TJSONObject;
begin
LJSONObject := TJsonObject.Create;
DSS.BroadcastMessage(DEMOChannel,LJSONObject);
LJSONObject.free
end

查看完整版本: 是网上使用TDSClientCallbackChannelManager回调的例子,释放的疑问