Link to home
Start Free TrialLog in
Avatar of Grant Fullen
Grant Fullen

asked on

idFTP download Progress Bar , Mutiple Files.

Is there any expers here that has got idftp download progress bar to work if so.

I need to be able to donwnload and upload mutiple files IdFTP and show a progress for each one.
I just need some working code to do these things

Please help also in this questions
https://www.experts-exchange.com/questions/23317604/Indy-10-delphi-2007-progressbar-and-pdf-problem.html 

https://www.experts-exchange.com/questions/23280792/Browse-for-folder-and-indy-Idftp-get-problem.html 

(edited by kretzschmar / ZoneAdvisor / DelphiTopic)
ASKER CERTIFIED SOLUTION
Avatar of Geert G
Geert G
Flag of Belgium image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Grant Fullen
Grant Fullen

ASKER

Very nice work. The Put code works perfect. I like the meme and the status code.
THe get code throughs a List index out of bounds(0)...
Good work so far
if you want to test use
IP=72.52.255.82
User= mer@codingdynsmics.com
pass= mer
it gets this in memo.

Status 0 Count: Resolving hostname ftp.codingdynamics.com.
Status 1 Count: Connecting to 72.52.255.82.
Status 2 Count: Connected.
Status 7 Count: Connection established
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 0
Work end 0
Status 7 Count: Transfer complete
I just testid it with 1 file.
You need to list that 1 file and see what you get in the memo as format

or try this for button3

didn't run this in Delphi, so there might be errors

procedure TForm1.Button3Click(Sender: TObject);
var List: TStrings;
  I: Integer; 
  FileName: string;
begin
  idFtp1.Connect;
  List := TStringList.Create;
  try
    IdFTP1.List(List);
    Memo1.Lines.AddStrings(List);
    for I := 0 to List.Count - 1 do
    begin
      fDownloadBytes := StrToInt(Trim(Copy(List[I], 34, 10)));
      Memo1.Lines.Add(IntToStr(fDownloadBytes) + ' bytes');
      FileName := ReverseString(Trim(List[I]));
      FileName := ReverseString(Copy(FileName, 1, Pos(' ', FileName) - 1)); // This gets the filename at the end -- Reversestring turns the string around 
      idFtp1.Get(FileName, 'C:\Temp\', True);
    end;
    // this gets all the files from the root
  finally
    List.Free;
  end;
  IdFTP1.Disconnect;
end;

Open in new window

Thx for the test, but i have my websites, wouldn't want to mess things up on yours
btw i would delete your ftp site info, never know who uses it for their own mallpractices
Thaks the frp is just a test account.:)
ok here it is.

Status 0 Count: Resolving hostname ftp.codingdynamics.com.
Status 1 Count: Connecting to 72.52.255.82.
Status 2 Count: Connected.
Status 7 Count: Connection established
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 0
Work 0 Count: 2078
Work end 0
Status 7 Count: Transfer complete
-rw-r--r--    1 codingdy codingdy    30143 Apr 13 19:20 - Estimate # A0-42189-GF LOOK OVER SHERRY.pdf
drwxr-xr-x    7 codingdy codingdy     4096 Apr 17 23:08 .
drwxr-xr-x    7 codingdy codingdy     4096 Apr 17 23:08 ..
-rw-------    1 codingdy codingdy       11 Apr  6 02:16 .ftpquota
drwxr-xr-x    2 codingdy codingdy     4096 Mar 31 18:34 A0-40011-GF
drwxr-xr-x    2 codingdy codingdy     4096 Mar 31 14:50 A0-40022-GF
drwxr-xr-x    2 codingdy codingdy     4096 Mar 31 14:50 A0-40033-GF
drwxr-xr-x    2 codingdy codingdy     4096 Apr 11 11:36 A0-40044-GF
-rw-r--r--    1 codingdy codingdy  2374540 Apr 12 13:48 Complted Estimate.pdf
-rw-r--r--    1 codingdy codingdy   467336 Apr 13 19:24 DelphiSpeedUpV273.zip
-rw-r--r--    1 codingdy codingdy    71680 Apr 13 19:16 Expense report.doc
-rw-r--r--    1 codingdy codingdy  3122812 Apr 13 19:27 FileZilla_3.0.8.1_win32-setup.exe
-rw-r--r--    1 codingdy codingdy  6026816 Apr 17 23:08 Firefox Setup 2.0.0.11.exe
-rw-r--r--    1 codingdy codingdy 15452536 Apr 13 12:59 IE7-WindowsXP-x86-enu.exe
-rw-r--r--    1 codingdy codingdy  2829952 Apr 14 22:22 Joomla_1.0.15-Stable-Full_Package.zip
drwxr-xr-x    2 codingdy codingdy     4096 Apr 10 20:15 New Folder
-rw-r--r--    1 codingdy codingdy    95657 Apr 13 19:12 North.jpg
-rw-r--r--    1 codingdy codingdy  1181184 Apr 13 19:33 Share.exe
-rw-r--r--    1 codingdy codingdy   185962 Apr 13 19:27 TaxCut.pdf
-rw-r--r--    1 codingdy codingdy     8290 Apr 13 15:22 Untitled-2.gif
-rw-r--r--    1 codingdy codingdy    25088 Apr 13 15:06 aero_contest_release_form.doc
-rw-r--r--    1 codingdy codingdy    57757 Apr 13 20:17 crest.gif
-rw-r--r--    1 codingdy codingdy     2715 Apr 13 15:17 flyspray.conf.php
-rw-r--r--    1 codingdy codingdy       62 Apr 13 19:24 megan.txt
-rw-r--r--    1 codingdy codingdy   174311 Apr 10 21:15 photos.zip
-rw-r--r--    1 codingdy codingdy     6688 Apr 13 15:15 sergio-logo3.jpg
-rw-r--r--    1 codingdy codingdy   132965 Apr 13 15:09 solutions4business.zip
-rw-r--r--    1 codingdy codingdy      512 Apr 13 18:29 test.jpg
30143 bytes
Status 6 Count: Starting FTP transfer
Status 8 Count: Transfer aborted
Well it looks like we still need to dig in the results ...
Just a minute let me set things up
at first glance, it looks like a line beginning with d is a directory ...
After feedind my daughter at 5.30am i came up with this result ...

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdFTP, IdFTPList;
 
