SetLastError问题 @@@@在线恭候！！！！！@@@@(200分)

lb3141 · 2003-10-20

如何通过SetLastError更改错误信息： 我定义了一个记载错误消息的结构，如下： (*---------------------------------------------------- 描述：消息引发异常的错误描述结构，       用此结构来记载该错误所经过的每个对象的方法。 -----------------------------------------------------*) type   PExcept = ^TExcept;   TExcept = packed record     Succeed: Boolean;              //是否成功     ParamsList: string;            //参数     ClassName: string;             //类名称     MethodName: string;            //方法名称     ExecuteTime: string;           //激发时间     ErrorTexts: string;            //错误日志     ErrorType: TErrorType;         //错误等级   end; (*---------------------------------------------------- 描述：消息引发异常的错误描述结构，       用此结构来查询错误结构       参数DebugInfo相当于array of PExcept -----------------------------------------------------*) type   PMessageExcept = ^TMessageExcept;   TMessageExcept = packed record     Owner: TComponentName;         //引发对象     MethodName: string;            //方法名称     MessageName: string;           //消息名称     DebugInfo: TList;              //调试的错误信息（详细）   end;   Arr_PMessageExcept = array of PMessageExcept; 我想在程序出错时将系统的错误消息在加上我自订义的错误消息解释合并为上述消息结构PMessageExcept ， 然后用SetLastError将PMessageExcept结构的地址存入， 最后通过FormatMessage将PMessageExcept结构的地址读出来，代码如下： var   Buffer： PChar；     FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or        FORMAT_MESSAGE_ALLOCATE_BUFFER, nil, GetLastError, 0, Buffer,        SizeOf(Buffer), nil); 但我试验了很多方法，读出的PMessageExcept结构总是nil， 那位大虾帮一下小第，分不够可在加！！！！！ 在线恭候！！！！！

leilu · 2003-10-20

只能来学习的。

lb3141 · 2003-10-20

各位千万不要谦虚，我救命的，在线恭候！！！！！

Netsoft · 2003-10-20

老兄呀， 看我下面的：   FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_ALLOCATE_BUFFER, nil, GetLastError, 0, @buffer, Sizeof(buffer)-1, nil); 还有什么问题吗？？？？？？ 呵呵~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`

lb3141 · 2003-10-21

这种方法我早用过，不行，我想读没错，关键是如何用SetLastError写入PMessageExcept结构的地址，以便能读出来

QSmile · 2003-10-21

学习

Netsoft · 2003-10-21

赋值给他不就OK， 分配一个TMessageExcept内存， 以后记得Free就是咯， 你以前的那个什么FormatMessage语句是有问题的， 在要用得它时用我写的哦， 能否将整个源码给我看呀， 就你贴出那一点点真的难以说明， 妹妹：Netsofte_mail@163.com， 呵呵~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

lb3141 · 2003-10-22

//TO： Netsoft； //整个源码太长，这是个简单例子，不过思路相同，不知道为何总是不行； unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} type  PExcept = ^TExcept;  TExcept = packed record    MethodName: string;            //方法名称    ErrorTexts: string;            //错误日志  end; procedure TForm1.Button1Click(Sender: TObject); var   B: Boolean;   I: Integer;   P: PExcept;   Buffer: PChar; begin   try     I :=StrToInt('');   except     On E: Exception do     begin       New(P);       P^.MethodName :='Button1Click';       P^.ErrorTexts :=E.Message;       //将地址写入       SetLastError(Integer(P));       B :=True;     end;   end;   if B then   begin     //实际编码时以下代码是在别处写的     if FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or                      FORMAT_MESSAGE_ALLOCATE_BUFFER,                      nil,                      GetLastError, //将地址读出，不知道为何总是0                      0,                      @buffer,                      Sizeof(buffer)-1,                      nil) > 0 then     if Buffer <> nil then       ShowMessage(PExcept(Buffer)^.ErrorTexts);     Dispose(P);   end; end; end.

Netsoft · 2003-10-22

>> SetLastError(Integer(P));    楼主，这样能行吗？？？？SetLastError函数的意思你懂不的？？？？？给他的值只能是   ERROR_XXXXXX   之类的错误常数呢， 你的意思是自己触发一个错误 StrToInt('')，然后捕捉到该错误，而后就是获得错误咯。这段程序我今晚帮你看过以后，明天中午告诉你我的分析结果吧， 如果你有什么看法贴出来，因为这不能实现你的目的呀。 呵呵~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

weiwei81123 · 2003-12-17

P:=PExcept(GetLastError)

SetLastError问题 @@@@在线恭候！！！！！@@@@(200分)

lb3141

Unregistered / Unconfirmed

leilu

Unregistered / Unconfirmed

lb3141

Unregistered / Unconfirmed

Netsoft

Unregistered / Unconfirmed

lb3141

Unregistered / Unconfirmed

QSmile

Unregistered / Unconfirmed

Netsoft

Unregistered / Unconfirmed

lb3141

Unregistered / Unconfirmed

Netsoft

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

Similar threads