小编dmi*_*lam的帖子

在Delphi 2009之前我们有以下代码:

function MemoryStreamToString(M : TMemoryStream): String;
var
    NewCapacity: Longint;
begin
    if (M.Size = > 0) or (M.Memory = nil) then
       Result:= '' 
    else
    begin
       if TMemoryStreamProtected(M).Capacity = M.Size then
       begin
           NewCapacity:= M.Size+1;
           TMemoryStreamProtected(M).Realloc(NewCapacity);
       end;
       NullString(M.Memory^)[M.Size]:= #0;
       Result:= StrPas(M.Memory);
    end;
end;

我们如何使用Delphi 2009将此代码转换为支持Unicode？

我正在考虑为我的Intraweb应用程序编写会话监视器(或管理器),该应用程序将列出当前活动会话并允许用户终止任何这些会话.有没有人有这方面的源代码？我看到ArcanaTech.com曾经有一个名为Intraweb服务器管理器的产品,看起来就像我正在寻找的那样.然而,它们似乎在2007年之后消失了,而且产品似乎在任何地方都没有.

任何信息将不胜感激.

谢谢.

迪恩米拉姆