Newsgroups : Borland : borland.public.delphi.internet.winsock : 2007 Feb : TidFTPServer download onWork?

www.cryer.info
Managed Newsgroup Archive

TidFTPServer download onWork?

Subject:TidFTPServer download onWork?
Posted by:"Frankie" (frankjohnsson20..@yahoo.se)
Date:Wed, 28 Feb 2007 13:50:42

Hi!

Playing around with code to understand Indy better...so itīs not
"production code stable".

Here a thread asks to download a file:

procedure TfrmMain.ftpserverRetrieveFile(ASender: TIdFTPServerContext;
   const AFileName: String; var VStream: TStream);
begin
try
VStream := TFileStream.Create(AppDir+'\'+AFilename,fmOpenRead and
fmShareDenyWrite);
except
raise exception.Create( 'File not available '+AFilename);
end;
end;

Checked my FTP Client log and i couldnīt see any "Download finshed"
message sent to the server. So how does TidFTPServer know that the
thread has finsihed itīs download?

How do i look for that? Would be great if i could from my server detect
how much percent it is to download from that thread...like an OnWork
event or something?

Can someone please show me some code or demo so i can examine it?

Thanx in advance
Frankie

Replies:

www.cryer.info
Managed Newsgroup Archive