delphi - org - mapwindows 5

Escribir en el registro de eventos en Delphi

Question

¿Cómo puedo obtener una aplicación para escribir texto de depuración en la ventana Registro de eventos en Delphi IDE (Borland Developer Studio 2006)?

¿Cómo se puede cambiar el color del texto?

Answer 1

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 2

Además de lo que se ha dicho (es decir, OutputDebugString y el uso de DebugView en lugar del visor de registro incorporado), puede cambiar el color de los mensajes en la vista de registro a través de las Opciones. La manera más fácil de llegar es haciendo clic con el botón derecho en el panel de registro y seleccionando "Propiedades" en el menú contextual. En la pestaña que aparecerá, puede establecer el color que se usará para "Cadenas de depuración de salida" en la sección "Colores". Obviamente, esto cambiará el color de todos los mensajes emitidos a través de OutputDebugString ; no permitirá el color individual. Para eso, será mejor que use los filtros de DebugView.

Answer 3

OutputDebugString (''Hola, Mundo'');

Creo que puede necesitar agregar Windows a su lista de ''usos''. No estoy 100% seguro de eso ...

Por lo que sé, el color del texto no puede modificarse: es una característica del IDE de Delphi que agrega mensajes adicionales en esa ventana para iniciar / detener el subproceso, cargar / descargar DLL, con su propio color específico.

Answer 4

Sí, puedes usar OutputDebugString .

Si desea obtener funciones más potentes para controlar y gestionar la salida de depuración, como un filtro de resaltado, debe usar DebugView .

Nota: DebugView no puede capturar el registro de depuración cuando ejecuta su aplicación en Delphi IDE.