Thema: Delphi stream per TWinsocket

Einzelnen Beitrag anzeigen

Benutzerbild von glkgereon
glkgereon

Registriert seit: 16. Mär 2004
2.287 Beiträge
 
#1

stream per TWinsocket

  Alt 21. Sep 2004, 15:15
hi, ich möchte eine datei einlesen und per twinsocket versenden

dazu wollte ich tstream nehmen

also ich hab das bisher so in etwa:
(buftype gibt an was kommt)

Delphi-Quellcode:
if ClientSocket.RecieveBuf(temp, sizeof(temp))<>-1
then begin
     if buftype = liConnections //sendlist
     then Recievelist
     else if buftype = liFileList
     then recievefilelist
     else if buftype = liFile //sendfile
     then recievefile;
aber was muss ich jetzt in recievefile reinschreiben?

so in etwa geht das ja mit senden:

Delphi-Quellcode:
str:TStream;
begin
str:=TStream.Create;
str.LoadFromFile(Dateiname);
ServerSocket.Socket.SendBuf(str);
und dann beim empfangen das von oben

das problem: tstream hat kein loadfromfile/savetofile..

oder hat einer einen anderen vorschlag (ausser tstream)?
weiss einer wie ich mit tstream umgehe?
versende ich das so, wie oben angegeben?
»Unlösbare Probleme sind in der Regel schwierig...«
  Mit Zitat antworten Zitat