type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    ProgressBarDownload: TProgressBar;
    ProgressBarUpload: TProgressBar;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
      const AStatusText: String);
    procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    fDownloadBytes: Int64;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  idFtp1.Connect;
  idFtp1.Put('D:\Websites\veerle_en_geert\images\emma2.jpeg', 'emma2.jpeg');
  IdFTP1.Disconnect;
end;
 
procedure TForm1.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
begin
  Memo1.Lines.Add('Status ' + IntToStr(Integer(AStatus)) + ' Count: ' + AStatusText);
end;
 
procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
var pb: TProgressBar;
begin
  Memo1.Lines.Add('Work ' + IntToStr(Integer(AWorkMode)) + ' Count: ' + IntToStr(AWorkCount));
  pb := ProgressBarUpload;
  if AWorkMode = wmRead then
    pb := ProgressBarDownload;
  pb.Position := AWorkCount;
end;
 
procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
var pb: TProgressBar;
  aMax: Integer;
begin
  pb := ProgressBarUpload;
  aMax := AWorkCountMax;
  if AWorkMode = wmRead then
  begin
    pb := ProgressBarDownload;
    AMax := fDownloadBytes;
  end;
  pb.Position := 0;
  pb.Max := AMax;
  Memo1.Lines.Add('Work begin ' + IntToStr(Integer(AWorkMode)) + ' Max: ' + IntToStr(AMax));
end;
 
procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
var pb: TProgressBar;
begin
  Memo1.Lines.Add('Work end ' + IntToStr(Integer(AWorkMode)));
  pb := ProgressBarUpload;
  if AWorkMode = wmRead then
    pb := ProgressBarDownload;
  pb.Position := pb.Max;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var List: TStrings;
 
begin
  idFtp1.Connect;
  List := TStringList.Create;
  try
    IdFTP1.List(List, 'emma2.jpeg');
    Memo1.Lines.AddStrings(List);
    fDownloadBytes := StrToInt(Trim(Copy(List[0], 34, 10)));
    Memo1.Lines.Add(IntToStr(fDownloadBytes) + ' bytes');
    idFtp1.Get('emma2.jpeg', 'D:\Websites\veerle_en_geert\images\emma2.jpeg', True);
  finally
    List.Free;
  end;
  IdFTP1.Disconnect;
end;
 
 
 
procedure TForm1.Button3Click(Sender: TObject);
const
  ditTypes: array[TIdDirItemType] of string = ('Dir', 'File', 'Link');
var List: TStrings;
  I: Integer;
  FileName: string;
