Q&A
- 질문] 파일복사(copyfile) 오류...
============>
해답을 찾았습니다.
IsDir도 함수로 처리된 것이로군요..
(^_^)
항상 도움받아서, 감사합니다
============================
강민주님께서 올려주신 파일복사 하기 function중에 오류가 생겨서 질문드립니다.
Function CopyFile(FromFile,ToFile:String): Boolean;
Var
FromF, ToF: file;
{$IFDEF WIN32}
NumRead, NumWritten: Integer;
{$ELSE}
NumRead, NumWritten: Word;
{$ENDIF}
Buf: array[1..2048] of Char;
Begin
If IsDir(FromFile) Then
Begin
{MessageDlg('Problem! There Was A Problem Copying '+FromFile,
mtWarning, [mbOk], 0);}
Result := False;
End
Else
.
.
.
여기 올려져 있는 코드를 그대로 실었더니,
If IsDir(FromFile) Then 이 부분에서 IsDir 부분이
정의되지 않는 식이라고 오류가 뜹니다.
아마, 선언부분에서 어떤 것을 넣어줘야할것 같은데
답좀 알려주시기 부탁드립니다.
해답을 찾았습니다.
IsDir도 함수로 처리된 것이로군요..
(^_^)
항상 도움받아서, 감사합니다
============================
강민주님께서 올려주신 파일복사 하기 function중에 오류가 생겨서 질문드립니다.
Function CopyFile(FromFile,ToFile:String): Boolean;
Var
FromF, ToF: file;
{$IFDEF WIN32}
NumRead, NumWritten: Integer;
{$ELSE}
NumRead, NumWritten: Word;
{$ENDIF}
Buf: array[1..2048] of Char;
Begin
If IsDir(FromFile) Then
Begin
{MessageDlg('Problem! There Was A Problem Copying '+FromFile,
mtWarning, [mbOk], 0);}
Result := False;
End
Else
.
.
.
여기 올려져 있는 코드를 그대로 실었더니,
If IsDir(FromFile) Then 이 부분에서 IsDir 부분이
정의되지 않는 식이라고 오류가 뜹니다.
아마, 선언부분에서 어떤 것을 넣어줘야할것 같은데
답좀 알려주시기 부탁드립니다.
3
COMMENTS
-
IsDir이라는 함수도 있나요~~Delphi내장함수도 아니고~~Window API도 아닌거 같은데요~~ -
강민주님이 만들어두신 함수 검색하니 나오네요
함수 정의하고 사용하세요...
<!--CodeS-->
{!~ Tests Directory Existence}
Function IsDir(IsDirPath: String): Boolean;
Var
FileGetAttrValue: Integer;
Begin
{$IFDEF WIN32}
Result := DirectoryExists(IsDirPath);
Exit;
{$ENDIF}
FileGetAttrValue := FileGetAttr(IsDirPath);
If FileGetAttrValue = 16 Then
Begin
Result := True
End
Else
Begin
Result := False
End;
End;
<!--CodeE-->
존재하는 디렉토리인가 알아오는 함수네요...^^ -
하나 덧붙이자면 DirectoryExsists()함수를 쓰시면 됩니다....또한 위 함수나 제가 말씀드린 함수는 Window7에서 버그가 있습니다..16만이 아니고 윈도우7에서는 8208도 폴더더라고여...8208로 구글링해보세요~위에 추가하시면 될듯~
(NOTICE) You must be logged in to comment on this post.
-
- 이용벽
- •
- 2010.02.23 03:22
- 8 COMMENTS
- /
- 0 LIKES
-
소나기•2010.02.23 05:23FormCreate 말고 다른 부분에 넣어 보세요. FormCreate 부분은 컴포넌트의 생성을 주로 하는 부분이고...
-
소나기•2010.02.23 05:26아 홈페이지를 가보니 의료기기쪽에서 일하시나보네요. 전 원주의료기기 단지에서 일하고 있습니다....
-
장성호•2010.02.23 11:59소나기님의 말씀과 같이 FormCreate부분에 코드를 넣어서 그런데요.. 원인에 대한 설명은 좀 틀렸네요...
-
소나기•2010.02.23 19:01장성호님 제가 알기론 Form이 기본적으로 생성된 후에 DoCreate 문에 의해서 FormCreate 문이 실행되...
-
이용벽•2010.02.23 19:32우선 두분께 감사드립니다. 장성호님 말씀하신 대로 해보니 제가 원했던 동작이 그대로 나오는 군요. 감...
-
소나기•2010.02.23 19:45Patient Monitor 쪽 작업 하시나 보네요. 의료기기 쪽에 특화된 기능 같은 경우 제가 아는데 까지 알...
-
이용벽•2010.02.23 20:08소나기님 말씀대로 OnShow(FormShow)에서 해봤습니다. 결과는 장성호님 방법과 동일합니다. 제가 원했던...
- • • •
-
- 오선진
- •
- 2010.02.23 02:54
- 4 COMMENTS
- /
- 0 LIKES
-
소나기•2010.02.23 06:05$0F 가 보통 MMX 코드를 나타내는데 그 뒤에 값을 잘 모르겠습니다. 연산이 아마도 MMX 코드를 이용해...
-
소나기•2010.02.23 06:18음 근데 생각해 보면 보통 $01 이 기계어로 Add 니까. ADD ECX, EAX 와 비슷한 코드 같은데 ㅡ_ㅡ;;
-
phono•2010.02.23 20:00함수의 전체 소스가 저부분 뿐인가요? 보통 인라인 어셈을 쓰면.., function xxxxxx(...):dword; s...
-
최용일•2010.02.26 06:15리턴값은 EAX로 넘어올것입니다.
-
- suffering tears
- •
- 2010.02.22 18:48
- •
- 2 COMMENTS
- /
- 0 LIKES
-
백록화•2010.02.22 19:21쿨럭...죄송합니다. 질문을 잘못이해했군요..아 게임 그만 해야지...-.-
-
홍성락•2010.02.22 23:07엑티브엑스나 DLL등에서 Application.ExeName나 paramStr(0)로하면 자기를 실행시킨 exe파일명이 반환됩...
-
- 최진영
- •
- 2010.02.22 09:50
- •
- 2 COMMENTS
- /
- 0 LIKES
-
최진영•2010.02.23 11:12추가 발견 DBGrid1만 그런 것이 아니고 포커스가 위치했던 DBGrid에 포커스가 오질 않네요( 메인폼의 ...
-
이도형•2010.08.16 19:45formshow의 create할때 create(application)으로 하셧나요?? create(nil)로 하면 에러나 포커스이동 잘...
-
- HEIM
- 2010.02.20 01:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상은
- •
- 2010.02.19 19:59
- •
- 4 COMMENTS
- /
- 0 LIKES
-
HEIM•2010.02.20 01:56그런 경우 전 XP에서 델파이 7으로 그냥 개발합니다. 비스타나 윈도우7에서 프로그램을 돌리도록 하기 ...
-
엄마미안•2010.02.20 02:35저메세지는 말그대로 저 위치에 bpl 파일이 없어서 나오는 메세지인데요. 경로 확인부터 한번 정확히 해...
-
이희용•2010.02.22 19:00권한 문제로 인하여 발생하는 문제 인듯 합니다. 어드민 계정을 활성화 하여 개발 하시면 될 듯 합니다....
-
이강석•2010.02.23 00:05UAC를 끄고 해보세요~
-
- 김동원
- •
- 2010.02.19 18:07
- 3 COMMENTS
- /
- 0 LIKES
============> 해답을 찾았습니다. IsDir도 함수로 처리된 것이로군요.. (^_^) 항상 도움받아서, 감사합니다 ============================ 강민주님께서 올려주신 파일복사 하기 function중에 오류가 생겨서 질문드립니다. Function Copy...-
이강석•2010.02.19 18:26IsDir이라는 함수도 있나요~~Delphi내장함수도 아니고~~Window API도 아닌거 같은데요~~
-
김병윤•2010.02.23 02:02강민주님이 만들어두신 함수 검색하니 나오네요 함수 정의하고 사용하세요... <!--CodeS--> {!~...
-
이강석•2010.02.23 02:42하나 덧붙이자면 DirectoryExsists()함수를 쓰시면 됩니다....또한 위 함수나 제가 말씀드린 함수는 Wind...
-
- 띵아
- •
- 2010.02.19 05:47
- 2 COMMENTS
- /
- 0 LIKES
-
엄마미안•2010.02.20 22:29엑셀이 타불러형(표 형태)의 자료라면 ADO를 이용해서 연결하셔서 데이터베이스의 테이블 처럼 검색해내...
-
띵아•2010.02.24 06:57감사합니다. ^^
-
- 초보임당
- •
- 2010.02.19 05:06
- 3 COMMENTS
- /
- 0 LIKES
-
KDDG_Hoya•2010.02.23 01:13상관 없을 것 같습니다만... 정확히 에러메세지가 어떻게 나는지 보았으면 하네요 ^^;
-
초보임당•2010.02.23 03:16위의 오류는 버퍼 크기때문에 발생햇던거 같습니다...일단 받기는 받는데...한글이 깨지네요.. 1. 서...
-
KDDG_Hoya•2010.02.23 18:25구조체로 보냈으니 구조체로 받아야 하지 않을까 합니다만.. 저도 indy9 쓰다가 예전에 10으로 한적이...
-
- 김동원
- •
- 2010.02.17 04:10
- 4 COMMENTS
- /
- 0 LIKES
-
이윤도•2010.02.17 04:36<!--CodeS--> procedure TForm1.FormCreate(Sender: TObject); var iCnt: Integer; begin ...
-
노정윤•2010.02.17 09:551100 개나 되는 컴포넌트라면 차라리 동적 생성 하는 게 낫지 않을까요? 일일이 손으로 생성하는 것도 만...
-
장성호•2010.02.17 10:43노정윤님이 얘기하신대로 저도 동적생성을 추천합니다. 하지만 굳이 위와같은 방식대로 하고자한다면 ...
-
김동원•2010.02.17 17:54대단히 감사합니다. 해결했습니다.역쉬..고수님들은 틀리십니다.
-
- 이의성
- 2010.02.17 03:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 이강석
- •
- 2010.02.16 22:22
- 1 COMMENTS
- /
- 0 LIKES
-
이강석•2010.02.19 18:29시작프로그램으로 도저히 안되서 네이버랑 구글링하다가 작업스케쥴러로 하는 방법으로 바꿨습니다... ...
-
- 곰팡이개발자
- 2010.02.15 10:11
- 0 COMMENTS
- /
- 0 LIKES
-
- delpia
- •
- 2010.02.12 04:57
- 1 COMMENTS
- /
- 0 LIKES
-
phono•2010.02.12 09:55Tmemo에 엔터키 입력시 2byte로 나오는 것은 CRLF 값이 입력되기 때문입니다. 그러므로 TMemo.Lines...
-
- 바람의아빠
- 2010.02.11 21:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 띵아
- •
- 2010.02.11 05:12
- 4 COMMENTS
- /
- 0 LIKES
-
최용일•2010.02.11 08:48쩝~ administrator계정 하나 더 만들고 그 계정으로 들어가서 해보세요. 참고로... 여기는 델파이 개...
-
띵아•2010.02.11 23:07네 감사합니다. 음 이런거도 델파이 프로그램으로 개발할수 있으면 한번 해볼까해서요 ^^
-
김정은•2010.02.16 23:56브이엠웨어?
-
띵아•2010.02.19 05:50브이엠웨어 검색해서 다운받아 써보려 하고 있는데 영어 실려 엄청 딸리네요 쩝 음 대충대충 어에 어에...
-
- 이의성
- •
- 2010.02.11 01:19
- 2 COMMENTS
- /
- 0 LIKES
-
바람•2010.02.11 01:59procedure TForm1.cedAmtChange(Sender: TObject); begin if TCurrencyEdit(sender).Value > 0...
-
이의성•2010.02.11 03:34감사합니다~~ 잘 해결되었습니다. ^^
-
- 김우현
- •
- 2010.02.10 20:00
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2010.02.11 09:32잘 되는데요... 다만, 배열의 크기가 너무 크군요... 동적으로 생성하실게 아니면 배열의 크기를 줄이세요.
-
김우현•2010.02.11 16:48네.. 감사합니다. 오늘 출근하면서 버스안에서 코딩을 다시 점검하니 잘 돼네요. 배열의 크기를 동...
-
- 희아빠
- 2010.02.10 07:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 김우섭
- •
- 2010.02.10 06:48
- 1 COMMENTS
- /
- 0 LIKES
-
엄마미안•2010.02.20 22:33쉐어인듯합니다... 체크박스 사용이 편한 그리드는 상용그리드로 넘어가면 무수히 많이 있습니다.
