Форум: "Сети";
Текущий архив: 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.031 c