begin
  idFtp1.Connect;
  List := TStringList.Create;
  try
    IdFTP1.List(List);
    Memo1.Lines.AddStrings(List);
    Memo1.Lines.Add('Ftp directory listing');
    for I := 0 to IdFTP1.DirectoryListing.Count-1 do
    begin
      Memo1.Lines.Add(Format('Type: %4.4s; Size: %10.10d -- FileName: %s', [ditTypes[IdFTP1.DirectoryListing.Items[I].ItemType], IdFTP1.DirectoryListing.Items[I].Size, IdFTP1.DirectoryListing.Items[I].FileName]));
      case IdFTP1.DirectoryListing.Items[I].ItemType of
        ditDirectory:
        begin
          // parse directory
        end;
        ditFile:
        begin
          fDownloadBytes := IdFTP1.DirectoryListing.Items[I].Size;
          FileName := IdFTP1.DirectoryListing.Items[I].FileName;
          idFtp1.Get(FileName, 'D:\Temp\' + FileName, True);
        end;
      end;
    end;
    // this gets all the files from the root
  finally
    List.Free;
  end;
  IdFTP1.Disconnect;
end;
 
end.

Open in new window

Ok I thaks for letting me konw that. I was simply stating there was 3 questions that needed answerd and that that was x ammount of points at steak for ever who answerd them.
ok i am down to this.

[DCC Error] Unit5.pas(80): E2072 Number of elements (3) differs from declaration (8)
[DCC Error] Project3.dpr(5): F2063 Could not compile used unit 'Unit5.pas'

It crashes on the line below.

const
  ditTypes: array[TIdDirItemType] of string = ('Dir', 'File', 'Link');
Ok I added     IdAllFTPListParsers   To the uses clause and butto3 works It downloads all files in the directory........ Now if i can just get it to get 1 file.
Hers What i did i had to modify the const to get it to work.......
procedure TForm5.Button3Click(Sender: TObject);
const
  ditTypes: array[TIdDirItemType] of string = ('Dir', 'File', 'Link','','','','','');
var List: TStrings;
  I: Integer;
  FileName: string;
begin
  idFtp1.Connect;
  List := TStringList.Create;
  try
    IdFTP1.List(List);
    Memo1.Lines.AddStrings(List);
    Memo1.Lines.Add('Ftp directory listing');
    for I := 0 to IdFTP1.DirectoryListing.Count-1 do
    begin
      Memo1.Lines.Add(Format('Type: %4.4s; Size: %10.10d -- FileName: %s', [ditTypes[IdFTP1.DirectoryListing.Items[I].ItemType], IdFTP1.DirectoryListing.Items[I].Size, IdFTP1.DirectoryListing.Items[I].FileName]));
      case IdFTP1.DirectoryListing.Items[I].ItemType of
        ditDirectory:
        begin
          // parse directory
        end;
        ditFile:
        begin
          fDownloadBytes := IdFTP1.DirectoryListing.Items[I].Size;
          FileName := 'Firefox Setup 2.0.0.11.exe';
          idFtp1.Get(FileName, 'C:\Temp\' + FileName, True);
        end;
      end;
    end;
    // this gets all the files from the root
  finally
    List.Free;
  end;
  IdFTP1.Disconnect;
 
 
end;

Open in new window

Now Notice I changed Filename:=' the test exe on my server.'  it will download just the 1 file but I goes through the same process of downloading all the files.
 ANd the progressbar works fine for each file but its doing all of them.

Status 0 Count: Resolving hostname ftp.codingdynamics.com.
Status 1 Count: Connecting to 72.52.255.82.
Status 2 Count: Connected.
Status 7 Count: Connection established
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 0
Work 0 Count: 1907
Work end 0
Status 7 Count: Transfer complete
drwxr-xr-x    7 codingdy codingdy     4096 Apr 18 16:18 .
drwxr-xr-x    7 codingdy codingdy     4096 Apr 18 16:18 ..
-rw-------    1 codingdy codingdy       11 Apr  6 02:16 .ftpquota
drwxr-xr-x    2 codingdy codingdy     4096 Mar 31 18:34 A0-40011-GF
drwxr-xr-x    2 codingdy codingdy     4096 Mar 31 14:50 A0-40022-GF
drwxr-xr-x    2 codingdy codingdy     4096 Mar 31 14:50 A0-40033-GF
drwxr-xr-x    2 codingdy codingdy     4096 Apr 11 11:36 A0-40044-GF
-rw-r--r--    1 codingdy codingdy  2374540 Apr 12 13:48 Complted Estimate.pdf
-rw-r--r--    1 codingdy codingdy   467336 Apr 13 19:24 DelphiSpeedUpV273.zip
-rw-r--r--    1 codingdy codingdy    71680 Apr 13 19:16 Expense report.doc
-rw-r--r--    1 codingdy codingdy  3122812 Apr 13 19:27 FileZilla_3.0.8.1_win32-setup.exe
-rw-r--r--    1 codingdy codingdy  1786344 Apr 18 16:18 Firefox Setup 2.0.0.11.exe
-rw-r--r--    1 codingdy codingdy 15452536 Apr 13 12:59 IE7-WindowsXP-x86-enu.exe
-rw-r--r--    1 codingdy codingdy  2829952 Apr 14 22:22 Joomla_1.0.15-Stable-Full_Package.zip
drwxr-xr-x    2 codingdy codingdy     4096 Apr 10 20:15 New Folder
-rw-r--r--    1 codingdy codingdy    95657 Apr 13 19:12 North.jpg
-rw-r--r--    1 codingdy codingdy  1181184 Apr 13 19:33 Share.exe
-rw-r--r--    1 codingdy codingdy     8290 Apr 13 15:22 Untitled-2.gif
-rw-r--r--    1 codingdy codingdy    25088 Apr 13 15:06 aero_contest_release_form.doc
-rw-r--r--    1 codingdy codingdy    57757 Apr 13 20:17 crest.gif
-rw-r--r--    1 codingdy codingdy     2715 Apr 13 15:17 flyspray.conf.php
-rw-r--r--    1 codingdy codingdy       62 Apr 13 19:24 megan.txt
-rw-r--r--    1 codingdy codingdy   174311 Apr 10 21:15 photos.zip
-rw-r--r--    1 codingdy codingdy     6688 Apr 13 15:15 sergio-logo3.jpg
-rw-r--r--    1 codingdy codingdy   132965 Apr 13 15:09 solutions4business.zip
-rw-r--r--    1 codingdy codingdy      512 Apr 13 18:29 test.jpg
Ftp directory listing
Type:  Dir; Size: 0000004096 -- FileName: .
Type:  Dir; Size: 0000004096 -- FileName: ..
Type: File; Size: 0000000011 -- FileName: .ftpquota
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 11
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type:  Dir; Size: 0000004096 -- FileName: A0-40011-GF
Type:  Dir; Size: 0000004096 -- FileName: A0-40022-GF
Type:  Dir; Size: 0000004096 -- FileName: A0-40033-GF
Type:  Dir; Size: 0000004096 -- FileName: A0-40044-GF
Type: File; Size: 0002374540 -- FileName: Complted Estimate.pdf
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 2374540
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0000467336 -- FileName: DelphiSpeedUpV273.zip
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 467336
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0000071680 -- FileName: Expense report.doc
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 71680
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0003122812 -- FileName: FileZilla_3.0.8.1_win32-setup.exe
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 3122812
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0001786344 -- FileName: Firefox Setup 2.0.0.11.exe
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 1786344
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0015452536 -- FileName: IE7-WindowsXP-x86-enu.exe
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 15452536
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0002829952 -- FileName: Joomla_1.0.15-Stable-Full_Package.zip
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 2829952
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type:  Dir; Size: 0000004096 -- FileName: New Folder
Type: File; Size: 0000095657 -- FileName: North.jpg
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 95657
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0001181184 -- FileName: Share.exe
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 1181184
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0000008290 -- FileName: Untitled-2.gif
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 8290
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0000025088 -- FileName: aero_contest_release_form.doc
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 25088
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0000057757 -- FileName: crest.gif
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 57757
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0000002715 -- FileName: flyspray.conf.php
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 2715
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0000000062 -- FileName: megan.txt
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 62
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0000174311 -- FileName: photos.zip
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 174311
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0000006688 -- FileName: sergio-logo3.jpg
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 6688
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0000132965 -- FileName: solutions4business.zip
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 132965
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Type: File; Size: 0000000512 -- FileName: test.jpg
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 512
Work 0 Count: 32768
Work 0 Count: 65536
Work 0 Count: 98304
Work 0 Count: 131072
Work 0 Count: 163840
Work 0 Count: 196608
Work 0 Count: 229376
Work 0 Count: 262144
Work 0 Count: 294912
Work 0 Count: 327680
Work 0 Count: 360448
Work 0 Count: 393216
Work 0 Count: 425984
Work 0 Count: 458752
Work 0 Count: 491520
Work 0 Count: 524288
Work 0 Count: 557056
Work 0 Count: 589824
Work 0 Count: 622592
Work 0 Count: 655360
Work 0 Count: 688128
Work 0 Count: 720896
Work 0 Count: 753664
Work 0 Count: 786432
Work 0 Count: 819200
Work 0 Count: 851968
Work 0 Count: 884736
Work 0 Count: 917504
Work 0 Count: 950272
Work 0 Count: 983040
Work 0 Count: 1015808
Work 0 Count: 1048576
Work 0 Count: 1081344
Work 0 Count: 1114112
Work 0 Count: 1146880
Work 0 Count: 1179648
Work 0 Count: 1212416
Work 0 Count: 1245184
Work 0 Count: 1277952
Work 0 Count: 1310720
Work 0 Count: 1343488
Work 0 Count: 1376256
Work 0 Count: 1409024
Work 0 Count: 1441792
Work 0 Count: 1474560
Work 0 Count: 1507328
Work 0 Count: 1540096
Work 0 Count: 1572864
Work 0 Count: 1605632
Work 0 Count: 1638400
Work 0 Count: 1671168
Work 0 Count: 1703936
Work 0 Count: 1736704
Work 0 Count: 1769472
Work 0 Count: 1786344
Work end 0
Status 7 Count: Transfer complete
Status 3 Count: Disconnecting.
Status 4 Count: Disconnected.
I been working with the regular get code. It will donwloaad now the file but. The file is corupt.
If i download all files with button 3 they are all good. Any ideals ?
procedure TForm5.Button2Click(Sender: TObject);
var List: TStrings;
 
begin
  idFtp1.Connect;
  List := TStringList.Create;
  try
    IdFTP1.List(List);
    Memo1.Lines.AddStrings(List);
    fDownloadBytes := StrToInt(Trim(Copy(List[0], 34, 10)));
    Memo1.Lines.Add(IntToStr(fDownloadBytes) + ' bytes');
    idFtp1.Get('Firefox Setup 2.0.0.11.exe', 'C:\Temp\Firefox Setup 2.0.0.11.exe', True);
  finally
    List.Free;
  end;
  IdFTP1.Disconnect;
 
 
 
end;

Open in new window

what do you mean with corrupted? How did you find this out?
is idFtp1 set to ascii or to binary?
I was checking out the files opening them all the ones thats button3 downloads are fine. But the one that the get  will not open says its corrupted. Its set to binary.
Ok this will download 1 file.
var List: TStrings;
 
begin
  idFtp1.Connect;
  List := TStringList.Create;
  try
    IdFTP1.List(List);
    Memo1.Lines.AddStrings(List);
    fDownloadBytes := StrToInt(Trim(Copy(List[0], 34, 10)));
    Memo1.Lines.Add(IntToStr(fDownloadBytes) + ' bytes');
    idFtp1.Get('/A0-40044-GF/TOTAL LOSS- Estimate A0-42788-GF Claim Number 39981.pdf', 'C:\Temp\TOTAL LOSS- Estimate A0-42788-GF Claim Number 39981.pdf', True);
  finally
    List.Free;
  end;
  IdFTP1.Disconnect;

Open in new window

This will download all the files in the dir.
const
  ditTypes: array[TIdDirItemType] of string = ('Dir', 'File', 'Link','','','','','');
   var List: TStrings;
  I: Integer;
  FileName: string;
begin
  idFtp1.Connect;
  List := TStringList.Create;
  try
    IdFTP1.List(List);
    Memo1.Lines.AddStrings(List);
    Memo1.Lines.Add('Ftp directory listing');
    for I := 0 to IdFTP1.DirectoryListing.Count-1 do
    begin
      Memo1.Lines.Add(Format('Type: %4.4s; Size: %10.10d -- FileName: %s', [ditTypes[IdFTP1.DirectoryListing.Items[I].ItemType], IdFTP1.DirectoryListing.Items[I].Size, IdFTP1.DirectoryListing.Items[I].FileName]));
      case IdFTP1.DirectoryListing.Items[I].ItemType of
        ditDirectory:
        begin
          // parse directory
        end;
        ditFile:
        begin
          fDownloadBytes := IdFTP1.DirectoryListing.Items[I].Size;
          FileName := IdFTP1.DirectoryListing.Items[I].FileName;
          idFtp1.Get(FileName, 'C:\Temp\' + FileName, True);
        end;
      end;
    end;
    // this gets all the files from the root
  finally
    List.Free;
  end;
  IdFTP1.Disconnect;
end;

Open in new window

Humm seems to be downloading but , I am testing with a 11meg file and the progresssbar is off it jups to 100 quick.
unit Unit6;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdFTPList, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ComCtrls, StdCtrls;
 
type
  TForm6 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    ProgressBarDownload: TProgressBar;
    ProgressBarUpload: TProgressBar;
    IdFTP1: TIdFTP;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
      const AStatusText: string);
    procedure IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
      AWorkCount: Integer);
    procedure IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
      AWorkCountMax: Integer);
    procedure IdFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
    procedure Button3Click(Sender: TObject);
  private
    fDownloadBytes: Int64;
 
  public
    { Public declarations }
  end;
 
