Q&A
- [질] DLL 폼과 Modal의 관계? (소스)
다음과 같은 Dll을 불러오는 코드가 있습니다..
물론 만든 DLL 폼이 뜹니다..
그런데 이것이 모달로 밖에 되질 않아요...
dll 코드에 모달로 뜨도록 했으닌까요..
모달로 하지 않으면 저 밑에 FreeLibrary(hLib); 이 바로 호출되어
폼이 떴다가 사라집니다...
그렇다고 FreeLibrary(hLib); 을 안쓸수 없고....
그러자니 Dll 폼을 모달로 밖에 띄울수 없으니 이걸 어떻하죠?
그냥 일반 폼 띄우듯이 할 수 없나요?
저의 이 고민을 이해하실수 있나요?
procedure TfrmMain.Button1Click(Sender: TObject);
type
TCD2MP3Open = function : Boolean; stdcall;
var
hLib : THandle;
CD2MP3Open : TCD2MP3Open;
begin
hLib := LoadLibrary(PChar(GetCurrentDir + 'CD2MP3Cd2mp3.dll'));
if (hLib < 32) then begin
MessageBox(Self.Handle, 'can''t Load Library', 'OK', mb_IconInformation);
Exit;
end;
CD2MP3Open := GetProcAddress(hLib, 'CD2MP3Open');
CD2MP3Open;
FreeLibrary(hLib);
end;
물론 만든 DLL 폼이 뜹니다..
그런데 이것이 모달로 밖에 되질 않아요...
dll 코드에 모달로 뜨도록 했으닌까요..
모달로 하지 않으면 저 밑에 FreeLibrary(hLib); 이 바로 호출되어
폼이 떴다가 사라집니다...
그렇다고 FreeLibrary(hLib); 을 안쓸수 없고....
그러자니 Dll 폼을 모달로 밖에 띄울수 없으니 이걸 어떻하죠?
그냥 일반 폼 띄우듯이 할 수 없나요?
저의 이 고민을 이해하실수 있나요?
procedure TfrmMain.Button1Click(Sender: TObject);
type
TCD2MP3Open = function : Boolean; stdcall;
var
hLib : THandle;
CD2MP3Open : TCD2MP3Open;
begin
hLib := LoadLibrary(PChar(GetCurrentDir + 'CD2MP3Cd2mp3.dll'));
if (hLib < 32) then begin
MessageBox(Self.Handle, 'can''t Load Library', 'OK', mb_IconInformation);
Exit;
end;
CD2MP3Open := GetProcAddress(hLib, 'CD2MP3Open');
CD2MP3Open;
FreeLibrary(hLib);
end;
2
COMMENTS
-
-
초보라 무슨 말이징 이해가 안가요...
Sendmessage PostMessage?? 이게 뭔가요??
어떻게 간단한 예제라도 구할 수 없을까요?
방법이 많다는데...
어디서 구할수 있는지 그것만이라도 가르쳐 주세요... 제발
쩌비 wrote:
> 이건 여러가지 방법이 있어요..
>
> 제가 주로 쓰는 방법은 커스텀 핸들을 사용하는 방법입니다.
>
> 즉 커스텀 핸들을 DLL호출하는 메인에서 정의하고
>
> 커스텀 핸들을 DLL에 변수로 넘기고
>
> DLL의 폼종료시 또는 원하는 시점에 Sendmessage또는 PostMessage로
>
> 커스텀 핸들로 넘기면
>
> 그핸들을 받은 메인폼이 FreeLibrary(hLib)을 실행하면 되겠죠.
>
> 그 외에도 많아요..
>
> 김춘성 wrote:
> > 다음과 같은 Dll을 불러오는 코드가 있습니다..
> > 물론 만든 DLL 폼이 뜹니다..
> >
> > 그런데 이것이 모달로 밖에 되질 않아요...
> > dll 코드에 모달로 뜨도록 했으닌까요..
> > 모달로 하지 않으면 저 밑에 FreeLibrary(hLib); 이 바로 호출되어
> > 폼이 떴다가 사라집니다...
> >
> > 그렇다고 FreeLibrary(hLib); 을 안쓸수 없고....
> > 그러자니 Dll 폼을 모달로 밖에 띄울수 없으니 이걸 어떻하죠?
> > 그냥 일반 폼 띄우듯이 할 수 없나요?
> >
> > 저의 이 고민을 이해하실수 있나요?
> >
> >
> > procedure TfrmMain.Button1Click(Sender: TObject);
> > type
> > TCD2MP3Open = function : Boolean; stdcall;
> > var
> > hLib : THandle;
> > CD2MP3Open : TCD2MP3Open;
> > begin
> > hLib := LoadLibrary(PChar(GetCurrentDir + 'CD2MP3Cd2mp3.dll'));
> > if (hLib < 32) then begin
> > MessageBox(Self.Handle, 'can''t Load Library', 'OK', mb_IconInformation);
> > Exit;
> > end;
> >
> > CD2MP3Open := GetProcAddress(hLib, 'CD2MP3Open');
> > CD2MP3Open;
> > FreeLibrary(hLib);
> >
> > end;
> >
(NOTICE) You must be logged in to comment on this post.
-
-
초보의비애•2001.09.03 21:40김남주 wrote: > 폼을 통제로 출력을 했는데 그림은 제대로 나오는데 글자가 좀 깨집니다. > 회사에서 출...
-
김남주•2001.09.04 09:35초보의비애 wrote: > 김남주 wrote: > > 폼을 통제로 출력을 했는데 그림은 제대로 나오는데 글자가 좀 ...
-
-
- 이명호
- 2001.09.03 00:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 허접한 넘팽이....
- 2001.09.03 00:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 김남주
- 2001.09.02 22:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 최부열
- •
- 2001.09.02 21:39
- 1 COMMENTS
- /
- 0 LIKES
-
이성훈•2001.09.04 01:13지금 그럼 작업을 하고 있는데요.. 저도 Tip을 찾아서 해결했습니다. 근데 QuickReport의 내용을 Text로 ...
-
- 음대성
- •
- 2001.09.02 19:14
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.09.03 20:29음대성 wrote: > 안녕하세요.... > FileExists 를 사용할경우 디렉토리 내에서의 화일검색은 알겠는데......
-
- 노력중인 초보
- •
- 2001.09.02 13:36
- 2 COMMENTS
- /
- 0 LIKES
-
하눌이•2001.09.04 04:36노력중인 초보 wrote: > 디비:오라클 델파이5.0 > > 열두달을 4분기루 나눠서 그룹바이하는 쿼리를 ...
-
하얀까마귀•2001.09.04 00:22안녕하세요 하얀까마귀 입니다. 약간 까다롭겠네요... 아주 오래전에 사용한 방법중에서 커서 회피라...
-
- gusckd1
- 2001.09.02 11:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.09.02 08:13
- 1 COMMENTS
- /
- 0 LIKES
-
여영식•2001.09.03 18:06메인 폼의 FormStyle 프로퍼티를 fsStayOnTop으로 하고 하시면 안될까요? 이때 StayOnTop 프로퍼티를 이용...
-
- 초보공주
- •
- 2001.09.02 07:45
- 2 COMMENTS
- /
- 0 LIKES
-
장민우•2001.09.04 02:47자료실에 보면 justone 맞나 ? ^^;; 그런 컴퍼가 있써요... 그걸 사용하시면 같은 프로그램이 두번 실행 ...
-
류종택•2001.09.02 08:18이곳 게시판에서 '중복실행'으로 검색해보세요.. 아래는 제가 사용하는 방법입니다.. begin If Brin...
-
- christians
- 2001.09.02 07:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 김춘성
- •
- 2001.09.02 06:26
- 2 COMMENTS
- /
- 0 LIKES
다음과 같은 Dll을 불러오는 코드가 있습니다.. 물론 만든 DLL 폼이 뜹니다.. 그런데 이것이 모달로 밖에 되질 않아요... dll 코드에 모달로 뜨도록 했으닌까요.. 모달로 하지 않으면 저 밑에 FreeLibrary(hLib); 이 바로 호출되어 폼이 ...-
쩌비•2001.09.02 06:39이건 여러가지 방법이 있어요.. 제가 주로 쓰는 방법은 커스텀 핸들을 사용하는 방법입니다. 즉 커스...
-
김춘성•2001.09.02 23:22초보라 무슨 말이징 이해가 안가요... Sendmessage PostMessage?? 이게 뭔가요?? 어떻게 간단한 예제...
-
- 쩌비
- 2001.09.02 06:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 도와줘요
- •
- 2001.09.02 05:51
- 3 COMMENTS
- /
- 0 LIKES
-
쩌비•2001.09.02 06:17보면 테이블A가 마스터이고 테이블B는 테이블 A SCODE의 1:1 데이타이고 테이블C는 테이블 B I...
-
도와줘요•2001.09.02 06:35빠진것은,, 테이블 D 에서 PANEL=3이고, CTNO=102 인 것입니다... 쩌비 wrote: > 보면 테이블A가 ...
-
쩌비•2001.09.02 06:42도와줘요 wrote: > 빠진것은,, > 테이블 D 에서 PANEL=3이고, CTNO=102 인 것입니다... > > > > ...
-
- 델처버
- •
- 2001.09.02 04:28
- 1 COMMENTS
- /
- 0 LIKES
-
코쟁이•2001.09.02 05:21델처버 wrote: >
-
- 초보자
- •
- 2001.09.02 03:20
- 4 COMMENTS
- /
- 0 LIKES
-
쩌비•2001.09.02 03:37초보자 wrote: > 여기서 보니까, > 인터베이스/MySQL은 정전시 약간의 문제가 > 발생하는군요. > 유료 ...
-
초보자•2001.09.02 03:42답변 감사... 그러나, 그걸 모르는것은 아니죠. UPS는 당연하지만... UPS는 수명이 있습니다. > 쩌비...
-
명탁•2001.09.23 03:36초보자 wrote: > 답변 감사... > 그러나, 그걸 모르는것은 아니죠. > UPS는 당연하지만... > UPS는 수...
-
쩌비•2001.09.02 03:52예로 과거 제가 HP서버를 사용했을때의 경험. UPS가 작동되고 일정시간 즉, 용량이 20%밖에 안 남았을경...
-
- hlyong
- 2001.09.02 02:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 안순규
- •
- 2001.09.01 22:28
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.09.02 02:09안순규 wrote: > 도와 주세요... > Canvas dons't 어쩌구 저쩌구.. 이런 메세지가 계속 나오구 있는데 >...
-
-
- 초급
- •
- 2001.09.01 21:41
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.09.02 00:36안녕하세요. 최용일입니다. 일부분만 제거하실려면 제거할려고하는 컴포넌트유닛들만 빼버리고 다시 컴...
제가 주로 쓰는 방법은 커스텀 핸들을 사용하는 방법입니다.
즉 커스텀 핸들을 DLL호출하는 메인에서 정의하고
커스텀 핸들을 DLL에 변수로 넘기고
DLL의 폼종료시 또는 원하는 시점에 Sendmessage또는 PostMessage로
커스텀 핸들로 넘기면
그핸들을 받은 메인폼이 FreeLibrary(hLib)을 실행하면 되겠죠.
그 외에도 많아요..
김춘성 wrote:
> 다음과 같은 Dll을 불러오는 코드가 있습니다..
> 물론 만든 DLL 폼이 뜹니다..
>
> 그런데 이것이 모달로 밖에 되질 않아요...
> dll 코드에 모달로 뜨도록 했으닌까요..
> 모달로 하지 않으면 저 밑에 FreeLibrary(hLib); 이 바로 호출되어
> 폼이 떴다가 사라집니다...
>
> 그렇다고 FreeLibrary(hLib); 을 안쓸수 없고....
> 그러자니 Dll 폼을 모달로 밖에 띄울수 없으니 이걸 어떻하죠?
> 그냥 일반 폼 띄우듯이 할 수 없나요?
>
> 저의 이 고민을 이해하실수 있나요?
>
>
> procedure TfrmMain.Button1Click(Sender: TObject);
> type
> TCD2MP3Open = function : Boolean; stdcall;
> var
> hLib : THandle;
> CD2MP3Open : TCD2MP3Open;
> begin
> hLib := LoadLibrary(PChar(GetCurrentDir + 'CD2MP3Cd2mp3.dll'));
> if (hLib < 32) then begin
> MessageBox(Self.Handle, 'can''t Load Library', 'OK', mb_IconInformation);
> Exit;
> end;
>
> CD2MP3Open := GetProcAddress(hLib, 'CD2MP3Open');
> CD2MP3Open;
> FreeLibrary(hLib);
>
> end;
>