Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Вниз

Работа с FTP, коннектится но не находит ресурсы   Найти похожие ветки 

 
TOleg   (2004-03-24 14:15) [0]

Помогите, кто может!!!
Проблема следующая, работаю с FTP используя компоненты NMFTP.
Когда конектчусь к хосту, проблем нет, только метод List показывает, что файлов там нет, хотя реально лежит метров 200.
С теми же параметрами захожу по FTP с любого проводника, доступ ко всему есть. Вопрос, что нужно сделать, или где прописать, чтобы при коннеткте к хосту с проги были видны файлы.


 
Piter ©   (2004-03-24 20:06) [1]

Выкладывай код


 
TOleg   (2004-03-25 11:09) [2]

Вот код почти всей проги. По событию OnSuccess должна отрабатываться процедура FTPDirectoryList. Но она показывает что ничего на удаленном ресурсе нет, хотя в OnListItem Listing содержит информацию о текущей папке и ее файлах. Вопрос в том, что тут не правильно, почему не отрабатываются процедуры?

procedure TForm1.Button1Click(Sender: TObject);
begin
 if NMFTP1.Connected then
 begin
   NMFTP1.Disconnect;
 end else
 begin
   NMFTP1.Vendor := NMOS_AUTO;
   NMFTP1.Host := UserHost;
   NMFTP1.UserID := UserId;
   NMFTP1.Password := Pass;
   NMFTP1.Connect;

   //----- выводим список файлов и директорий ----------------
   Memo2.Clear;
   Memo2.Lines.Add(NMFTP1.CurrentDir);
   NMFTP1.ChangeDir(Dir);
   Memo2.Lines.Add(NMFTP1.CurrentDir);
   NMFTP1.ChangeDir("Web");
   Memo2.Lines.Add(NMFTP1.CurrentDir);
   NMFTP1.ChangeDir("kons");
   Memo2.Lines.Add(NMFTP1.CurrentDir);
   NMFTP1.ChangeDir("docs");
   Memo2.Lines.Add(NMFTP1.CurrentDir);

   //NMFTP1.Mode(MODE_BYTE);
   NMFTP1.Listen(true);
   NMFTP1.List;

 end;

end;

procedure TForm1.NMFTP1Disconnect(Sender: TObject);
begin
 Memo1.Lines.Add("Отсоединение от FTP!");
end;

procedure TForm1.NMFTP1PacketRecvd(Sender: TObject);
begin
StatusBar1.SimpleText := IntToStr(NMFTP1.BytesRecvd)+" bytes received out of "+IntToStr(NMFTP1.BytesTotal);
end;

procedure TForm1.NMFTP1PacketSent(Sender: TObject);
begin
 StatusBar1.SimpleText := IntToStr(NMFTP1.BytesSent)+" bytes sent out of "+IntToStr(NMFTP1.BytesTotal);

end;

procedure TForm1.NMFTP1TransactionStart(Sender: TObject);
begin
 Memo1.Lines.Add("Transaction Start");

end;

procedure TForm1.NMFTP1TransactionStop(Sender: TObject);
begin
 Memo1.Lines.Add("Transaction Stop");

end;

procedure TForm1.NMFTP1Failure(var Handled: Boolean; Trans_Type: TCmdType);
begin
  case Trans_Type of
   cmdChangeDir: Memo1.Lines.Add("ChangeDir failure");
   cmdMakeDir: Memo1.Lines.Add("MakeDir failure");
   cmdDelete: Memo1.Lines.Add("Delete failure");
   cmdRemoveDir: Memo1.Lines.Add("RemoveDir failure");
   cmdList: Memo1.Lines.Add("List failure");
   cmdRename: Memo1.Lines.Add("Rename failure");
   cmdUpRestore: Memo1.Lines.Add("UploadRestore failure");
   cmdDownRestore: Memo1.Lines.Add("DownloadRestore failure");
   cmdDownload: Memo1.Lines.Add("Download failure");

   cmdUpload: Memo1.Lines.Add("Upload failure");
   cmdAppend: Memo1.Lines.Add("UploadAppend failure");
   cmdReInit: Memo1.Lines.Add("Reinitialize failure");
   cmdAllocate: Memo1.Lines.Add("Allocate failure");
   cmdNList: Memo1.Lines.Add("NList failure");
   cmdDoCommand: Memo1.Lines.Add("DoCommand failure");
   cmdCurrentDir: Memo1.Lines.Add("CurrentDir failure");
 end;

