while true do
begin
try
NMFTP1.Mode(MODE_ASCII);
NMFTP1.Download (FtpFileName,ldir+FtpFileName);
NMFTP1.Delete (FtpFileName);
except
GetFtpFile := False;
end;
FtpFileName=...
end;
begin
try
NMFTP1.Mode(MODE_ASCII);
NMFTP1.Download (FtpFileName,ldir+FtpFileName);
NMFTP1.Delete (FtpFileName);
except
GetFtpFile := False;
end;
FtpFileName=...
end;
你试着:
NMFTP1.Mode(MODE_ASCII);
NMFTP1.Connect;
while true do
begin
try
NMFTP1.Download (FtpFileName,ldir+FtpFileName);
NMFTP1.Delete (FtpFileName);
except
GetFtpFile := False;
end;
FtpFileName=...
end;
你可以把源码粘贴出来吗?或者发给我[email protected]