Mark van Renswoude
a9cf1b75f6
Fixed: FS#5 - Reconnecting can cause pipe to be busy Fixed: FS#6 - Process hangs when closing after named pipe client has disconnected Fixed: themed drawing of toolbar in MonitorForm Fixed: various memory leaks Changed: NamedPipeClient test application uses MonitorForm observer to display log
31 lines
609 B
ObjectPascal
31 lines
609 B
ObjectPascal
program X2LogNamedPipeClient;
|
|
|
|
uses
|
|
// FastMM4,
|
|
Vcl.Forms,
|
|
X2Log.Intf,
|
|
X2Log.Client.NamedPipe,
|
|
X2Log.Observer.MonitorForm;
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
client: IX2LogObservable;
|
|
observerForm: TX2LogObserverMonitorForm;
|
|
|
|
begin
|
|
ReportMemoryLeaksOnShutdown := True;
|
|
|
|
Application.Initialize;
|
|
Application.MainFormOnTaskbar := True;
|
|
Application.Title := 'X²Log Named Pipe Client';
|
|
|
|
client := TX2LogNamedPipeClient.Create('X2LogTest');
|
|
try
|
|
observerForm := TX2LogObserverMonitorForm.Instance(client);
|
|
observerForm.ShowModal;
|
|
finally
|
|
client := nil;
|
|
end;
|
|
end.
|