本文整理自网络，侵删。
服务端日志记录
procedure LogInfo(msg: string);
// 功能: 服务端日志
var
p: PChar;
begin
try
GetMem(p, (Length(msg) + 1) * sizeof(char));
Move(msg[1], p^, (Length(msg) + 1) * sizeof(char));
PostMessage(Application.MainForm.Handle, WM_LOG, integer(p), 0);
except
Exit;
end;
end;
procedure Tf_MainForm.Log(var msg: TMessage);
var
p: PChar;
begin
try
p := PChar(msg.WParam);
if Assigned(p) then
begin
AddMemo(p);
FreeMem(p);
end;
except
on E: Exception do
begin
LogInfo('Tf_MainForm.Log---' + E.Message);
exit;
end;
end;
end;
相关阅读 >>
Delphi 测试字符串读取类: tstringreader
Delphi decodedate、decodetime ... decodedatetime ... 分解时间
Delphi 获取适合微信使用的当前日期，以int64表示，是当前时间和1970-01-01 00:00:00之间的秒差
Delphi android实例-读取设备联系人(xe8+小米2)
更多相关阅读请进入《Delphi》频道 >>
