求教TNMFTP的问题
我用TNMFTP控件写FTP端如下
//设置参数并连接
ftp.Host:=120.23.12.28;
ftp.UserID:=cym;
ftp.Password:=123456;
ftp.Connect;
getdir();//获得文件
//getdir()含数是获取目录下的文件
procedure TForm1.getdir();
var
item:TListItem;
att,ss,name:string;
count1,i,a:integer;
begin
combobox2.Items.Clear;
combobox2.Items.Add('/');
ListView2.Items.Clear;
ftp.ParseList:=true;
ftp.list;
count1:=ftp.FTPDirectoryList.name.Count; //得到目录总信息
for i:=0 to count1-1 do
begin
name:=ftp.FTPDirectoryList.name.Strings[i];//获得目录文件名
att:=ftp.FTPDirectoryList.Attribute.Strings[i]; //获得文件属性
if (copy(pchar(att),1,1)='d')or(copy(pchar(att),1,1)='D') then combobox2.Items.Add(name) //是文件夹
else
begin
item:=listview2.Items.Add;
item.Caption:=name;
item.SubItems.Add(ftp.FTPDirectoryList.Size.Strings[i]);
item.SubItems.Add(ftp.FTPDirectoryList.ModifDate.Strings[i]);
item.SubItems.Add(ftp.FTPDirectoryList.Attribute.Strings[i]);
end;
上面的程序可以连接成功但成功后不能获得文件列表请问是什么原因
症状:
连接后用ftp.TransactionReply得到的返回信息是:230 user logged in,proceed
表示连接成功但获取不了文件,程序也结束了响应
另外请问如何获得FTP返回的信息比如欢迎信息等,向其他的FTP软件那样登陆时会返回很多的信息那末如何获得那ftp.TransactionReply获得的不多