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
also bitte bringt ideen