Hallo,
Habe einen wichtigen Teil vergessen.
Delphi-Quellcode:
procedure TForm1.ActionConnectToComExecute(Sender: TObject);
Var Portname :
String;
begin
// ConnectToComPort;
PortName := '
Com'+IntToStr(ComPortNr);
if ActionConnectToCom.Checked
then Begin // Checkbox im Menü
if cCom1.ConnectToComPort(true, PortName)
then
StatusBar1.Panels[1].Text := PortName + '
Handle: ' + IntToStr(cCom1.GethCom)
// Statusmeldung
else ActionConnectToCom.Checked := false;
end
else begin
cCom1.DisconnectComPort('
Com2');
StatusBar1.Panels[1].Text := '
Disconnnect' + '
Handle: ' + IntToStr(cCom1.GethCom);
end;
end;
Das mein Code Probleme mit
Unicode machen könnte kann durchaus sein, er ist damals auf Turbo Delphi 2006 entstanden.
Tut mir leid, dass er nicht so gut kommentiert ist, dass hielt ich früher noch nicht für nötig.
Ich hoffe es hilft etwas weiter