end;

procedure TForm1.NMFTP1Success(Trans_Type: TCmdType);
var
 I,k: Integer;

begin
 case Trans_Type of
   cmdList:
     begin
       for I := 0 to (StringGrid1.ColCount - 1) do StringGrid1.Cols[I].Clear;

       k:=NMFTP1.FTPDirectoryList.name.Count;
       StringGrid1.RowCount := k;
       StringGrid1.ColCount := 4;
       StringGrid1.Cells[0, 0] := "Filename";
       StringGrid1.Cells[1, 0] := "File Size";
       StringGrid1.Cells[2, 0] := "Modified Date";
       StringGrid1.Cells[3, 0] := "Attributes";
       for I := 0 to (NMFTP1.FTPDirectoryList.name.Count - 1) do
         with NMFTP1.FTPDirectoryList do
           begin
             StringGrid1.Cells[0, I+1] := name[I];

             StringGrid1.Cells[1, I+1] := Size[I];
             StringGrid1.Cells[2, I+1] := ModifDate[I];
             StringGrid1.Cells[3, I+1] := Attribute[I];
           end;
        Memo1.Lines.Add("List success");  
     end;
   cmdChangeDir:
     begin
       Memo1.Lines.Add("ChangeDir successful");
       //NMFTP1.List;
     end;
   cmdMakeDir: Memo1.Lines.Add("MakeDir successful");
   cmdRemoveDir: Memo1.Lines.Add("RemoveDir successful");
   cmdDelete: Memo1.Lines.Add("Delete successful");
   cmdRename: Memo1.Lines.Add("Rename successful");

   cmdReInit: Memo1.Lines.Add("Reinitialize successful");
   cmdCurrentDir: Memo1.Lines.Add("CurrentDir successful");

   cmdUpRestore: Memo1.Lines.Add("UploadRestore success");
   cmdDownRestore: Memo1.Lines.Add("DownloadRestore success");
   cmdDownload: Memo1.Lines.Add("Download success");

   cmdUpload: Memo1.Lines.Add("Upload success");
   cmdAppend: Memo1.Lines.Add("UploadAppend success");
   cmdAllocate: Memo1.Lines.Add("Allocate success");
   cmdNList: begin
       for I := 0 to (StringGrid1.ColCount - 1) do StringGrid1.Cols[I].Clear;

       k:=NMFTP1.FTPDirectoryList.name.Count;
       StringGrid1.RowCount := k;
       StringGrid1.ColCount := 4;
       StringGrid1.Cells[0, 0] := "Filename";
       StringGrid1.Cells[1, 0] := "File Size";
       StringGrid1.Cells[2, 0] := "Modified Date";
       StringGrid1.Cells[3, 0] := "Attributes";
       for I := 0 to (NMFTP1.FTPDirectoryList.name.Count - 1) do
         with NMFTP1.FTPDirectoryList do
           begin
             StringGrid1.Cells[0, I+1] := name[I];

             StringGrid1.Cells[1, I+1] := Size[I];
             StringGrid1.Cells[2, I+1] := ModifDate[I];
             StringGrid1.Cells[3, I+1] := Attribute[I];
           end;
        Memo1.Lines.Add("NList success");
     end;
   cmdDoCommand: Memo1.Lines.Add("DoCommand success");
 end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if NMFTP1.Connected then
 begin
   NMFTP1.Disconnect;
 end;
 Close;
end;

procedure TForm1.NMFTP1ListItem(Listing: String);
begin
Memo2.Lines.Add(Listing);
end;



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.035 c
14-1083150908
Undert
2004-04-28 15:15
2004.05.16
Где можно в цифровом виде


1-1083387988
SHS
2004-05-01 09:06
2004.05.16
Application.Exename в DLL


1-1083213421
M@X
2004-04-29 08:37
2004.05.16
Перевод с СИ


4-1080467334
Nevil
2004-03-28 13:48
2004.05.16
Как определить атрибуты файла из SHGetFileInfo?


8-1077878817
Spartak
2004-02-27 13:46
2004.05.16
Отчистка картинки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский