Q&A
- Dll 에서 LoadLibary Fail Error.....[급급급....]
안녕하십니까
DLL Unit을 작성하는 중에 요상한 Error로 고민중입니다..
Dll에는 DataModule에 간단한 Procedure,function이 있습니다.
-----------------------------------------------------------
이상한 점은 Delphi4가 떠있는 상태에서 실행 시키면 정상적으로
Dll procedure를 잘실행하는 데
---------------------------------
독립적으로 실행파일을 실행시키면
여지없이 LoadLibary Fail Error : 1157 가 나타납니다..
-------------------------------------------------------
잘아시는 분 꼭좀부탁드립니다....
// DLL Unit.........
//----------------------------------------------
unit UGetAddr;
interface
uses
................
procedure DllInitGetAddr(DBHand:hDBIDb);StdCall;
function ExGetAddr(Arg1:PChar):PChar; StdCall;
exports
DllInitGetAddr,ExGetAddr;
var
CADataModule: TCustAddrDataModule;
implementation
`~~~~~~~~~~
~~~~~~~~~
// DLL Call Unit................
===============================
procedure TForm1.DLLStart;
begin
database1.Connected := true;
hDllInst := LoadLibrary('getAddr.dll');
if hDllInst <= 0 then <==== Error 지점
Raise Exception.Create('[LoadLibrary Fail] GetLastError reports: '+
IntToStr(GetLastError));
try
@DllInitGetAddr := GetProcAddress(hDllInst,'DllInitGetAddr');
if Assigned(DllInitGetAddr) then begin
DllInitGetAddr({Application,Screen,}database1.handle);
@ExGetAddr := GetProcAddress(hDllInst,'ExGetAddr');;
if not Assigned(ExGetAddr) then begin
Raise Exception.Create('cc[GetProcAddress Fail] GetLastError reports: '+
IntToStr(GetLastError));
end;
end else begin
Raise Exception.Create('[GetProcAddress Fail] GetLastError reports: '+
IntToStr(GetLastError));
end;
except
Showmessage('Error');
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Arg1 : PChar;
Arg2 : PChar;
begin
FormStart;
With Query1 do begin
Open;
Showmessage('RecordCount = '+IntToStr(RecordCount));
First;
While not eof do begin
Arg1 :=PChar(FieldByName('ev_cust_no').AsString);
try
Arg2 := ExGetAddr(Arg1);
except
showmessage('Error');
end;
RichEdit1.Lines.Add(Arg2);
Next;
end;
end;
FormEnd;
end;
DLL Unit을 작성하는 중에 요상한 Error로 고민중입니다..
Dll에는 DataModule에 간단한 Procedure,function이 있습니다.
-----------------------------------------------------------
이상한 점은 Delphi4가 떠있는 상태에서 실행 시키면 정상적으로
Dll procedure를 잘실행하는 데
---------------------------------
독립적으로 실행파일을 실행시키면
여지없이 LoadLibary Fail Error : 1157 가 나타납니다..
-------------------------------------------------------
잘아시는 분 꼭좀부탁드립니다....
// DLL Unit.........
//----------------------------------------------
unit UGetAddr;
interface
uses
................
procedure DllInitGetAddr(DBHand:hDBIDb);StdCall;
function ExGetAddr(Arg1:PChar):PChar; StdCall;
exports
DllInitGetAddr,ExGetAddr;
var
CADataModule: TCustAddrDataModule;
implementation
`~~~~~~~~~~
~~~~~~~~~
// DLL Call Unit................
===============================
procedure TForm1.DLLStart;
begin
database1.Connected := true;
hDllInst := LoadLibrary('getAddr.dll');
if hDllInst <= 0 then <==== Error 지점
Raise Exception.Create('[LoadLibrary Fail] GetLastError reports: '+
IntToStr(GetLastError));
try
@DllInitGetAddr := GetProcAddress(hDllInst,'DllInitGetAddr');
if Assigned(DllInitGetAddr) then begin
DllInitGetAddr({Application,Screen,}database1.handle);
@ExGetAddr := GetProcAddress(hDllInst,'ExGetAddr');;
if not Assigned(ExGetAddr) then begin
Raise Exception.Create('cc[GetProcAddress Fail] GetLastError reports: '+
IntToStr(GetLastError));
end;
end else begin
Raise Exception.Create('[GetProcAddress Fail] GetLastError reports: '+
IntToStr(GetLastError));
end;
except
Showmessage('Error');
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Arg1 : PChar;
Arg2 : PChar;
begin
FormStart;
With Query1 do begin
Open;
Showmessage('RecordCount = '+IntToStr(RecordCount));
First;
While not eof do begin
Arg1 :=PChar(FieldByName('ev_cust_no').AsString);
try
Arg2 := ExGetAddr(Arg1);
except
showmessage('Error');
end;
RichEdit1.Lines.Add(Arg2);
Next;
end;
end;
FormEnd;
end;
3
COMMENTS
-
-
여영석님의 답변 참으로 고맙습니다...
말씀하신 대로 해보았으나
여전히 문제가 발생하더라구요 ...
===============================================================
Delphi4에서 F9로 실행하면되는데
독립적으로 실행하면 LoadLibary Fail Error : 1157 가 나타납니다..
-------------------------------------------------------
또한 그 GetLastErr : 1157이 나타나는 데
그 Error는 어디에서 참조하는지 참 궁금하군요
고수님의 한수를 간절히 바랍니다....
................
-
미안합니다..
Project의 Source를 잘살펴보니
--------------------
library GetAddr;
uses
SysUtils,
Classes,
GetAddrDM in 'GetAddrDM.pas' {CustAddrDataModule: TDataModule},
UGetAddr in 'UGetAddr.pas';
{$R *.RES} <== 가 빠져있네요...
begin
end.
--------------------------
감사합니다....
(NOTICE) You must be logged in to comment on this post.
-
- 김용구
- •
- 2000.02.01 20:14
- 1 COMMENTS
- /
- 0 LIKES
-
배불뚝•2000.04.11 18:56김용구 wrote: > 자주 쓰는 코드들을 프로그램이 실행될때.. String List로 만들어서 > 각각의 폼마다 불...
-
- 안대규
- •
- 2000.02.01 20:04
- 1 COMMENTS
- /
- 0 LIKES
-
박진선•2000.02.02 06:16안대규 wrote: > 안녕하세요... > 추운 날씨에 고생들 많으십니다. > SQL로 Update하려고 하는데 에러가...
-
- kciron
- 2000.02.01 20:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 김동식
- •
- 2000.02.01 19:40
- 1 COMMENTS
- /
- 0 LIKES
-
클라라•2000.02.02 10:27김동식 wrote: > vb메서 사용하던 Mscomm 을 사용하여 통신하는데 좀 이상해요.. > 통신은 바이너리 입니...
-
- 손규만
- 2000.02.01 18:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 한웅
- •
- 2000.02.01 18:15
- 2 COMMENTS
- /
- 0 LIKES
-
한웅•2000.02.01 19:25데이터베이스 문제가 아니더군요. 델파이에서 query로 오라클을 부를때 파라메터를 사용하는데 그 파라메...
-
한웅•2000.02.01 22:08Query1.Close; With Query1.SQL do begin Clear; Add ('Select * '); ...
-
- 장철진
- •
- 2000.02.01 10:46
- 1 COMMENTS
- /
- 0 LIKES
-
여영식•2000.02.01 18:08수정모드가 어떤 처리인지 애매하군요. 일단은 RequestLive 가 True 로 되어야 합니다. 또한 order by 문...
-
- 서지현
- •
- 2000.02.01 10:43
- 2 COMMENTS
- /
- 0 LIKES
-
최원실•2000.02.02 03:07서지현 wrote: > 안냐세요...고수님들 > > 생년 := StrToInt( Copy( 주민등록번호, 1,2 ) ) + 1900; >...
-
배불뚝•2000.02.02 01:48서지현 wrote: > 안냐세요...고수님들 > > 생년 := StrToInt( Copy( 주민등록번호, 1,2 ) ) + 1900; >...
-
- 안명호
- •
- 2000.02.01 07:53
- 1 COMMENTS
- /
- 0 LIKES
-
최원실•2000.02.02 02:51안명호 wrote: > 데이타 베이스 프로그래밍을 하다보니... > > 전 쿼리 컴포넌트를 많이 사용했는데......
-
- 서지현
- 2000.02.01 07:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 장지용
- •
- 2000.02.01 07:30
- 1 COMMENTS
- /
- 0 LIKES
-
장지용•2000.02.02 00:44장지용 wrote: > 안녕하세요. > 맨날 질문만 하는군요. > > 다름이 아니라.. > 퀵리포트에서 프린트...
-
- 김영애
- 2000.02.01 07:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 조제현
- •
- 2000.02.01 06:41
- 3 COMMENTS
- /
- 0 LIKES
안녕하십니까 DLL Unit을 작성하는 중에 요상한 Error로 고민중입니다.. Dll에는 DataModule에 간단한 Procedure,function이 있습니다. ----------------------------------------------------------- 이상한 점은 Delphi4가 떠있는 상태...-
여영식•2000.02.01 17:59LoadLibrary가 실패하면 null을 리턴합니다. 따라서 if hDllInst 안녕하십니까 > DLL Unit을 작성하는 ...
-
조제현•2000.02.02 00:38여영석님의 답변 참으로 고맙습니다... 말씀하신 대로 해보았으나 여전히 문제가 발생하더라구요...
-
조제현•2000.02.02 00:56미안합니다.. Project의 Source를 잘살펴보니 -------------------- library GetAddr;...
-
- 꿈과자유
- 2000.02.01 05:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 김진호
- •
- 2000.02.01 04:11
- 1 COMMENTS
- /
- 0 LIKES
-
배불뚝•2000.02.02 01:38김진호 wrote: > 쿼리한 결과를 스트링 변수에 할당하려고 합니다. > > DBGrid 없이 하려고 하는데 어...
-
- neocity
- 2000.02.01 03:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 서지현
- 2000.02.01 02:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 장지용
- •
- 2000.02.01 02:43
- 3 COMMENTS
- /
- 0 LIKES
-
황선희•2000.02.01 02:49장지용 wrote: > 폼이 지금 60개 있습니다. > > 하지만 조건에 따라 참조하는 폼이야 고작 "6"개인데 ...
-
장지용•2000.02.01 03:02답변 감사드리구요. 죄송합니다. 질문이 조금 이상했나요.. 다시 질문하겠습니다. 폼 위에 콤보박스...
-
여영식•2000.02.01 18:1860개를 다 쓰셔야 합니다. 장지용 wrote: > 답변 감사드리구요. > 죄송합니다. 질문이 조금 이상했나...
-
- 송인섭
- 2000.02.01 02:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 신승철
- •
- 2000.02.01 01:52
- 1 COMMENTS
- /
- 0 LIKES
-
여영식•2000.02.01 18:02기존 컴포넌트를 상속받아 새 컴포넌트를 작성해야합니다. 델파이 관련 서적을 보시면 뒷 부분에 컴포넌트...
따라서 if hDllInst <= 0 then 는 if hDllInst = 0 then 이 되어야 할것입니다.
만일 hDllInst = 0 일 때 GetLastError 함수를 사용해서 에러 원인을
확인하십시오.
조제현 wrote:
> 안녕하십니까
> DLL Unit을 작성하는 중에 요상한 Error로 고민중입니다..
>
> Dll에는 DataModule에 간단한 Procedure,function이 있습니다.
> -----------------------------------------------------------
> 이상한 점은 Delphi4가 떠있는 상태에서 실행 시키면 정상적으로
> Dll procedure를 잘실행하는 데
> ---------------------------------
> 독립적으로 실행파일을 실행시키면
> 여지없이 LoadLibary Fail Error : 1157 가 나타납니다..
> -------------------------------------------------------
> 잘아시는 분 꼭좀부탁드립니다....
>
>
>
> // DLL Unit.........
> //----------------------------------------------
> unit UGetAddr;
>
> interface
> uses
> ................
>
> procedure DllInitGetAddr(DBHand:hDBIDb);StdCall;
> function ExGetAddr(Arg1:PChar):PChar; StdCall;
>
> exports
> DllInitGetAddr,ExGetAddr;
>
> var
> CADataModule: TCustAddrDataModule;
> implementation
> `~~~~~~~~~~
> ~~~~~~~~~
>
>
>
> // DLL Call Unit................
> ===============================
> procedure TForm1.DLLStart;
> begin
> database1.Connected := true;
> hDllInst := LoadLibrary('getAddr.dll');
>
>
> if hDllInst <= 0 then <==== Error 지점
>
>
> Raise Exception.Create('[LoadLibrary Fail] GetLastError reports: '+
> IntToStr(GetLastError));
> try
> @DllInitGetAddr := GetProcAddress(hDllInst,'DllInitGetAddr');
> if Assigned(DllInitGetAddr) then begin
> DllInitGetAddr({Application,Screen,}database1.handle);
> @ExGetAddr := GetProcAddress(hDllInst,'ExGetAddr');;
> if not Assigned(ExGetAddr) then begin
> Raise Exception.Create('cc[GetProcAddress Fail] GetLastError reports: '+
> IntToStr(GetLastError));
> end;
> end else begin
> Raise Exception.Create('[GetProcAddress Fail] GetLastError reports: '+
> IntToStr(GetLastError));
> end;
> except
> Showmessage('Error');
> end;
> end;
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Arg1 : PChar;
> Arg2 : PChar;
> begin
> FormStart;
> With Query1 do begin
> Open;
> Showmessage('RecordCount = '+IntToStr(RecordCount));
> First;
> While not eof do begin
> Arg1 :=PChar(FieldByName('ev_cust_no').AsString);
> try
> Arg2 := ExGetAddr(Arg1);
> except
> showmessage('Error');
> end;
> RichEdit1.Lines.Add(Arg2);
> Next;
> end;
> end;
> FormEnd;
> end;
>
>
>