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.
