Hallo zusammen
habe ein kleines Problem
ich habe eine Firewire Kamera und mit openCV eine Applikation geschrieben die funktioniert. (mit template matching).
Damit die Applikation von außen steuerbar ist (SPS oder auch per Knopfdruck) habe ich mir von Konrad eine Vellemann USB Experimetal Karte mit 5 input/8 output gekauft.
Funktioniert auch wunderbar.
Die Abfrage der Eingänge der Karte habe ich in einen Thread gepackt und um in meiner Applikation einen Event zu erzeugen arbeite ich mit einer ActionList.
Delphi-Quellcode:
TUsbIoThreat = class(TThread)
public
usbOutPut : byte;
compoAction : TBasicAction;
usbStartAction :TBasicAction;
usbCardAddress : byte;
usbIo : TUsbIo;
....
...
die Execute Methode des Threads sieht so aus
Delphi-Quellcode:
procedure TUsbIoThreat.Execute;
var
oldInputState : byte;
oldOutPutState : byte;
finish : boolean;
begin
{ open usbIOCard Device}
usbIo := TUsbIo.create(usbCardAddress);
if usbIo.handle >-1
then //check if handle is valid
begin
usbStartAction.Execute;
// execute after usbStartAction to allow update signals
oldInputState := 0;
oldInputState := 0;
while (
not Terminated)
do
begin
// repeat
finish := compoAction.Tag=-1;
if compoAction.Tag <>-1
then compoAction.Tag := self.usbIo.GetInWord
and $1F;
// 5 inputs!
if compoAction.Tag <> oldInputState
then
begin
compoAction.Execute;
oldInputState :=compoAction.Tag;
end
else sleep(50);
if usbOutPut <> oldOutPutState
then
begin
usbIo.SetOutWord(usbOutPut);
oldOutPutState:=usbOutPut;
end;
end;
// until (finish = true);
usbIo.SetOutWord(0);
Sleep(50);
usbIo.close;
end;
usbIo.Free;
usbIo :=
nil;
end;
so wird der Thread dann in der App gestartet, wobei InputEventAction und UsbStart die Aktionen aus meiner AktionListe sind.
Delphi-Quellcode:
ioThreat := TUsbIoThreat.Create(true);
ioThreat.Priority := tpLower;
ioThreat.usbOutPut :=0;
ioThreat.compoAction := InputEventAction;
ioThreat.usbCardAddress :=0;
ioThreat.usbStartAction := UsbStart;
ioThreat.Resume;
Wenn jetzt im Thread die Zeile compoAction.Execute ausgeführt wird bekomme ich in der >Applikation einen Event
und kann dort z.B ein Bild einziehen und auswerten.
Das funktioniert zwar sehr gut aber das TImage in dem ich das Kamerabild normalerweise Anzeige wird nicht mehr angezeigt bzw nich mehr oder nur teilweise upgedated!
Die Frage ist jetzt:
Liegt das an der Kommunkation mit dem Thread mittels der ActionList?
Ist es überhaupt empfehlenswert so mit Threads zu kommunizieren?
Gibt es noch andere Wege aus einem Thread heraus einen Event in der Applikation zu erzeugen? (Vielleicht denke ich ja viel zu kompliziert und das geht alles viel einfacher)
Ich hoffe IHR könnt mir ein wenig weiterhelfen.
Gruß
Stefan
Antwort
Zitat
Linear-Darstellung
