风之谷

抵制日货大游行---广州站

阿風 — Sun, 10 Apr 2005 22:41:00 GMT

今天广州发起了一次大规模的抵制日货，抗议日本加入常任理事国的大游行，从花园酒店至太平洋电脑城路段有10多万人参加了此次游行，规模壮大。留上一笔～

今天就要去广州了，希望能找到一份好工作

阿風 — Wed, 05 Jan 2005 14:11:00 GMT

最近真的很忙，HOHO．也好久没有来这里了．这周南下广州真的希望自己能有所收获．祝福一下自己了：）

THotKey控件的使用－全局热键

阿風 — Thu, 18 Nov 2004 20:04:00 GMT

全局热键：
Id := GlobalAddAtom('MyHotKey') - $C000;
注：Id的合法取之范围是0x0000到0xBFFF之间， GlobalAddAtom函数得到的值在0xC000到

0xFFFF之间，所以减掉0xC000来满足调用要求。

原理：
　　一旦热键设置成功，在程序应用过程中如果有相应的键被按下，Windows系统都会给你

的应用程序发送一个消息WM_HOTKEY，不管你的应用程序是否为当前活动的。其中WM_HOTKEY

消息的格式为：
idHotKey = (int) wParam; // 该参数在设置系统级的热键有用,一般不予使用
fuModifiers = (UINT) LOWORD(lParam); //热键的辅助按键
uVirtKey = (UINT) HIWORD(lParam); //热键的键值

与THotKey控件的结合使用：

type
TForm1 = class(TForm)
    HotKey1: THotKey;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
private
    { Private declarations }
    procedure WMHotKey(var Msg:TMessage);message WM_HOTKEY;
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var
Key, Shift: Word;
Id: Integer;

procedure ShortCutToKey(ShortCut: TShortCut; var Key: Word; var Shift: TShiftState);
begin
Key := ShortCut and not (scShift + scCtrl + scAlt);
Shift := [];
if ShortCut and scShift <> 0 then Include(Shift, ssShift);
if ShortCut and scCtrl <> 0 then Include(Shift, ssCtrl);
if ShortCut and scAlt <> 0 then Include(Shift, ssAlt);
end;

function ShiftStateToWord(TShift: TShiftState): Word;
begin
Result := 0;
if ssShift in TShift then Result := MOD_SHIFT;
if ssCtrl in TShift then Result := Result or MOD_CONTROL;
if ssAlt in TShift then Result:= Result or MOD_ALT;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
T: TShiftState;
begin
Id := GlobalAddAtom('MyHotKey') - $C000;
ShortCutToKey(HotKey1.HotKey, Key, T);
Shift := ShiftStateToWord(T);
RegisterHotKey(Handle, Id, Shift, Key);
end;

procedure TForm1.WMHotKey(var Msg: TMessage);
begin
if (Msg.LparamLo = Shift) AND (Msg.LParamHi = Key) then
ShowMessage('This is HotKey');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Handle, Id);
GlobalDeleteAtom(Id);
end;

end.

感觉THotKey控件还是很好用的嘛．

SMTP协议

阿風 — Thu, 18 Nov 2004 16:06:00 GMT

SMTP协议的命令和应答

2004-8-2 20:08:50 来源：中国协议分析网

　　从前面的通讯模型可以看出SMTP协议在发送SMTP和接收SMTP之间的会话是靠发送SMTP的 SMTP命令和接收SMTP反馈的应答来完成的。在通讯链路建立后，发送SMTP发送MAIL命令指令邮件发送者，若接收SMTP此时可以接收邮件则作出OK的应答，然后发送SMTP继续发出RCPT命令以确认邮件是否收到，如果接收到就作出OK的应答，否则就发出拒绝接收应答，但这并不会对整个邮件操作造成影响。双方如此反复多次，直至邮件处理完毕。SMTP协议共包含10个SMTP命令，列表如下：

SMTP命令命令说明
HELLO ＜domain＞＜CRLF＞识别发送方到接收SMTP的一个HELLO命令
MAIL FROM:＜reverse-path＞＜CRLF＞＜reverse-path＞为发送者地址。此命令告诉接收方一个新邮件发送的开始，并对所有的状态和缓冲区进行初始化。此命令开始一个邮件传输处理，最终完成将邮件数据传送到一个或多个邮箱中。
RCPT TO:＜forward-path＞＜CRLF＞＜forward-path＞标识各个邮件接收者的地址
DATA ＜CRLF＞
接收SMTP将把其后的行为看作邮件数据去处理，以＜CRLF＞.＜CRLF＞标识数据的结尾。
REST ＜CRLF＞退出/复位当前的邮件传输
NOOP ＜CRLF＞要求接收SMTP仅做OK应答。（用于测试）
QUIT ＜CRLF＞要求接收SMTP返回一个OK应答并关闭传输。
VRFY ＜string＞＜CRLF＞验证指定的邮箱是否存在，由于安全因素，服务器多禁止此命令。
EXPN ＜string＞＜CRLF＞验证给定的邮箱列表是否存在，扩充邮箱列表，也常禁止使用。
HELP ＜CRLF＞查询服务器支持什么命令

