한국 델파이 개발자 모임 - [급급질문]FTP 소스부분의 이상한 반응???

[급급질문]FTP 소스부분의 이상한 반응???

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

procedure TForm1.NMFTP1Success(Trans_Type: TCmdType);

begin

Case Trans_Type of

cmdChangeDir: StatusBar1.SimpleText := 'ChangeDir success';

cmdMakeDir: StatusBar1.SimpleText := 'MakeDir success';

cmdDelete: StatusBar1.SimpleText := 'Delete success';

cmdRemoveDir: StatusBar1.SimpleText := 'RemoveDir success';

cmdList: StatusBar1.SimpleText := 'List success';

cmdRename: StatusBar1.SimpleText := 'Rename success';

cmdUpRestore: StatusBar1.SimpleText := 'UploadRestore success';

cmdDownRestore: StatusBar1.SimpleText := 'DownloadRestore success';

cmdDownload: StatusBar1.SimpleText := 'Download success';

cmdUpload: StatusBar1.SimpleText := 'Upload success';

cmdAppend: StatusBar1.SimpleText := 'UploadAppend success';

cmdReInit: StatusBar1.SimpleText := 'ReInit success';

cmdAllocate: StatusBar1.SimpleText := 'Allocate success';

cmdNList: StatusBar1.SimpleText := 'NList success';

cmdDoCommand: StatusBar1.SimpleText := 'DoCommand success';

end;

end;

procedure TForm1.NMFTP1Connect(Sender: TObject);

begin

StatusBar1.SimpleText := 'Connected';

end;

procedure TForm1.NMFTP1Failure(var Handled: Boolean; Trans_Type: TCmdType);

begin

Case Trans_Type of

cmdChangeDir: StatusBar1.SimpleText := 'ChangeDir failure';

cmdMakeDir: StatusBar1.SimpleText := 'MakeDir failure';

cmdDelete: StatusBar1.SimpleText := 'Delete failure';

cmdRemoveDir: StatusBar1.SimpleText := 'RemoveDir failure';

cmdList: StatusBar1.SimpleText := 'List failure';

cmdRename: StatusBar1.SimpleText := 'Rename failure';

cmdUpRestore: StatusBar1.SimpleText := 'UploadRestore failure';

cmdDownRestore: StatusBar1.SimpleText := 'DownloadRestore failure';

cmdDownload: StatusBar1.SimpleText := 'Download failure';

//cmdUpload: StatusBar1.SimpleText := 'Upload failure';

cmdAppend: StatusBar1.SimpleText := 'UploadAppend failure';

cmdReInit: StatusBar1.SimpleText := 'ReInit failure';

cmdAllocate: StatusBar1.SimpleText := 'Allocate failure';

cmdNList: StatusBar1.SimpleText := 'NList failure';

cmdDoCommand: StatusBar1.SimpleText := 'DoCommand failure';

end;

end;

procedure TForm1.NMFTP1Error(Sender: TComponent; Errno: Word;

Errmsg: String);

begin

ShowMessage('Error '+IntToStr(Errno)+': '+Errmsg);

end;

procedure TForm1.saveproc;

begin

//count := 1;

to_date := formatdatetime('yyyymmdd',now);

ftpfile:= to_date + IntToStr(count);

if FileExists('C:A' + (to_date + IntToStr(count))+ '.txt')= True then

//if FileExists('C:A' + ftpfile + '.txt')= True then

begin

Assignfile(READER,'C:A' + (to_date + IntToStr(count))+ '.txt');

//Assignfile(READER,'C:A' + ftpfile + '.txt');

reset(Reader);

readln(reader,s);

While not EOF(Reader) do

begin

readln(reader,s);

RichEdit1.Lines.Add(S);

end;

end;

end;

function GetFileList(const Path: string): TStringList;

var

I: Integer;

SearchRec: TSearchRec;

begin

//count := 1;

to_date := formatdatetime('yyyymmdd',now);

ftpfile:= to_date + IntToStr(count);

