환경 : delphi 5,TNMFTP 컴포넌트 사용
FTP downLoad부분을 구현하고자 합니다
정말 어렵네요 ......
요지는....
//==========================================================================
서버의 "../test" directory 방에 aaa.dat , bbb.dat 파일이 있습니다
이 파일을 Client PC의 "c:download" directory 방에 download 하고 싶거당요
//==========================================================================
입니다
그래서 아래 소스를 구현했는데
download 가 실행되지 않고 Error 없이 그냥 지나가네여
============ 소 스 =============
먼저 서버에 접속하고요(소스생략)
procedure TForm1.Button1Click(Sender: TObject);
var
DirInfo: TSearchRec;
r : Integer;
begin
//=======================================================
r := FindFirst('../test/*.dat', FaAnyfile, DirInfo);
// 문제는 여기인데 FindFist로 파일을 찾을수가 없다고 나옵니다
//리눅스는 FindFist 메쏘드가 안먹나여..??
//=======================================================
While r = 0 do begin
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
(DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
nmFtp.Download(DirInfo.Namec,'C:download/'+DirInfo.Name);
r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
end;
## 그리고
nmFtp.Download('../test/aaa.dat','C:download/'+DirInfo.Name);
로 하면 download 가 잘됩니다.....
FTP의 패스와 파일 리스트를 직접 컨트롤 하세요.
이기석 wrote:
>
> 환경 : delphi 5,TNMFTP 컴포넌트 사용
>
> FTP downLoad부분을 구현하고자 합니다
>
> 정말 어렵네요 ......
>
> 요지는....
>
> //==========================================================================
> 서버의 "../test" directory 방에 aaa.dat , bbb.dat 파일이 있습니다
>
> 이 파일을 Client PC의 "c:download" directory 방에 download 하고 싶거당요
> //==========================================================================
> 입니다
>
>
> 그래서 아래 소스를 구현했는데
>
> download 가 실행되지 않고 Error 없이 그냥 지나가네여
>
>
> ============ 소 스 =============
>
> 먼저 서버에 접속하고요(소스생략)
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> DirInfo: TSearchRec;
> r : Integer;
> begin
> //=======================================================
>
> r := FindFirst('../test/*.dat', FaAnyfile, DirInfo);
> // 문제는 여기인데 FindFist로 파일을 찾을수가 없다고 나옵니다
> //리눅스는 FindFist 메쏘드가 안먹나여..??
>
> //=======================================================
> While r = 0 do begin
>
> if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
> (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
>
> nmFtp.Download(DirInfo.Namec,'C:download/'+DirInfo.Name);
>
>
> r := FindNext(DirInfo);
> end;
>
> SysUtils.FindClose(DirInfo);
> end;
>
>
> ## 그리고
> nmFtp.Download('../test/aaa.dat','C:download/'+DirInfo.Name);
> 로 하면 download 가 잘됩니다.....