Получение списка файлов с Ftp.

← →
Dima_S (2002-11-12 04:08) [0]

Здравствуйте!!! У меня возникла проблемма в консольном приложении при попытке получить список файлов с Ftp методом List, программа прсто повисает и ничего не происходит, но иногда корректно выполняется, может кто знает с чем это связано.
Вот код:

var
FtpSource:TNMftp;
.......
begin
FtpSource:=TNMFtp.Create(nil);
FtpSource.Connect;
FtpSource.ParseList:=true;
FtpSource.ChangeDir("gazeta");
FtpSource.list;
..........
end.

← →
Reindeer Moss Eater (2002-11-12 09:06) [1]

А куда сделан Connect?

← →
Dima_S (2002-11-12 09:45) [2]

На Ftp в ини файле все прописано все логины пароли и тому подобное.....

← →
Reindeer Moss Eater (2002-11-12 09:48) [3]

Ну а где в твоем коде чтение ini?
К какому хосту делается коннект?????

← →
Dima_S (2002-11-12 09:51) [4]

Ну просто здесь не приведено а вооще вот:
procedure LoadINI;
var
a:string;
begin
a:=GetCurrentDir;
IniFile:=TIniFile.Create(a+"\gazeta.ini");

LogFile:=IniFile.ReadString("Work", "LogFile", "c:/gazeta.log");
WorkDir:=IniFile.ReadString("Work", "WorkDir", "c:/");
if WorkDir[Length(WorkDir)]<>"/" then WorkDir:=WorkDir+"/";

SourceHost:=IniFile.ReadString("Source", "Host", "");
SourcePort:=IniFile.ReadInteger("Source", "Port", 21);
SourcePath:=IniFile.ReadString("Source", "Path", "/gazeta/");
if SourcePath[Length(SourcePath)]<>"/" then SourcePath:=SourcePath+"/";
SourceUser:=IniFile.ReadString("Source", "User", "");
SourcePass:=IniFile.ReadString("Source", "Pass", "");

SrcPriv:=SourcePath+IniFile.ReadString("Source", "Priv", "/gazeta/0.GSM");
SrcPol:=SourcePath+IniFile.ReadString("Source", "Pol", "/gazeta/1.GSM");
SrcLove:=SourcePath+IniFile.ReadString("Source", "Love", "/gazeta/2.GSM");
SrcCult:=SourcePath+IniFile.ReadString("Source", "Cult", "/gazeta/3.GSM");
SrcMiric:=SourcePath+IniFile.ReadString("Source", "Miric", "/gazeta/4.GSM");
SrcHome:=SourcePath+IniFile.ReadString("Source", "Home", "/gazeta/5.GSM");

ReceiveHost:=IniFile.ReadString("Receive", "Host", "");
ReceivePort:=IniFile.ReadInteger("Receive", "Port", 21);
ReceivePath:=IniFile.ReadString("Receive", "Path", "/usr/loniis/voicebox/00/00/00/25/");
if ReceivePath[Length(ReceivePath)]<>"/" then ReceivePath:=ReceivePath+"/";
ReceiveUser:=IniFile.ReadString("Receive", "User", "");
ReceivePass:=IniFile.ReadString("Receive", "Pass", "");

RcvPriv:=IniFile.ReadString("Receive", "Priv", "/usr/loniis/voicebox/00/00/00/25/0000002574");
RcvPol:=IniFile.ReadString("Receive", "Pol", "/usr/loniis/voicebox/00/00/00/25/0000002577");
RcvLove:=IniFile.ReadString("Receive", "Love", "/usr/loniis/voicebox/00/00/00/25/0000002578");
RcvCult:=IniFile.ReadString("Receive", "Cult", "/usr/loniis/voicebox/00/00/00/25/0000002579");
RcvMiric:=IniFile.ReadString("Receive", "Miric", "/usr/loniis/voicebox/00/00/00/25/0000002580");
RcvHome:=IniFile.ReadString("Receive", "Home", "/usr/loniis/voicebox/00/00/00/25/0000002581");
TempDir:=IniFile.ReadString("WorK","TempDir","d:/Tempsound");

IniFile.Free;
end;

Получение списка файлов с Ftp. Найти похожие ветки