danke für eure Hilfe.
Es Funktioniert jetzt, aber ich hab nun folgendes Problem:
Wenn ich den Wert ein zweites mal durch den Button abfragen möchte, bekomme ich die Fehlermeldung "Access violation".
Habe schon versucht das kompilierte Programm als Administrator zu starten, leider ohne Besserung...
Die Schnittstelle wird nach dem einlesen eingenltich auch wieder freigegeben, deshalb kann ich mir die Fehlermeldung nicht erklären.
Ich verwende folgenden Quelltext:
Code: Alles auswählen
procedure TForm1.btnEwAClick(Sender: TObject);
begin
//Schnittstelle freigeben
ser.free;
//Dem String die 10te und 13te Stelle zuweisen
ch := chr(13)+ chr(10);
ser:=TBlockSerial.Create;
Sleep(10000);
//COM1 verbinden mit folgenden Boudraten, Datenbits, Paritätsbit und Anzahl der Stopbits
ser.Connect('COM1');
ser.config(1200, 8, 'N', SB1, False, False);
//
LabelIstwertA.Text := ser.RecvTerminated(1000, ch);
//Am Ende die Schnittstelle wieder freigeben
ser.free;
end;
Jemand eine Idee? Danke vorab