Result := TStringList.Create;

try

I := FindFirst(ftpfile + '.txt', 0, SearchRec);

while I = 0 do

begin

Result.Add((ftpfile + '.txt'));

I := FindNext(SearchRec);

inc(count);

end;

except

Result.Free;

raise;

end;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

FTPTimer.Enabled := False;

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

//count := 1;

to_date := formatdatetime('yyyymmdd',now);

ftpfile:= to_date + IntToStr(count);

NMFTP1.Host := '203.251.174.14';

NMFTP1.Port := 21;

NMFTP1.Timeout := 360000;

NMFTP1.UserID := 'guest';

NMFTP1.Password := 'guestcare';

try

NMFTP1.Connect;

except

On E:Exception do

if E.message='something'

then writeln('poo');

end;

NMFTP1.Download((to_date + IntToStr(count)+'.txt'), ('C:A' + ftpfile + '.txt')); <== 이부분에서 다른 ".txt"파일을 차례대로 count 1씩증가시켜가면서 받아 와야 하지 않나요??

GetFileList((to_date + IntToStr(count)+'.txt')); <== 이부분에서도 이렇게하면 모든텍스트파일을 차례대로 받아 오지 않나요??

saveproc;

inc(count); // ".txt"파일 1씩 증가..

FTPTimer.Enabled :=True;

end;

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

제가 만든 프로그램내의 FTP접속 부분의 소스입니다....

이놈이 Inc(..)함수를 사용했는데도.... FTP서버에서 파일을 하나만 받아 오고 있어요.... FTP서버의 폴더에는 여러개의 ".txt"파일이 있는데요...

방법을 좀 갈켜 주세요...

왜 하나의 텍스트파일만 받아 올까요???

답답합니다.... 이 답답한 속을 확 뚫어줄만한 고수님들의 조언 부탁드립니다...

그럼 행복한 오후되세요!!!

이 게시물을

1 COMMENTS

최용일 • 2001.10.23 02:03

안녕하세요. 최용일입니다.

파일이름을 바꾼다고 다운로드가 저절로 되는것은 아닙니다...

OnShow이벤트에서 첫번째 파일 다운로드 받고 Count를 +1증가 시켜서 인덱스 바꾸고

타이머 이벤트 걸고 끝나도록 코딩되어 있는데요...

알고리즘을 잘 생각해보세요... 이런경우는 루프를 이용하셔야 겠군요...

^^ 항상 즐코하세요...

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

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

> procedure TForm1.NMFTP1Success(Trans_Type: TCmdType);

> begin

> Case Trans_Type of

> cmdChangeDir: StatusBar1.SimpleText := 'ChangeDir success';

> cmdMakeDir: StatusBar1.SimpleText := 'MakeDir success';

> cmdDelete: StatusBar1.SimpleText := 'Delete success';

> cmdRemoveDir: StatusBar1.SimpleText := 'RemoveDir success';

> cmdList: StatusBar1.SimpleText := 'List success';

> cmdRename: StatusBar1.SimpleText := 'Rename success';

> cmdUpRestore: StatusBar1.SimpleText := 'UploadRestore success';

> cmdDownRestore: StatusBar1.SimpleText := 'DownloadRestore success';

> cmdDownload: StatusBar1.SimpleText := 'Download success';

> cmdUpload: StatusBar1.SimpleText := 'Upload success';

> cmdAppend: StatusBar1.SimpleText := 'UploadAppend success';

> cmdReInit: StatusBar1.SimpleText := 'ReInit success';

> cmdAllocate: StatusBar1.SimpleText := 'Allocate success';

> cmdNList: StatusBar1.SimpleText := 'NList success';

> cmdDoCommand: StatusBar1.SimpleText := 'DoCommand success';

> end;

> end;

>

>

>

> procedure TForm1.NMFTP1Connect(Sender: TObject);

> begin

> StatusBar1.SimpleText := 'Connected';

> end;

>

> procedure TForm1.NMFTP1Failure(var Handled: Boolean; Trans_Type: TCmdType);

