Running the following code seems to produce unexpected results with regards to the actual size of the download file from the source FTP site, the file downloads perfectly ,but..... The value
returns in "webcopy_EDI.Items[0].FileDetails[i].FileSizeLow.ToString" is either zero or a few bytes different from the actual downloaded size.
What are FileSizeLow and FileSizeHigh defined for ?
procedure TForm1.AdvGlowButton_FTPdirClick(Sender: TObject);
{************************************************************
*** F E T C H D I R OF F T P S I T E ****
*********************************************************}
var
i: integer;
tl : TListBoxItem;
begin
webcopy_EDI.Items.Clear;
with webcopy_EDI.Items.Add do
begin
FTPHost := K_FTPHost;
FTPUserID := K_FTPUserID;
FTPPassword := K_FTPPassword;
Protocol := wpFtpList;
TargetDir := K_TargetDir;
URL := '.'; // {. We want all files, or maybe *.txt ...whatever}
end;
webcopy_EDI.Execute;
AdvListBoxResults.Items.BeginUpdate;
AdvListBoxResults.Items.Clear;
for i := 0 to webcopy_EDI.Items[0].FileDetails.Count - 1 do
begin
if ((webcopy_EDI.Items[0].FileDetails[i].FileName <> '.') and
(webcopy_EDI.Items[0].FileDetails[i].FileName <> '..')) Then
Begin
tl := AdvListBoxResults.Items.Add;
tl.Text := webcopy_EDI.Items[0].FileDetails[i].FileName ;
MemoResults.Lines.Add(webcopy_EDI.Items[0].FileDetails[i].FileName + '(' +webcopy_EDI.Items[0].FileDetails[i].FileSizeLow.ToString +' Kb)');
tl.Checked := False;
End;
end;
AdvListBoxResults.Items.EndUpdate;
end;
Thanks, Loving the Webcopy component....absolutely brilliant...well done !!!