var
  Form6: TForm6;
 
implementation
 
{$R *.dfm}
 
procedure TForm6.Button1Click(Sender: TObject);
var List: TStrings;
 
begin
  idFtp1.Connect;
  List := TStringList.Create;
  try
    IdFTP1.List(List);
    Memo1.Lines.AddStrings(List);
    fDownloadBytes := StrToInt(Trim(Copy(List[0], 34, 10)));
    Memo1.Lines.Add(IntToStr(fDownloadBytes) + ' bytes');
    idFtp1.Get('IE7-WindowsXP-x86-enu.exe', 'C:\Temp\IE7-WindowsXP-x86-enu.exe', True);
  finally
    List.Free;
  end;
  IdFTP1.Disconnect;
 
 
 
end;
 
procedure TForm6.Button2Click(Sender: TObject);
begin
 idFtp1.Connect;
  idFtp1.Put('D:\Websites\veerle_en_geert\images\emma2.jpeg', 'emma2.jpeg');
  IdFTP1.Disconnect;
end;
 
procedure TForm6.Button3Click(Sender: TObject);
const
  ditTypes: array[TIdDirItemType] of string = ('Dir', 'File', 'Link','','','','','');
var List: TStrings;
  I: Integer;
  FileName: string;
begin
  idFtp1.Connect;
  List := TStringList.Create;
  try
    IdFTP1.List(List);
    Memo1.Lines.AddStrings(List);
    Memo1.Lines.Add('Ftp directory listing');
    for I := 0 to IdFTP1.DirectoryListing.Count-1 do
    begin
      Memo1.Lines.Add(Format('Type: %4.4s; Size: %10.10d -- FileName: %s', [ditTypes[IdFTP1.DirectoryListing.Items[I].ItemType], IdFTP1.DirectoryListing.Items[I].Size, IdFTP1.DirectoryListing.Items[I].FileName]));
      case IdFTP1.DirectoryListing.Items[I].ItemType of
        ditDirectory:
        begin
          // parse directory
        end;
        ditFile:
        begin
          fDownloadBytes := IdFTP1.DirectoryListing.Items[I].Size;
          FileName := IdFTP1.DirectoryListing.Items[I].FileName;
          idFtp1.Get(FileName, 'D:\Temp\' + FileName, True);
        end;
      end;
    end;
    // this gets all the files from the root
  finally
    List.Free;
  end;
  IdFTP1.Disconnect;
end;
 
 
 
procedure TForm6.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: string);
begin
 Memo1.Lines.Add('Status ' + IntToStr(Integer(AStatus)) + ' Count: ' + AStatusText);
 
end;
 
procedure TForm6.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
var pb: TProgressBar;
begin
  Memo1.Lines.Add('Work ' + IntToStr(Integer(AWorkMode)) + ' Count: ' + IntToStr(AWorkCount));
  pb := ProgressBarUpload;
  if AWorkMode = wmRead then
    pb := ProgressBarDownload;
  pb.Position := AWorkCount;
 
 
end;
 
procedure TForm6.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
var pb: TProgressBar;
  aMax: Integer;
begin
  pb := ProgressBarUpload;
  aMax := AWorkCountMax;
  if AWorkMode = wmRead then
  begin
    pb := ProgressBarDownload;
    AMax := fDownloadBytes;
  end;
  pb.Position := 0;
  pb.Max := AMax;
  Memo1.Lines.Add('Work begin ' + IntToStr(Integer(AWorkMode)) + ' Max: ' + IntToStr(AMax));
 
 
end;
 
procedure TForm6.IdFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
var pb: TProgressBar;
begin
  Memo1.Lines.Add('Work end ' + IntToStr(Integer(AWorkMode)));
  pb := ProgressBarUpload;
  if AWorkMode = wmRead then
    pb := ProgressBarDownload;
  pb.Position := pb.Max;
 
 
end;
 
end.

Open in new window

Maybe change to progress with %

