Hallo Leute, ich bin neu hier im Forum und hoffe, dass ihr mir mit diesem Problem weiterhelfen könnt. Ich muss zur Zeit eine ActiveX Komponente entwickeln und habe Probleme bei der Verwendung von Threads in ActiveX. In einer normalen Delphi Komponente tritt dieses Problem nicht auf.
Ich habe eine Delphi Komponente geschrieben, die eine Methode (StartThread) beinhaltet welche einen Thread (CamThread) startet. Dieser Thread löst alle 100ms Sekunden, über die Methode (UpdateLabel) einen Event aus. So weit funktioniert das ganze auch ohne Probleme. Wenn ich allerdings die Komponente in eine ActiveX Komponente umwandel funktioniert der Thread nicht mehr. Es kommen keine Events mehr alle 100ms aus der Komponente. Um sicherzugehen, dass es nicht die Events sind, die Probleme bereiten, habe ich noch eine Funktion hinzugefügt (StartEvent), die einen einzelnen Event auslöst. Diese funktioniert. Nur eben der Thread scheint in der Active X Komponente nicht zu laufen . Hier der 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:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
| interface
uses
Windows, Messages, SysUtils, Classes, Controls;
type
TCameraResultEvent = procedure(Sender: TObject) of object;
TLTB = class(TWinControl)
private
FOnCameraResult: TCameraResultEvent;
protected
public
constructor Create(Owner: TComponent); override;
procedure StartEvent;
procedure StartThread;
published
property OnCameraResult : TCameraResultEvent
read FOnCameraResult write FOnCameraResult;
end;
PTestRecord =^ TTestRecord;
TTestRecord = record
amin,amax,bmin,bmax,intensity,blueshift: Integer;
end;
CamThread = class(TThread)
private
procedure UpdateLabel;
public
constructor Create(CreateSuspended :boolean; TwinC: TLTB);
protected
procedure Execute; override;
end;
procedure Register;
var
List : TList;
Thread : CamThread;
TWin : TLTB;
implementation
constructor TLTB.Create(Owner: TComponent);
begin
inherited Create(Owner); List := TList.Create;
Thread := CamThread.Create(true,self);
end;
procedure CamThread.UpdateLabel;
begin
TWin.StartEvent;
end;
constructor CamThread.Create(CreateSuspended :boolean; TwinC: TLTB);
begin
inherited Create(CreateSuspended);
TWin := TwinC;
end;
procedure CamThread.Execute;
var
i: integer;
begin
for i:=0 to 100000 do begin
Synchronize(UpdateLabel);
sleep(100);
end;
end;
procedure TLTB.StartThread;
begin
Thread.Resume;
end;
procedure TLTB.StartEvent;
var i : integer;
begin
if Assigned(FOnCameraResult) then FOnCameraResult(self);
end;
procedure Register;
begin
RegisterComponents('Beispiele', [TLTB]);
end;
end. |
Ich würde mich riesig freuen, wenn mir da jemand weiterhelfen kann.
MfG Micha
