Hi Jungs,
Ich hab ein komisches Problem, wo ich nicht weiterkomme.
Ich nutze für eine Kommunikation über die
Com-Schnittstelle das Comm_Async.
wenn ich die Beiden Komports miteinander kommunizieren lasse, sende und empfange ich Datensalat.
Erst wenn ich mit einer anderen Anwendung auf diesen Port zugreife, bekomme ich anschließend mit meiner
Unit die richtigen Werte gesendet und empfangen.
Jetzt bin ich ein wenig confused.
Delphi-Quellcode:
procedure TForm1.LMDButton1Click(Sender: TObject);
begin
Comm1.Port := Strtoint(copy(Combobox1.text,4,5));
//Auswahl, Com 1-16
Comm1.BaudRate:= Getbaudrate;
// übergabe Baudrate
Comm1.Parity:= getparity;
// ...
Comm1.ByteSize := getdatabit;
Comm1.StopBits := getstopbit;
(...)
// div. Buttons
Timer1.Interval:= strtoint(edit3.text);
Comm1.Open;
if Comm1.Connected= false
then
Messagebox(0,'
Keine Verbindung, Port nicht vorhanden, oder schon belegt.' ,'
Com Port nicht verbunden', MB_ICONError );
end;
Was mache ich denn falsch? Ich übergebe ihm die Parameter die er haben will und er connected auch brav. Aber dann spricht er mit fremden Zungen zu mir.
(es sei den der Port wurde schon mit einem anderen Programm initialisiert. Dann macht er alles richtig.)