한국 델파이 개발자 모임 - 자동 다운로드 프로그램 작성시 의문점

자동 다운로드 프로그램 작성시 의문점

자동 다운로드 프로그램을 만들고자 합니다.

과정은,

프로그램 실행

--> DB에서 버젼을 체크

--> 업버젼이 있으면 현재 폴더와는 다른 폴더로 다운로드

--> 다운로드 파일 실행

--> 버젼업전 프로그램 종료

--> 실행중인 파일이 다운로드 파일이면 홈폴더에 복사후 복사한 파일 실행하고 다운로드 파일 종료

--> 다운로드 완료

의문점은,

다운로드 파일 실행시 ShowMessage박스(아래의 --> 부분) 가 없으면

이 후의

CopyFile(PChar(wTmpFile),PChar(wHomeDir+wPgmName),false);

WinExec(PChar(wHomeDir+wPgmName), SW_SHOW);

프로시져가 실행되지 않는군요.

ShowMessage박스가 있으면 잘 되는데 왜 그럴까요?

도와주십시요. 벌써 3일째 고민중...

procedure TAsptStartForm.FormActivate(Sender: TObject);

var

sqlstr : String;

AsptReg, AutoRunReg : TRegistry;

wHomeDir, wPgmName, wVersion, wTmpFile : String;

wDownFile, wNewVersion : String;

LoginModal : TModalResult;

begin

try

AsptReg := TRegistry.Create;

AsptReg.RootKey := HKEY_LOCAL_MACHINE;

AsptReg.OpenKey('SOFTWAREAsptReport',True);

if not AsptReg.ValueExists('HomeDir') then // 신규등록

begin

// 파일정보 등록

AsptReg.WriteString('Homedir',ExtractFilePath(Application.ExeName));

AsptReg.WriteString('PgmName',ExtractFileName(Application.ExeName));

AsptReg.WriteString('Version',GGetCurrentDBDateTime(QTmp));

AsptReg.WriteString('TmpFile',ExtractFilePath(Application.ExeName)+'AspectReport_Tmp.exe');

AsptReg.CloseKey;

AsptReg.Free;

// 자동실행 등록

AutoRunReg := TRegistry.Create;

AutoRunReg.RootKey := HKEY_LOCAL_MACHINE;

AutoRunReg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun',False);

AutoRunReg.WriteString('AspectReport',Application.ExeName);

AutoRunReg.CloseKey;

AutoRunReg.Free;

end

else // 버젼 비교 후 다운로드

begin

// 레지스트리 정보

wHomeDir := AsptReg.ReadString('Homedir');

wPgmName := AsptReg.ReadString('PgmName');

wVersion := AsptReg.ReadString('Version');

wTmpFile := AsptReg.ReadString('TmpFile');

// 정상실행인 경우

if UpperCase(ExtractFilePath(Application.ExeName))=UpperCase(wHomeDir) then

begin

QTmp.Close;

QTmp.SQL.Clear;

sqlstr := 'SELECT PGM_DATE FROM ASPT_PGM_BANK';

sqlstr := sqlstr + ' WHERE PGM_NAME='''+wPgmName+'''';

sqlstr := sqlstr + ' AND PGM_SQS=''1''';

QTmp.SQL.Add( sqlstr );

QTmp.Open;

if QTmp.FieldByName('PGM_DATE').AsString > wVersion then // Version이 변경되었으면

begin

DownLoad(wHomeDir, wPgmName, wDownFile, wNewVersion); // 다운로드

// Registry Update

AsptReg.WriteString('TmpFile',UpperCase(wDownFile));

AsptReg.WriteString('Version',wNewVersion);

AsptReg.CloseKey;

AsptReg.Free;

WinExec(PChar(wDownFile), SW_SHOW); // 다운받은 파일실행

Close; // 시스템 종료

exit;

end;

AsptReg.CloseKey;

AsptReg.Free;

end

