BorlandTalk.com

[Guest]

Hi all!
When using below code in an application (.exe) it works fine, but
moving it to a .DLL, the SillyThread wont terminate if i put some
breakpoints in the thread and/or in the mainthread. Any ideas on this
appreciated





unit Unit1;

interface

implementation

uses
Classes, SysUtils, SyncObjs;

type
TSillyThread = class(TThread)
protected
procedure Execute; override;
public
SimpleEvent: TSimpleEvent;

constructor Create;
destructor Destroy; override;
end;

var
SillyThread: TSillyThread;
{ TSillyThread }

constructor TSillyThread.Create;
begin
inherited Create(True);
SimpleEvent := TSimpleEvent.Create;
Resume;
end;

destructor TSillyThread.Destroy;
const
INFINITY = $FFFFFFFF;
begin
Terminate;
//WaitFor; //Does not work. Seams to require a messageloop which
there are none in a DLL
SimpleEvent.WaitFor(INFINITY);
SimpleEvent.Free;

inherited Destroy;
end;

procedure TSillyThread.Execute;
begin
while not Terminated do
Sleep(1000);
SimpleEvent.SetEvent;
end;

initialization
SillyThread := TSillyThread.Create;
finalization
SillyThread.Free;
end.

[Riki Wiki]

On 18 Aug 2005 04:20:44 -0700, jonsjostedt (AT) hotmail (DOT) com wrote: