Q&A
- 자신있게 답변 주실분 없어요??
FTP에 관련하여질문이 있어서리 그러는데요....
밑에 이 소스는 어떠한 프로그램의 일부 소스인데요...
밑에 있는 "procedure TForm1.FormShow(Sender: TObject);" 프로시져를
한 30초 간격으로 자동으로 접속하는방법이 없나요???
소스 좀 봐 주시고요 통쾌한 답변 좀 부탁드립니다....
그리고 NMFTP의 Timeout를 아래와 같이 '0'으로 주면 계속 연결 상태인가요???
고수님들 한수만 갈켜 주세요??? 부탁드립니다....
==============================================================
procedure TForm1.saveproc;
var
rc : TSearchRec;
begin
if FindFirst('C:A*.*',faAnyFile,rc) then
repeat
Assignfile(READER,rc.Name);
reset(Reader);
readln(reader,s);
While not EOF(Reader) do
begin
readln(reader,s);
RichEdit1.Lines.Add(S);
end;
until FindNext(rc)<>0;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
NMFTP1.Host := '203.251.174.14';
NMFTP1.Port := 21;
NMFTP1.Timeout := 0;
NMFTP1.UserID := 'guest';
NMFTP1.Password := 'guestcare';
try
NMFTP1.Connect;
except
On E:Exception do
if E.message='something'
then writeln('poo');
end;
NMFTP1.NList;
With NMFTP1.NList do
for i := 0 to name.count -1 do
NMFTP1.Download(name[i], 'C:A'+name[i]);
saveproc;
end;
============================================================
밑에 이 소스는 어떠한 프로그램의 일부 소스인데요...
밑에 있는 "procedure TForm1.FormShow(Sender: TObject);" 프로시져를
한 30초 간격으로 자동으로 접속하는방법이 없나요???
소스 좀 봐 주시고요 통쾌한 답변 좀 부탁드립니다....
그리고 NMFTP의 Timeout를 아래와 같이 '0'으로 주면 계속 연결 상태인가요???
고수님들 한수만 갈켜 주세요??? 부탁드립니다....
==============================================================
procedure TForm1.saveproc;
var
rc : TSearchRec;
begin
if FindFirst('C:A*.*',faAnyFile,rc) then
repeat
Assignfile(READER,rc.Name);
reset(Reader);
readln(reader,s);
While not EOF(Reader) do
begin
readln(reader,s);
RichEdit1.Lines.Add(S);
end;
until FindNext(rc)<>0;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
NMFTP1.Host := '203.251.174.14';
NMFTP1.Port := 21;
NMFTP1.Timeout := 0;
NMFTP1.UserID := 'guest';
NMFTP1.Password := 'guestcare';
try
NMFTP1.Connect;
except
On E:Exception do
if E.message='something'
then writeln('poo');
end;
NMFTP1.NList;
With NMFTP1.NList do
for i := 0 to name.count -1 do
NMFTP1.Download(name[i], 'C:A'+name[i]);
saveproc;
end;
============================================================
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
-
이방인•2001.10.19 19:35궁금이 wrote: > 폼에다가 문자를 출력해주고 싶은데 > 표준출력을 어떻게 하는지요? > 폼 자체에다가 ... -
궁금이•2001.10.19 20:57이방인 wrote: > 궁금이 wrote: > > 폼에다가 문자를 출력해주고 싶은데 > > 표준출력을 어떻게 하는지...
-
지나가는사람•2001.10.19 23:17OnPaint에 넣어 보세요... Self.Canvas.TextOut(100,100,'안녕'); 궁금이 wrote: > 이방인 wrote: > ...
-
-
- 이기준
- 2001.10.19 18:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 제노
- 2001.10.19 18:45
- 0 COMMENTS
- /
- 0 LIKES
-
- dskang
- 2001.10.19 09:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 델프리
- 2001.10.19 09:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 누굴까?
- •
- 2001.10.19 08:44
- 1 COMMENTS
- /
- 0 LIKES
-
조건일•2001.10.19 11:08님께서 고민 하신는 문제는 간단하게 해결할수 있습니다... 98과 2000 사이의 폰트 문제는 익히알려진 문...
-
- 초보자
- •
- 2001.10.19 07:33
- 1 COMMENTS
- /
- 0 LIKES
-
정성훈•2001.10.19 22:20초보자 wrote: > 질문이 있어서 간만에 글을 씁니다.. > > 제가 성적 처리 플그램을 짜고 있는데.. 자...
-
- 용이
- •
- 2001.10.19 06:35
- 3 COMMENTS
- /
- 0 LIKES
-
지나가는사람•2001.10.19 22:58var GetDiskInfo:TGetDiskInfo; begin if SysLibHandle 0 then Exit; // SysLibHandle은 폼생성...
-
지나는이•2001.10.19 09:22용이 wrote: > MDI parent에서 특정 버튼을 눌러서 DLL로 만든 MDI Child를 실행시켰습니다. > 그런데......
-
정성훈•2001.10.19 22:12지나는이 wrote: > 용이 wrote: > > MDI parent에서 특정 버튼을 눌러서 DLL로 만든 MDI Child를 실행시...
-
- 왕초보
- •
- 2001.10.19 04:03
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.19 04:17왕초보 wrote: > showmessage 프로시저를 쓸 때 > 캡션으로 프로젝트 명이 나오는 데요.... Project1과 ...
-
왕초보•2001.10.19 04:32홍성락 wrote: > 왕초보 wrote: > > showmessage 프로시저를 쓸 때 > > 캡션으로 프로젝트 명이 나오는 ...
-
- 바이오맨(초보)
- •
- 2001.10.19 03:45
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.19 06:00바이오맨(초보) wrote: > 스트링 그리드에 체크박스를 올리는데 row카운트가 증가할때마다 자동생성으로 ...
-
- 왕초보
- 2001.10.19 03:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 최준원
- •
- 2001.10.19 03:49
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.19 04:05최준원 wrote: > label1.caption := format('%m',[strtofloat(strarr[1])]); > 이런 형식으로 레이블에 ...
-
- 차차 델을 알아가는
- •
- 2001.10.19 03:01
- 1 COMMENTS
- /
- 0 LIKES
FTP에 관련하여질문이 있어서리 그러는데요.... 밑에 이 소스는 어떠한 프로그램의 일부 소스인데요... 밑에 있는 "procedure TForm1.FormShow(Sender: TObject);" 프로시져를 한 30초 간격으로 자동으로 접속하는방법이 없나요??? 소스 ...-
지나는이•2001.10.19 09:34차차 델을 알아가는 놈... wrote: > FTP에 관련하여질문이 있어서리 그러는데요.... > 밑에 이 소스는 어...
-
- 수정이^^
- •
- 2001.10.19 02:18
- 1 COMMENTS
- /
- 0 LIKES
-
srookie•2001.10.19 02:23안녕하세요. 그냥 uses에 system이라는 unit만 추가하면 됩니다. 수정이^^ wrote: > unit U_Pamt; > ...
-
- 최유순
- 2001.10.20 12:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 김재만
- •
- 2001.10.19 01:15
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.19 02:24김재만 wrote: > 안녕하세요. 이호림이라고 합니다. > Win32에보면 달력 컴포넌트가 있는데 사용자가 날...
-
- 임상일
- 2001.10.19 00:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 문철민
- •
- 2001.10.19 00:17
- 1 COMMENTS
- /
- 0 LIKES
-
선해석•2001.10.19 01:40BDE Administrator 에서 database탭 말구 Configuration탭에서 Configuration - Drivers - Native - ORACL...
-
- sql 초보자^^*
- •
- 2001.10.19 00:12
- 2 COMMENTS
- /
- 0 LIKES
-
석•2001.10.19 01:30TQuery 의 RecNo를 이용하면 될 것 같은데... Query1.SQL.Clear; Query1.SQL.Text := select * fro...
-
공성환•2001.10.19 01:10오라클이라면 rownum이라는걸 쓰시면 될것같은데... sql 초보자^^* wrote: > 어떤 쿼리의 결과값과 함...
-
- 궁금증
- •
- 2001.10.18 23:22
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2001.10.19 01:08minus기능은 오라클에있는기능으로 알고 있는데요... 파라독스에서는 안되는걸로 알고있는데... 잘모르겠...
-
차차 델을 알아가는
2001/10/19 03:01
-
Views303Likes0Comments1Reports0
-
Tag List
- 수정
- 삭제
- 목록으로
> FTP에 관련하여질문이 있어서리 그러는데요....
> 밑에 이 소스는 어떠한 프로그램의 일부 소스인데요...
> 밑에 있는 "procedure TForm1.FormShow(Sender: TObject);" 프로시져를
> 한 30초 간격으로 자동으로 접속하는방법이 없나요???
> 소스 좀 봐 주시고요 통쾌한 답변 좀 부탁드립니다....
> 그리고 NMFTP의 Timeout를 아래와 같이 '0'으로 주면 계속 연결 상태인가요???
> 고수님들 한수만 갈켜 주세요??? 부탁드립니다....
>
> ==============================================================
> procedure TForm1.saveproc;
> var
> rc : TSearchRec;
> begin
> if FindFirst('C:A*.*',faAnyFile,rc) then
> repeat
> Assignfile(READER,rc.Name);
> reset(Reader);
> readln(reader,s);
> While not EOF(Reader) do
> begin
> readln(reader,s);
> RichEdit1.Lines.Add(S);
> end;
> until FindNext(rc)<>0;
> end;
>
> procedure TForm1.FormShow(Sender: TObject);
> begin
> NMFTP1.Host := '203.251.174.14';
> NMFTP1.Port := 21;
> NMFTP1.Timeout := 0;
> NMFTP1.UserID := 'guest';
> NMFTP1.Password := 'guestcare';
> try
> NMFTP1.Connect;
> except
> On E:Exception do
> if E.message='something'
> then writeln('poo');
> end;
> NMFTP1.NList;
>
> With NMFTP1.NList do
> for i := 0 to name.count -1 do
> NMFTP1.Download(name[i], 'C:A'+name[i]);
>
> saveproc;
>
> end;
> ============================================================
Timer를 쓰시는 게 어떠실지 ....
대충 Form Show에서는
Timer.Enabled := True ;
글구 Timer Component의 OnTimer 이벤트에서
Timer.Enabled := False ;
//=======================
...처리할 내용 ...
//=======================
Timer.Enabled := True ;
식으로 처리하면 일단은 해결될껄요....
혹 FTP Client 만드시는 거면 제가 옛날에 만든거 소스가 있는데
필요하면 멜 주세요.. ( 허접하지만 기본 루틴은 되어있는거니까 화면과 추가기능만
신경쓰면 될 겁니다..)