下午在公司写程序，关于DLL中传递对象作为参数的问题。考虑了许多方法，也参考了一些资料，得出下面的方法。

DLL中：

interface
  TMsg = class
  public
    procedure Show; virtual;
  end;
function CreateMsg: TMsg; stdcall;
implementation
procedure TMsg.Show;
begin
  MessageBox(0, 'ok', 'ok', 0);
end;
function CreateMsg: TMsg;
begin
  Result := TMsg.Create;
end;

导出函数中加入exports CreateMsg;

EXE中是需要对之前声明的类重新定义的，但不需要实现，所以类中的方法都标识成为abstract抽象方法：

interface
type
  TMsg = class
  public
    procedure Show; virtual; abstract;
  end;
function CreateUDPMsg: TMsg; stdcall; external 'IM.dll';
implementation
procedure TForm1.Button1Click(Sender: TObject);
var
  Msg: TMsg;
begin
  Msg := CreateUDPMsg;
  Msg.Show;
  Msg.Free;
end;

不过这种传递参数的方式要求DLL中的类声明和EXE中的类声明必须一致，否则就会出错。一旦修改了DLL中的类声明，所有调用了此DLL的EXE程序必须也修改为同样的类声明，并将方法变更为abstract。为了方便省事，参考了一些资料，可以使用interface接口来作为传递的类型。

最近在做十字之门的文字输出，可是却发现了一个问题，文字的锯齿现象严重，回想到以前的很多游戏，似乎都有这个现象。查阅了一些资料，Windows本身就是没有抗锯齿功能，即便是开启了ClearType，也不会对图形游戏有效。在游戏中要使文字清晰，必须要找出一个类似于ClearType的方法。

Windows中跟字体相关的API函数有CreateFont、CreateFontIndirect和CreateFontIndirectEx，其中各个函数又分为A版和W版，也就是ASCII与Unicode的区别。以上几个函数的作用都是相同的，创建一种可供任何设备使用的逻辑字体。不同的是，CreateFont将字体特性直接作为参数传入函数，而CreateFontIndirect是将字体特性保存在LOGFONT结构中，再将该LOGFONT传入函数。在Windows.pas中LOGFONT被定义为等同于tgaLOGFONTA，其中tagLOGFONTA是这样定义的：

tagLOGFONTA = packed record
  lfHeight: Longint;
  lfWidth: Longint;
  lfEscapement: Longint;
  lfOrientation: Longint;
  lfWeight: Longint;
  lfItalic: Byte;
  lfUnderline: Byte;
  lfStrikeOut: Byte;
  lfCharSet: Byte;
  lfOutPrecision: Byte;
  lfClipPrecision: Byte;
  lfQuality: Byte;
  lfPitchAndFamily: Byte;
  lfFaceName: array[0..LF_FACESIZE - 1] of AnsiChar;
end;

我们要做的就是修改其lfQuality属性，该值决定了文字的输出质量，可取值为DEFAULT_QUALITY（默认质量）、DRAFT_QUALITY（草稿质量）、PROOF_QUALITY（正稿质量）、NONANTIALIASED_QUALITY（无抗锯齿质量）和ANTIALIASED_QUALITY（抗锯齿质量）。在这里，我们选用ANTIALIASED_QUALITY。

procedure DrawText;
var
  lf: LogFont;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.SetSize(320, 240);
  with bmp.Canvas.Font do
  begin
    Name := '方正小标宋简体';
    Size := 14;
    GetObject(Handle, SizeOf(LogFont), @lf);
    lf.lfQuality := ANTIALIASED_QUALITY;
    Handle := CreateFontIndirect(lf);
  end;
  bmp.Canvas.TextOut(0, 0, '十字之门Preview2即将竣工');
  Canvas.Draw(50, 50, bmp);
  bmp.Free;
end;

不过十字之门用的字体输出却不是这种方式，会把字体全部打包起来，免去了用户安装字体的麻烦。不过从这段代码中，应该可以看出关于十字之门的些什么吧。^_^

由于DvBBS.NET迟迟不见更新，加上一些使用上的问题，十字之门论坛还是更换为Discuz!NT，曾经由于服务器问题而被我放弃的Discuz!NT在软件更新之后终于可以使用。使用之中发现一些问题，也算是一些小bug。Discuz!NT提供了URL重写的功能，此功能虽然实现了URL重写，但是在页面显示上仍然显示旧地址showforum-{0}-{1}.aspx，几经周折无耐只能查看Discuz!NT的源代码，才发现Discuz!NT的ShowForumAspxRewrite函数根本没有将forumid转换为设置好的url地址，而都是转为默认地址。

public static string ShowForumAspxRewrite(int forumid, int pageid)
{
    //当使用伪aspx
    if (config.Aspxrewrite == 1)
    {
        if (pageid > 1)
            return "showforum-" + forumid + "-" + pageid + config.Extname;
        else
            return "showforum-" + forumid + config.Extname;
    }
    else
    {
        if (pageid > 1)
            return "showforum.aspx?forumid=" + forumid + "&page=" + pageid;
        else
            return "showforum.aspx?forumid=" + forumid;
    }
} 

程序在判断完Aspxrewrite之后直接return了默认的url地址showforum，调用了该函数转换自然是不能转换为正确的地址了。要想转换为正确的url，只能自己修改源码了。

最近用ASP.NET制作网站，第一次使用母版这个东西。

母版是由.NET 2.0引入的，类似于Dreamweaver中的模板，只是它比模板更智能，可以动态的更新页面。母版页由两部分组成，母版页(MasterPage)本身和若干个内容页(ContentPage)。

母版页实际上就是一个ASP.NET文件，不过它的扩展名为.master，并且用@ Master指令替换了用于普通 .ASPX 页的 @ Page 指令。

<%@ Master Language="C#" %> 

在母版页中需要显示内容页的地方，添加ContentPlaceHolder控件，例如：

<asp:ContentPlaceHolder ID="ContentPlaceHolderMain" runat="server" /> 

下面看看内容页。在内容页的最前，需要使用 @ Page 指令将内容页绑定到母版页中，同时还可以指定内容页的标题。

<%@ Page Language="C#" MasterPageFile="~/MasterPage.master" Title="十字之门" %> 

之后，通过向内容页添加 Content 控件并将这些控件映射到母版页上的 ContentPlaceHolder 控件来创建内容。

<asp:Content ID="ContentMain" ContentPlaceHolderID="ContentPlaceHolderMain" Runat="Server"> 
    <img src="images/working.gif" alt="" /><br /> 
    施工中……  
</asp:Content> 

在母版页中可以定义一些公共函数，供内容页来调用。

public int sum(int a,b)  
{  
    return(a+b);  
}  

在内容页中调用：

<%@ MasterType VirtualPath="~/MasterPage.master" %> 
<%=Master.sum(3,4)%>