Vielen Dank Leute es ist überall das selbe die BT
COM's werden nicht richtig angezeigt.
Aber ich hab jetzt einfach eine normale COmbobox genommen und die richtigen COMnamen eingetragen und diese dann zum verbidungsaufbau genützt und sieh da es funzt.
Nun kommen wir zu den weiteren Problemen, die sich ergeben haben bei dem Programmcode..
Delphi-Quellcode:
procedure TForm3.Button2Click(Sender: TObject);
// ComPort2 ist schon richtig
begin
ComPort2.Port := Combobox2.text;
// das ist COM4
ComPort2.BaudRate := br19200;
ComPort2.DataBits := dbSeven;
ComPort2.StopBits := sbOneStopBit;
ComPort2.Parity.Bits := prEven;
ComPort2.Buffer.InputSize := 1024;
ComPort2.Buffer.OutputSize := 1024;
try
ComPort2.Open;
except
ShowMessage('
Fehler: Bluetooth-COM-Port konnte nicht geöffnet werden...');
// Fehlermeldung
end;
..wird mir beim ausführen als erstes diese Nachricht "Erste Gelegenheit für
Exception bei $776742EB.
Exception-Klasse EComPort mit Meldung 'Unable to open
com port (win error code: 121)'. Prozess Geschwindigkeitsmessung.exe (8848)" mit einer Programmunterbrechung angezeigt und wenn ich dann auf "fortsetzen" klicke kommt est die Fehlermeldung " ShowMessage('Fehler: Bluetooth-
COM-Port konnte nicht geöffnet werden...'); // Fehlermeldung" die ich in except eingetragen habe zum vorschein.
was mache ich falsch??