Problem TMemoryStream ( envoi fichier par socket )

Question

salut a tous je suis entrain de creer un explorateur online . quon j'essai de telecharger un fichier de petit taille (300) mo normal pas de problem mais quon j'envoi avec une grand taille (1500 mo) la c'est le problem  erreur : Mémoire insuffisant lors de l'extension du flux mémoire 

Code : 
     ms:= TMemoryStream.Create;
     try
      ms.LoadFromFile('MonGranFichier.exe');
      ms.Position:= 0;
      Socket.SendText(IntToStr(ms.Size) + #0);
      Socket.SendStream(ms);
    except
      ms.Free;
    end;

Aide Moi S.v.p

f0xi · Answer

utilise un TFileStream!

<hr size="2" width="100%" />

Bacterius · Answer

Petite taille = 300 Mo ! Ben dis donc tu n'y vas pas de main morte ! oO"
Sinon TFileStream a été fait pour les fichiers, il descend de TStream (comme TMemoryStream), donc utilise ce qui est fait pour ça !

Cordialement, Bacterius !

f0xi · Answer

var
  FS : TFileStream;
begin
  FS := TFileStream.Create('MonGranFichier.exe', fmOpenRead);
  try 
    FS.Position := 0; 
    Socket.SendText(IntToStr(FS.Size) + #0);

    Socket.SendStream(FS); 
  finally 
    FS.Free; 
  end; 
end;

<hr size="2" width="100%" />

cs_bazbazus · Answer

salut a tous j'ai essai avec le TfileStream oui il envoi des fichier grand taille (1.8 go lol) mais le problème est dans la réception . le fichier s'arrêter de télécharger regarder : 

  private
    Reciving: boolean;
    DataSize: integer;
    Data: TMemoryStream;

ClientRead : 

  if not Reciving then
  begin
    SetLength(sl, StrLen(PChar(s))+1); 
    StrLCopy(@sl[1], PChar(s), Length(sl)-1);
    DataSize:= StrToInt(sl);
    Data:= TMemoryStream.Create;
    Delete(s, 1, Length(sl));
    Reciving:= true;
   end;
   try
    Data.Write(s[1], length(s));
    if Data.Size = DataSize then
    begin
      Data.Position:= 0;
           data.SaveToFile('Mon fichier.exe');
      Data.Free;
      Reciving:= false;
    end;
  except
    Data.Free;
  end;

comment puis fair la réception avec un Tfilestream ? merci

Bacterius · Answer

[HS]

On dit "Receiving" en anglais :)

/HS

Cordialement, Bacterius !

Problem TMemoryStream ( envoi fichier par socket )

5 réponses

Votre réponse

Discussions similaires