Hallo und guten Morgen,
ich sitz hier in der Schule und bin an einem 4 Spieler ping pong am programmieren.
Ich habe ein kleines Problem mit dem Senden des Arrays an die anderen Clienten.
Wir nutzen hier Delphi 6 Personal.
hier der Code zum Versenden und Empfangen
Delphi-Quellcode:
type
Spieler = record
ID : integer;
x1 : integer;
y1 : integer;
end;
var
Serverarray : Array of Spieler;
Spielerarray : Array of Spieler;
Senden
Delphi-Quellcode:
procedure TForm3.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
i : integer;
begin
Socket.ReceiveBuf(Buffer,sizeof(Buffer));
Serverarray[buffer.ID-1].ID := Buffer.ID;
Serverarray[buffer.ID-1].x1 := Buffer.x1;
Serverarray[Buffer.ID-1].y1 := Buffer.y1;
for i := 0 to connections-1 do begin
ServerSocket1.Socket.Connections[i].SendBuf(Serverarray,sizeof(Serverarray));
end;
// edit2.Text := Socket.ReceiveText;
//ServerSocket1.Socket.Connections[0].SendText(Edit1.text);
end;
Empfangen
Delphi-Quellcode:
procedure TForm3.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
if not(Connected) then begin
socket.receivebuf(Spielerarray[0],sizeof(spielerarray[0]));
Connected := true;
end else begin
clientsocket1.socket.ReceiveBuf(Spielerarray,sizeof(Spielerarray));
// for i := 0 to 0 do begin
// TShape(FindComponent('Shape'+inttostr(i))).left := Spielerarray[i-1].x1;
// TShape(FindComponent('Shape'+inttostr(i))).top := Spielerarray[i-1].y1;
memo1.lines.add('id: '+inttostr(Spielerarray[0].id)+ 'x1: '+inttostr(Spielerarray[0].x1)+'y1: '+ inttostr(Spielerarray[0].y1));
// end;
end;
Das Array kommt nicht an.
Es ist immer leer nach dem einlesen.
Wenn wir nur einen Record Datensatz schicken dann kommt dieser an.
Jemand ne Idee wie man ein Array versenden kann?
Dank im Vorraus!
So Far
Schaedel