'loha Folks,

zur Zeit verwende ich zum einlesen von Daten welche über einen USB-Port hineinschwirren ein Ereignis. Leider ist das ganze unbrauchbar, da dieses Ereignis bei vielen nacheinander eintreffenden Datenpaketen viel zu langsam ausgelöst wird. Nun gut, jetzt müsste das ganze durch ein gescheites Polling oder etwas ähnliches ersetzt werden.

Da ich absolut nicht weiss, wie so ein Polling (wenn es etwas besseres gibt ist mir dies auch recht) am bestem gemacht wird, hier ein bisschen Source Code (Polling mit einem Timer):

zusammenfalten · markieren

Delphi-Quellcode:

procedure TSDIAppForm.Timer1Timer(Sender: TObject);
Var
  CANMessage: CANmsg;
  DummyStr: String;
  tmp: Integer;
begin
  if (CANUSBRead(CANMessage) = ERROR_CANUSB_OK) then // daran erkenne ich, dass neue Daten da sind
   begin
     DummyStr := Format('ID = %x,', [CANMessage.id]);
     DummyStr := DummyStr + Format(' LEN = %d, DATA = ', [CANMessage.len]);
     for tmp := 0 to CANMessage.len do
       DummyStr := DummyStr + Format(' %2x', [CANMessage.data[tmp]]);
     Label3.Caption := DummyStr;
   end
end;

Wie könnte das nun elegant gelöst werden? Hauptkriterium ist, dass die Daten schnellstmöglich eingelesen werden.

Grüsse
hirnstroem

Zitat von hirnstroem:

'loha Folks,

zur Zeit verwende ich zum einlesen von Daten welche über einen USB-Port hineinschwirren ein Ereignis. Leider ist das ganze unbrauchbar, da dieses Ereignis bei vielen nacheinander eintreffenden Datenpaketen viel zu langsam ausgelöst wird. Nun gut, jetzt müsste das ganze durch ein gescheites Polling oder etwas ähnliches ersetzt werden.

Da ich absolut nicht weiss, wie so ein Polling (wenn es etwas besseres gibt ist mir dies auch recht) am bestem gemacht wird, hier ein bisschen Source Code (Polling mit einem Timer):

Hallo,

Polling ist für schnelle Vorgänge in jedem Fall Bäh - zum Datenempfang ist nur ein Ereignis sinnvoll, das vom Empfang direkt ausgelöst wird. Polling über Timer oder durch eine Programmschleife ist mit Sicherheit langsamer und belastet die CPU unnötig.

Wenn die ereignisbasierte Version nicht mit den Daten mitkommt, ist entweder der Treiber schlicht falsch/schlecht programmiert, oder dein Rechner ist echt überfordert, dann würde es höchstens helfen, auf der Treiberebene nachzuarbeiten, also dort schon weitere Verarbeitungen durchzuführen. Ev. müsste der Treiber auch die Verarbeitung (den Event) direkt aufrufen und nicht über das Windows-Message-System und den Delphi-Dispatcher.

Gruss Reinhard