// 현재 실행중인 파일이 다운받은 파일이면 Home Folder로 복사후 복사한 파일 실행

else if UpperCase(Application.ExeName)=UpperCase(wTmpFile) then // 대소문자 구분하드라

begin

--> 이부분 ShowMessage('프로그램의 업데이트가 완료되었습니다.'); // 반드시 있어야만 복사후 실행이 됨. (왜?)

CopyFile(PChar(wTmpFile),PChar(wHomeDir+wPgmName),false);

AsptReg.CloseKey;

AsptReg.Free;

WinExec(PChar(wHomeDir+wPgmName), SW_SHOW); // 복사한 파일실행

Close; // 시스템 종료

exit;

end

// 프로그램의 폴더를 옮긴경우

else if UpperCase(ExtractFilePath(Application.ExeName))<>UpperCase(wHomeDir) then

begin

AsptReg.WriteString('HomeDir',ExtractFilePath(Application.ExeName)); // Home Directory 변경

AsptReg.CloseKey;

AsptReg.Free;

end;

// 임시저장 파일이 있으면 삭제

if FileExists(wTmpFile) then DeleteFile(wTmpFile);

end;

except

end;

이 게시물을

3 COMMENTS

정광호 • 2001.11.24 19:50

정광호 wrote:

답변 주신 분들 고맙습니다.

두 분이 주신 답변에 따라 테스트를 해 보았지만 아니 되는군요.

문제는 파일 복사에 있는 것이 아닌 듯 싶기도 하고...

아뭏든 답변 주신분들 항상 행복하세요.
- 0
- 0
- 삭제
- 수정
- 댓글
지나가는이... • 2001.11.24 01:49

CopyFile대신에 아래의 Function을 사용해보세요...

function fcSHCopy(srcfname,tgtfname: string): boolean;

var

inf: TSHFileOpStruct;

FHandle: THandle;

begin

Result := False;

srcfname := srcfname+#0#0;

tgtfname := tgtfname+#0#0;

inf.wnd := FHandle;

inf.wFunc := FO_COPY;

inf.pFrom := PChar(srcfname);

inf.pTo := PChar(tgtfname);

// inf.fFlags := FOF_SIMPLEPROGRESS;

inf.fFlags := 0 or FOF_MULTIDESTFILES;

inf.lpszProgressTitle := 'Copy중입니다';

if SHFileOperation(inf) = 0 then

Result := True

else

Result := False;

end;

정광호 wrote:

> 자동 다운로드 프로그램을 만들고자 합니다.

> 과정은,

> 프로그램 실행

> --> DB에서 버젼을 체크

> --> 업버젼이 있으면 현재 폴더와는 다른 폴더로 다운로드

> --> 다운로드 파일 실행

> --> 버젼업전 프로그램 종료

> --> 실행중인 파일이 다운로드 파일이면 홈폴더에 복사후 복사한 파일 실행하고 다운로드 파일 종료

> --> 다운로드 완료

>

> 의문점은,

> 다운로드 파일 실행시 ShowMessage박스(아래의 --> 부분) 가 없으면

> 이 후의

> CopyFile(PChar(wTmpFile),PChar(wHomeDir+wPgmName),false);

> WinExec(PChar(wHomeDir+wPgmName), SW_SHOW);

> 프로시져가 실행되지 않는군요.

> ShowMessage박스가 있으면 잘 되는데 왜 그럴까요?

> 도와주십시요. 벌써 3일째 고민중...

>

> procedure TAsptStartForm.FormActivate(Sender: TObject);

> var

> sqlstr : String;

> AsptReg, AutoRunReg : TRegistry;

> wHomeDir, wPgmName, wVersion, wTmpFile : String;

> wDownFile, wNewVersion : String;

> LoginModal : TModalResult;

> begin

> try

> AsptReg := TRegistry.Create;

> AsptReg.RootKey := HKEY_LOCAL_MACHINE;

> AsptReg.OpenKey('SOFTWAREAsptReport',True);

