Q&A
- [재질문]누가 좀 봐 주시면 안되나요...NMFTP관련..[재질문]
소스 밑부분에 내용이 있으니깐 조언 좀 부탁드립니다...
==================================================================================
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 do
begin
for i := 0 to (ListBox1.Items.Count-1)
begin
NMFTP1.Download(ListBox1.Items.Strings[i], 'C:A'+ ListBox1.Items.Strings[i]);
NMFTP1.Delete(ListBox1.Items.Strings[i]); <===이부분이 에러가 납니다...그럼 Delete함수는 어디에 넣어 주어야 합니까?
그리고 Delete함수에 이렇게ListBox1.Items.Strings[i] 표시 하면 안됩니까?
DbTry;
except begin
StatusBar1.SimpleText := 'Downloading~';
end;
end;
end;
procedure TForm1.DbTry;
begin
for i := 0 to (ListBox1.Items.Count-1) do <==== 이부분도 좀 맞는지 갈켜 주세요!! 이렇게 loop돌리면 되나요??
위에서 에러가 나니깐 이부분이 어찌 되는지....??? ㅡ.ㅡ;;
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
/////디비에 텍스트 파일 라인별로 읽어서리 작업을 합니다..////
end;
end;
end.
==================================================================================
모르는 부분을 화살표로 해놨습니다... 꼭 고수님들 좀 봐주세요!!!!
초보에게 등불이~~!!
==================================================================================
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 do
begin
for i := 0 to (ListBox1.Items.Count-1)
begin
NMFTP1.Download(ListBox1.Items.Strings[i], 'C:A'+ ListBox1.Items.Strings[i]);
NMFTP1.Delete(ListBox1.Items.Strings[i]); <===이부분이 에러가 납니다...그럼 Delete함수는 어디에 넣어 주어야 합니까?
그리고 Delete함수에 이렇게ListBox1.Items.Strings[i] 표시 하면 안됩니까?
DbTry;
except begin
StatusBar1.SimpleText := 'Downloading~';
end;
end;
end;
procedure TForm1.DbTry;
begin
for i := 0 to (ListBox1.Items.Count-1) do <==== 이부분도 좀 맞는지 갈켜 주세요!! 이렇게 loop돌리면 되나요??
위에서 에러가 나니깐 이부분이 어찌 되는지....??? ㅡ.ㅡ;;
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
/////디비에 텍스트 파일 라인별로 읽어서리 작업을 합니다..////
end;
end;
end.
==================================================================================
모르는 부분을 화살표로 해놨습니다... 꼭 고수님들 좀 봐주세요!!!!
초보에게 등불이~~!!
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- poh
- •
- 2001.11.01 23:51
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.11.02 03:49DBGrid1.Column[0].PickList
-
- 코로나
- 2001.11.01 23:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.11.01 23:26
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.02 00:58초보 wrote: > 교차하는 두직선의 각도를 알고 싶습니다. > 예를 들면 100,100-200,120과 80,80-170,180 ...
-
김우현•2008.07.11 18:48테스트해보니 angle := 360 - angle; 가 아니라 angle := 360 + angle; 이네요
-
- 송성환
- 2001.11.01 23:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 용이
- 2001.11.01 23:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 이호림
- 2001.11.01 22:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.11.02 02:28
- 1 COMMENTS
- /
- 0 LIKES
-
김훈•2001.11.02 08:40ftp://ftpc.inprise.com/pub/interbase/techpubs/InterBase60_MigrationGuide.zip 파일 받으셔서, 읽어...
-
- irookie
- 2001.11.01 22:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초짜임다......
- •
- 2001.11.01 22:13
- 1 COMMENTS
- /
- 0 LIKES
소스 밑부분에 내용이 있으니깐 조언 좀 부탁드립니다... ================================================================================== procedure TForm1.StartUp; begin NMFTP1.Host := 'hostip'; NMFTP1.Port := 21; NMFTP1.T...-
홍성락•2001.11.01 23:10델초짜임다...... wrote: > 소스 밑부분에 내용이 있으니깐 조언 좀 부탁드립니다... > ================...
-
- 델초보규리*^^*
- 2001.11.01 22:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 안상현
- •
- 2001.11.01 21:38
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.01 23:33안상현 wrote: > 제가 아래와 같이 했는데 이미지 로드가 안되네요. > > Image1.Picture.SaveToFile('C...
-
-
이성찬•2001.11.02 04:01참고하세요 procedure TfrmMain.Button1Click(Sender: TObject); // 추가 begin with PageControl1...
-
-
- 항상감사
- •
- 2001.11.01 20:59
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.11.02 03:31사용하시는 공통프로시져 유닛이 있다면 그곳에 구조체 타입을 선언하시고 각 차일드폼의 uses 에 포함시...
-
- 하늘나라
- •
- 2001.11.01 19:59
- 1 COMMENTS
- /
- 0 LIKES
-
델파이 탐 크르즈•2001.11.01 22:22하늘나라 wrote: > query을 이용해(table 아님) select 된 내용을 dbgrid에 뿌린후.. > 예을 들어 > ===...
-
- 훈
- •
- 2001.11.01 19:58
- 3 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.01 21:02훈 wrote: > 다시 말하면, '스트링' 이 형이 integer인지, string인지 비교할 수 있는가 하는 겁니다. > ...
-
훈•2001.11.02 22:05단순히 Type만을 비교하고 싶은데, 어떤 데이터이냐가 아니라, 어떤 데이터가 어떤 type이냐, 단순히 t...
-
홍성락•2001.11.03 01:17결론은 제가 답하기 곤란한 질문인것 같습니다. 글쎄요 inputdata자체가 스트링이죠(Edit1.Text) 이것...
-
- 궁금이
- •
- 2001.11.01 19:57
- 2 COMMENTS
- /
- 0 LIKES
-
반영재•2001.11.01 20:46BTime := 65; h := BTime div 3600; m := (BTime mod 3600) div 60; s := (Btime mod 3600)...
-
궁금이•2001.11.07 07:11반영재 wrote: > BTime := 65; > h := BTime div 3600; > m := (BTime mod 3600) div 60; > ...
-
-
홍성락•2001.11.01 23:25점시기 wrote: > 프로그램을 실행 시키면 배경색이 흰색입니다.. > 그리고 프로그램 실행중에 사용자가 ...
-
-
- 안상현
- 2001.11.01 18:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 이성윤
- 2001.11.01 17:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 박정용
- 2001.11.01 14:14
- 0 COMMENTS
- /
- 0 LIKES
-
델초짜임다......
2001/11/01 22:13
-
Views265Likes0Comments1Reports0
-
Tag List
- 수정
- 삭제
- 목록으로
> 소스 밑부분에 내용이 있으니깐 조언 좀 부탁드립니다...
> ==================================================================================
> 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 do
> begin
> for i := 0 to (ListBox1.Items.Count-1)
> begin
> NMFTP1.Download(ListBox1.Items.Strings[i], 'C:A'+ ListBox1.Items.Strings[i]);
> NMFTP1.Delete(ListBox1.Items.Strings[i]); <===이부분이 에러가 납니다...그럼 Delete함수는 어디에 넣어 주어야 합니까?
> 그리고 Delete함수에 이렇게ListBox1.Items.Strings[i] 표시 하면 안됩니까?
> DbTry;
> except begin
> StatusBar1.SimpleText := 'Downloading~';
> end;
> end;
> end;
>
> procedure TForm1.DbTry;
> begin
> for i := 0 to (ListBox1.Items.Count-1) do <==== 이부분도 좀 맞는지 갈켜 주세요!! 이렇게 loop돌리면 되나요??
> 위에서 에러가 나니깐 이부분이 어찌 되는지....??? ㅡ.ㅡ;;
> 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
> /////디비에 텍스트 파일 라인별로 읽어서리 작업을 합니다..////
> end;
> end;
>
> end.
> ==================================================================================
> 모르는 부분을 화살표로 해놨습니다... 꼭 고수님들 좀 봐주세요!!!!
> 초보에게 등불이~~!!
//////////////////////////////////////////////////////////////////////////////////
그냥 조금 궁금하고 도와주고싶어도 잘몰라 몇가지 말씀드릴까함니다.
1번 문제는 타이머가 30초 간격으로 실행하게하셨는데요
ListBox1에 지운 파일명도 지워야 할것 같구요
DbTry함수내 또 ListBox1내용을 검토하던데
이함수 인자를 만들어 호출하시죠.
procedure TForm1.DbTry(ii : integer);