注：＜CRLF＞为回车、换行，ASCII码分别为13、10（十进制）。

　　SMTP协议的每一个命令都会返回一个应答码，应答码的每一个数字都是有特定含义的，如第一位数字为2时表示命令成功；为5表失败；3表没有完成。一些较复杂的邮件程序利用该特点，首先检查应答码的首数字，并根据其值来决定下一步的动作。下面将SMTP的应答码列表如下：

应答码说明
501 参数格式错误
502 命令不可实现
503 错误的命令序列
504 命令参数不可实现
211 系统状态或系统帮助响应
214 帮助信息
220 ＜domain＞服务就绪
221 ＜domain＞服务关闭
421 ＜domain＞服务未就绪，关闭传输信道
250 要求的邮件操作完成
251 用户非本地，将转发向＜forward-path＞
450 要求的邮件操作未完成，邮箱不可用
550 要求的邮件操作未完成，邮箱不可用
451 放弃要求的操作；处理过程中出错
551 用户非本地，请尝试＜forward-path＞
452 系统存储不足，要求的操作未执行
552 过量的存储分配，要求的操作未执行
553 邮箱名不可用，要求的操作未执行
354 开始邮件输入，以"."结束
554 操作失败

哈哈，今天根据上面的协议偶也用WinSock单元封装了一个邮件发送类，还算可以吧．不过偶在命令行下发邮件时，老是出现验证不通过现象．不知道什么原因了，用户名和密码都经过base64编码了，输入到命令行时真累啊！

中国国家男子足球队耻辱日

阿風 — Wed, 17 Nov 2004 23:18:00 GMT

中国队对中国香港队7：0

科威特对马来西亚　6：1

不知道是对方太无耻还是中国队不够无耻！～

喝酒

阿風 — Sun, 07 Nov 2004 17:24:00 GMT

今天晚上又当了一回老板，哈哈！别误会，是为了补过自己11.5号的生日。大学四年中的最后一个生日，希望能迎来一种新的生活！

软考终于结束

阿風 — Sat, 06 Nov 2004 21:21:00 GMT

软件设计师考试
上午9：00～11：30
下午2：00～04：30
说真的，觉得这种考试没多大意思。无非就是照着以前的题目去背，然后加上新的大纲。无趣！不过也就是因为它，突然强烈的发现自己原来不再适合去考试了。
PS：今天去见了FS那家伙，终于拿到了Windows 核心编程。哈哈！其实FS长的还是蛮可爱的^_^

对象实例在内存中的头4个字节

阿風 — Tue, 02 Nov 2004 16:51:00 GMT

看了一下午的《Delphi对象模型》有一个问题：

A := TA.Create;在内存中创建的对象的头4个字节到底指向哪？
在《参透Delphi》一书中说是指向：VMT。
在《Delphi对象模型》中说：
在Delphi中，类表现为内存中一张只读的表，表中存放着指向该类的虚方法的指针以及其他许多信息。
创建的对象的头4个字节存放的是一个类引用(Class reference)就是指向该表的一个指针，而该表的头4个字节又是一个指向VMT的指针。

我觉得应该是指向ＶＭＴ的，做过测试也表明了：）

Interaction between your console applications and your forms

阿風 — Sun, 31 Oct 2004 21:09:00 GMT

{Dialog 单元}

unit Unit1;

interface

uses
Forms, Classes, Controls, StdCtrls;

type
TForm1 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.

{Console Application}

program Test;

{$APPTYPE CONSOLE}
uses
Windows,
Messages,
Forms,
Unit1 in 'Unit1.pas' {Form1};

var
   hInput : THandle;
   inRec   : TInputRecord;
   dwCount : DWORD;

begin
{Create a Form in the usual way. The Forms unit ensures that
the Application object is around to "own" the form.}

   Write('Creating the first Dialog Box...');
   Form1 := TForm1.Create(Application);
   Form1.Show;
   Writeln('done.');

Writeln('Press 1, 2 or 3 to change the dialog box. Press Ctrl+ C to exit');

   {Handle the Console input till the user cancels}
   hInput := GetStdHandle(STD_INPUT_HANDLE);
   {GetStdHandle - Returns handle for Standard input/output device}

   while True do begin
      {Avoid blocking on user input, so the forms have a chance
      to operate as normal. If we had a message queue present, this
      would be a normal message dispatch loop.}
      Application.ProcessMessages;
      if WaitForSingleObject(hInput,0) = WAIT_OBJECT_0 then begin
         ReadConsoleInput(hInput, inRec, 1, dwCount);
         if (inRec.EventType = KEY_EVENT) and inRec.Event.KeyEvent.bKeyDown then begin
            case inRec.Event.KeyEvent.AsciiChar of
            '1' : begin
                     Writeln('->1');
                     Form1.RadioButton1.Checked := True;
                  end;

            '2' : begin
                     Writeln('->2');
                     Form1.RadioButton2.Checked := True;
                  end;
            '3' : begin
                     Writeln('->3');
                     Form1.RadioButton3.Checked := True;
                  end;
            end;
         end;
      end;
   end;
end.

From www.delphi3000.com