Q&A
- Winexec실행시 FullPath를 주면 실행이 안됩니다...
procedure TfPos.N22Click(Sender: TObject);
var fname, Apppath : string;
begin
if MessageDlg('백업을 진행하시겠습니까?', mtConfirmation, mbOkCancel, 0) = mrOk then
begin
panel1.Visible := True;
medate.text := formatdatetime('yyyymmdd',now);
medate.SelectAll;
edate.text := medate.text;
Apppath := extractFilePath(application.exename);
Apppath := copy(Apppath,1,length(Apppath)-7)+'backup';
fname := Apppath+'exp73 POS/POS@POS file='+label2.caption+edate.text+' compress=y buffer=1024000';
winexec(pchar(fname),sw_normal);
showmessage('작업 OK!');
panel1.Visible := False;
end
else showmessage('작업 취소');
end;
Database는 Personal ORacle7입니다.
위에서 winexec('exp73 POS/POS@POS file=test compress=y buffer=1024000',sw_normal)을 사용하면 정상적인 DOS창 화면에서 Export작업을 수행을 합니다. 그런데, 원하는 경로에 Export작업을 하려 Path를 앞에 붙여주면 Error없이 수행이 되질 않습니다.
var fname, Apppath : string;
begin
if MessageDlg('백업을 진행하시겠습니까?', mtConfirmation, mbOkCancel, 0) = mrOk then
begin
panel1.Visible := True;
medate.text := formatdatetime('yyyymmdd',now);
medate.SelectAll;
edate.text := medate.text;
Apppath := extractFilePath(application.exename);
Apppath := copy(Apppath,1,length(Apppath)-7)+'backup';
fname := Apppath+'exp73 POS/POS@POS file='+label2.caption+edate.text+' compress=y buffer=1024000';
winexec(pchar(fname),sw_normal);
showmessage('작업 OK!');
panel1.Visible := False;
end
else showmessage('작업 취소');
end;
Database는 Personal ORacle7입니다.
위에서 winexec('exp73 POS/POS@POS file=test compress=y buffer=1024000',sw_normal)을 사용하면 정상적인 DOS창 화면에서 Export작업을 수행을 합니다. 그런데, 원하는 경로에 Export작업을 하려 Path를 앞에 붙여주면 Error없이 수행이 되질 않습니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 한수리
- 2000.05.04 04:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 최용일
- 2000.05.04 04:24
- 0 COMMENTS
- /
- 0 LIKES
-
- blueofsky
- •
- 2000.05.04 03:43
- 3 COMMENTS
- /
- 0 LIKES
-
김일영•2000.05.04 04:24상황을 제대로 짐작한 것인지 모르겠지만, 아마도 문제된 코드가 show되었다는 그 하위폼에 있는 것 같은...
-
blueofsky•2000.05.04 18:39제가 말씀드릴려고 하는것은... MDI폼으로 만들었습니다. 그리고 폼을 생성시킬때는 Create문을 사용해서 ...
-
김일영•2000.05.04 22:01form2.edit1.text := 'test';라는 코딩을 하는 것과, form2에서 하위폼인 form3을 show하고 form3에서 검...
-
- 희
- •
- 2000.05.04 03:41
- 1 COMMENTS
- /
- 0 LIKES
-
이재원•2000.05.04 11:54여러가지 방법이있는데요 만일 테이블에서 Filtering을 사용하시려면 Table1.Active:=False; T...
-
- 양은주
- •
- 2000.05.04 03:32
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.05.04 05:25양은주 wrote: > 안녕하세요?? > 자주 질문을 올리는것 같아 죄송하군요... > > 그럼에도 불구하고 또...
-
- 황남철
- 2000.05.04 03:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 황남철
- •
- 2000.05.04 03:17
- 1 COMMENTS
- /
- 0 LIKES
-
윤석천•2000.05.04 17:50황남철 wrote: > 마스터와 디테일로 연결된 table에서 마스터삭제시 디테일도 같이 삭제 되게할려면 > 마...
-
- 권애리
- •
- 2000.05.04 03:09
- 2 COMMENTS
- /
- 0 LIKES
-
이재원•2000.05.04 11:13AsyncFreeD#.DPK 화일을 열고 Install 단추를 눌러주시면 됩니당. 시험은 데모 프로젝 따라오는거 콤파일 ...
-
권애리•2000.05.04 20:23인스톨 하는 중에 에러 생기면.. 어떻하죠.. 자꾸 에러가 나에여.. sample도 빌드도 안되구.여.. 흑흑.. ...
-
- Mr.Q
- •
- 2000.05.04 03:03
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.05.04 06:09DBLookupCombobox.keyvalue := '나'; keyvalue라는 값에 원하는 값을 넣어주면 됩니다..... Mr.Q...
-
- 배봉숙
- •
- 2000.05.04 02:55
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.05.04 06:16이름필드를 가지고 그룹을 지정한후에 그룹footer밴드의 after print이벤트에 페이지를 넘기는 코드를 ...
-
- 정수현
- 2000.05.04 02:42
- 0 COMMENTS
- /
- 0 LIKES
-
- cjang
- 2000.05.04 02:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 박경환
- •
- 2000.05.04 02:22
- 1 COMMENTS
- /
- 0 LIKES
-
강민주•2000.05.04 03:20박경환 wrote: > 인터넷 관련 컴포넌트를 구하고 싶은데.. 국 내외 사이트를 돌아다녀 봤는데.. 별로 없네...
-
- 어린왕자
- 2000.05.04 02:18
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 표기찬
- •
- 2000.05.04 01:42
- 1 COMMENTS
- /
- 0 LIKES
procedure TfPos.N22Click(Sender: TObject); var fname, Apppath : string; begin if MessageDlg('백업을 진행하시겠습니까?', mtConfirmation, mbOkCancel, 0) = mrOk then begin panel1.Visible := True; medate.text := formatdatetim...-
최용일•2000.05.04 04:14안녕하세요. 최용일입니다. WinExec로 실행할 때 패스를 이용하실려면 반드시 그 패스에 파일이 있어야 ...
-
- 어린왕자
- •
- 2000.05.04 01:35
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2000.05.04 05:53어린왕자 wrote: > 안녕하세요..영원한 델초보 어린왕자입니다.. > 오늘은 디비그리드를 장난감삼아 가지...
-
어린왕자•2000.05.08 23:51아..안녕하세요..창민님..영원한 델초보 어린왕자입니다.. 그동안 다른 작업때문에..T.T..이제서야..다시 ...
-
- 문소은
- •
- 2000.05.04 01:25
- 3 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.05.04 03:43문소은 wrote: > 안녕하세요? > > 전 데이타베이스에 테이블에 저장된 날짜를 불러와서 델파이 프로그...
-
어린왕자•2000.05.04 01:40문소은 wrote: > 안녕하세요? > > 전 데이타베이스에 테이블에 저장된 날짜를 불러와서 델파이 프로그...
-
황남철•2000.05.04 01:29문소은 wrote: > 안녕하세요? > > 전 데이타베이스에 테이블에 저장된 날짜를 불러와서 델파이 프...
-
- 박설화
- •
- 2000.05.04 01:10
- 1 COMMENTS
- /
- 0 LIKES
-
김영해•2000.05.04 01:57박설화 wrote: > 제가 구상하고 있는 건은 보험료를 산출하는 건데 > 디비에 해당값들을 모두 입력해 놓...
-
- 이정설
- 2000.05.04 01:05
- 0 COMMENTS
- /
- 0 LIKES
WinExec로 실행할 때 패스를 이용하실려면 반드시 그 패스에 파일이 있어야 합니다.
> Apppath := copy(Apppath,1,length(Apppath)-7)+'backup';
> fname := Apppath+'exp73 POS/POS@POS file='+label2.caption+edate.text+'
위에서 보면 Apppath(...backup) 에 실행 파일이 있어야 실행이 됩니다.
WinExec는 예외를 발생하지 않습니다. 실행 파일이 없다하더라고 그냥 종료됩니다.
제대로 실행되었는가를 알아보시려면 리턴값을 조사해보세요. 31보다 큰값이
리턴된다면 성공적으로 함수가 수행된것입니다.
^^ 항상 즐코하세요.
표기찬 wrote:
> procedure TfPos.N22Click(Sender: TObject);
> var fname, Apppath : string;
> begin
> if MessageDlg('백업을 진행하시겠습니까?', mtConfirmation, mbOkCancel, 0) = mrOk then
> begin
> panel1.Visible := True;
> medate.text := formatdatetime('yyyymmdd',now);
> medate.SelectAll;
> edate.text := medate.text;
> Apppath := extractFilePath(application.exename);
> Apppath := copy(Apppath,1,length(Apppath)-7)+'backup';
> fname := Apppath+'exp73 POS/POS@POS file='+label2.caption+edate.text+' compress=y buffer=1024000';
> winexec(pchar(fname),sw_normal);
> showmessage('작업 OK!');
> panel1.Visible := False;
> end
> else showmessage('작업 취소');
> end;
>
> Database는 Personal ORacle7입니다.
> 위에서 winexec('exp73 POS/POS@POS file=test compress=y buffer=1024000',sw_normal)을 사용하면 정상적인 DOS창 화면에서 Export작업을 수행을 합니다. 그런데, 원하는 경로에 Export작업을 하려 Path를 앞에 붙여주면 Error없이 수행이 되질 않습니다.