Q&A
- 자동업데이트질문입니다.
일단 소스가 길지 않으니 전체소스를 올립니다.
--------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, FileCtrl, ShellAPI;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
copyfiles : TSHFileOpStruct;
str1, str2 : pchar;
begin
if not DirectoryExists('e:test2') then
if not CreateDir('e:test2') then
raise Exception.Create('Cannot create e:test2');
with copyfiles do
begin
wnd := 0;
wfunc := fo_copy;
pfrom := ('e:test1111.txt');
pto := ('e:test2111.txt');
fflags := fof_simpleprogress;
end;
if fileexists('e:test2111.txt') then
begin
if fileage('e:test2111.txt') <> fileage('e:test1111.txt') then
shfileoperation(copyfiles)
end
else
shfileoperation(copyfiles);
str1 := ('e:test1111.txt');
str2 := ('e:test2111.txt');
winexec(strpcopy(str1, str2), sw_show);
Close;
end;
end.
------------------------------------------------------------------------------
실행이 된 다음에 디렉토리도 만들고 파일도 복사 / 갱신도 됩니다.
그런데 작업을 수행한 다음과 같은 에러 메세지가 나오는데 무엇이 문제인지 모르겠습니다.
디버깅을 해보니까 다음 부분에서 에러가 걸리더라구요..
winexec(strpcopy(str1, str2), sw_show);
<에러 메세지>
access violation at address 00407DE9 in module 'update.exe', Write or address 0043E6E0.
고수님들 도와 주십시요..
--------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, FileCtrl, ShellAPI;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
copyfiles : TSHFileOpStruct;
str1, str2 : pchar;
begin
if not DirectoryExists('e:test2') then
if not CreateDir('e:test2') then
raise Exception.Create('Cannot create e:test2');
with copyfiles do
begin
wnd := 0;
wfunc := fo_copy;
pfrom := ('e:test1111.txt');
pto := ('e:test2111.txt');
fflags := fof_simpleprogress;
end;
if fileexists('e:test2111.txt') then
begin
if fileage('e:test2111.txt') <> fileage('e:test1111.txt') then
shfileoperation(copyfiles)
end
else
shfileoperation(copyfiles);
str1 := ('e:test1111.txt');
str2 := ('e:test2111.txt');
winexec(strpcopy(str1, str2), sw_show);
Close;
end;
end.
------------------------------------------------------------------------------
실행이 된 다음에 디렉토리도 만들고 파일도 복사 / 갱신도 됩니다.
그런데 작업을 수행한 다음과 같은 에러 메세지가 나오는데 무엇이 문제인지 모르겠습니다.
디버깅을 해보니까 다음 부분에서 에러가 걸리더라구요..
winexec(strpcopy(str1, str2), sw_show);
<에러 메세지>
access violation at address 00407DE9 in module 'update.exe', Write or address 0043E6E0.
고수님들 도와 주십시요..
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 심지현
- •
- 2001.04.07 18:56
- 2 COMMENTS
- /
- 0 LIKES
-
hobakpa•2001.04.07 19:02심지현 wrote: > 데이터베이스4를 이용해 테이블 검색,쓰기 등을 하는 프로그램을 만들었는데 > 'table i... -
심지현•2001.04.07 20:09hobakpa wrote: > 심지현 wrote: > > 데이터베이스4를 이용해 테이블 검색,쓰기 등을 하는 프로그램을 만...
-
- sysong
- •
- 2001.04.07 18:53
- 1 COMMENTS
- /
- 0 LIKES
-
감초•2001.04.07 23:43class를 생성한다면 query를 만드는 작업을 constructor 안에서 해주시고 없애는 작업을 ...
-
- 까마귀
- •
- 2001.04.07 18:22
- 2 COMMENTS
- /
- 0 LIKES
-
hobakpa•2001.04.07 18:59까마귀 wrote: > 안녕하세요. 까마귀입니다. > 오랜만에 들어오는 것 같네요. 뭐가 그리 바쁜지 원.. > ...
-
까마귀•2001.04.07 19:11冷無
-
- 이윤선
- •
- 2001.04.07 13:56
- 1 COMMENTS
- /
- 0 LIKES
-
서철기•2001.04.07 18:29> [Hint] Unit1.pas(63): Private symbol 'sState' declared but never used > [Hint] ...
-
- ☆푸린★
- •
- 2001.04.07 10:52
- 1 COMMENTS
- /
- 0 LIKES
-
임철우•2001.12.12 05:32다이렉트 엑스 문서나 msdn 보시면 문서 분석하는 방법이 있어요 그걸 참조 하세요. 거기에 자세히 설명...
-
- 장지용
- 2001.04.07 09:34
- 0 COMMENTS
- /
- 0 LIKES
-
- freelab
- •
- 2001.04.07 06:40
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.04.08 03:20TImage 콤포넌트로 그림화일을 읽어서, TImage.Canvas.StretchDraw로 사이즈를 변경한 후, 다시 저장하세...
-
- yosule
- •
- 2001.04.07 06:29
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.04.07 19:37Clipboard를 이용한겁니다. 델파이에도 Window의 Clipboard를 랩핑한 TClipBoard객체가 있습니다. 이걸 이...
-
- 델초보
- •
- 2001.04.07 18:59
- 3 COMMENTS
- /
- 0 LIKES
-
kylix•2001.04.07 19:25델파이의 Resource DLL Wizard를 사용해 보세요... 델초보 wrote: > 안녕하세요.. 고수님 > > 이런...
-
감초•2001.04.07 19:00옛날에 그런거 한번 만든 적있는데 그때 저는 아주 긴 Array를 사용했읍니다. 물론 자료는 화일로 저장했...
-
성더기•2001.04.07 16:21그걸 사용하면 Label에 멀티 라인이 될겁니다 그걸 이용하믄 가능 할거 같은데여...
-
- 델초보
- •
- 2001.04.07 05:46
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.04.07 20:09안녕하세요. 최용일입니다. 1) 정상적으로 읽기/쓰기 가능합니다. 2) 쓰기에는 제한이 없지만 읽기에는...
-
- 이상우
- •
- 2001.04.07 03:07
- 3 COMMENTS
- /
- 0 LIKES
-
이상우•2001.04.09 21:15이상우 wrote: > 델파이로 해당 Ms-Sql DB 를 통채로 복사하는 로직을 만들려고 합니다.. > > 어떻게 ...
-
Mr. Larson•2001.04.07 04:03이상우 wrote: > 델파이로 해당 Ms-Sql DB 를 통채로 복사하는 로직을 만들려고 합니다.. > > 어떻게 ...
-
왕초보•2001.04.07 04:45MS SQL Server 에서 제공하는 저장 프로시저중 sp_detach_db 와 sp_attach_db 가 있슴다... 함 헬프에서 ...
-
- 궁금
- •
- 2001.04.07 02:48
- 1 COMMENTS
- /
- 0 LIKES
-
왕초보•2001.04.07 04:46궁금 wrote: > [ paradox ] > > 하나의 테이블에서 select한 값을 그대로 > 다른 테이블에 insert하...
-
- 지니
- •
- 2001.04.07 19:01
- 1 COMMENTS
- /
- 0 LIKES
-
지영일•2001.04.07 19:01지니 wrote: > StringGrid에서 > 한셀에 두줄로 쓸려면 어떻게 해야 되나요? > 아래에 어떤분이 셀을 Fi...
-
- 손상수
- •
- 2001.04.07 18:34
- 1 COMMENTS
- /
- 0 LIKES
일단 소스가 길지 않으니 전체소스를 올립니다. -------------------------------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons,...-
손상수•2001.04.07 19:35변수 선언 부분에서 선언을 달리하니까 되네요.. -----------------------------------------------------...
-
- 박재훈
- •
- 2001.04.07 02:11
- 2 COMMENTS
- /
- 0 LIKES
-
화랑•2001.04.10 03:14좋지 않을까요? 쿠쿵쿵~ 박재훈 wrote: > ActiveX로 ocx파일을 배포했는데요... > 해당 웹서버( 데이...
-
화랑•2001.04.10 03:14좋지 않을까요? 쿠쿵쿵~ 박재훈 wrote: > ActiveX로 ocx파일을 배포했는데요... > 해당 웹서버( 데이...
-
- 이윤선
- 2001.04.07 02:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 모모
- 2001.04.07 01:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 최
- 2001.04.07 01:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 델노사
- •
- 2001.04.07 01:35
- 2 COMMENTS
- /
- 0 LIKES
-
지영일•2001.04.07 07:10한번 찾아보시면 쉽게 찾을수 있는데.. 한번 해보세요..^.^; implementation const ScreenWidth: Lon...
-
델노사•2001.04.07 22:12정말 감사합니다... 꾸벅 꾸벅.... 초보라 그런지 찾는것도 쉽지 않더라구요... 고마워요... 더욱 매진 ...
-
- 델파이통신초보
- 2001.04.07 01:32
- 0 COMMENTS
- /
- 0 LIKES
-------------------------------------------------------
var
copyfiles : TSHFileOpStruct;
str1, str2 : array[0..MAX_PATH] of char; // MAX_PATH = 260
---------------------------------------------------------------
손상수 wrote:
> 일단 소스가 길지 않으니 전체소스를 올립니다.
> --------------------------------------------------------
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, Buttons, FileCtrl, ShellAPI;
>
> type
> TForm1 = class(TForm)
> procedure FormCreate(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.FormCreate(Sender: TObject);
> var
> copyfiles : TSHFileOpStruct;
> str1, str2 : pchar;
> begin
> if not DirectoryExists('e:test2') then
> if not CreateDir('e:test2') then
> raise Exception.Create('Cannot create e:test2');
> with copyfiles do
> begin
> wnd := 0;
> wfunc := fo_copy;
> pfrom := ('e:test1111.txt');
> pto := ('e:test2111.txt');
> fflags := fof_simpleprogress;
> end;
> if fileexists('e:test2111.txt') then
> begin
> if fileage('e:test2111.txt') <> fileage('e:test1111.txt') then
> shfileoperation(copyfiles)
> end
> else
> shfileoperation(copyfiles);
>
> str1 := ('e:test1111.txt');
> str2 := ('e:test2111.txt');
> winexec(strpcopy(str1, str2), sw_show);
> Close;
> end;
>
> end.
> ------------------------------------------------------------------------------
> 실행이 된 다음에 디렉토리도 만들고 파일도 복사 / 갱신도 됩니다.
> 그런데 작업을 수행한 다음과 같은 에러 메세지가 나오는데 무엇이 문제인지 모르겠습니다.
> 디버깅을 해보니까 다음 부분에서 에러가 걸리더라구요..
> winexec(strpcopy(str1, str2), sw_show);
>
> <에러 메세지>
> access violation at address 00407DE9 in module 'update.exe', Write or address 0043E6E0.
>
> 고수님들 도와 주십시요..
>
>
>