한국 델파이 개발자 모임 - [재질문]아무도 답변이 없어서리....다시 올립니다.[재질문]

[재질문]아무도 답변이 없어서리....다시 올립니다.[재질문]

제발 도와 주세요!!!

도저히 몰겠습니다.... 이 눔이 왜 하나의 파일만 받아가지고 오는지요!!!

소스 밑부분에 내용이 있으니깐 조언 좀 부탁드립니다...

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

procedure TForm1.StartUp;

begin

NMFTP1.Host := 'hostip';

NMFTP1.Port := 21;

NMFTP1.Timeout := 0;

NMFTP1.UserID := 'userid';

NMFTP1.Password := 'pw';

try

NMFTP1.Connect;

except

On E:Exception do

if E.message='something'

then writeln('poo');

end;

//NMFTP1.List;

NMFTP1.Nlist;

//NMFTP1.Download((to_date + IntToStr(cnt)+'.txt'), ('C:A' + (to_date + IntToStr(cnt))+ '.txt'));

end;

procedure TForm1.NMFTP1ListItem(Listing: String);

begin

FileListBox1.Items.Add(Listing);

end;

procedure TForm1.TimerInterfaceTimer(Sender: TObject);

var

license,name: String;

//cnt: Integer;

begin

//cnt := 0;

TimerInterface.Enabled :=false;

TimerInterface.Interval := 30000; //30초 단위

Increase;

TimerInterface.Enabled :=True;

end;//procedure TForm1.TimerInterfaceTimer(Sender: TObject);

procedure TForm1.Increase; -------------------------|

var |

i: Integer; |

begin | 이부분에서

With ListBox1 | 이렇게하면

begin | ListBox에 있는 파일들을

for i := 0 to (ListBox1.Items.Count-1) | FTP의서버폴더에서

begin | 텍스트파일을 하나밖엔

NMFTP1.Download(ListBox1.Items.Strings[i], 'C:A'+ ListBox1.Items.Strings[i]); | 다운을 받지

DbTry; | 않습니다..

except begin |리스트박스에는

StatusBar1.SimpleText := 'Downloading~'; | 서버폴더의

end; | 파일들이

end; | 다 표시되는데요!!!

end; ---- ---------------------------------------------|

procedure TForm1.DbTry;

begin

If FileExists('C:A' + ListBox1.Items.Strings[i]) = True Then

begin

AssignFile(Reader,'C:A' + ListBox1.Items.Strings[i]);

Reset(Reader);

Readln(Reader,S);

end

//Showmessage('연결이 되었으니 작업을 합니다.');

end;

end.

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

다운받으면 그 파일을 차례대로 읽어와서 디비에 넣는건데요!!

파일을 디비에 넣는건 잘 되는데요!!

ListBox에있는 파일을 차례로 다운을 받을려고 하는데 계속하나의 파일만을 받고

디비 작업을 하는데요!! ㅜ.ㅜ;;!

고수님들 좀 갈켜 주세요!!

ListBox의 내용을 배열로 선언해서리 다운로드 받고 싶은데....잘 안되요!!

좀 구해 주세요!!! 살려 주세요!!! 헬~~푸~~요!!

지발 좀 도와 주세요!!!

이 게시물을

1 COMMENTS

느티나무 • 2001.11.01 01:29

델초짜이고 차츰 알아가는 놈... wrote:

> 제발 도와 주세요!!!

> 도저히 몰겠습니다.... 이 눔이 왜 하나의 파일만 받아가지고 오는지요!!!

> 소스 밑부분에 내용이 있으니깐 조언 좀 부탁드립니다...

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

> procedure TForm1.StartUp;

> begin

> NMFTP1.Host := 'hostip';

> NMFTP1.Port := 21;

> NMFTP1.Timeout := 0;

> NMFTP1.UserID := 'userid';

> NMFTP1.Password := 'pw';

> try

> NMFTP1.Connect;

>

> except

> On E:Exception do

> if E.message='something'

> then writeln('poo');

> end;

> //NMFTP1.List;

> NMFTP1.Nlist;

> //NMFTP1.Download((to_date + IntToStr(cnt)+'.txt'), ('C:A' + (to_date + IntToStr(cnt))+ '.txt'));

> end;

>

> procedure TForm1.NMFTP1ListItem(Listing: String);

> begin

> FileListBox1.Items.Add(Listing);

> end;

>

> procedure TForm1.TimerInterfaceTimer(Sender: TObject);

> var

> license,name: String;