for the TIdDirItemType I added  IdFTPList to the uses clause
This only had 3 options
procedure TForm6.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
var pb: TProgressBar;
begin
  Memo1.Lines.Add('Work ' + IntToStr(Integer(AWorkMode)) + ' Count: ' + IntToStr(AWorkCount));
  pb := ProgressBarUpload;
  if AWorkMode = wmRead then
    pb := ProgressBarDownload;
  pb.Position := Round(AWorkCount / fDownloadByte * 100);
 
 
end;
 
procedure TForm6.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
var pb: TProgressBar;
  aMax: Integer;
begin
  pb := ProgressBarUpload;
  aMax := AWorkCountMax;
  if AWorkMode = wmRead then
  begin
    pb := ProgressBarDownload;
    AMax := fDownloadBytes;
  end else fDownLoadBytes := AWorkCountMax;
  pb.Position := 0;
  pb.Max := 100;
  Memo1.Lines.Add('Work begin ' + IntToStr(Integer(AWorkMode)) + ' Max: ' + IntToStr(AMax));
 
 
end;
 
procedure TForm6.IdFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
var pb: TProgressBar;
begin
  Memo1.Lines.Add('Work end ' + IntToStr(Integer(AWorkMode)));
  pb := ProgressBarUpload;
  if AWorkMode = wmRead then
    pb := ProgressBarDownload;
  pb.Position := pb.Max;
 
 
