Moin DPler,
ich habe mir eine Klasse zusammengestrickt um eine serielle Kommunikation herzustellen. Dazu wird erst die Verbindung
aufgebaut und anschließend ein Thread gestartet der auf der Schnittstelle läuscht ob Daten ankommen.
Alles klappt wunderbar jedoch soll die Verbindung getrennt werden bzw. der Thread beendet werden, doch dann hängt
die Anwendung für ca. 20 sekunden lang, ohne ersichtlichen Grund und das ist doch eine etwas unschöne Verzögerung.
Ich habe eine Beispiel Anwendung erstellt die zeigen soll, wie ich die Schnittstelle öffne und wie die Klasse arbeitet.
Die Klasse befindet sich in der angehängten Datei uRS232.pas.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, uRS232;
type
TForm1 =
class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure OnRead(RChar: Char);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
Serial : TSerial;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
//Objekt erstellen
Serial := TSerial.Create;
//Schnittstellenparameter setzen
Serial.SetParam('
COM1', 1200, 8, 0, 0, 4113, 1024, 1024);
//Verbindung herstellen...
if not Serial.Connect
then Application.MessageBox('
Fehler beim Verbinden mit der Schnittstelle!', '
Fehler', 48);
if Serial.Connected
then begin
//Empfangs und Sendepuffer leeren
Serial.ClearBuffer;
//Ereignis zuweisen
Serial.OnThreadRead := OnRead;
//Thread für asynchrone Übertragung erstellen und starten
Serial.StartThread;
end;
{if}
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if Serial.Connected
then begin
//Thread stoppen
Serial.StopThread;
//Verbindung trennen
Serial.Disconnect;
//Objekt freigeben
Serial.Free;
end;
{if}
end;
procedure TForm1.OnRead(RChar: Char);
begin
ShowMessage(RChar);
end;
end.
Hier mal ein Auszug aus der Klasse, mit der folgenden Prozedur will ich den Thread beenden.
Delphi-Quellcode:
procedure TSerial.StopThread;
begin
AThread.OnRead := nil; //Dies hatte ich zu Testzwecken probiert, brachte keinen erfolg
ShowMessage('Terminate');
AThread.Terminate; //Thread beenden
ShowMessage('WaitFor');
AThread.WaitFor; //warten auf Beendigung
//Hier hängt das Programm ca. 20 Sekunden bis der Thread beendet wurde
ShowMessage('Free');
AThread.Free; //Speicher aufräumen
end;
Ich vermute das Problem liegt in der Execute Prozedur des Threads, jedoch habe ich keine Idee wie ich das ändern soll.
So wie ich das sehe bekommt zwar die Prozedur mit das Terminated auf True gesetzt wird jedoch hängt der Thread im "ReadFile"
und wartet auf ein Zeichen auf der Schnittstelle, da dieses jedoch nicht kommt, dauert es ca. 20 sekunden bis der Thread
sich dann doch beendet, ich vermute mal das dies ein TimeOut ist.
Delphi-Quellcode:
procedure TSerialThread.Execute;
Var
w : DWord;
P : Pointer; //Zeiger auf Lesepuffer
C : Char; //Lesepuffer
begin
P := @C; //P zeigt auf C
repeat
if (ReadFile(ThCom, P^, 1, W, nil)) then begin //1 Zeichen lesen
if Terminated then break; //Abbruch
if Assigned(OnRead) and (W <> 0) then OnRead(C); //Ereignis auslösen
end;{if}
until Terminated; //Endlos Schleife bis die Verbindung getrennt wird
end;
Ich hoffe es gibt eine Möglichkeit dies etwas zu beschleunigen, da das doch arg unschön ist zu warten.
Sprachen und Entwicklungsumgebungen
Zitat
Baum-Darstellung