> begin

> Case Trans_Type of

> cmdChangeDir: StatusBar1.SimpleText := 'ChangeDir failure';

> cmdMakeDir: StatusBar1.SimpleText := 'MakeDir failure';

> cmdDelete: StatusBar1.SimpleText := 'Delete failure';

> cmdRemoveDir: StatusBar1.SimpleText := 'RemoveDir failure';

> cmdList: StatusBar1.SimpleText := 'List failure';

> cmdRename: StatusBar1.SimpleText := 'Rename failure';

> cmdUpRestore: StatusBar1.SimpleText := 'UploadRestore failure';

> cmdDownRestore: StatusBar1.SimpleText := 'DownloadRestore failure';

> cmdDownload: StatusBar1.SimpleText := 'Download failure';

> //cmdUpload: StatusBar1.SimpleText := 'Upload failure';

> cmdAppend: StatusBar1.SimpleText := 'UploadAppend failure';

> cmdReInit: StatusBar1.SimpleText := 'ReInit failure';

> cmdAllocate: StatusBar1.SimpleText := 'Allocate failure';

> cmdNList: StatusBar1.SimpleText := 'NList failure';

> cmdDoCommand: StatusBar1.SimpleText := 'DoCommand failure';

> end;

> end;

>

> procedure TForm1.NMFTP1Error(Sender: TComponent; Errno: Word;

> Errmsg: String);

> begin

> ShowMessage('Error '+IntToStr(Errno)+': '+Errmsg);

> end;

>

> procedure TForm1.saveproc;

> begin

> //count := 1;

> to_date := formatdatetime('yyyymmdd',now);

> ftpfile:= to_date + IntToStr(count);

> if FileExists('C:A' + (to_date + IntToStr(count))+ '.txt')= True then

> //if FileExists('C:A' + ftpfile + '.txt')= True then

> begin

> Assignfile(READER,'C:A' + (to_date + IntToStr(count))+ '.txt');

> //Assignfile(READER,'C:A' + ftpfile + '.txt');

> reset(Reader);

> readln(reader,s);

> While not EOF(Reader) do

> begin

> readln(reader,s);

> RichEdit1.Lines.Add(S);

> end;

> end;

> end;

>

> function GetFileList(const Path: string): TStringList;

>

> var

> I: Integer;

> SearchRec: TSearchRec;

> begin

> //count := 1;

> to_date := formatdatetime('yyyymmdd',now);

> ftpfile:= to_date + IntToStr(count);

> Result := TStringList.Create;

> try

> I := FindFirst(ftpfile + '.txt', 0, SearchRec);

> while I = 0 do

> begin

> Result.Add((ftpfile + '.txt'));

> I := FindNext(SearchRec);

> inc(count);

> end;

> except

> Result.Free;

> raise;

> end;

> end;

>

> procedure TForm1.FormShow(Sender: TObject);

> begin

> FTPTimer.Enabled := False;

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

> //count := 1;

> to_date := formatdatetime('yyyymmdd',now);

> ftpfile:= to_date + IntToStr(count);

> NMFTP1.Host := '203.251.174.14';

> NMFTP1.Port := 21;

> NMFTP1.Timeout := 360000;

> NMFTP1.UserID := 'guest';

> NMFTP1.Password := 'guestcare';

> try

> NMFTP1.Connect;

> except

> On E:Exception do

> if E.message='something'

> then writeln('poo');

> end;

>

> NMFTP1.Download((to_date + IntToStr(count)+'.txt'), ('C:A' + ftpfile + '.txt')); <== 이부분에서 다른 ".txt"파일을 차례대로 count 1씩증가시켜가면서 받아 와야 하지 않나요??

> GetFileList((to_date + IntToStr(count)+'.txt')); <== 이부분에서도 이렇게하면 모든텍스트파일을 차례대로 받아 오지 않나요??

> saveproc;

> inc(count); // ".txt"파일 1씩 증가..