> //cnt: Integer;

> begin

> //cnt := 0;

> TimerInterface.Enabled :=false;

> TimerInterface.Interval := 30000; //30초 단위

> Increase;

> TimerInterface.Enabled :=True;

> end;//procedure TForm1.TimerInterfaceTimer(Sender: TObject);

>

> procedure TForm1.Increase; -------------------------|

> var |

> i: Integer; |

> begin | 이부분에서

> With ListBox1 | 이렇게하면

> begin | ListBox에 있는 파일들을 ⓐ<---

> for i := 0 to (ListBox1.Items.Count-1) | FTP의서버폴더에서

> begin | 텍스트파일을 하나밖엔

> NMFTP1.Download(ListBox1.Items.Strings[i], 'C:A'+ ListBox1.Items.Strings[i]); | 다운을 받지

> DbTry; | 않습니다..

> except begin |리스트박스에는

> StatusBar1.SimpleText := 'Downloading~'; | 서버폴더의

> end; | 파일들이

> end; | 다 표시되는데요!!!

> end; ---- ---------------------------------------------|

>

> procedure TForm1.DbTry;

> begin

> If FileExists('C:A' + ListBox1.Items.Strings[i]) = True Then ⓑ<----

> begin

> AssignFile(Reader,'C:A' + ListBox1.Items.Strings[i]);

> Reset(Reader);

> Readln(Reader,S);

> end

> //Showmessage('연결이 되었으니 작업을 합니다.');

> end;

>

> end.

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

> 다운받으면 그 파일을 차례대로 읽어와서 디비에 넣는건데요!!

> 파일을 디비에 넣는건 잘 되는데요!!

> ListBox에있는 파일을 차례로 다운을 받을려고 하는데 계속하나의 파일만을 받고

> 디비 작업을 하는데요!! ㅜ.ㅜ;;!

> 고수님들 좀 갈켜 주세요!!

> ListBox의 내용을 배열로 선언해서리 다운로드 받고 싶은데....잘 안되요!!

> 좀 구해 주세요!!! 살려 주세요!!! 헬~~푸~~요!!

> 지발 좀 도와 주세요!!!

★ i가 ⓐ과 ⓑ 다른변수 거든여.. 위의 소스만 볼경우

음냐...그럼 즐코 하셔여...
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 최재국
- 2001.11.01 14:14
- 0 COMMENTS
- /
- 0 LIKES
이미지에 대해서......
- 미르짱
- 2001.11.01 10:27
- 0 COMMENTS
- /
- 0 LIKES
ActiveX폼에서 서브폼을 열었을때 브라우저 종료시 에러발생
- 김혜정
- •
- 2001.11.01 09:28
- 1 COMMENTS
- /
- 0 LIKES
os 문제 해결은 어찌해야 하는지요?
- 이성찬
  
  •
  
  2001.11.01 10:18
  
  ?? 정확한 에러메세지를 알 수 없으니 제가 대처하는 방법을 알려드리죠. 특별한 건 없고 일반적인 방법...
- 박지원
- 2001.11.01 07:56
- 0 COMMENTS
- /
- 0 LIKES
DB와 트리뷰에 관해서 꼭 알려주세요
- 이태훈
- 2001.11.01 06:06
- 0 COMMENTS
- /
- 0 LIKES
mdb화일안에 테이블 목록 표시하기.(질문)
- 델초짜임다......
- 2001.11.02 04:18
- 0 COMMENTS
- /
- 0 LIKES
NMFTP에 관해서....
- 왕 초보자입당^^*
- 2001.11.01 06:02
- 0 COMMENTS
- /
- 0 LIKES
계산기중에 소수점을 계산 하려고 합니다. 지도 부탁합니다.
- 청희
- •
- 2001.11.01 05:29
- 2 COMMENTS
- /
- 0 LIKES
테이블컴포넌트를 사용하여 자료조회해서 db그리드에 뿌리는데 속도가 넘 느려요
- 이성찬
  
  •
  
  2001.11.01 10:30
  
  멀티조인이 아니라면 TQuery 의 RequestLive := True 하신후 테이블처럼 업데이트 하세요 물론 TTable...
- 청희
  
  •
  
  2001.11.01 19:12
  
  ^^
- beloved_elf
- •
- 2001.11.01 03:57
- 1 COMMENTS
- /
- 0 LIKES
신용카드 조회기에 대해서.... 혹시 관련된 컴포넌트가 있는가요?
- 김지엽
  
  •
  
  2001.11.01 05:11
  
  제가 알기로는 신용카드도 MA카드의 한 종류이고, 따라서 다른 마그네틱 카드와 같이 읽고 쓰는 것으로 압...
