TFileStream entre Client/Server

PyroBruno
Messages postés
51
Date d'inscription
mardi 26 mars 2002
Statut
Membre
Dernière intervention
17 décembre 2005
- 7 févr. 2004 à 15:40
PyroBruno
Messages postés
51
Date d'inscription
mardi 26 mars 2002
Statut
Membre
Dernière intervention
17 décembre 2005
- 8 févr. 2004 à 09:51
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.

1 réponse

PyroBruno
Messages postés
51
Date d'inscription
mardi 26 mars 2002
Statut
Membre
Dernière intervention
17 décembre 2005

8 févr. 2004 à 09:51
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.

++
0