Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Dima_S © (2002-11-12 04:08:00)
Здравствуйте!!! У меня возникла проблемма в консольном приложении при попытке получить список файлов с Ftp методом List, программа прсто повисает и ничего не происходит, но иногда корректно выполняется, может кто знает с чем это связано.
Вот код:

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

Dima_S (2002-11-12 09:51:00) [1]
Ну просто здесь не приведено а вооще вот:
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;

Reindeer Moss Eater (2002-11-12 09:48:00) [2]
Ну а где в твоем коде чтение ini?
К какому хосту делается коннект?????

Dima_S (2002-11-12 09:45:00) [3]
На Ftp в ини файле все прописано все логины пароли и тому подобное.....

Reindeer Moss Eater (2002-11-12 09:06:00) [4]
А куда сделан Connect?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »