Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.251 Beiträge
 
Delphi 2006 Professional
 
#4

Re: Über RS232 Port Hex senden und empfangen???

  Alt 13. Jun 2006, 05:24
Zitat von EDatabaseError:
Kleine Frage wie kann ich über den Comport Hex senden und empfangen??? ...
Hai Tobi,

über die RS232 wird ein Byte gesendet. Also ein Zahl.
Dabei ist es völlig egal in welcher Schreibweise diese Zahl im Programm steht.
Delphi-Quellcode:
function BinToInt(Binary: string): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := Length(Binary) downto 1 do
  begin
    Inc(Result, StrToInt(Binary[i]) * 1 shl (Length(Binary) - i));
  end;
end;

procedure TDemoForm.btn_sendcommandClick(Sender: TObject);
var
  command1: Byte;
  command2: Byte;
  command3: Byte;
begin
  command1 := $1B;
  command1 := 27;
  command3 := BinToInt('11011');
end;
Hier ist es egal welches der drei commands Du sendest; es ist immer das selbe.
Stephan B.
  Mit Zitat antworten Zitat