Hallo Zusammen,
ich habe einen Timer genommen um die Koordinaten für den Joystick auf eine Com-Schnittstelle zu senden. Soweit geht das auch alles. Nur habe ich das Problem das ich beim senden das Programm nicht bedienen kann.
Und es dauert auch irgendwie so 5s bis es wieder reagiert. Wenn ich den Timmer auf 500ms setze kann ich das Programm garnicht mehr bedienen.
Was kann ich tun?
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
| procedure TForm1.Timer1Timer(Sender: TObject); var W: DWord; P: Pointer; s : String; begin s := 'A'+ IntToStr(PagesDlg1.x) + 'Y' + IntToStr(PagesDlg1.y)+'E';P:= @s[1]; WriteFile(hComm, P^, Length(s), W, nil);
end; |
Hab auch mal das komplette Projekt drangehangen...
Gruß Carsten