TFileStream entre Client/Server

Question

J'essaye de créé un serveur FTP avec un TidFTPServer mais j'arrive pas a completer l'évenement OnRetrieveFile.
Voici les parametres de cette procedure: 

RetrieveFile(ASender: TIdFTPServerThread;
const AFileName: String; 
var VStream: TStream)

Voici ce que j'essaye : 

var
  F : TFileStream;
begin
  F := TFileStream.Create("Directory" + AFileName, 
         fmOpenRead);

  VStream.CopyFrom(F, F.Size);  //Ca marche pas !
    ou
  VStream.WriteBuffer(F, F.Size);// Ca marche pas non plus :(
  
  F.Free;
end;

Du coté client j'ai une erreur de lecture.
QQ'un peux t'il m'aider svp ??????????

Merci d'avance.

PyroBruno · Answer

ok g trouver, je me prennais la tête.

procedure TForm1.IdFTPServer1RetrieveFile(ASender: TIdFTPServerThread;
  const AFileName: String; var VStream: TStream);
begin
  VStream := TFileStream.Create(AFileName,fmOpenRead);
end;

voila ca px tjs servire a qq'un d'autre.

++

TFileStream entre Client/Server

1 réponse

Votre réponse

Discussions similaires