Übertragungsfehler eines Strings (?)

**Bloodfire**

noch immer gleiches Projekt (LAN-Schach), aber andere Stelle:

Ich überprüfe nach jedem Schachzug, auf Bedrohung (CheckSign = '+'), auf Matt (CheckSign = '#') und auf Patt (CheckSign = 'XX'). Bei einem 'normalen' Zug (also ohne den vorherigen Situationen) ist CheckSign = ''.

Bei dem, der gerade gezogen hat und wo das ganze gleich überprüft wird, funktioniert das ganze wunderbar. Aber sobald bei dem Empfänger das empfangene Checksign > '' ist, kommt eine Zugriffsverletzung.

Hier werden die Daten versandt:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TBoardForm.SendGameFiles(FSrc, FDest: TPoint; FNewFig: String);

var

  AFiles: RSendFiles;

begin

   AFiles.DoEnPassant:=DoEnPassant;

   AFiles.EnPassant:=IsEPPossible(FSrc,FDest);

   AFiles.Src:=FSrc;

   AFiles.Dest:=FDest;

   AFiles.DoCastle:=DoCastle;

   AFiles.CheckSign:=CheckSign; //wenn ich übrigens CheckSign absolut definiere: AFiles.CheckSign:='#' funktioniert es!?? Obwohl die Variable CheckSign ebenfalls '#' enthält!

   AFiles.NewFig:=FNewFig;

   // AFiles enthält korrekte Eingaben, hab ich schon öfters überprüft

   try

    if TcpClient.Connect then

      begin

         TcpClient.Sendln('GameFiles#');

         TcpClient.SendBuf(AFiles,sizeof(AFiles));;

      end;

   finally

     TcpClient.Disconnect;

   end;

   // auch das Senden funktioniert, ebenfalls überprüft

   DoCastle.QWing:=False;

   DoCastle.KWing:=False;

   DoEnPassant:=False;

   EnPassant.Possible:=False;

   { CheckSign überprüfen / Rückgabewert: Spiel aus (True / False) }

   if (CheckCheckSign(UserWhite))

     then exit;

   ChangeTurn;

end;

Hier das Empfangen der Daten:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TBoardForm.TcpServerAccept(Sender: TObject;

  ClientSocket: TCustomIpClient);

var

  ReceivedLn: String;

  i: Integer;

  ReceivedKind: String;

  ReceivedInfo: String;

  AGameFiles: RGameFiles;

  AFiles: RSendFiles;

begin

   (...)

   ReceivedLn:=ClientSocket.Receiveln;

   i := Pos('#', ReceivedLn);

   ReceivedKind := Copy(ReceivedLn, 1, Pred(i));

   if (ReceivedKind = 'OpenGame') then (...)

   if (ReceivedKind = 'GameFiles') then

     begin

        ClientSocket.ReceiveBuf(AFiles,sizeof(AFiles));

        UpdateGame(AFiles); //das Problem ist, ich kann AFiles nicht gleich überprüfen, weil bei den überprüften Ausdrücken immer steht 'nicht verfügbarer Wert'. Wenn ich jedoch CheckSign beim Senden absolut definiere, kann ich hier per Ausdrucksüberprüfung zugreifen

        exit;

     end;

   if (ReceivedKind = 'Info') then (...);

end;

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TBoardForm.UpdateGame(FFiles: RSendFiles);

var

  AWhite: Boolean;

begin

   AWhite:=not(UserWhite); //sobald das Programm diese Routine erreicht, kommt die Zugriffsverletzung und eben nur, wenn CheckSign > '' ist und ich es nicht absolut definiere

   CheckSign:=FFiles.CheckSign;

   DoEnPassant:=FFiles.DoEnPassant;

   EnPassant:=FFiles.EnPassant;

   MoveFigure(Field,FFiles.Src,FFiles.Dest,False,True,FFiles.DoCastle,AWhite,

     FFiles.NewFig);

   DoEnPassant:=False;

   { CheckSign überprüfen / Rückgabewert: Spiel aus (True / False) }

   if (CheckCheckSign(not(UserWhite)))

     then exit;

   ChangeTurn;

end;

*Verzweiflung*

Übertragungsfehler eines Strings (?)

Übertragungsfehler eines Strings (?)

Forumregeln