Hallo zusammen
ich habe 2 programme; server und client. nun will ich das der server nach einer gewissen zeit einige Variablen zum Client sendet.
Code:
//Code vom Server
procedure TForm1.Timer2Timer(Sender: TObject);
var Leftstr:string;
begin
Leftstr:=inttostr(Schlaeger.Left);
ServerSocket1.Socket.Connections[0].SendText('4'+Leftstr);
//Code vom Client
empfang := ClientSocket1.Socket.ReceiveText; //client empfängt
choose:= strToInt(empfang[1]);
case choose of
1: ..
2: ..
3: ..
4: begin for i:=2 to length(empfang) do
temp[i-1]:=empfang[i];
SchlaegerKopf.Left:=strtoint(temp);
end;
Das Programm kann fehlerfrei compiliert werden, doch wenn der delay von timer2 zuende ist, wird das Programm mit einem Fehler abgebrochen.
Danke für jegliche Hilfe.
Ciao Crayser