Viết cho Nhật ký sự kiện trong Delphi

Question

Làm cách nào để tôi có thể yêu cầu ứng dụng viết văn bản gỡ lỗi vào cửa sổ Event Log trong IDE Delphi (Borland Developer Studio 2006)?

Làm cách nào để thay đổi màu của văn bản?

Answer 1

OutputDebugString ('Xin chào, thế giới');

Tôi nghĩ bạn có thể cần phải thêm Windows vào danh sách 'sử dụng' của mình. Không chắc chắn 100% về điều đó ...

Không thể thay đổi màu văn bản theo như tôi biết: Đó là tính năng của IDE Delphi mà nó thêm thông báo bổ sung vào cửa sổ đó cho chuỗi bắt đầu/dừng, tải DLL/unload, với màu sắc riêng của họ.

Answer 2

Có, bạn có thể sử dụng OutputDebugString.

Nếu bạn muốn có các tính năng mạnh mẽ hơn để kiểm soát và quản lý đầu ra gỡ lỗi, chẳng hạn như bộ lọc làm nổi bật, bạn nên sử dụng DebugView.

Lưu ý: DebugView không thể chụp nhật ký gỡ lỗi khi bạn chạy ứng dụng của mình trong IDE Delphi.

Answer 3

procedure Write2EventLog(Source,Msg: string); 
var h: THandle; 
    ss: array [0..0] of pchar; 
begin 
    ss[0] := pchar(Msg); 
    h := RegisterEventSource(nil, // uses local computer 
      pchar(Source));   // source name 
    if h <> 0 then 
     ReportEvent(h,   // event log handle 
      EVENTLOG_ERROR_TYPE, // event type 
      0,     // category zero 
      0,  // event identifier 
      nil,     // no user security identifier 
      1,     // one substitution string 
      0,     // no data 
      @ss,  // pointer to string array 
      nil);    // pointer to data 
    DeregisterEventSource(h); 
end; 

Answer 4

Ngoài những gì đã được nói (ví dụ: OutputDebugString và sử dụng DebugView thay vì được xây dựng trong người xem log), bạn có thể thay đổi màu sắc của các thông điệp trong giao diện đăng nhập thông qua Options. Cách dễ nhất để đến đó là bằng cách nhấp chuột phải vào khung nhật ký và chọn "Thuộc tính" từ trình đơn ngữ cảnh. Trên tab xuất hiện, bạn có thể đặt màu để sử dụng cho "Chuỗi gỡ lỗi đầu ra" từ phần "Màu". Rõ ràng điều này sẽ thay đổi màu sắc của tất cả các tin nhắn phát ra qua OutputDebugString - nó sẽ không cho phép tô màu riêng lẻ. Để làm điều đó, bạn nên sử dụng bộ lọc của DebugView.