Q&A
- 부탁[Dll에서의 에러]
그냥 소스를 올려놓으면...
Procedure LibraryCall(Mainapp : TApplication; Const Dllname, ProcName : String);
Type
TProc = Procedure(Mainapp : TApplication; Const Dllname, ProcName : String);StdCall;
Var
PROC : TProc;
begin
H := LoadLibrary(Pchar(DllName));
If H < 32 Then Begin
ShowMessage('DLL이 존재하지 않습니다!.');
Exit;
End;
@PROC := GetProcAddress(H, Pchar('Call_TEST01'));
If not (@PROC = nil) Then
PROC(Mainapp,Pchar(DllName),Pchar(ProcName));
End;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
FreeLibrary(H);
Close;
end;
Dll은 사용에는 문제가 없는데 Close할때
Project TEST_P.exe raised exception class EAccessViolation with message 'Access violation at address 00000000. Read if address 00000000'. Process stopped. Use Step or Run to continue.
라는 메시지가 나옵니다.
제생각으론 메모리 해제를 하고 다시 Close를 해서 그런것 같은데...
어떻게 해야 합니까
꼭 좀 답변 부탁드립니다.
Procedure LibraryCall(Mainapp : TApplication; Const Dllname, ProcName : String);
Type
TProc = Procedure(Mainapp : TApplication; Const Dllname, ProcName : String);StdCall;
Var
PROC : TProc;
begin
H := LoadLibrary(Pchar(DllName));
If H < 32 Then Begin
ShowMessage('DLL이 존재하지 않습니다!.');
Exit;
End;
@PROC := GetProcAddress(H, Pchar('Call_TEST01'));
If not (@PROC = nil) Then
PROC(Mainapp,Pchar(DllName),Pchar(ProcName));
End;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
FreeLibrary(H);
Close;
end;
Dll은 사용에는 문제가 없는데 Close할때
Project TEST_P.exe raised exception class EAccessViolation with message 'Access violation at address 00000000. Read if address 00000000'. Process stopped. Use Step or Run to continue.
라는 메시지가 나옵니다.
제생각으론 메모리 해제를 하고 다시 Close를 해서 그런것 같은데...
어떻게 해야 합니까
꼭 좀 답변 부탁드립니다.
2
COMMENTS
-
-
bingyou wrote:
> moon wrote:
> > 그냥 소스를 올려놓으면...
> >
> > Procedure LibraryCall(Mainapp : TApplication; Const Dllname, ProcName : String);
> > Type
> > TProc = Procedure(Mainapp : TApplication; Const Dllname, ProcName : String);StdCall;
> > Var
> > PROC : TProc;
> > begin
> > H := LoadLibrary(Pchar(DllName));
> > If H < 32 Then Begin
> > ShowMessage('DLL이 존재하지 않습니다!.');
> > Exit;
> > End;
> >
> > @PROC := GetProcAddress(H, Pchar('Call_TEST01'));
> > If not (@PROC = nil) Then
> > PROC(Mainapp,Pchar(DllName),Pchar(ProcName));
> > End;
> >
> > procedure TForm1.BitBtn2Click(Sender: TObject);
> > begin
> > FreeLibrary(H);
> > Close;
> > end;
> >
> > Project TEST_P.exe raised exception class EAccessViolation with message 'Access violation at address 00000000. Read if address 00000000'. Process stopped. Use Step or Run to continue.
> > 라는 메시지가 나옵니다.
> >
> > 제생각으론 메모리 해제를 하고 Close를 해서 그런것 같은데...
> > 어떻게 해야 합니까
> >
> > 꼭 좀 답변 부탁드립니다.
>
> FreeLibrary(H);
> 이 넘을 LibraryCall에다가 넣으시면 될것 같은데...자신은 없습니다만...
> 이렇게요...
>
> ...
>
> If not (@PROC = nil) Then
> PROC(Mainapp,Pchar(DllName),Pchar(ProcName));
> FreeLibrary(H);
> ...
>
>
그렇게 하니까
바로 해제가 되네요
그래서 뜨지가 않네요
dll부르고 바로 해제
또 문제가 Close를 못 시키네요 화면이 사라져 버려서...
만약 화면이 사라지지 않는다 해도 close를 하면 같은 결과를 가지고 오지 않을까요
누구 좀 갈쳐 주세요
(NOTICE) You must be logged in to comment on this post.
-
- 김정식
- •
- 2001.11.10 00:50
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2001.11.10 01:17안녕하세요. 최용일입니다. 델5에서는 EmptyParam이 System유닛에 선언되어있습니다. 델6에서는 유닛...
-
김정식•2001.11.10 01:47답변에 감사드립니다. EmptyParam Undefined Error는 잘해결되었습니다. 그런데 이번엔 VarArrayCreate U...
-
최용일•2001.11.10 01:55헉~~~ 제가 델6은 써본적이 없어서... ㅠ'ㅠ... 아무래도 헬프에서 찾아보시는 것이 좋을거 같네요.....
-
- 짱아
- 2001.11.10 00:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 홍성호
- 2001.11.09 23:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 이보학
- •
- 2001.11.09 23:48
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.10 02:26이보학 wrote: > 텍스트 파일을 생성해서 > 로그를 남기려구 합니다. > 그런데 텍스트 파일은 잘 생성되...
-
- 이제 조금..
- 2001.11.09 23:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보자
- •
- 2001.11.09 22:57
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.09 23:24초보자 wrote: > Label3.Caption := FormatFloat('#,;-#,',StrToFloat( > StringReplace...
-
느티나무•2001.11.09 23:18초보자 wrote: > Label3.Caption := FormatFloat('#,;-#,',StrToFloat( > StringReplace...
-
- 궁금이
- •
- 2001.11.09 22:34
- 6 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.10 05:27
-
궁금이•2001.11.10 05:46
-
홍성락•2001.11.10 06:05
-
최용일•2001.11.10 10:32
-
궁금이•2001.11.10 17:38
-
궁금이•2001.11.10 05:41
-
- smileye
- 2001.11.09 22:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 지훈
- 2001.11.09 22:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 이재현
- •
- 2001.11.09 21:53
- 1 COMMENTS
- /
- 0 LIKES
-
test•2001.11.10 04:05FilterIndex 사용해보세요 .. procedure TForm1.Button1Click(Sender: TObject); var I: int...
-
- 철
- •
- 2001.11.09 21:16
- 1 COMMENTS
- /
- 0 LIKES
-
LostJuly•2001.11.09 21:55철 wrote: > 오라클 서버에 로그인 한후 현제 연결된 세션이 > 끊어진 상태인지 연결된 상태인지 테이블...
-
- 델파이언
- 2001.11.09 21:11
- 0 COMMENTS
- /
- 0 LIKES
-
- rainsad@hihome.com
- 2001.11.09 21:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보*규리*
- 2001.11.09 20:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 김지홍
- •
- 2001.11.09 20:42
- 1 COMMENTS
- /
- 0 LIKES
-
김지홍•2001.11.17 00:23김지홍 wrote: > 쓰레드를 사용하지 않고 DHTML Edit 컴포넌트를 사용했을때는 > 에러없이 잘돌아가는데....
-
- 초보자
- •
- 2001.11.09 20:24
- 6 COMMENTS
- /
- 0 LIKES
-
빅용철•2001.11.10 00:14Table과 DBGrid의 ReadOnly가 False이어야 합니다. (Query의 경우 RequestLive속성) 초보자 wrote: >...
-
빅용철•2001.11.10 00:20Query의 경우 RequestLive속성은 True여야 합니다. 빅용철 wrote: > > Table과 DBGrid의 ReadOnly가 ...
-
초보자•2001.11.10 01:54빅용철 wrote: > Query의 경우 RequestLive속성은 True여야 합니다. > > 빅용철 wrote: > > > > Tab...
-
빅용철•2001.11.13 01:37Token 에러가 난나면, Query의 SQL문에 오류가 있기 때문이죠. SQL문을 바로 잡으세요. RequestLive를 안...
-
Rain Boy•2001.11.09 20:38edit 박스의 MaxLength를 살펴보세요 아마 자리수 때문인것 같은데.. 초보자 wrote: > dbgrid에 뿌려...
-
초보자•2001.11.09 22:20Rain Boy wrote: > edit 박스의 MaxLength를 살펴보세요 > 아마 자리수 때문인것 같은데.. > > 초보자...
-
- 초보자
- •
- 2001.11.09 20:18
- 2 COMMENTS
- /
- 0 LIKES
-
Rain Boy•2001.11.09 20:31Function Str_Replace(Source: String): String; var cData: String; i : Integer; begin ...
-
홍성락•2001.11.09 20:42Rain Boy님 그냥 함수알려드릴려고 했습니다. 달리 생각마세요. //문자에서 특정문자를 다른문자로 대체하...
-
- 나초보
- •
- 2001.11.09 20:17
- 1 COMMENTS
- /
- 0 LIKES
-
지나가는넘•2001.11.09 21:49if lenth(SU) > 50 then temp_SU := copy(SU,1,49); else temp_SU := SU; 대충 이렇게 하면 되겠...
-
- moon
- •
- 2001.11.09 20:38
- 2 COMMENTS
- /
- 0 LIKES
그냥 소스를 올려놓으면... Procedure LibraryCall(Mainapp : TApplication; Const Dllname, ProcName : String); Type TProc = Procedure(Mainapp : TApplication; Const Dllname, ProcName : String);StdCall; Var PROC : TProc; begin ...-
bingyou•2001.11.09 20:19moon wrote: > 그냥 소스를 올려놓으면... > > Procedure LibraryCall(Mainapp : TApplication; Const ...
-
moon•2001.11.09 20:51bingyou wrote: > moon wrote: > > 그냥 소스를 올려놓으면... > > > > Procedure LibraryCall(Mainap...
-
- 짱아
- 2001.11.09 19:53
- 0 COMMENTS
- /
- 0 LIKES
> 그냥 소스를 올려놓으면...
>
> Procedure LibraryCall(Mainapp : TApplication; Const Dllname, ProcName : String);
> Type
> TProc = Procedure(Mainapp : TApplication; Const Dllname, ProcName : String);StdCall;
> Var
> PROC : TProc;
> begin
> H := LoadLibrary(Pchar(DllName));
> If H < 32 Then Begin
> ShowMessage('DLL이 존재하지 않습니다!.');
> Exit;
> End;
>
> @PROC := GetProcAddress(H, Pchar('Call_TEST01'));
> If not (@PROC = nil) Then
> PROC(Mainapp,Pchar(DllName),Pchar(ProcName));
> End;
>
> procedure TForm1.BitBtn2Click(Sender: TObject);
> begin
> FreeLibrary(H);
> Close;
> end;
>
> Project TEST_P.exe raised exception class EAccessViolation with message 'Access violation at address 00000000. Read if address 00000000'. Process stopped. Use Step or Run to continue.
> 라는 메시지가 나옵니다.
>
> 제생각으론 메모리 해제를 하고 Close를 해서 그런것 같은데...
> 어떻게 해야 합니까
>
> 꼭 좀 답변 부탁드립니다.
FreeLibrary(H);
이 넘을 LibraryCall에다가 넣으시면 될것 같은데...자신은 없습니다만...
이렇게요...
...
If not (@PROC = nil) Then
PROC(Mainapp,Pchar(DllName),Pchar(ProcName));
FreeLibrary(H);
...