Op woensdag 20 februari 2002 10:10 schreef jelmervos het volgende:
[..]
TIdHTTP heeft GEEN eigen thread, daarom doe ik het zo.
Anders zou die hele MainForm + de applicatie die de DLL aanroept even vast lopen als die IdHTTP zijn data ophaalt.
ShareMem heb ik toch niet nodig, omdat de applicatie die de DLL aanroept niks met de inhoud van de DLL heeft te maken. De applicatie die hem aanroept is niet eens een Delphi applicatie.
Ok... da's dan duidelijk maar waarom maak je het form dan eigenaar van het thread (via je constructor). TThread stamt namelijk helemaal niet af van TComponent en dus is de AOwner: TComponent constructie onzin (je gebruikt hem volgens mij niet eens, je owner).
In ieder geval heb ik even een projectgroep gemaakt met daarin een DLL en een EXE. De DLL bevat het thread (TMyThread) en één geëxporteerde functie (DoThreading), deze functie geeft een TThread object terug en benodigd een TNotifyEvent als parameter (OnTerminate). De EXE bevat een form met twee buttons (Start en Stop).
Hier volgt de code voor de DLL (Project1)
code:
1
2
3
4
5
6
7
8
9
10
11
| library Project1;
uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas';
exports
DoThreading;
end. |
Hier volgt de code voor Unit1 van Project1.dll
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
| unit Unit1;
interface
uses
Classes;
type
TMyThread = class(TThread)
private
FMyInt64: Int64;
protected
procedure Execute; override;
constructor Create(const CreateSuspended: Boolean);
end;
function DoThreading(const OnTerminateProc: TNotifyEvent): TThread; stdcall;
implementation
function DoThreading;
begin
Result := TMyThread.Create(True);
with Result do
try
FreeOnTerminate := True;
OnTerminate := OnTerminateProc;
Resume;
except
raise;
end;
end;
constructor TMyThread.Create(const CreateSuspended: BOolean);
begin
inherited Create(CreateSuspended);
FMyInt64 := 0;
end;
procedure TMyThread.Execute;
begin
while not Terminated do
inc(FMyInt64);
end;
end. |
De code voor project2 (de EXE) is niet zo van belang behalve van Unit2 (Form2). Hier volgt de code van Unit2.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
| unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
FThread: TThread;
procedure ThreadTerminated(Sender: TObject);
public
{ Public declarations }
end;
function DoThreading(const OnTerminateProc: TNotifyEvent): TThread; stdcall;
var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.Button1Click(Sender: TObject);
begin
FThread:=DoThreading(ThreadTerminated);
end;
procedure TForm2.ThreadTerminated(Sender: TObject);
begin
ShowMessage('Thread beëindigd');
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
FThread.Terminate;
end;
function DoThreading; external 'Project1.dll';
end. |
Deze code heb ik getest en deze werkt goed. D.m.v. Start-knop (Button1) start het thread. D.m.v. Knop2 wordt het thread gestopt. Doordat het thread gestopt wordt (Terminate) wordt het OnTerminate-event afgevuurd (Form2.ThreadTerminated).
Suc6!
/u/13464/Delphi.png?f=community)
/u/31230/crop64b060d01fd80_cropped.png?f=community)
