Subject:
调试信息查看器输出遗漏
[Print This Page]
Author:
npc8
Time:
2015-5-13 18:21
Subject:
调试信息查看器输出遗漏
cndebug关闭情况下,按button1,cndebug输出会遗漏,只输出”Work1Start“或者“Work2Start”,OutputDebugString输出正常
qworker来自
http://blog.qdac.cc/?page_id=139
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs,qworker,CnDebug, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure WorkA(AJob: PQJob);
procedure WorkB(AJob: PQJob);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WorkA(AJob: PQJob);
begin
CnDebugger.LogMsg('Work1Start...');
OutputDebugString('Work1Start...');
end;
procedure TForm1.WorkB(AJob: PQJob);
begin
CnDebugger.LogMsg('Work2Start...');
OutputDebugString('Work2Start...');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Workers.LongtimeJob(WorkA, nil);
Workers.LongtimeJob(WorkB, nil);
end;
end.
Welcome to CnPack Forum (http://bbs.cnpack.org/)
Powered by Discuz! 5.0.0