Samle of code:
BoostFTPClient := TBoostFTPClient.Create;
with BoostFTPClient do
try
if AutoDetectAvalaunch > 0 then
begin
ConnectAvalaunch(0);
UploadQueue.AddFile('D:\My Documents\My Videos\Trailers\Dawn_of_the_Dead_720.wmv', 'f:\');
UploadQueue.AddFile('D:\My Documents\My Videos\Trailers\The_Punisher_720.wmv', 'f:\');
DownloadQueue.AddFileWithSize('f:\Dawn_of_the_Dead_720.wmv', 132830091,'d:\');
DownloadQueue.AddFileWithSize('f:\The_Punisher_720.wmv', 173541412, 'd:\');
if (Sender = btnUpload) then
begin
if UploadQueue.ProcessQueue then
showmessage('Done uploading!');
end
else if (Sender = btnDownload) then
begin
if DownloadQueue.ProcessQueue then
showmessage('Done downloading!');
end
else if (Sender = btnAll) then
begin
if ProcessBothQueues then
showmessage('Done uploading and downloading!');
end;
end;
finally
Free;
end;
Easy to use, eh? <