> FTPTimer.Enabled :=True;

> end;

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

> 제가 만든 프로그램내의 FTP접속 부분의 소스입니다....

> 이놈이 Inc(..)함수를 사용했는데도.... FTP서버에서 파일을 하나만 받아 오고 있어요.... FTP서버의 폴더에는 여러개의 ".txt"파일이 있는데요...

> 방법을 좀 갈켜 주세요...

> 왜 하나의 텍스트파일만 받아 올까요???

> 답답합니다.... 이 답답한 속을 확 뚫어줄만한 고수님들의 조언 부탁드립니다...

> 그럼 행복한 오후되세요!!!
- 0
- 0
- 삭제
- 수정
- 댓글

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

- 전영재
- 2001.10.23 18:36
- 0 COMMENTS
- /
- 0 LIKES
NT에서 레지스터에 있는 IP 읽고 쓰는 방법은?
- 이석태
- •
- 2001.10.23 18:33
- 1 COMMENTS
- /
- 0 LIKES
소수가 나와야 한는데 정수가 나오네요
- eraser
  
  •
  
  2001.10.23 18:43
  
  FormatFloat('#,###.0', P_AMT[31,01])
- 정말 궁금
- 2001.10.23 17:28
- 0 COMMENTS
- /
- 0 LIKES
excel제어 방법 ??????
- jewel
- •
- 2001.10.23 13:23
- 1 COMMENTS
- /
- 0 LIKES
filter가 일치하면.....
- 초보의비애
  
  •
  
  2001.10.23 18:20
  
  jewel wrote: > 안녕하세여? > > 지금은 아직 새벽해도(?) 뜨지 않은 깜깜한 밤이네여...... > > 우...
- 궁금이
- •
- 2001.10.23 08:16
- 1 COMMENTS
- /
- 0 LIKES
DLL 폼에서
- 쩌비
  
  •
  
  2001.10.23 08:52
  
  DLL에서 호출품의 값을 바꾸는 방법은 여러가지 있겠죠 님께서 하실려는 방법은 조금 안좋은 방법이...
- 델Student
- •
- 2001.10.23 07:10
- 1 COMMENTS
- /
- 0 LIKES
컴포넌트 설치법좀
- scryed
  
  •
  
  2001.10.23 07:37
  
  델Student wrote: > > 컴포넌트 설치법좀. > 어떤 건 pas 파일만 있고 어떤건 bpl 도 있던데 > 도...
- ddd
- •
- 2001.10.23 11:34
- 2 COMMENTS
- /
- 0 LIKES
해상도에 상관없는 폼 만들는 거..
- 김일영
  
  •
  
  2001.10.23 11:37
  
  음... 한델연(www.delphi.or.kr) 검색엔진을 써서 여기저기서 찾아봤습니다... 관련된게 굉장히 많지만 ...
- 쩌비
  
  •
  
  2001.10.23 11:35
  
  ddd wrote: > 800*600에서 프로그램 만든거를 > > 1024*768 에서 돌리면 화면이 작아보이잖아요. > ...
- 이원택
- 2001.10.23 03:20
- 0 COMMENTS
- /
- 0 LIKES
f1book1출력시에 글자가 넘 작네요
- DarkAngel
- 2001.10.23 03:57
- 0 COMMENTS
- /
- 0 LIKES
Listview에 폴더 목록을 공백없이 출력
- lthee
- 2001.10.23 02:51
- 0 COMMENTS
- /
- 0 LIKES
udp 통신에서 리턴값이 null인 경우???
- 어린왕자A
- •
- 2001.10.23 04:12
- 3 COMMENTS
- /
- 0 LIKES
키다운, 키업 이벤트를 가진 컴포넌트를 만들라면 어떻게 해야 하나요?
- 김일영
  
  •
  
  2001.10.23 04:33
  
  간만의 [컴포넌트개발] 분류로군요... (다음엔 분류를 해 주시겠죠?) 맞는 방법입니다. 그렇게만 선언...
