Q&A
- dll 폼이 불러도 대답없으서...
안녕하셔요.
대답없는...
오늘도 아무도 없는 파견지에서 혼자서 뺑이 돌다돌다 어지러버 여쭙니다.
customer라는 dll프로젝트에 폼1 unit을 uses시켜두었습니다.
폼1의 unit에는 그 폼을 여는 아래의 코딩이 있습니다.
****************************************************************************
procedure 폼1_OpenForm(ADOConnection : TADOConnection; App : TApplication); strcall;
중간생략
procedure 폼1_OpenForm(ADOConnection : TADOConnection; App : TApplication);
begin
App.CreateForm(T폼1, 폼1);
폼1.ADOTable1.Connection := ADOConnection;
폼1.ADOTable1.Active := True;
폼1.Show;
end;
****************************************************************************
이 프로시저를 사용하기 위한 메인폼은
****************************************************************************
....생략
public
{ Public declarations }
procedure OpenForm(DllName : string);
end;
type
TOpenFormProc = procedure(ADOConnection : TADOConnection; App : TApplication) ; Stdcall;
var
메인폼1: T메인폼1;
implementation
uses 데이타모듈;
{$R *.DFM}
procedure T메인폼1.OpenForm(DllName : string);
var
H : THandle;
OpenFormProc : TOpenFormProc;
begin
H := LoadLibrary(PChar(DllName));
.
dll을 못찾을때 에러문장..
.
@OpenFormProc := GetProcAddress(H, '폼1_OpenForm');
.
프로시저를 못찾을때 에러문장발생..
.
OpenFormProc(dfmkdt.ADOConnection, Application);
FreeLibrary(H);
end;
procedure Tfmkdt001.Button4Click(Sender: TObject);
begin
OpenForm('customer.dll');
end;
라고 했습니다.
1. 실행시키면 프로시저를 못찾는다고 에러를 냅니다.
2. 글구 dll의 위치가 C:ab이고, 실행파일 위치가 C:a일때
dll파일 위치를 '..customer.dll'이라고 하면 dll파일을 못찾습니다.
그래서 아예 dll을 a로 옮겼더니 그부분을 넘어 가더라구요...경로지정도 알고싶습니다.
_ _'''
대답없는...
오늘도 아무도 없는 파견지에서 혼자서 뺑이 돌다돌다 어지러버 여쭙니다.
customer라는 dll프로젝트에 폼1 unit을 uses시켜두었습니다.
폼1의 unit에는 그 폼을 여는 아래의 코딩이 있습니다.
****************************************************************************
procedure 폼1_OpenForm(ADOConnection : TADOConnection; App : TApplication); strcall;
중간생략
procedure 폼1_OpenForm(ADOConnection : TADOConnection; App : TApplication);
begin
App.CreateForm(T폼1, 폼1);
폼1.ADOTable1.Connection := ADOConnection;
폼1.ADOTable1.Active := True;
폼1.Show;
end;
****************************************************************************
이 프로시저를 사용하기 위한 메인폼은
****************************************************************************
....생략
public
{ Public declarations }
procedure OpenForm(DllName : string);
end;
type
TOpenFormProc = procedure(ADOConnection : TADOConnection; App : TApplication) ; Stdcall;
var
메인폼1: T메인폼1;
implementation
uses 데이타모듈;
{$R *.DFM}
procedure T메인폼1.OpenForm(DllName : string);
var
H : THandle;
OpenFormProc : TOpenFormProc;
begin
H := LoadLibrary(PChar(DllName));
.
dll을 못찾을때 에러문장..
.
@OpenFormProc := GetProcAddress(H, '폼1_OpenForm');
.
프로시저를 못찾을때 에러문장발생..
.
OpenFormProc(dfmkdt.ADOConnection, Application);
FreeLibrary(H);
end;
procedure Tfmkdt001.Button4Click(Sender: TObject);
begin
OpenForm('customer.dll');
end;
라고 했습니다.
1. 실행시키면 프로시저를 못찾는다고 에러를 냅니다.
2. 글구 dll의 위치가 C:ab이고, 실행파일 위치가 C:a일때
dll파일 위치를 '..customer.dll'이라고 하면 dll파일을 못찾습니다.
그래서 아예 dll을 a로 옮겼더니 그부분을 넘어 가더라구요...경로지정도 알고싶습니다.
_ _'''
3
COMMENTS
-
-
... wrote:
우째했는지 모르게 한줄은 넘어갔는데...
Error가 납니다.
Project kdt.exe raised exception class ELnvalidoperation with message 'Cannot create form.
No MDI forms are currently active'. Process stopped. Use Step or run to continue.
Application Error
Exception ElnvalidOperation in module CUSTOMER.DLL at 0002E9ED.
뭘 잘못했는지...
> 투덜이 wrote:
> > 안녕하셔요.
> > 대답없는...
> > 오늘도 아무도 없는 파견지에서 혼자서 뺑이 돌다돌다 어지러버 여쭙니다.
> >
> > customer라는 dll프로젝트에 폼1 unit을 uses시켜두었습니다.
> > 폼1의 unit에는 그 폼을 여는 아래의 코딩이 있습니다.
> >
> > ****************************************************************************
> > procedure 폼1_OpenForm(ADOConnection : TADOConnection; App : TApplication); strcall;
> >
> > 중간생략
> >
> > procedure 폼1_OpenForm(ADOConnection : TADOConnection; App : TApplication);
> > begin
> > App.CreateForm(T폼1, 폼1);
> >
> > 폼1.ADOTable1.Connection := ADOConnection;
> > 폼1.ADOTable1.Active := True;
> > 폼1.Show;
> > end;
> > ****************************************************************************
> >
> > 이 프로시저를 사용하기 위한 메인폼은
> > ****************************************************************************
> > ....생략
> >
> > public
> > { Public declarations }
> > procedure OpenForm(DllName : string);
> >
> > end;
> > type
> > TOpenFormProc = procedure(ADOConnection : TADOConnection; App : TApplication) ; Stdcall;
> >
> > var
> > 메인폼1: T메인폼1;
> >
> > implementation
> >
> > uses 데이타모듈;
> >
> > {$R *.DFM}
> > procedure T메인폼1.OpenForm(DllName : string);
> > var
> > H : THandle;
> > OpenFormProc : TOpenFormProc;
> > begin
> > H := LoadLibrary(PChar(DllName));
> > .
> > dll을 못찾을때 에러문장..
> > .
> > @OpenFormProc := GetProcAddress(H, '폼1_OpenForm');
> > .
> > 프로시저를 못찾을때 에러문장발생..
> > .
> > OpenFormProc(dfmkdt.ADOConnection, Application);
> > FreeLibrary(H);
> > end;
> >
> > procedure Tfmkdt001.Button4Click(Sender: TObject);
> > begin
> > OpenForm('customer.dll');
> > end;
> >
> > 라고 했습니다.
> > 1. 실행시키면 프로시저를 못찾는다고 에러를 냅니다.
> >
> > 2. 글구 dll의 위치가 C:ab이고, 실행파일 위치가 C:a일때
> > dll파일 위치를 '..customer.dll'이라고 하면 dll파일을 못찾습니다.
> > 그래서 아예 dll을 a로 옮겼더니 그부분을 넘어 가더라구요...경로지정도 알고싶습니다.
> > _ _'''
>
>
> 1.폼1_OpenForm();을 export 시키셨나요? dpr에서요..
>
> 2.
> dll은 실행화일이 있는곳,시스템,C: 중 어딘가에 있어야 한다구 알구있는데요...
> 맞나 ^^?
>
>
-
투덜이 wrote:
> ... wrote:
>
> 우째했는지 모르게 한줄은 넘어갔는데...
> Error가 납니다.
> Project kdt.exe raised exception class ELnvalidoperation with message 'Cannot create form.
> No MDI forms are currently active'. Process stopped. Use Step or run to continue.
>
>
> Application Error
>
> Exception ElnvalidOperation in module CUSTOMER.DLL at 0002E9ED.
> 뭘 잘못했는지...
>
> > 투덜이 wrote:
> > > 안녕하셔요.
> > > 대답없는...
> > > 오늘도 아무도 없는 파견지에서 혼자서 뺑이 돌다돌다 어지러버 여쭙니다.
> > >
> > > customer라는 dll프로젝트에 폼1 unit을 uses시켜두었습니다.
> > > 폼1의 unit에는 그 폼을 여는 아래의 코딩이 있습니다.
> > >
> > > ****************************************************************************
> > > procedure 폼1_OpenForm(ADOConnection : TADOConnection; App : TApplication); strcall;
> > >
> > > 중간생략
> > >
> > > procedure 폼1_OpenForm(ADOConnection : TADOConnection; App : TApplication);
> > > begin
> > > App.CreateForm(T폼1, 폼1);
> > >
> > > 폼1.ADOTable1.Connection := ADOConnection;
> > > 폼1.ADOTable1.Active := True;
> > > 폼1.Show;
> > > end;
> > > ****************************************************************************
> > >
> > > 이 프로시저를 사용하기 위한 메인폼은
> > > ****************************************************************************
> > > ....생략
> > >
> > > public
> > > { Public declarations }
> > > procedure OpenForm(DllName : string);
> > >
> > > end;
> > > type
> > > TOpenFormProc = procedure(ADOConnection : TADOConnection; App : TApplication) ; Stdcall;
> > >
> > > var
> > > 메인폼1: T메인폼1;
> > >
> > > implementation
> > >
> > > uses 데이타모듈;
> > >
> > > {$R *.DFM}
> > > procedure T메인폼1.OpenForm(DllName : string);
> > > var
> > > H : THandle;
> > > OpenFormProc : TOpenFormProc;
> > > begin
> > > H := LoadLibrary(PChar(DllName));
> > > .
> > > dll을 못찾을때 에러문장..
> > > .
> > > @OpenFormProc := GetProcAddress(H, '폼1_OpenForm');
> > > .
> > > 프로시저를 못찾을때 에러문장발생..
> > > .
> > > OpenFormProc(dfmkdt.ADOConnection, Application);
> > > FreeLibrary(H);
> > > end;
> > >
> > > procedure Tfmkdt001.Button4Click(Sender: TObject);
> > > begin
> > > OpenForm('customer.dll');
> > > end;
> > >
> > > 라고 했습니다.
> > > 1. 실행시키면 프로시저를 못찾는다고 에러를 냅니다.
> > >
> > > 2. 글구 dll의 위치가 C:ab이고, 실행파일 위치가 C:a일때
> > > dll파일 위치를 '..customer.dll'이라고 하면 dll파일을 못찾습니다.
> > > 그래서 아예 dll을 a로 옮겼더니 그부분을 넘어 가더라구요...경로지정도 알고싶습니다.
> > > _ _'''
> >
> >
> > 1.폼1_OpenForm();을 export 시키셨나요? dpr에서요..
> >
> > 2.
> > dll은 실행화일이 있는곳,시스템,C: 중 어딘가에 있어야 한다구 알구있는데요...
> > 맞나 ^^?
1.일단 확인하실건 exe의 폼이 MDI여야 한다는거겠구요...
2.dll은 MDIChild 여야 합니다......
1번이 잘못된거 아닌지....
(NOTICE) You must be logged in to comment on this post.
-
- ajfxlspt
- •
- 2000.10.12 02:34
- 1 COMMENTS
- /
- 0 LIKES
-
이성훈•2000.10.13 18:34동시에 결과가 나와야 되는 건가요 아님 첫번째 Query의 결과로 두번째 Query가 돌아가는 건가요? aj...
-
- imp
- •
- 2000.10.12 01:43
- 1 COMMENTS
- /
- 0 LIKES
-
김정•2000.10.12 04:15안녕하세요? 고드름 김정입니다. 아래도 질문을 하셨던데 같은 맥락인거 같군요. ^^; MessageBox 를...
-
- 초자
- 2000.10.12 01:08
- 0 COMMENTS
- /
- 0 LIKES
-
- imp
- •
- 2000.10.12 00:32
- 1 COMMENTS
- /
- 0 LIKES
-
김정•2000.10.12 04:13안녕하세요? 고드름 김정입니다. ShowMessage() 의 경우 Default로 그렇게 됩니다. 원하실 경우에는...
-
- 델초보
- 2000.10.12 00:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 홍길동
- 2000.10.11 23:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성웅
- •
- 2000.10.11 23:55
- 1 COMMENTS
- /
- 0 LIKES
-
김정•2000.10.12 07:57안녕하세요? 고드름 김정입니다. 그것은 사운드카드가 재생중 녹음이 지원되야만 가능한 기능입니다. ...
-
- won
- •
- 2000.10.11 23:50
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2000.10.12 00:04table에서 like 문은 사용할수 없습니다. 단... filter='A*' 은 사용할수 있습니다. 그런니까 *를 사...
-
- 궁금이..
- •
- 2000.10.11 23:08
- 1 COMMENTS
- /
- 0 LIKES
-
김정•2000.10.12 03:03안녕하세요? 고드름 김정입니다. 실제로 상수로 정의된 메시지들은 Messages unit에 정의되어 있습니다...
-
- 이정현
- 2000.10.11 23:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 김동기
- 2000.10.11 23:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 김경완
- •
- 2000.10.11 22:13
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2000.10.12 00:40내용이 약간 달라서.. 도움이 되실지는 모르겠지만... 제가 아는 팁을 올립니다... 메모의 현재 라인 ...
-
- 이주영
- •
- 2000.10.11 21:20
- 2 COMMENTS
- /
- 0 LIKES
-
김정•2000.10.11 22:01안녕하세요? 고드름 김정입니다. 제가 테스트하니 잘 되던데여?? >> Unit1 파일 소스 unit Unit1...
-
이주영•2000.10.11 23:15제 소스랑 틀린점은 없는듯한데... 전 왜 안될까요? 참고로 제소스중 문제의부분을 올려드릴께요.. ...
-
- 맹주형
- •
- 2000.10.11 21:13
- 1 COMMENTS
- /
- 0 LIKES
-
김정•2000.10.11 21:50안녕하세요? 고드름 김정입니다. var XL : Variant; begin try XL := CreateOLEObject('Ex...
-
- 제임스박
- 2000.10.11 21:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 투덜이
- •
- 2000.10.11 21:04
- 3 COMMENTS
- /
- 0 LIKES
안녕하셔요. 대답없는... 오늘도 아무도 없는 파견지에서 혼자서 뺑이 돌다돌다 어지러버 여쭙니다. customer라는 dll프로젝트에 폼1 unit을 uses시켜두었습니다. 폼1의 unit에는 그 폼을 여는 아래의 코딩이 있습니다. *****************...-
...•2000.10.11 22:31투덜이 wrote: > 안녕하셔요. > 대답없는... > 오늘도 아무도 없는 파견지에서 혼자서 뺑이 돌다돌다 어...
-
투덜이•2000.10.12 00:39... wrote: 우째했는지 모르게 한줄은 넘어갔는데... Error가 납니다. Project kdt.exe raised except...
-
...•2000.10.12 01:51투덜이 wrote: > ... wrote: > > 우째했는지 모르게 한줄은 넘어갔는데... > Error가 납니다. > Proj...
-
- 박현애
- •
- 2000.10.11 20:35
- 1 COMMENTS
- /
- 0 LIKES
-
김정•2000.10.11 21:05안녕하세요? 고드름 김정입니다. external 로 선언해서 static link를 한 경우에는 하실 필요없습니다....
-
- 한대필
- •
- 2000.10.11 20:28
- 1 COMMENTS
- /
- 0 LIKES
-
이광형•2000.10.11 23:37안녕하세요 먼저 txt 파일을 읽어 오실때 전체 line의 갯수를 알 수 있죠... Progressbar의 속성중에.. M...
-
-
이광형•2000.10.11 23:39질문의 뜻을 잘 모르겠네요... Line 즉 선을 긋는 함수를 말하는건지??? Chart 에서 line 함수를 말하는...
-
-
- 김상범
- •
- 2000.10.11 20:25
- 1 COMMENTS
- /
- 0 LIKES
-
김정•2000.10.12 20:43안녕하세요? 고드름 김정입니다. 테스트 해보니 특정키값에서 동작하지 않는 경우가 있었습니다. 그래...
> 안녕하셔요.
> 대답없는...
> 오늘도 아무도 없는 파견지에서 혼자서 뺑이 돌다돌다 어지러버 여쭙니다.
>
> customer라는 dll프로젝트에 폼1 unit을 uses시켜두었습니다.
> 폼1의 unit에는 그 폼을 여는 아래의 코딩이 있습니다.
>
> ****************************************************************************
> procedure 폼1_OpenForm(ADOConnection : TADOConnection; App : TApplication); strcall;
>
> 중간생략
>
> procedure 폼1_OpenForm(ADOConnection : TADOConnection; App : TApplication);
> begin
> App.CreateForm(T폼1, 폼1);
>
> 폼1.ADOTable1.Connection := ADOConnection;
> 폼1.ADOTable1.Active := True;
> 폼1.Show;
> end;
> ****************************************************************************
>
> 이 프로시저를 사용하기 위한 메인폼은
> ****************************************************************************
> ....생략
>
> public
> { Public declarations }
> procedure OpenForm(DllName : string);
>
> end;
> type
> TOpenFormProc = procedure(ADOConnection : TADOConnection; App : TApplication) ; Stdcall;
>
> var
> 메인폼1: T메인폼1;
>
> implementation
>
> uses 데이타모듈;
>
> {$R *.DFM}
> procedure T메인폼1.OpenForm(DllName : string);
> var
> H : THandle;
> OpenFormProc : TOpenFormProc;
> begin
> H := LoadLibrary(PChar(DllName));
> .
> dll을 못찾을때 에러문장..
> .
> @OpenFormProc := GetProcAddress(H, '폼1_OpenForm');
> .
> 프로시저를 못찾을때 에러문장발생..
> .
> OpenFormProc(dfmkdt.ADOConnection, Application);
> FreeLibrary(H);
> end;
>
> procedure Tfmkdt001.Button4Click(Sender: TObject);
> begin
> OpenForm('customer.dll');
> end;
>
> 라고 했습니다.
> 1. 실행시키면 프로시저를 못찾는다고 에러를 냅니다.
>
> 2. 글구 dll의 위치가 C:ab이고, 실행파일 위치가 C:a일때
> dll파일 위치를 '..customer.dll'이라고 하면 dll파일을 못찾습니다.
> 그래서 아예 dll을 a로 옮겼더니 그부분을 넘어 가더라구요...경로지정도 알고싶습니다.
> _ _'''
1.폼1_OpenForm();을 export 시키셨나요? dpr에서요..
2.
dll은 실행화일이 있는곳,시스템,C: 중 어딘가에 있어야 한다구 알구있는데요...
맞나 ^^?