Q&A

  • Error 메세지에 대한 질문입니다..
일반적으로 Runtime 시에 error메세지가 뜨면 그 메세지를 Text파일로 저장하고 싶거든요!!!!
고수님들 좀 갈켜 주세요!!!

대충 제가 해보긴 해 봤는데 잘 안되는군요!!   ^^;

///////////////////////////////////////////////////////////////

procedure TForm1.SaveErrormsg; // 에러메세지 save
var  F: TextFile;
     S,Errmsg,ErrorMessage : string;
     Errno : Word;
begin
  S := ErrorMessage;
    
  AssignFile(F, 'C:BError'+ formatdatetime('mmdd-hhnn',now) +'.txt');
  Rewrite(F);
  writeln(F, S);
  CloseFile(F);
end;

//////////////////////////////////////////////////////////////////////

에공 ~ 아무쪼록 아시는 분 이나 해 보신 분 저에게 좀 만 갈켜 주세요!!!
그럼 이만.......
1  COMMENTS
  • Profile
    서은구 2002.02.16 04:00



    OnException 이벤트를 오버로드(?) 해서 사용하시면 될듯하네요..
    오버로드인지.. 오버로딩인지.. 헷갈리지만... 어쨋든..

    폼 생성시에..

    Application.OnException := FormExceptionHandler;

    이렇게 해주시고요...

    Procedure TForm.FormExceptionHandler(Sender : TObject ; E : Exception);
    var ErrorMsg : String;
    begin
      ErrorMsg := E.Message;
      // ErrorMsg를 파일로 저장하시는건 능력껏 하시면 될듯...
    end;

    아마도 이러면 발생하는 모든 에러메세지를 원하시는데로 처리하실수
    있을듯합니다...

    도움이 되었기를.....