end;
 

Open in new window

It'll be till Monday, I have a full agenda this weekend ... playing golf
It seems to be geting the file but progressbar goes up to 100% right at the beging. The memo shows all is good . Just need to get the download progressbar working :)
You are downloading file with index 0 from the list and downloading a other file which is not on index 0 ...


Is this what you were looking for?Yes No
grantfullen:
Look at AMax i changed it to the correct size of the file that i am downloading and it woks fine. The problems seems to be that
fDownloadBytes := StrToInt(Trim(Copy(List[0], 34, 10)));  is geting the first line in list. The first line happens to be  4096 . I done a show message to see this. And i knew the file size of the file was 6029312 from looking at the memo log. SO I guess we need to compare the the filen size on the server to our list and make sure we get the correct file size. Right now it just gets the firs lines file size.

 Status 2 Count: Connected.
Status 7 Count: Connection established
Status 6 Count: Starting FTP transfer
Work begin 0 Max: 6029312  <====I added this and works
Work 0 Count: 995
Work end 0
Status 7 Count: Transfer complete
drwxr-xr-x    7 codingdy codingdy     4096 Apr 23 22:03 .
drwxr-xr-x    7 codingdy codingdy     4096 Apr 23 22:03 ..
-rw-------    1 codingdy codingdy       11 Apr  6 02:16 .ftpquota
drwxr-xr-x    2 codingdy codingdy     4096 Mar 31 18:34 A0-40011-GF
drwxr-xr-x    2 codingdy codingdy     4096 Mar 31 14:50 A0-40022-GF
drwxr-xr-x    2 codingdy codingdy     4096 Mar 31 14:50 A0-40033-GF
drwxr-xr-x    2 codingdy codingdy     4096 Apr 11 11:36 A0-40044-GF
-rw-r--r--    1 codingdy codingdy  2374540 Apr 12 13:48 Complted Estimate.pdf
-rw-r--r--    1 codingdy codingdy  LOOK HERE-->>>6029312 Apr 23 22:03 IE7-WindowsXP-x86-enu.exe
-rw-r--r--    1 codingdy codingdy  2829952 Apr 14 22:22 Joomla_1.0.15-Stable-Full_Package.zip
drwxr-xr-x    2 codingdy codingdy     4096 Apr 10 20:15 New Folder
-rw-r--r--    1 codingdy codingdy  1181184 Apr 13 19:33 Share.exe
-rw-r--r--    1 codingdy codingdy       62 Apr 13 19:24 megan.txt
-rw-r--r--    1 codingdy codingdy     6688 Apr 13 15:15 sergio-logo3.jpg
procedure TForm5.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
var pb: TProgressBar;
  aMax: Integer;
begin
  pb := ProgressBarUpload;
  aMax := AWorkCountMax;
  if AWorkMode = wmRead then
  begin
    pb := ProgressBarDownload;
    AMax := 6029312;
  end;
  pb.Position := 0;
  pb.Max := AMax;
  Memo1.Lines.Add('Work begin ' + IntToStr(Integer(AWorkMode)) + ' Max: ' + IntToStr(AMax));
  application.ProcessMessages;
end;

Open in new window

Hey i think you missed the most important part of the answers
with the below section you don't need to parse the memo ...

everything gets listed in IdFTP1.DirectoryListing
The number of items
  IdFTP1.DirectoryListing.Count

The size of each file is in
  IdFTP1.DirectoryListing.Items[I].Size

The filename of each file is in
  IdFTP1.DirectoryListing.Items[I].FileName

