Client&Server Socket "grosse Records" versenden

[defede]

Heureka , sind nicht nur Orte in USA und UK
sondern auch ein Ausdruck "Hurra ich habs!!!"

Muetze sei dank

Am schönsten ist ein Herausfoderung wenn se gelöst ist, also
der Thread kann geschlossen werden und hier meine Lösung, ich werde
das alles noch optimieren - aber es funzt schonmal.

Delphi-Quellcode:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  iMessLength : Integer;
  iMax        : Integer;
  aMess       : TClientList; //Das grosse Array[0..7] of TRecord
  nachricht   : TClientList;
  iLength     : Integer;
begin
  iMax := SizeOf(aDB.oClientList);
  if(aMemStream.Size <> SizeOf(TClientList))then begin
    aMemStream.Size := SizeOf(TClientList); //nur wenn nötig. 
  end;
  iLength := Socket.ReceiveLength;
  iMessLength := Socket.ReceiveBuf(nachricht,iLength); //daten ausm Buffer holen
  self.Memo1.Lines.Add('Buffer bei: '+IntToStr(aMemStream.Position)+'/'+IntToStr(iLength)); //Protokoll

  //Alle Daten sind da!
  iDerEmpfangen := iDerEmpfangen + iMessLength;
  if(iDerEmpfangen >= iMax)then begin
    //Das Letzte mal wegschreiben
    aMemStream.Write(nachricht,iLength);

    //zum Anfang und Read
    aMemStream.Seek(0,soFromBeginning);
    aMemStream.ReadBuffer(aMess,SizeOf(aMess));
    self.Memo1.Lines.Add(aMess[0].sClient_Name_PC);
    self.Memo1.Lines.Add(aMess[0].oClientRaceData.sRace_Countryname);

    self.Memo1.Lines.Add(aMess[3].sClient_Name_PC);
    self.Memo1.Lines.Add(aMess[3].oClientRaceData.sRace_Countryname);

    self.Memo1.Lines.Add(aMess[7].sClient_Name_PC);
    self.Memo1.Lines.Add(aMess[7].oClientRaceData.sRace_Countryname);

    //Delete um nächsten Input auswerten zu können...
    aMemStream.Clear;
    iDerEmpfangen := 0;
  end else begin
    aMemStream.Write(nachricht,iLength);
  end;
end;
(* > Getestet auf WinXP mit Delphi7 - Server&Client Socket Komponente < *)

vll wird jemand eines Tages vor dem gleichen Problem stehen. Records versenden ist einfach, aber nicht wenn Sie diese Grösser als BufferSize sind.