> if not AsptReg.ValueExists('HomeDir') then // 신규등록

> begin

> // 파일정보 등록

> AsptReg.WriteString('Homedir',ExtractFilePath(Application.ExeName));

> AsptReg.WriteString('PgmName',ExtractFileName(Application.ExeName));

> AsptReg.WriteString('Version',GGetCurrentDBDateTime(QTmp));

> AsptReg.WriteString('TmpFile',ExtractFilePath(Application.ExeName)+'AspectReport_Tmp.exe');

> AsptReg.CloseKey;

> AsptReg.Free;

> // 자동실행 등록

> AutoRunReg := TRegistry.Create;

> AutoRunReg.RootKey := HKEY_LOCAL_MACHINE;

> AutoRunReg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun',False);

> AutoRunReg.WriteString('AspectReport',Application.ExeName);

> AutoRunReg.CloseKey;

> AutoRunReg.Free;

> end

> else // 버젼 비교 후 다운로드

> begin

> // 레지스트리 정보

> wHomeDir := AsptReg.ReadString('Homedir');

> wPgmName := AsptReg.ReadString('PgmName');

> wVersion := AsptReg.ReadString('Version');

> wTmpFile := AsptReg.ReadString('TmpFile');

> // 정상실행인 경우

> if UpperCase(ExtractFilePath(Application.ExeName))=UpperCase(wHomeDir) then

> begin

> QTmp.Close;

> QTmp.SQL.Clear;

> sqlstr := 'SELECT PGM_DATE FROM ASPT_PGM_BANK';

> sqlstr := sqlstr + ' WHERE PGM_NAME='''+wPgmName+'''';

> sqlstr := sqlstr + ' AND PGM_SQS=''1''';

> QTmp.SQL.Add( sqlstr );

> QTmp.Open;

> if QTmp.FieldByName('PGM_DATE').AsString > wVersion then // Version이 변경되었으면

> begin

> DownLoad(wHomeDir, wPgmName, wDownFile, wNewVersion); // 다운로드

> // Registry Update

> AsptReg.WriteString('TmpFile',UpperCase(wDownFile));

> AsptReg.WriteString('Version',wNewVersion);

> AsptReg.CloseKey;

> AsptReg.Free;

> WinExec(PChar(wDownFile), SW_SHOW); // 다운받은 파일실행

> Close; // 시스템 종료

> exit;

> end;

> AsptReg.CloseKey;

> AsptReg.Free;

> end

> // 현재 실행중인 파일이 다운받은 파일이면 Home Folder로 복사후 복사한 파일 실행

> else if UpperCase(Application.ExeName)=UpperCase(wTmpFile) then // 대소문자 구분하드라

> begin

> --> 이부분 ShowMessage('프로그램의 업데이트가 완료되었습니다.'); // 반드시 있어야만 복사후 실행이 됨. (왜?)

> CopyFile(PChar(wTmpFile),PChar(wHomeDir+wPgmName),false);

> AsptReg.CloseKey;

> AsptReg.Free;

> WinExec(PChar(wHomeDir+wPgmName), SW_SHOW); // 복사한 파일실행

> Close; // 시스템 종료

> exit;

> end

> // 프로그램의 폴더를 옮긴경우

> else if UpperCase(ExtractFilePath(Application.ExeName))<>UpperCase(wHomeDir) then

> begin

> AsptReg.WriteString('HomeDir',ExtractFilePath(Application.ExeName)); // Home Directory 변경

> AsptReg.CloseKey;

> AsptReg.Free;

> end;

> // 임시저장 파일이 있으면 삭제

> if FileExists(wTmpFile) then DeleteFile(wTmpFile);

> end;

> except

> end;

>
- 0
- 0
- 삭제
- 수정
- 댓글
이경문 • 2001.11.22 10:24

Download가 아직 정상적으로 완료되지 않은 상태에서

CopyFile을 하려고 해서 생기는 문제같습니다.

ShowMessage가 Download라는 함수가 정상적으로 종료되는 데

