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