한국 델파이 개발자 모임 - dll 폼이 불러도 대답없으서...

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로 옮겼더니 그부분을 넘어 가더라구요...경로지정도 알고싶습니다.

_ _'''

이 게시물을

3 COMMENTS

... • 2000.10.11 22:31

투덜이 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: 중 어딘가에 있어야 한다구 알구있는데요...

맞나 ^^?
- 0
- 0
- 삭제
- 수정
- 댓글
투덜이 • 2000.10.12 00:39

... 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: 중 어딘가에 있어야 한다구 알구있는데요...

> 맞나 ^^?

>

>
- 0
- 0
- 삭제
- 수정
- 댓글
... • 2000.10.12 01:51

투덜이 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번이 잘못된거 아닌지....
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- ajfxlspt
- •
- 2000.10.12 02:34
- 1 COMMENTS
- /
- 0 LIKES
query문에서요...
- 이성훈
  
  •
  
  2000.10.13 18:34
  
  동시에 결과가 나와야 되는 건가요 아님 첫번째 Query의 결과로 두번째 Query가 돌아가는 건가요? aj...
- imp
- •
- 2000.10.12 01:43
- 1 COMMENTS
- /
- 0 LIKES
ShowMessage 관련.. 한글 보여주기?
- 김정
  
  •
  
  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
ShowMessage Title 변경방법좀....???
- 김정
  
  •
  
  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
테이블 필터에서 like를 사용하려면..?
- 임형호
  
  •
  
  2000.10.12 00:04
  
  table에서 like 문은 사용할수 없습니다. 단... filter='A*' 은 사용할수 있습니다. 그런니까 *를 사...
- 궁금이..
- •
- 2000.10.11 23:08
- 1 COMMENTS
- /
- 0 LIKES
CM(Component Message)이런건 어떻게 공부하나요?
- 김정
  
  •
  
  2000.10.12 03:03
  
  안녕하세요? 고드름 김정입니다. 실제로 상수로 정의된 메시지들은 Messages unit에 정의되어 있습니다...
- 이정현
- 2000.10.11 23:06
- 0 COMMENTS
- /
- 0 LIKES
delphi4에서 barcode 인식용 component 구할 수 없을까요?
- 김동기
- 2000.10.11 23:06
- 0 COMMENTS
- /
- 0 LIKES
엑티브 ftp개발 포기하셨나요?
- 김경완
- •
- 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
sql문에 대해서 질문드립니다.(내용이 조금 복잡합니다.)
- 투덜이
- •
- 2000.10.11 21:04
- 3 COMMENTS
- /
- 0 LIKES
dll 폼이 불러도 대답없으서...

안녕하셔요. 대답없는... 오늘도 아무도 없는 파견지에서 혼자서 뺑이 돌다돌다 어지러버 여쭙니다. 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
외부 Dll 을 로드할때도 Freeliblary해야 하나요?(급함)
- 김정
  
  •
  
  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...
- mickyblue
- •
- 2000.10.11 20:27
- 1 COMMENTS
- /
- 0 LIKES
흑흑....
- 이광형
  
  •
  
  2000.10.11 23:39
  
  질문의 뜻을 잘 모르겠네요... Line 즉 선을 긋는 함수를 말하는건지??? Chart 에서 line 함수를 말하는...
- 김상범
- •
- 2000.10.11 20:25
- 1 COMMENTS
- /
- 0 LIKES
Bitbutton으로 backspace, delete 기능을 구현하는 방법...
- 김정
  
  •
  
  2000.10.12 20:43
  
  안녕하세요? 고드름 김정입니다. 테스트 해보니 특정키값에서 동작하지 않는 경우가 있었습니다. 그래...

투덜이
2000/10/11 21:04
Views378

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

2193 2194 2195 2196 2197 2198 2199 2200 2201 2202

Last Page→