Q&A

  • 리눅스서버의 특정 dir에 파일 listup방법 ?


환경 : 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 가 잘됩니다.....

1  COMMENTS
  • Profile
    송시중 2001.08.24 22:41
    아마 님이 작업하는 PC의 '..testaaa.dat'을 가져다 놓으면 에러가 없을겁니다.

    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 가 잘됩니다.....