bild versenden über twinsocket

[Karg]

hi ich hab folgendes problem:

ich will ein bild über twinsocket vom client zum server senden:

das funktioniert auch so einigermaßen. Das bedeutet die daten werden übertragen, aber der stream weiß nicht wann das bild fertig ist. Deswegen hab ich versucht per sendtext vor dem versenden des streams die Größe der datei zu übermitteln.

Und jetzt komm ich zu meinem Problem:
irgendwie unterscheidet der server nicht ob ein string per sendtext oder ein stream per sendstream übermittelt wird.Deswegen bringt er andauernd fehlermeldungen, weil er wahrscheinlich den stream in die integervariable speichern will.

aber schaut es euch selber an :

Delphi-Quellcode:

//client:
senden:=Tfilestream.create('c:\windows\screen_neu.jpg',fmopenread);

form1.clientsocket1.Socket.SendText(inttostr(senden.size));

form1.ClientSocket1.Socket.SendStream(senden);


//server:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
              var              
                  buffer:pointer;
                  i:integer;
                  filesize:longint;              


begin
filesize:=strtoint(socket.receivetext);

i:=socket.ReceiveLength;
getmem(buffer,i);
  try
     socket.ReceiveBuf(buffer^,i);
     input_bild.WriteBuffer(buffer^,i);

  finally
         freemem(buffer);
      end;
      
if input_bild.size = filesize
   then begin
         input_bild.Free;
        end;

ich hoffe ihr könnte mir helfen. Ich bin gerade echt am verzweifeln, weil ich es seit 3 tagen schon versuche :D
also bitte bringt ideen

[Apollonius]

Du solltest die Größe als int64 und nicht als string senden. Der String hat nämlich nicht immer die gleiche Größe.
Außerdem musst du die Filesize global machen. Der Stream wird nämlich nicht unbedingt in einem Rutsch versandt, deshalb musst du am Anfang der onClientRead Routine prüfen, ob die Filesize Null ist (dann wird nämlich eine neue Übertragung angefangen), dann musst du die Filesize einlesen, und andernfalls beginnst du direkt mit dem Einlesen des Streams. Am Ende prüfst du, ob die Größe des Streams gleich Filesize ist: Wenn ja, musst du die Streamdaten verwenden, in deinem Fall also meinBild.loadfromStream oder wie auch immer die Methode heißt, außerdem die Filesize auf 0 setzen und deinen Stream Freigeben und einen neuen erzeugen, falls du vorhast, ein weiteres Bild zu übertragen.
Hoffe, geholfen zu haben
Apollonius