in Byte umrechnen und per string senden

[Reinhard Kern]

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