Checkbox-"Haken" von Server an Client schicken??

[Sascha]

Hier der Code falls er nicht funktioniert bitte mir sagen, ich kann dir am 31.12.03 um ca. 18 Uhr ein Beispiel das funktioniert schicken. Musst nur bescheid sagen.

Ach so in dei OnRead Methode weil der Client liest!
Hier die Version die Funktionieren müsste.

Delphi-Quellcode:

type
//record kann mit unendlich weiteren Variablen gefüllt werden
 MyRecord = record
  Checked: Boolean;
  //Code: String;
 end;

.
.
.

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var buf: MyRecord;
begin
 Buf.Checked := Checkbox2.Checked;
  Socket.SendBuf(SizeOf(Buf); Buf);
end;

Gruß Sascha