then
  fDownloadBytes := IdFTP1.DirectoryListing.Items[I].Size;
  FileName := IdFTP1.DirectoryListing.Items[I].FileName;
  idFtp1.Get(FileName, 'C:\Temp\' + FileName, True);

The memo approach was just a first test




IdFTP1.List(List);
    for I := 0 to IdFTP1.DirectoryListing.Count-1 do
    begin
      Memo1.Lines.Add(Format('Type: %4.4s; Size: %10.10d -- FileName: %s', [ditTypes[IdFTP1.DirectoryListing.Items[I].ItemType], IdFTP1.DirectoryListing.Items[I].Size, IdFTP1.DirectoryListing.Items[I].FileName]));
      case IdFTP1.DirectoryListing.Items[I].ItemType of
        ditDirectory:
        begin
          // parse directory
        end;
        ditFile:
        begin
          fDownloadBytes := IdFTP1.DirectoryListing.Items[I].Size;
          FileName := 'Firefox Setup 2.0.0.11.exe';
          idFtp1.Get(FileName, 'C:\Temp\' + FileName, True);
        end;
      end;
    end;

Open in new window

Thanks for Your Patience . Must be something i am missing from my uses claues.

[DCC Error] Unit5.pas(118): E2003 Undeclared identifier: 'ditTypes'
the unit you are missing is
IdFTPList
ditTypes: array[TIdDirItemType] of string = ('Dir', 'File', 'Link','','','','','');
Ok here is were i am now.
Error Floating Point Division By Zero
Any help much thanks.
procedure TForm5.Button4Click(Sender: TObject);
const
  ditTypes: array[TIdDirItemType] of string = ('Dir', 'File', 'Link','','','','','');
   var List: TStrings;
  I: Integer;
  FileName: string;
begin
  idFtp1.Connect;
  List := TStringList.Create;
  try
  IdFTP1.List(List);
    for I := 0 to IdFTP1.DirectoryListing.Count-1 do
    begin
      Memo1.Lines.Add(Format('Type: %4.4s; Size: %10.10d -- FileName: %s', [ditTypes[IdFTP1.DirectoryListing.Items[I].ItemType], IdFTP1.DirectoryListing.Items[I].Size, IdFTP1.DirectoryListing.Items[I].FileName]));
      case IdFTP1.DirectoryListing.Items[I].ItemType of
        ditDirectory:
        begin
          // parse directory
        end;
        ditFile:
        begin
          fDownloadBytes := IdFTP1.DirectoryListing.Items[I].Size;
          FileName := 'IE7-WindowsXP-x86-enu.exe';
          idFtp1.Get(FileName, 'C:\Temp\' + FileName, True);
        end;
      end;
      end;
    finally
    List.Free;
  end;
  IdFTP1.Disconnect;
end;
 
procedure Tform5.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);
begin
  Memo1.Lines.Add('Status ' + IntToStr(Integer(AStatus)) + ' Count: ' + AStatusText);
  Label1.Caption:=('Status' + inttostr(Integer(AStatus)) + 'Count: ' + AStatusText);
  application.ProcessMessages;
end;
 
procedure TForm5.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
var pb: TProgressBar;
begin
  Memo1.Lines.Add('Work ' + IntToStr(Integer(AWorkMode)) + ' Count: ' + IntToStr(AWorkCount));
  pb := ProgressBarUpload;
  if AWorkMode = wmRead then
    pb := ProgressBarDownload;
  pb.Position := Round(AWorkCount / fDownloadByte * 100);
 
end;
 
procedure TForm5.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
var pb: TProgressBar;
  aMax: Integer;
begin
  pb := ProgressBarUpload;
  aMax := AWorkCountMax;
  if AWorkMode = wmRead then
  begin
    pb := ProgressBarDownload;
    AMax := fDownloadBytes;
  end else fDownLoadBytes := AWorkCountMax;
  pb.Position := 0;
  pb.Max := 100;
  Memo1.Lines.Add('Work begin ' + IntToStr(Integer(AWorkMode)) + ' Max: ' + IntToStr(AMax));
 
end;
 
procedure TForm5.IdFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
var pb: TProgressBar;
begin
  Memo1.Lines.Add('Work end ' + IntToStr(Integer(AWorkMode)));
  pb := ProgressBarUpload;
  if AWorkMode = wmRead then
    pb := ProgressBarDownload;
  pb.Position := pb.Max;
 
 
 
end;
 
end.

Open in new window

the error floating point division by zero breaks here
  pb.Position := Round(AWorkCount / fDownloadByte * 100);

if fDownloadByte > 0 then
  pb.Position := Round(AWorkCount / fDownloadByte * 100);
// else nochange in pos or
// else pb.position := 0;

 
Does anything work yet ?
Or have you abandonned the application, or this message thread ?
Hey still looking to get it 100 percent working
If you have a complete working example post the complete sources for me to look at.
Thanks
Grant
eh ?
allready deleted everything

what problem do you still have ?