- 초보
- •
- 2001.11.01 03:42
- 3 COMMENTS
- /
- 0 LIKES
Color 값을 DB에 저장하기..
- 정성훈
  
  •
  
  2001.11.01 04:10
  
  초보 wrote: > 브랜드 이름을 키로하여 유저가 컬러 값을 디비에 저장을 한 후 > 엑셀에서 해당브랜드를 ...
- 초보
  
  •
  
  2001.11.01 04:23
  
  정성훈 wrote: > > 안녕하세요 > Color 컴퍼넌트를 한번 사용해 보세요. > 팔레트의 색상이 나와요. ...
- 정성훈
  
  •
  
  2001.11.02 03:01
  
  초보 wrote: > 정성훈 wrote: > > > > 안녕하세요 > > Color 컴퍼넌트를 한번 사용해 보세요. > > ...
- 이분희
- •
- 2001.11.01 03:38
- 1 COMMENTS
- /
- 0 LIKES
treeview 와 treenode의 차이점에 대해서 설명을 부탁.....
- 홍성락
  
  •
  
  2001.11.01 04:25
  
  이분희 wrote: > procedure TForm1.Button4Click(Sender: TObject); > var > POwner: TTreeNode; > beg...
- 코로나
- •
- 2001.11.01 02:42
- 1 COMMENTS
- /
- 0 LIKES
저겨 activex에서요
- 지나가던넘
  
  •
  
  2001.11.01 19:19
  
  코로나 wrote: > 액티브x에서 window media player를 import시켰꺼든요 > 근데 이것을 일반폼에 붙혔어요...
- 왕초보임더
- •
- 2001.11.01 02:29
- 1 COMMENTS
- /
- 0 LIKES
프로그램종료시 에러....
- 정성훈
  
  •
  
  2001.11.01 04:12
  
  왕초보임더 wrote: > 프로그램종료시 아래와같은에러가 자꾸나는데 이유를 몰라서 > 물어봅니다 고수님...
- 안상현
- •
- 2001.11.01 02:09
- 1 COMMENTS
- /
- 0 LIKES
TImage에 Canvas로 글자를 쓴후 글자를 다시 지울려면 어떻게 해요?
- 정성훈
  
  •
  
  2001.11.01 04:16
  
  안상현 wrote: > TImage에 Canvas로 '안녕하세요'라는 글자를 삽입 하였습니다. > TextOut로요... 그런...
- 이은호
- 2001.11.01 02:06
- 0 COMMENTS
- /
- 0 LIKES
객체를 파일로 저장 하는 방법
- 유희정
- 2001.11.01 01:48
- 0 COMMENTS
- /
- 0 LIKES
Combobox에 관한질문입니다.
- 델초짜임다......
- •
- 2001.11.02 04:18
- 1 COMMENTS
- /
- 0 LIKES
[재질문]아무도 답변이 없어서리....다시 올립니다.[재질문]

제발 도와 주세요!!! 도저히 몰겠습니다.... 이 눔이 왜 하나의 파일만 받아가지고 오는지요!!! 소스 밑부분에 내용이 있으니깐 조언 좀 부탁드립니다... =============================================================================...
- 느티나무
  
  •
  
  2001.11.01 01:29
  
  델초짜이고 차츰 알아가는 놈... wrote: > 제발 도와 주세요!!! > 도저히 몰겠습니다.... 이 눔이 왜 하...
- 난관봉착자
- •
- 2001.11.01 00:49
- 1 COMMENTS
- /
- 0 LIKES
combobox와 sql문에 대한 질문
- 이성찬
  
  •
  
  2001.11.01 01:25
  
  'BDistrict' 가 TComboBox 의 Name 속성인가요? 만일 그렇다면 SQL문이 string 이므로 다음과 같이 하셔야...
- 헬프미
- 2001.10.31 23:19
- 0 COMMENTS
- /
- 0 LIKES
트리뷰데이터를 리스트박스에 2개 추가하고자 할때
- 델초
- 2001.10.31 23:15
- 0 COMMENTS
- /
- 0 LIKES
디렉토리리스트박스..... (이미지뷰어....)

델초짜임다......
2001/11/02 04:18
Views230

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

1515 1516 1517 1518 1519 1520 1521 1522 1523 1524

Last Page→