2Pascal-新时代的Pascal

标题: 是网上使用TDSClientCallbackChannelManager回调的例子,释放的疑问 [打印本页]

作者: 螃蟹 时间: 2015-5-21 09:53
标题: 是网上使用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

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

欢迎光临 2Pascal-新时代的Pascal (http://2pascal.com/)