Q&A
- WinExec에 관한 질문여......꼭좀 봐주세여
안녕하세요 커피향기입니다. 올만에 올리는 질문이네여^^
다름이 아니라 밑에 코딩을 보면 아시겠지만 filename을 추출해서
Winexec를 써서리 포트란으로 짠 프로그램하구 연동시키는 건데여
결과는 나오는데 계속 에러가 나네여.....
에러문장
'Access violation at address 202E6161. Read of address 202E6161'
에구 정말루 모르겠습니다. 왜 이런 에러가 나오는 건지 ㅡ.ㅡ;;
고수님들 꼭좀 갈켜 주세여.........
procedure TForm1.Button3Click(Sender: TObject);
var
b : String;
k : PChar;
addr : string;
j : integer;
re : string;
begin
if OpenDialog1.Execute then
edit39.text := ExtractFileName(OpenDialog1.FileName);
addr := edit39.text;
j := length(edit39.text);
e := copy( addr, 1, j-3);
re := trim(re); // 혹시 모를 공백...땜시
b := 'c:kepcotpbig disk' + ' ' + re + ' ' + re + ' ' + '-r';
StrPCopy(k, b);
WinExec(k,1);
end;
다름이 아니라 밑에 코딩을 보면 아시겠지만 filename을 추출해서
Winexec를 써서리 포트란으로 짠 프로그램하구 연동시키는 건데여
결과는 나오는데 계속 에러가 나네여.....
에러문장
'Access violation at address 202E6161. Read of address 202E6161'
에구 정말루 모르겠습니다. 왜 이런 에러가 나오는 건지 ㅡ.ㅡ;;
고수님들 꼭좀 갈켜 주세여.........
procedure TForm1.Button3Click(Sender: TObject);
var
b : String;
k : PChar;
addr : string;
j : integer;
re : string;
begin
if OpenDialog1.Execute then
edit39.text := ExtractFileName(OpenDialog1.FileName);
addr := edit39.text;
j := length(edit39.text);
e := copy( addr, 1, j-3);
re := trim(re); // 혹시 모를 공백...땜시
b := 'c:kepcotpbig disk' + ' ' + re + ' ' + re + ' ' + '-r';
StrPCopy(k, b);
WinExec(k,1);
end;
2
COMMENTS
-
-
블랙봉 wrote:
> StrPCopy(k, b); <-- 이 부분 때문에 에러가 난게 아닌가 생각되는군요.
> PChar로 선언되 k에 대해 메모리 할당이 안된 것 같습니다.
> > StrPCopy(k, b);
> > WinExec(k,1);
>
> 위 두 문장을
> WinExec(PChar(b),1);
> 로 바꿔보세요.
>
>
> 커피향기.. wrote:
> > 안녕하세요 커피향기입니다. 올만에 올리는 질문이네여^^
> > 다름이 아니라 밑에 코딩을 보면 아시겠지만 filename을 추출해서
> > Winexec를 써서리 포트란으로 짠 프로그램하구 연동시키는 건데여
> > 결과는 나오는데 계속 에러가 나네여.....
> > 에러문장
> >
> > 'Access violation at address 202E6161. Read of address 202E6161'
> >
> > 에구 정말루 모르겠습니다. 왜 이런 에러가 나오는 건지 ㅡ.ㅡ;;
> > 고수님들 꼭좀 갈켜 주세여.........
> >
> > procedure TForm1.Button3Click(Sender: TObject);
> > var
> > b : String;
> > k : PChar;
> > addr : string;
> > j : integer;
> > re : string;
> >
> > begin
> > if OpenDialog1.Execute then
> > edit39.text := ExtractFileName(OpenDialog1.FileName);
> > addr := edit39.text;
> > j := length(edit39.text);
> > e := copy( addr, 1, j-3);
> > re := trim(re); // 혹시 모를 공백...땜시
> > b := 'c:kepcotpbig disk' + ' ' + re + ' ' + re + ' ' + '-r';
> > StrPCopy(k, b);
> > WinExec(k,1);
> > end;
> >
답변감사합니다.^^*
그렇게 해보니까 되네여
(NOTICE) You must be logged in to comment on this post.
-
- 블랙봉
- 2001.07.10 03:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 임은재
- 2001.07.10 03:18
- 0 COMMENTS
- /
- 0 LIKES
-
-
jun•2001.07.11 22:26엔젤조 wrote: > 이거는 델파이랑은 관계가 없는것 같은데 > 궁금해서 좀 물어 봅니다.. > 일반 HTML문...
-
-
- 김현
- 2001.07.10 03:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 이병협
- 2001.07.10 02:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 커피향기..
- •
- 2001.07.10 02:49
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요 커피향기입니다. 올만에 올리는 질문이네여^^ 다름이 아니라 밑에 코딩을 보면 아시겠지만 filename을 추출해서 Winexec를 써서리 포트란으로 짠 프로그램하구 연동시키는 건데여 결과는 나오는데 계속 에러가 나네여..... 에...-
블랙봉•2001.07.10 03:12StrPCopy(k, b); StrPCopy(k, b); > WinExec(k,1); 위 두 문장을 WinExec(PChar(b),1...
-
커피향기..•2001.07.10 22:46블랙봉 wrote: > StrPCopy(k, b); PChar로 선언되 k에 대해 메모리 할당이 안된 것 같습니다. > > ...
-
- 어린왕자
- •
- 2001.07.10 02:18
- 3 COMMENTS
- /
- 0 LIKES
-
정성훈•2001.07.10 02:29어린왕자 wrote: > 안녕하셔요..영원한 델초보 어린왕자입니다.. > > DB의 데이타들을 파일로 저장하고...
-
어린왕자•2001.07.10 02:55Memo1.Lines.Add( Query1.FieldByName( '필드명' ).AsString ); 이렇게 저장해버리면.. 나중에는 어떻게 ...
-
정성훈•2001.07.10 20:06안녕하세요. 저장하실때 필드마다 특정한 구분자를 넣으시면 어떨런지요? 불러올때 그 구분자를 기준으로...
-
- 이태호
- 2001.07.10 01:46
- 0 COMMENTS
- /
- 0 LIKES
-
- xxx
- 2001.07.10 01:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 이태호
- 2001.07.10 01:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2001.07.10 01:34
- 0 COMMENTS
- /
- 0 LIKES
-
- delcho
- 2001.07.10 01:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 전상국
- 2001.07.10 01:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 부산갈매기
- •
- 2001.07.10 01:25
- 2 COMMENTS
- /
- 0 LIKES
-
류종택•2001.07.10 01:46HTML부분에서 자바스크립트를 이용해서 막아야 합니다.. 와 같이 각 HTML 화일에 입력해 두세요.. ...
-
부산갈매기•2001.07.10 06:02제가 말하는것은 자바 스크립트 말구요 자바스크립트를 몰라서 물어보는게 아니구요 어플리케이션에서 we...
-
- 왕초보
- •
- 2001.07.10 00:43
- 1 COMMENTS
- /
- 0 LIKES
-
초보•2001.07.10 18:37왕초보 wrote: > 디비는 파라독스를 쓰고 있구요. > Itm_JaeGoStart 선언은 N 타입으로 되어 있습니다. ...
-
- 류진희
- •
- 2001.07.10 00:42
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.07.10 01:42에러의 뜻은 문법적으로 필요한 것을 코딩하지 않았다는 뜻입니다.. 문법적인 에러이니.. 소스가 없이는 ...
-
- 아기코알라
- •
- 2001.07.10 00:26
- 1 COMMENTS
- /
- 0 LIKES
-
정성훈•2001.07.10 02:24아기코알라 wrote: > 안녕하세요 고수님들... > > 내일까지 프로그램을 끝내야 하는데 시간도, 실력도 ...
-
- 조언자
- 2001.07.10 00:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 미친코딩
- 2001.07.09 23:25
- 0 COMMENTS
- /
- 0 LIKES
-
- blackjewel
- •
- 2001.07.09 22:28
- 1 COMMENTS
- /
- 0 LIKES
-
Demon•2001.07.09 22:38퀵리포트의 객체들을 Free하는 로직이있겠죠. 그러나 좀 문제가 있는듯 합니다. 보통 Free하면 Destroy가...
PChar로 선언되 k에 대해 메모리 할당이 안된 것 같습니다.
> StrPCopy(k, b);
> WinExec(k,1);
위 두 문장을
WinExec(PChar(b),1);
로 바꿔보세요.
커피향기.. wrote:
> 안녕하세요 커피향기입니다. 올만에 올리는 질문이네여^^
> 다름이 아니라 밑에 코딩을 보면 아시겠지만 filename을 추출해서
> Winexec를 써서리 포트란으로 짠 프로그램하구 연동시키는 건데여
> 결과는 나오는데 계속 에러가 나네여.....
> 에러문장
>
> 'Access violation at address 202E6161. Read of address 202E6161'
>
> 에구 정말루 모르겠습니다. 왜 이런 에러가 나오는 건지 ㅡ.ㅡ;;
> 고수님들 꼭좀 갈켜 주세여.........
>
> procedure TForm1.Button3Click(Sender: TObject);
> var
> b : String;
> k : PChar;
> addr : string;
> j : integer;
> re : string;
>
> begin
> if OpenDialog1.Execute then
> edit39.text := ExtractFileName(OpenDialog1.FileName);
> addr := edit39.text;
> j := length(edit39.text);
> e := copy( addr, 1, j-3);
> re := trim(re); // 혹시 모를 공백...땜시
> b := 'c:kepcotpbig disk' + ' ' + re + ' ' + re + ' ' + '-r';
> StrPCopy(k, b);
> WinExec(k,1);
> end;
>