FTP - NMFTP
11/04/2003
0
nao estou conseguindo colher o número de arquivos do diretorio listado... sempre o ´NMFTP1.FTPDirectoryList.name.Count´ me retorna zero alguem pode me ajudar - Delphi 6?
O código é o seguinte:
procedure TForm1.Button1Click(Sender: TObject);
begin
with NMFTP1 do begin
Host := ´200.225.200.200´;
UserID := ´user´;
Password := ´pass´;
Port := 21;
ParseList := true;
Connect;
ChangeDir(´diretorio´);
List;
end;
end;
procedure TForm1.NMFTP1Success(Trans_Type: TCmdType);
begin
if Trans_Type = cmdList then
ShowMessage(intTostr(NMFTP1.FTPDirectoryList.name.Count));
end;
end.
O código é o seguinte:
procedure TForm1.Button1Click(Sender: TObject);
begin
with NMFTP1 do begin
Host := ´200.225.200.200´;
UserID := ´user´;
Password := ´pass´;
Port := 21;
ParseList := true;
Connect;
ChangeDir(´diretorio´);
List;
end;
end;
procedure TForm1.NMFTP1Success(Trans_Type: TCmdType);
begin
if Trans_Type = cmdList then
ShowMessage(intTostr(NMFTP1.FTPDirectoryList.name.Count));
end;
end.
Svaz
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)