- 어린왕자A
  
  •
  
  2001.10.23 18:38
  
  근데..아니되더군요.. 누가 만드신 IP입력컨트롤인데.. 저가 좀 수정할라구..(__);; 중간에 누가 메세지...
- 김일영
  
  •
  
  2001.10.23 22:29
  
  잘 되는데요. 아마도 그 컨트롤에 Focus가 안가서 그럴겁니다. 아래는 제가 실제로 해 본 소스입니다. 참...
- neps
- 2001.10.23 02:37
- 0 COMMENTS
- /
- 0 LIKES
원격제어 루틴에 대한 질문입니다
- 용이
- 2001.10.23 02:01
- 0 COMMENTS
- /
- 0 LIKES
IP Address 변경은 어떻게 하는지여?
- 이석태
- •
- 2001.10.23 02:30
- 4 COMMENTS
- /
- 0 LIKES
[긴급]floattostr 에러 원인을 찾아주세요
- 윤
  
  •
  
  2001.10.23 02:44
  
  정확한 이유는 잘 모르지만... P_AMT가 배열인것 같은데 어떤 Type인지? p_30_04 변수의 expression이 ...
- 김일영
  
  •
  
  2001.10.23 02:38
  
  저도 처음 보는 에러이긴 한데요... 그런데 에러 메시지대로 2448092000은 Integer가 아니긴 하죠...너...
- 이석태
  
  •
  
  2001.10.23 02:43
  
  p_amt : array[1..31, 1..08] of double; 배열로해서 double 잡아는데요.. > 저도 처음 보는 ...
- 김일영
  
  •
  
  2001.10.23 04:08
  
  어쩌면 Gio8051f.p30_04.expression p_amt : array[1..31, 1..08] of double; > 배열로해서 doubl...
- eclick
- 2001.10.23 05:38
- 0 COMMENTS
- /
- 0 LIKES
MDI랑 RichEdit 관련 질문좀 할께여^^;;;;
- 이슬이
- •
- 2001.10.23 01:13
- 1 COMMENTS
- /
- 0 LIKES
프로시져 이동에 관해서 ...쩝
- eraser
  
  •
  
  2001.10.23 18:48
  
  WebBrowser1DocumentComplete 프로시져는 이벤트발생시 자동으루 실행되어 지는디유... 이슬이 wrote: ...
- 초보
- 2001.10.23 01:09
- 0 COMMENTS
- /
- 0 LIKES
델파이 6 설치시 에러가 나요!!!!!
- 델초짜임다......
- •
- 2001.11.02 04:20
- 1 COMMENTS
- /
- 0 LIKES
[급급질문]FTP 소스부분의 이상한 반응???

==================================================================================== procedure TForm1.NMFTP1Success(Trans_Type: TCmdType); begin Case Trans_Type of cmdChangeDir: StatusBar1.SimpleText := 'ChangeDir success...
- 최용일
  
  •
  
  2001.10.23 02:03
  
  안녕하세요. 최용일입니다. 파일이름을 바꾼다고 다운로드가 저절로 되는것은 아닙니다... OnShow이...
- 델초보
- •
- 2001.10.23 01:34
- 1 COMMENTS
- /
- 0 LIKES
WebModule에서 Query로 Insert문 실행 시 에러
- 김지엽
  
  •
  
  2001.10.23 01:35
  
  INSERT 구문에, 입력하고자 하는 값은 들어가 있는데, 그 값들이 어느 필드인지는 지정이 안되어서 날아가...
- 3년째 델초
- •
- 2001.10.23 00:44
- 1 COMMENTS
- /
- 0 LIKES
커서 이동방법...?
- 최용일
  
  •
  
  2001.10.23 02:05
  
  안녕하세요. 최용일입니다. 엔터키로 다음 컨트롤로 이동하는 에디터를 사용하시면 되겠네요... 자료...

델초짜임다......
2001/11/02 04:20
Views463

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

1530 1531 1532 1533 1534 1535 1536 1537 1538 1539

Last Page→