Q&A

  • 방법 좀 갈켜 주세요....
델파이 초보입니다...

다름이 아니라 제가 FTP프로그램을 하나 거의 배끼다 싶이해서 하나 만들었는데요...

텍스트파일만 받는건데요, 거기서 모든 텍스트파일을 다운받고 저장 시킨후 받아온 텍스트파일을 차례대로 읽고 텍스트 파일의 라인별로 DB에 넣고 싶거든요......

조금만 갈켜 주세요.... 자세한 알고리즘을 제가 잘 모르고 있는것 같아 답답하네요..



다운 받는 부분 소스 올립니다...

부탁 드립니다.....고수님들!!!!

===================================================================================

procedure TForm1.Downlist(Sender: TObject);

begin

NMFTP1.Download('test.txt', 'C:Aaa.txt'); <== 이부분이 하나의 텍스트만 받고 있잖아요???

이렇게 일일이 소스에서 받고 싶은 파일 명을 적어야 하나요???(단, 지금 이 소스부분은 edit박스가 없습니다.폼에서경로 적는데가 없어요... )



saveproc;

end;



procedure TForm1.saveproc;

begin

if FileExists('C:Aaa.txt')= True then

begin

Assignfile(READER,'C:Aaa.txt');

reset(Reader);

readln(reader,s);

{While not EOF(Reader) do

begin

readln(reader,s);

//RichEdit1.Lines.Add(S);

end}

end;

closefile(Reader);

end;

===================================================================================

이런 식으로 다운 받아 저장시키고 있는데 하나의 텍스트 파일만 받고 있거든요...

근데 그 FTP폴더의 모든 텍스트 파일을 받고 저장하고 차레대로 읽고 하고 싶어요...

제발 누가 저에게 희망의 등불이 좀 되어 주세요....

그럼 수고 하세요........

2  COMMENTS
  • Profile
    loke 2001.10.12 03:56
    도움이 될지 모르겠습니다.

    현재 프로그램에서 파일의 경로와 파일명을 직접 입력하신다면 ... 하나의 파일 밖에 받을수 없겠죠...

    만약 리스트박스를 사용한다면 ... 그리고 파일의 경로와 파일명이 리스트박스에 있다면 여러개의 파일을 다운로드 받을 수 있고 또한 받아진 파일을 가지고 님께서 하시고자 하는 일을 할 수 있겠죠^^



    폼을 약간 수정하셔야 될것 같습니다.

    NMFTP1.Download('test.txt', 'C:Aaa.txt'); <- 요 부분에서 ' ' 안에 직접 소스에서 입력하게 되면 하나 밖에 받을수 없죠... 보통 사용하고 있는 FTP 프로그램을 보세요 왼쪽엔 로컬컴퓨터... 오른쪽엔 리모트컴퓨터 이렇게 되어 있죠... 그런 식으로 리스트박스를 이용하여 프로그램을 고쳐 보세요...





    델초보쭈니~ wrote:

    > 델파이 초보입니다...

    > 다름이 아니라 제가 FTP프로그램을 하나 거의 배끼다 싶이해서 하나 만들었는데요...

    > 텍스트파일만 받는건데요, 거기서 모든 텍스트파일을 다운받고 저장 시킨후 받아온 텍스트파일을 차례대로 읽고 텍스트 파일의 라인별로 DB에 넣고 싶거든요......

    > 조금만 갈켜 주세요.... 자세한 알고리즘을 제가 잘 모르고 있는것 같아 답답하네요..

    >

    > 다운 받는 부분 소스 올립니다...

    > 부탁 드립니다.....고수님들!!!!

    > ===================================================================================

    > procedure TForm1.Downlist(Sender: TObject);

    > begin

    > NMFTP1.Download('test.txt', 'C:Aaa.txt'); <== 이부분이 하나의 텍스트만 받고 있잖아요???

    > 이렇게 일일이 소스에서 받고 싶은 파일 명을 적어야 하나요???(단, 지금 이 소스부분은 edit박스가 없습니다.폼에서경로 적는데가 없어요... )

    >

    > saveproc;

    > end;

    >

    > procedure TForm1.saveproc;

    > begin

    > if FileExists('C:Aaa.txt')= True then

    > begin

    > Assignfile(READER,'C:Aaa.txt');

    > reset(Reader);

    > readln(reader,s);

    > {While not EOF(Reader) do

    > begin

    > readln(reader,s);

    > //RichEdit1.Lines.Add(S);

    > end}

    > end;

    > closefile(Reader);

    > end;

    > ===================================================================================

    > 이런 식으로 다운 받아 저장시키고 있는데 하나의 텍스트 파일만 받고 있거든요...

    > 근데 그 FTP폴더의 모든 텍스트 파일을 받고 저장하고 차레대로 읽고 하고 싶어요...

    > 제발 누가 저에게 희망의 등불이 좀 되어 주세요....

    > 그럼 수고 하세요........

  • Profile
    이채성 2001.10.11 22:36
    일일이 넣어줘야 합니다.





    델초보쭈니~ wrote:

    > 델파이 초보입니다...

    > 다름이 아니라 제가 FTP프로그램을 하나 거의 배끼다 싶이해서 하나 만들었는데요...

    > 텍스트파일만 받는건데요, 거기서 모든 텍스트파일을 다운받고 저장 시킨후 받아온 텍스트파일을 차례대로 읽고 텍스트 파일의 라인별로 DB에 넣고 싶거든요......

    > 조금만 갈켜 주세요.... 자세한 알고리즘을 제가 잘 모르고 있는것 같아 답답하네요..

    >

    > 다운 받는 부분 소스 올립니다...

    > 부탁 드립니다.....고수님들!!!!

    > ===================================================================================

    > procedure TForm1.Downlist(Sender: TObject);

    > begin

    > NMFTP1.Download('test.txt', 'C:Aaa.txt'); <== 이부분이 하나의 텍스트만 받고 있잖아요???

    > 이렇게 일일이 소스에서 받고 싶은 파일 명을 적어야 하나요???(단, 지금 이 소스부분은 edit박스가 없습니다.폼에서경로 적는데가 없어요... )

    >

    > saveproc;

    > end;

    >

    > procedure TForm1.saveproc;

    > begin

    > if FileExists('C:Aaa.txt')= True then

    > begin

    > Assignfile(READER,'C:Aaa.txt');

    > reset(Reader);

    > readln(reader,s);

    > {While not EOF(Reader) do

    > begin

    > readln(reader,s);

    > //RichEdit1.Lines.Add(S);

    > end}

    > end;

    > closefile(Reader);

    > end;

    > ===================================================================================

    > 이런 식으로 다운 받아 저장시키고 있는데 하나의 텍스트 파일만 받고 있거든요...

    > 근데 그 FTP폴더의 모든 텍스트 파일을 받고 저장하고 차레대로 읽고 하고 싶어요...

    > 제발 누가 저에게 희망의 등불이 좀 되어 주세요....

    > 그럼 수고 하세요........