Arsip: Cara buat file log

 
user image
more 16 years ago

em052007

saya mau tanya bagaimana caranya membuat file log di Delphi. File log tersebut akan menampung segala aktifitas yang terjadi ketika program berjalan, agar mudah menelusuri kesalahan yang terjadi. Ada yang bisa bantu saya ?
user image
more 16 years ago

mas_kofa

pake timer and raise exception
user image
more 16 years ago

ImanD

@mas_kofa pke timer? di-gimana-in ya?
user image
more 16 years ago

DelphiExpert

xixi... mas_kofa ngga' sahur semalam ya... :lol:

procedure OpenLogFile(var f: TextFile; FileName: string);
begin
  Assign(f, FileName);
  {$I-}
  Append(f);
  {$I+}
  if IOREsult<>0 then 
    Rewrite(f);
end;
// contoh seting global
var LogFileName: string = 'C:\debug.log';
  
procedure WriteLog(s: string);
var f: TextFile;
    d: TDateTime;
    s2: string;
begin
  try
    d:=Now;
    s2:=FormatDateTime('yyyy-mm-dd hh:nn:ss; ',d);
    OpenLogFile(f, LogFileName);
    try
      Writeln(f, s2 + s);
    finally
      CloseFile(f);
    end;
  except
  end;
end;
user image
more 16 years ago

DelphiExpert

utk auto trace exception pada app silahkan handle Application.OnException. contoh:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException:= AppException;
end;
procedure TForm1.AppException(Sender: TObject; E: Exception) ;
begin
  WriteLog(E.Message);
end;
user image
more 16 years ago

em052007

user "delphiexpert", saya sudah mencoba coding diatas dan berhasil dijalankan. Itu kan hanya menampilkan tanggal dan jenis errornya. Nah kalau saya ingin menampilkan di file log itu informasi, di form yang mana error itu terjadi ? bagaimana caranya ? dan menyimpan file log tersebut pada path yang sama dengan file exe-nya (program aplikasinya). Saya sangat mengharapkan bantuannya. terima kasih.
user image
more 16 years ago

nurez

di form yang mana error itu terjadi..? klo bgitu harus di identifikasi dulu id masalahnya, jadi program tinggal ngebaca id maslaahnya n menampilkan masalahnya setelah itu disimpan.. (tp sy blm buat loh programnya, ada program tmen sy udah jadi..sourcenya ada , tp mls utak atiknya:(
user image
more 16 years ago

ImanD

@em052007: user "delphiexpert", saya sudah mencoba coding diatas dan berhasil dijalankan. Itu kan hanya menampilkan tanggal dan jenis errornya. Nah kalau saya ingin menampilkan di file log itu informasi, di form yang mana error itu terjadi ? bagaimana caranya ? dan menyimpan file log tersebut pada path yang sama dengan file exe-nya (program aplikasinya). Saya sangat mengharapkan bantuannya. terima kasih.
1. Nah kalau saya ingin menampilkan di file log itu informasi, di form yang mana error itu terjadi ? bagaimana caranya ? Tambahin az pada parameter WireLog Name Formnya, sample simple

procedure TForm1.AppException(Sender: TObject; E: Exception) ;
begin
  WriteLog(Name+': '+ E.Message);
end;
2. dan menyimpan file log tersebut pada path yang sama dengan file exe-nya (program aplikasinya). dihapus az default alamat file log yg di buat @DE kemudian pasang pada saat FormCreate sample simple

procedure TForm1.FormCreate(Sender: TObject);
begin
  LogFileName:=ExtractFilePath(Application.ExeName)+'debug.log';
  Application.OnException:= AppException;
end;
lengkapnya,

procedure OpenLogFile(var f: TextFile; FileName: string);
begin
  Assign(f, FileName);
  {$I-}
  Append(f);
  {$I+}
  if IOREsult<>0 then 
    Rewrite(f);
end;
 
// contoh seting global
var LogFileName: string;
  
procedure WriteLog(s: string);
var f: TextFile;
    d: TDateTime;
    s2: string;
begin
  try
    d:=Now;
    s2:=FormatDateTime('yyyy-mm-dd hh:nn:ss; ',d);
    OpenLogFile(f, LogFileName);
    try
      Writeln(f, s2 + s);
    finally
      CloseFile(f);
    end;
  except
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  LogFileName:=ExtractFilePath(Application.ExeName)+'debug.log';
  Application.OnException:= AppException;
end;
 
procedure TForm1.AppException(Sender: TObject; E: Exception) ;
begin
  WriteLog(Name+': '+ E.Message); // u/ informasi lain yg di butuhkan tambahkan pada parameter
end;
user image
more 16 years ago

em052007

Mas Iman terima kasih atas bantuannya. Programnya berhasil.
user image
more 16 years ago

em052007

Tapi saya mau tanya lagi mas, bisa ga file log yang sudah saya buat tadi tidak bisa dihapus atau di hide secara otomatis atau kalau bisa dihapus, maka file tersebut akan dicopy secara otomatis dgn isi file yang sama, dan gimana cara membuatnya agar bisa membuat seperti itu ? sebelumnya terima kasih atas bantuannya
more ...
  • Pages:
  • 1
  • 2
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com