Thema: Delphi Kamera contra USB Thread

Einzelnen Beitrag anzeigen

alf.stefan

Registriert seit: 11. Apr 2003
88 Beiträge
 
Delphi 7 Professional
 
#1

Kamera contra USB Thread

  Alt 18. Jul 2006, 10:21
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
  Mit Zitat antworten Zitat