시간을 벌어주는 셈이지요.

정확한 원인이라고 할 수는 없지만요... ^^

정광호 wrote:

> 자동 다운로드 프로그램을 만들고자 합니다.

> 과정은,

> 프로그램 실행

> --> DB에서 버젼을 체크

> --> 업버젼이 있으면 현재 폴더와는 다른 폴더로 다운로드

> --> 다운로드 파일 실행

> --> 버젼업전 프로그램 종료

> --> 실행중인 파일이 다운로드 파일이면 홈폴더에 복사후 복사한 파일 실행하고 다운로드 파일 종료

> --> 다운로드 완료

>

> 의문점은,

> 다운로드 파일 실행시 ShowMessage박스(아래의 --> 부분) 가 없으면

> 이 후의

> CopyFile(PChar(wTmpFile),PChar(wHomeDir+wPgmName),false);

> WinExec(PChar(wHomeDir+wPgmName), SW_SHOW);

> 프로시져가 실행되지 않는군요.

> ShowMessage박스가 있으면 잘 되는데 왜 그럴까요?

> 도와주십시요. 벌써 3일째 고민중...

>

> procedure TAsptStartForm.FormActivate(Sender: TObject);

> var

> sqlstr : String;

> AsptReg, AutoRunReg : TRegistry;

> wHomeDir, wPgmName, wVersion, wTmpFile : String;

> wDownFile, wNewVersion : String;

> LoginModal : TModalResult;

> begin

> try

> AsptReg := TRegistry.Create;

> AsptReg.RootKey := HKEY_LOCAL_MACHINE;

> AsptReg.OpenKey('SOFTWAREAsptReport',True);

> if not AsptReg.ValueExists('HomeDir') then // 신규등록

> begin

> // 파일정보 등록

> AsptReg.WriteString('Homedir',ExtractFilePath(Application.ExeName));

> AsptReg.WriteString('PgmName',ExtractFileName(Application.ExeName));

> AsptReg.WriteString('Version',GGetCurrentDBDateTime(QTmp));

> AsptReg.WriteString('TmpFile',ExtractFilePath(Application.ExeName)+'AspectReport_Tmp.exe');

> AsptReg.CloseKey;

> AsptReg.Free;

> // 자동실행 등록

> AutoRunReg := TRegistry.Create;

> AutoRunReg.RootKey := HKEY_LOCAL_MACHINE;

> AutoRunReg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun',False);

> AutoRunReg.WriteString('AspectReport',Application.ExeName);

> AutoRunReg.CloseKey;

> AutoRunReg.Free;

> end

> else // 버젼 비교 후 다운로드

> begin

> // 레지스트리 정보

> wHomeDir := AsptReg.ReadString('Homedir');

> wPgmName := AsptReg.ReadString('PgmName');

> wVersion := AsptReg.ReadString('Version');

> wTmpFile := AsptReg.ReadString('TmpFile');

> // 정상실행인 경우

> if UpperCase(ExtractFilePath(Application.ExeName))=UpperCase(wHomeDir) then

> begin

> QTmp.Close;

> QTmp.SQL.Clear;

> sqlstr := 'SELECT PGM_DATE FROM ASPT_PGM_BANK';

> sqlstr := sqlstr + ' WHERE PGM_NAME='''+wPgmName+'''';

> sqlstr := sqlstr + ' AND PGM_SQS=''1''';

> QTmp.SQL.Add( sqlstr );

> QTmp.Open;

> if QTmp.FieldByName('PGM_DATE').AsString > wVersion then // Version이 변경되었으면

> begin

> DownLoad(wHomeDir, wPgmName, wDownFile, wNewVersion); // 다운로드

> // Registry Update

> AsptReg.WriteString('TmpFile',UpperCase(wDownFile));

> AsptReg.WriteString('Version',wNewVersion);

> AsptReg.CloseKey;

> AsptReg.Free;

