D
dshjj
Unregistered / Unconfirmed
GUEST, unregistred user!
我在使用IDFTP进行连接的时候老是出现这个异常,急死了啊!
unknown FTP listing format
我不知道问题出现在什么地方,请各位高手指导!
我的程序为:
function Tfrmjczl.GetFTPConnect : Boolean;
var
Getini: TIniFile;
AFileName: String;
begin
Result:= False;
try
try
if not ftp_jc.Connected then
begin
AFileName:= ExtractFilePath(GetModuleName(HInstance))
+ 'SYSCFG/SYS.ini';
Getini:= TIniFile.Create(AFileName);
ftp_jc.Username:= Getini.ReadString('FTP', 'UserName', '');
ftp_jc.Password:= Getini.ReadString('FTP', 'Password', '');
ftp_jc.Host:= Getini.ReadString('FTP', 'Host', '');
ftp_jc.Connect;
Result:= True;
end else Result:= True;
Except
On E: Exception Do
begin
Result:= False;
ShowMessage('出现异常' + e.Message);
end;
end;
Finally
Getini.Free;
end;
end;
SYS.ini文件中的内容为
[FTP]
Host=202.111.120.2
Username=anonymous
Password=anonymous
怎么解决啊?很急啊!
unknown FTP listing format
我不知道问题出现在什么地方,请各位高手指导!
我的程序为:
function Tfrmjczl.GetFTPConnect : Boolean;
var
Getini: TIniFile;
AFileName: String;
begin
Result:= False;
try
try
if not ftp_jc.Connected then
begin
AFileName:= ExtractFilePath(GetModuleName(HInstance))
+ 'SYSCFG/SYS.ini';
Getini:= TIniFile.Create(AFileName);
ftp_jc.Username:= Getini.ReadString('FTP', 'UserName', '');
ftp_jc.Password:= Getini.ReadString('FTP', 'Password', '');
ftp_jc.Host:= Getini.ReadString('FTP', 'Host', '');
ftp_jc.Connect;
Result:= True;
end else Result:= True;
Except
On E: Exception Do
begin
Result:= False;
ShowMessage('出现异常' + e.Message);
end;
end;
Finally
Getini.Free;
end;
end;
SYS.ini文件中的内容为
[FTP]
Host=202.111.120.2
Username=anonymous
Password=anonymous
怎么解决啊?很急啊!