用TNMFTP控件出现问题,请高手指点,在线等,谢谢!!急急急...!!

Question

我在用TNMFTP控件时,其控件自带的方法List调用有时成功,但有时会死在那不响应.
例如:
procedure TForm1.btRefreshClick(Sender: TObject);
begin
  if NMFTP1.Connected then
    NMFTP1.Nlist;
end;procedure TForm1.btChangeDirClick(Sender: TObject);
begin
  if NMFTP1.Connected then
    NMFTP1.ChangeDir('/home/user1/serv');
end;procedure TForm1.NMFTP1Success(Trans_Type: TCmdType);
var
  i           : Integer;
  itemFileCol : TListItem;
begin
  case Trans_Type of
    cmdList:
    begin
      lv_Remote.Items.Clear; 
      lblCnt.Caption := '0';
      for I := 0 to (NMFTP1.FTPDirectoryList.name.Count - 1) do
      begin
        if  NMFTP1.FTPDirectoryList.name[I] <> '' then
        begin
          itemFileCol := lv_Remote.Items.Add;
          itemFileCol.Caption := NMFTP1.FTPDirectoryList.name[I];
          itemFileCol.SubItems.Add(NMFTP1.FTPDirectoryList.Size[I]+' BT');
          itemFileCol.SubItems.Add(NMFTP1.FTPDirectoryList.ModifDate[I]);
          itemFileCol.SubItems.Add(NMFTP1.FTPDirectoryList.Attribute[I]);
        end;
      end;
    end;
    cmdNList:
    begin       
      lv_Remote.Items.Clear;
      lblCnt.Caption := '0';
      for I := 0 to (NMFTP1.FTPDirectoryList.name.Count - 1) do
      begin
        if  NMFTP1.FTPDirectoryList.name[I] <> '' then
        begin
          itemFileCol := lv_Remote.Items.Add;
          itemFileCol.Caption := NMFTP1.FTPDirectoryList.name[I];
          itemFileCol.SubItems.Add(NMFTP1.FTPDirectoryList.Size[I]+' BT');
          itemFileCol.SubItems.Add(NMFTP1.FTPDirectoryList.ModifDate[I]);
          itemFileCol.SubItems.Add(NMFTP1.FTPDirectoryList.Attribute[I]);
        end;
      end;
    end;
    cmdChangeDir:
    begin
      NMFTP1.FTPDirectoryList.Clear;
      NMFTP1.List;
    end;
  end;
end;我在点击btChangeDir按钮时,有时能把服务器上路径下内容读出来,有时就死在那不响应,跟进去时,到
procedure TForm1.NMFTP1Success(Trans_Type: TCmdType)函数里面死了
cmdChangeDir:
    begin
      NMFTP1.FTPDirectoryList.Clear;
      NMFTP1.List;
    end;
死锁的行是NMFTP1.List;
请问这是什么原因!???急,!在线等!!!,谢谢高手指点!!!!

Answer 1

都说了N次，不要再使用NM组件，唉～
用Indy！http://lysoft.7u7.net

Answer 2

...................888888888888888888888888 
...............8888:::8888888888888888888888888 
.............8888::::::8888888888888888888888888888 
............88::::::::888:::8888888888888888888888888 
..........88888888::::8:::::::::::88888888888888888888 
........888.8::888888::::::::::::::::::88888888888...888 
...........88::::88888888::::顶::::::::::88888888888....8 
.........888888888888888888:顶:::::::::::8888888888888 
........88888888888888888888::::::::::::顶88888888888888 
........8888888888888888888888:::::::::顶8888888888888888 
.........8888888888888888888888:::::::顶888888888888888888 
........8888888888888888::88888::::::顶88888888888888888888 
......88888888888888888:::88888:::::顶888888888888888...8888 
.....88888888888888888:::88888::::顶::;o*顶*o;888888888....88 
....88888888888888888:::8888:::::顶:::::::::::88888888....8 
...88888888888888888::::88::::::顶:;:::::::::::888888888 
..8888888888888888888:::8::::::顶::aaa::::::::顶8888888888.......8 
..88...8888888888::88::::8::::顶:::::::::::::888888888888888.8888 
.88..88888888888:::8:::::::::顶::::::::::;::88:88888888888888888 
.8..8888888888888:::::::::::顶::"@@@@@@@"::::8w8888888888888888 
..88888888888:888::::::::::顶:::::"@a@":::::顶8i888888888888888 
.8888888888::::88:::::::::顶88:::::::::::::顶88z88888888888888888 
8888888888:::::8:::::::::顶88888:::::::::顶顶888!888888888888888888 
888888888:::::8:::::::::顶8888888顶a顶顶顶a顶v顶顶888*88888888...88888888 
888888.顶:::::::::::::::顶888888888:::::::顶顶88888888888888...8888888 
8888...顶::::::::::::::顶88888888888::::::顶顶888888888888888....88888 
.888...顶:::::::::::::顶8888888888888顶:::::顶顶888888888888888....8888 
..888..顶::::::::::::顶8888:888888888888::::顶::顶顶88888.888888...8888 
...88..顶::::::::::::8888:88888888888888888::::::顶顶8...88888...888 
...88..顶::::::::::8888顶::88888::888888888888:::::::顶顶88888....88 
...8...顶顶::::::::8888顶:::8888:::::888888888888::::::::顶顶8.....4 
.......8顶:::::::8888顶:::::888:::::::88:::8888888::::::::顶顶....2 
......88顶顶:::::8888顶:::::::88::::::::8:::::888888:::顶:::::顶 
.....8888顶:::::888顶顶::::::::8:::::::::::顶::::8888::::顶::::顶 
....88888顶:::::88:顶::::::::::8:::::::::::顶:::8888::::::顶::顶 
...88.888顶顶:::888:顶:::::::::::::::::::::::顶:8888:::::::::顶: 
...8.88888顶:::88::顶:::::::::::::::::::::::顶顶:88::::::::::::顶 
.....88888顶:::88::顶::::::::::*88*::::::::::顶:88::::::::::::::顶 
....888888顶:::88::顶:::::::::88@@88:::::::::顶::88::::::::::::::顶 
....888888顶顶::88::顶顶::::::::88@@88:::::::::顶:::8::::::::::::::*8 
....88888..顶:::8::顶顶:::::::::*88*::::::::::顶:::::::::::::::::::88@@ 
....8888...顶顶::::::顶顶:::::::::::::::::::::顶顶::::::::::::::::::88@@ 
.....888....顶:::::::顶顶:::::::::::::::::::顶顶::顶:::::::::::::::::*8 
.....888....顶顶:::::::顶顶顶::::::::::::::::顶顶:::顶顶:::::::::::::顶 
......88.....顶::::::::顶顶顶顶:::::::::::顶顶顶顶:::::顶顶::::::::顶
.......88....顶顶:::::::::顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶::::::::顶顶
........88....顶顶::::::::::::顶顶顶顶顶顶顶::::::::::::::顶顶顶 
.........88...8顶顶::::::::::::::::::::::::::::::::::顶顶顶