> WinExec(PChar(wDownFile), SW_SHOW); // 다운받은 파일실행

> Close; // 시스템 종료

> exit;

> end;

> AsptReg.CloseKey;

> AsptReg.Free;

> end

> // 현재 실행중인 파일이 다운받은 파일이면 Home Folder로 복사후 복사한 파일 실행

> else if UpperCase(Application.ExeName)=UpperCase(wTmpFile) then // 대소문자 구분하드라

> begin

> --> 이부분 ShowMessage('프로그램의 업데이트가 완료되었습니다.'); // 반드시 있어야만 복사후 실행이 됨. (왜?)

> CopyFile(PChar(wTmpFile),PChar(wHomeDir+wPgmName),false);

> AsptReg.CloseKey;

> AsptReg.Free;

> WinExec(PChar(wHomeDir+wPgmName), SW_SHOW); // 복사한 파일실행

> Close; // 시스템 종료

> exit;

> end

> // 프로그램의 폴더를 옮긴경우

> else if UpperCase(ExtractFilePath(Application.ExeName))<>UpperCase(wHomeDir) then

> begin

> AsptReg.WriteString('HomeDir',ExtractFilePath(Application.ExeName)); // Home Directory 변경

> AsptReg.CloseKey;

> AsptReg.Free;

> end;

> // 임시저장 파일이 있으면 삭제

> if FileExists(wTmpFile) then DeleteFile(wTmpFile);

> end;

> except

> end;

>
- 0
- 0
- 삭제
- 수정
- 댓글

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

- wooki
- 2001.11.21 23:32
- 0 COMMENTS
- /
- 0 LIKES
마우스훅을 이용한 가상키보드구현중에 한글처리문제
- Jane
- •
- 2001.11.21 23:12
- 1 COMMENTS
- /
- 0 LIKES
Like 사용법 좀 가르쳐 주세요...제발요..
- 나두초보~~
  
  •
  
  2001.11.22 01:22
  
  ㅡ,.ㅡ; 아래와 같이 고치세요.. Jane wrote: > 잘 안되네요.... > 좀 가르쳐 주시겠어요. like 부문...
- nthroot
- •
- 2001.11.21 23:08
- 2 COMMENTS
- /
- 0 LIKES
절대적인 시간 구하는 방법..
- 홍성락
  
  •
  
  2001.11.22 02:30
  
  nthroot wrote: > > 클라이언트 컴퓨터 의존적이지 않은 시간을 구하는 방법을 알고 싶습니다. > > ...
