Ich hab mal folgendes geschrieben:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
sti:String;
begin
i := 27;
sti := Chr(i);
i := 0;
sti := sti + Chr(i);
i := 1;
sti := sti + Chr(i);
i := 28;
sti := sti + Chr(i);
showmessage(sti);
Comm1.Write(sti[1], Length(Sti));
end;
und zum empfangen:
Delphi-Quellcode:
procedure TForm1.Comm1RxChar(Sender: TObject; Count: Integer);
var
buffer: array[0..1024] of Char;
i1, current: Integer;
s, sti: String;
begin
Fillchar(Buffer, SizeOf(buffer), 0);
Comm1.Read(Buffer, Count);
showmessage(buffer[0]);
if Ord(buffer[0]) = 6 then
begin
showmessage('ACK');
end;
if Ord(buffer[0]) = 21 then
begin
showmessage('NAK');
end;
if Ord(buffer[0]) = 22 then
begin
showmessage('TOUT');
end;
end;
leider keine Reaktion. Kann leider nicht überprüfen ob das an mir oder dem Gerät liegt
Kann jemand sich das do oben mal durchschaun???
mfg
tobi