1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TForm1.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
var ServerMessage:String;
var Variables: Boolean;
var Position: array of TVektor;
var Speed:    array of TVektor;
var i:Integer;
var Bitmap: TBitmap;
begin
  ServerMessage := ClientSocket.Socket.ReceiveText;
  memo1.Text := Servermessage;
  Memo.Lines.SaveToFile('FromServer.log');
  Variables := True;

  if ServerMessage[1] = 'P' then
    begin
      delete(ServerMessage,1,1);
      Player := StrToInt(copy(ServerMessage,1,pos(',',ServerMessage)-1))-1;
      delete(ServerMessage,1,pos(',',ServerMessage));
      Players := StrToInt(ServerMessage);
      Form2.IpLabel.Caption := Form2.IpLabel.Caption + chr(13) + 'Sie sind Spieler '+IntToStr(Player)+'.';
      Form2.IpLabel.Caption := Form2.IpLabel.Caption + chr(13) + 'Es nehmen '+IntToStr(Players)+' Spieler am Spiel teil.';
      Variables := False;
    end;

  if ServerMessage = 'FULL' then                    

1:
2:
3:
4:
5:

CmdSeq := TCmdSeq.Create(cmdSendPlayers);
CmdSeq.Add(IntToStr(i));
CmdSeq.Add(IntToStr(Players));
ServerPA.Connections[i].Outbound.AddCmdAndFree(cmdSeq);
ServerPA.Connections[i].Send;                    

1:
2:

Player  := PA.Inbound.Strings[1];
Players := PA.Inbound.Strings[2];                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

CmdSeq := TCmdSeq.Create(cmdSendPlayers);
CmdSeq.Add(i);
CmdSeq.Add(Players);
ServerPA.Connections[i].Outbound.AddCmdAndFree(cmdSeq);
ServerPA.Connections[i].Send;

------

Player  := PA.Inbound.Strings[1];
Players := PA.Inbound.Strings[2];                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

CmdSeq := TCmdSeq.Create(cmdSendPlayers);
CmdSeq.Add(IntToStr(i));
CmdSeq.Add(IntToStr(Players));
ServerPA.Connections[i].Outbound.AddCmdAndFree(cmdSeq);
ServerPA.Connections[i].Send;

------

Player  := StrToInt(PA.Inbound.Strings[1]);
Players := StrToInt(PA.Inbound.Strings[2]);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

CmdSeq := TCmdSeq.Create(cmdSendPlayers);
CmdSeq.Add(i);
CmdSeq.Add(Players);
ServerPA.Connections[i].Outbound.AddCmdAndFree(cmdSeq);
ServerPA.Connections[i].Send;

------

Player  := PA.Inbound.AsInt[1];
Players := PA.Inbound.AsInt[2];                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

procedure TNBFPAServer.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
  var
    i: Integer;
    CmdSeq: TCmdSeq;
begin
  i := ServerPA.IndexOfSocket(Socket); // neuen Client registrieren
  LogIt('+ SID:'+IntToStr(ServerPA.Connections[i].SessionID)+
  ' verbunden mit '+Socket.RemoteAddress);
  // Connect-Ereigniskette: Server-Seite, "X" aktuelle Position im Ablauf
  // Pos Aktion Client Server
  // X <- Protokoll-Infos senden
  // . -# Protokoll inkompatibel: Client trennt die Verbindung
  // . -| Protokoll OK: Ereigniskette Ende (keine weitere Reaktion)
  CmdSeq := TCmdSeq.Create(cmdVERSION); // Kommandosequenz anlegen
  CmdSeq.Add(APPID_SRV); // Applikations-ID
  CmdSeq.Add(IntToStr(PROTO_VER)); // Protokoll-Version
  CmdSeq.Add(IntToStr(PROTO_REV)); // Protokoll-Revision
  with ServerPA.Connections[i] do begin
    Outbound.AddCmdAndFree(CmdSeq); // Sequenz übergeben / Objekt freigeben
    Send; // Daten senden
  end;

  if Players < 10 then
    begin
      inc(Players);
      SetLength(ClientReady,Players);
      for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
        ClientReady[i] := False;
      CmdSeq := TCmdSeq.Create(cmdSendPlayers);
      CmdSeq.Add(IntToStr(i)); // --- hier ---
      CmdSeq.Add(IntToStr(Players));
      ServerPA.Broadcast(cmdSeq);
    end
  else
    begin
      CmdSeq := TCmdSeq.Create(cmdFullServer);
      ServerPA.Connections[i].Outbound.AddCmdAndFree(CmdSeq);
      ServerPA.Connections[i].Send;
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TNBFPAServer.ServerSocket1ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
  var
    i: Integer;
    CmdSeq: TCmdSeq;
