Einzelnen Beitrag anzeigen

Reinhard Kern

Registriert seit: 22. Okt 2006
772 Beiträge
 
#5

Re: in Byte umrechnen und per string senden

  Alt 2. Mai 2009, 12:07
Zitat von ljmarkus:
Hallo.

ich lese die Paintbox aus ob Pixel gesetzt sind. Immer 8 Pixel um es per 1 Byte zusenden.
...
Hallo,

probiers mal damit:

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var i : byte;
    Data : string[55];
begin
Data := #0;
with PaintBox1.Canvas do
  for i := 0 to 7 do
     if Pixels[7-i,0] = clBlack then Data[0] := chr (ord(Data[0]) + 1 SHL i);
ComPort1.WriteStr(Data);
end;
ungetestet!!

Gruss Reinhard
  Mit Zitat antworten Zitat