- 씨나락
  
  •
  
  2001.11.22 02:20
  
  nthroot wrote: 오라클을 기준으로 서버의 시간을 알수 있는 SQL스크립트입니다. SELECT TO_CHAR(SYSDA...
- 정광호
- •
- •
- 2001.11.21 22:50
- 3 COMMENTS
- /
- 2 LIKES
자동 다운로드 프로그램 작성시 의문점

자동 다운로드 프로그램을 만들고자 합니다. 과정은, 프로그램 실행 --> DB에서 버젼을 체크 --> 업버젼이 있으면 현재 폴더와는 다른 폴더로 다운로드 --> 다운로드 파일 실행 --> 버젼업전 프로그램 종료 --> 실행중인 파일이 다운로드 ...
- 정광호
  
  •
  
  2001.11.24 19:50
  
  정광호 wrote: 답변 주신 분들 고맙습니다. 두 분이 주신 답변에 따라 테스트를 해 보았지만 아니 되...
- 지나가는이...
  
  •
  
  2001.11.24 01:49
  
  CopyFile대신에 아래의 Function을 사용해보세요... function fcSHCopy(srcfname,tgtfname: string): bool...
- 이경문
  
  •
  
  2001.11.22 10:24
  
  Download가 아직 정상적으로 완료되지 않은 상태에서 CopyFile을 하려고 해서 생기는 문제같습니다. Show...
- 꾸룽껭
- 2001.11.21 22:16
- 0 COMMENTS
- /
- 0 LIKES
폼의 우측상단 아이콘의 ? 는 어케사용하나요?
- 항시
- 2001.11.21 21:34
- 0 COMMENTS
- /
- 0 LIKES
VC++ 과의 콜백함수 사용법에 대해...
- 초보
- 2001.11.21 20:58
- 0 COMMENTS
- /
- 0 LIKES
프로그램 종료 에러
- 김소희
- •
- 2001.11.21 20:52
- 1 COMMENTS
- /
- 0 LIKES
MDI TAB
- 나두초보~~
  
  •
  
  2001.11.22 01:24
  
  델파이에 해당 mditab 컴포런트를 설치하여야 합니다. ㅡ,.ㅡ 컴포런트가 없기땜시 그런 메세지가 뜨지요...
- 새벽기차
- 2001.11.21 20:49
- 0 COMMENTS
- /
- 0 LIKES
interbase -> ms-sql2000 이전?
- 자홍
- 2001.11.21 20:34
- 0 COMMENTS
- /
- 0 LIKES
bde엔진 레지스트리 를 삽입하려면?
- 임기화
- 2001.11.21 20:34
- 0 COMMENTS
- /
- 0 LIKES
임시 테이블 생성에 관하여..잘 모르겠습니다.T.T
- elegance
- •
- 2001.11.21 23:31
- 1 COMMENTS
- /
- 0 LIKES
Tchart 와 Quick Report 의 버전 문제...ㅠㅠ
- 박상주
  
  •
  
  2001.11.22 18:49
  
  델파이에서 TChart 또는 Quick Report를 업그레이드하면 QrTee의 버전이 일치하지 않다는 컴파일 오류가 발...
- 초보델피언
- •
- 2001.11.21 19:59
- 1 COMMENTS
- /
- 0 LIKES
Length함수에 관해..궁금해요???...
- 홍성락
  
  •
  
  2001.11.21 20:39
  
  초보델피언 wrote: > 다름이 아니라...... > ================================= > if Length(S) = 94 ...
- poh
- •
- 2001.11.21 19:36
- 1 COMMENTS
- /
- 0 LIKES
[통신질문]소켓소스
- 창돌
  
  •
  
  2001.11.21 22:42
  
  자료실에 검색해 보세요. 델파이 에서 제공되는 소켓 말고 indy 사용를 해보세요. 예제도 있고 인디를 많...
- 델피초보
- •
- 2001.11.21 19:32
- 1 COMMENTS
- /
- 0 LIKES
rx컴포넌트 설치후,,,,에러가,,
- 박상주
  
  •
  
  2001.11.22 18:54
  
  Delphi -> Tools -> Environment Options -> Library -> Library Path에 Rx컴포넌트 아래의 Units 폴더가 ...
- 바보
- 2001.11.21 19:14
- 0 COMMENTS
- /
- 0 LIKES
(질문) 출력물을 파일로?
- 창훈
- 2001.11.21 18:42
- 0 COMMENTS
- /
- 0 LIKES
질문) 리포트 결과물 조절 컴포넌트..?
- oldtape
- •
- 2001.11.21 13:50
- 1 COMMENTS
- /
- 0 LIKES
16진수 연산에 대해....고수님들 부탁!
- 홍성락
  
  •
  
  2001.11.21 18:54
  
  oldtape wrote: > 안녕하세요.. 넘 초보같은 질문같아서 죄송하고여.. > > 예를들어 > $42F1 + $0012 ...
- 우리들
- 2001.11.21 10:54
- 0 COMMENTS
- /
- 0 LIKES
델파이로 게시판 기능을..
- necromensor
- 2001.11.21 09:06
- 0 COMMENTS
- /
- 0 LIKES
네트워크)내부네트워크상의 프로세서 살았나죽었나확인하기?

정광호
2001/11/21 22:50
Views688

Likes2

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

1478 1479 1480 1481 1482 1483 1484 1485 1486 1487

Last Page→