begin
  DeleteClient(Socket); // Client aus der Userliste nehmen
  dec(Players);
  Log.Lines.Add(IntToStr(Players));
  SetLength(ClientReady,Players);
  CmdSeq := TCmdSeq.Create(cmdSendPlayers);
  CmdSeq.Add(IntToStr(i)); // --- hier ---
  CmdSeq.Add(IntToStr(Players));
  ServerPA.Broadcast(CmdSeq);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure SendData;                //Unit2, wird vom Timer aufgerufen
var CmdSeq: TCmdSeq;
begin
  CmdSeq := TCmdSeq.Create(cmdClientDaten);           //KomandoSequenz erzeugen
  CmdSeq.Add(IntToStr(Player));                  //Den Spieler der sendet eintragen, sowie die Daten seines Autos... 
  CmdSeq.Add(FloatToStr(Cars[Player].Position.x * 100 / Screen.Width));   //X-Koordinate in % 
  CmdSeq.Add(FloatToStr(Cars[Player].Position.y * 100 / Screen.Height));  //Y-Koordinate in %
  CmdSeq.Add(FloatToStr(Cars[Player].Speed.x * 100    / Screen.Width));   //X-Speed in %
  CmdSeq.Add(FloatToStr(Cars[Player].Speed.y * 100    / Screen.Height));  //Y-Speed in %
  PA.Outbound.AddCmdAndFree(CmdSeq);            //KomandsoSequenz in die Outboundliste aufnehmen
  PA.Outbound.SaveToFile('ToServer.log');          //zu debug-zwecken speichern
  PA.Send;                  //und zum schluss senden
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

cmdClientDaten:          //Server: TNBFPAServer.ExecuteCmd            
  begin
    CmdSeq := TCmdSeq.Create(cmdClientDaten);  //ComandoSequenz erzeugen
    PA.Inbound.SaveToFile('FromClient.log');  //eintreffende Daten zu Debug-Zwecken speichern
    CmdSeq.Add(Pa.Inbound.Strings[1]);    //Daten aus der Inbound Liste übernehmen
    CmdSeq.Add(Pa.Inbound.Strings[2]);
    CmdSeq.Add(Pa.Inbound.Strings[3]);
    CmdSeq.Add(Pa.Inbound.Strings[4]);
    CmdSeq.Add(Pa.Inbound.Strings[5]);
    ServerPA.Broadcast(CmdSeq);      //und an alle Clienten senden
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

cmdClientDaten:          //Client: TForm1.ExecuteCmd  
  begin
    PA.Outbound.SaveToFile('FromServer.log');   //Zu Debug-Zwecken zwischenspeichern
    if StrToInt(PA.Inbound.Strings[1]) <> Player then //Wenn ich nicht derjenige bin der gesendet hat dann...
      begin
        i := StrToInt(PA.Outbound.Strings[1]);  //Player ermitteln der gesendet hat und Daten übernehmen
        Cars[i].Position := Vektor(Screen.Width / 100 * StrToFloat(PA.Inbound.Strings[2]), Screen.Height / 100 * StrToFloat(PA.Inbound.Strings[3]));
        Cars[i].Speed    := Vektor(Screen.Width / 100 * StrToFloat(PA.Inbound.Strings[4]), Screen.Height / 100 * StrToFloat(PA.Inbound.Strings[5]));
      end;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

// Client, Unit1

procedure TForm1.ExecuteCmd(PA: TProtocolAdapter);
[...]
    cmdClientDaten:
      begin
        PA.Outbound.SaveToFile('FromServer.log');
        if StrToInt(PA.Inbound.Strings[1]) <> Player then begin
          i := StrToInt(PA.Outbound.Strings[1]);
          Cars[i].Position := Vektor(Screen.Width / 100 * StrToFloat(PA.Inbound.Strings[2]), Screen.Height / 100 * StrToFloat(PA.Inbound.Strings[3]));
          Cars[i].Speed    := Vektor(Screen.Width / 100 * StrToFloat(PA.Inbound.Strings[4]), Screen.Height / 100 * StrToFloat(PA.Inbound.Strings[5]));
        end;
      end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var images: array[0..9,0..5] of TBitmap;
    CarTex: TBitmap

for i := 0 to 9 do
  for j := 0 to 5 do
    begin
      images[i,j] := TBitmap.Create;
      images[i,j].LoadFromFile('material\cars\car'+IntToStr(i)+'_'+IntToStr(j)+'.bmp');
    end;


CarTex := images[x,y];
RotateBitmap(CarTex,.....                    

1:

CarTex.Assign(images[x,y]);