김명성 wrote:

> 답변이 너무 늦어 재질문드립니다. 고수님들 제발 도움을 주셨으면 합니다.

> 이것 때문에 정말 미치기 일보 직전입니다.

> 마음이 답답하여 요즘 잠도 잘 못잡니다.

>

> 몇일전에 와서 한 질문입니다.....

>

> 여기에 와서 항상 질문만 하는 것에 대해서 아주 죄송한 마음뿐입니다.

> 저는 MDI로 구현하는 한 프로젝트에 참여하고 있습니다. 그런데, MDICHILD 폼을 DLL로

> 만들어서 호출하고 있습니다. 한 DLL에는 평균 15개 정도의 폼을 포함하고 있습니다.

> 메뉴별로 DLL을 만들었거든요.

> 그런데, 프로그램의 특성상, 한 DLL의 특정폼에서 다른 DLL의 특정폼을 호출할 일이 아

> 주 많습니다. 제가 방법을 몰라서 그런지, 아주 힘이 듭니다. 그래서, 현재는 그 부분을 제외하고 프로그래밍하고 있습니다.

> 한 DLL속에 포함하는 것도 그런것같고, 혹시 방법이 있는지, 아니면 불가능한 것을 제가

> 할려고 하는지 무척이나 궁금하군요. 여러 고수분들께서 이것을 꼭!꼭!꼭! 보시고 제발 저에게 가르침을 내려주셨으면 합니다.

> 그럼 20000.......................................................................



저두 비슷한 경우가 있어서 경험을 말씀드리면...

호출되는 폼이 dll의 메인 폼이 아니라면(예를 들어 코드조회 같은거겠죠?)

그냥 포함해서 사용하셔도 무방할거라고 생각됩니다.

dll을 굳이 호출해서 사용할 필요는 없더군요.

대신 dll이 동시에 호출되었을 경우는 서로 다른 것으로 인식되던걸로 기억됩니다.

안녕하세여..타락임다..^^



제가 요즘 시간 여유가 좀 있어서뤼...ㅠㅠ



질문의 요지를 모르겠군여.. 흠.. 아래의 코딩을 수정해쓰세여..



폼이 필요할때 DLL를 로딩해 쓰고, 다 쓰며, DLL을 제거하면 돼져.



TShowCalendar 만 폼으로 바꾸면 돼지않을까여?



type

TShowCalendar = function(AHandle : THandle; ACaption: string):

TDateTime; stdcall;

EDLLLoadError = class(Exception);

..........

procedure TForm1.ButtonClick(Sender: TObject);

var

LibHandle: THandle;

ShowCalendar: TShowCalendar;

begin

LibHandle := LoadLibrary('CALENDARLIB.DLL');

try

if LibHandle = 0 then

raise EDLLLoadError.Create('Unable to Load DLL');

@ShowCalendar := GetProcAddress(LibHandle, 'ShowCalendar');

if not (@ShowCalendar = nil) then

IblDate.Caption := DateToStr(ShowCalendar(Application.Handle,

Caption ))

else

RaiseLastWin32Error;

finally

FreeLibrary(LibHandle);

end;

end;



즐푸 하세여..



타락천사...^________^

타락천사 wrote:

> 안녕하세여..타락임다..^^

>

> 제가 요즘 시간 여유가 좀 있어서뤼...ㅠㅠ

>

> 질문의 요지를 모르겠군여.. 흠.. 아래의 코딩을 수정해쓰세여..

>

> 폼이 필요할때 DLL를 로딩해 쓰고, 다 쓰며, DLL을 제거하면 돼져.

>

> TShowCalendar 만 폼으로 바꾸면 돼지않을까여?

>

> type

> TShowCalendar = function(AHandle : THandle; ACaption: string):

> TDateTime; stdcall;

> EDLLLoadError = class(Exception);

> ..........

> procedure TForm1.ButtonClick(Sender: TObject);

> var

> LibHandle: THandle;

> ShowCalendar: TShowCalendar;

> begin

> LibHandle := LoadLibrary('CALENDARLIB.DLL');

> try

> if LibHandle = 0 then

> raise EDLLLoadError.Create('Unable to Load DLL');

> @ShowCalendar := GetProcAddress(LibHandle, 'ShowCalendar');

> if not (@ShowCalendar = nil) then

> IblDate.Caption := DateToStr(ShowCalendar(Application.Handle,

> Caption ))

> else

> RaiseLastWin32Error;

> finally

> FreeLibrary(LibHandle);

> end;

> end;

>

> 즐푸 하세여..

>

> 타락천사...^________^



타락천사님과 김영해님의 정성스러운 답변 감사합니다.

위의 dll 호출은 dll에 한 폼만 있는 것을 부르는 것같습니다.

제가 알고 싶은 것은 dll에 여러폼이 있습니다. 그런데, 다른 dll에서 한 dll의

특정 폼을 마음대로 불러 낼 수 있냐는 겁니다.

그 호출 방법을 몰라서 이렇게 애만 태우고 있습니다.

호출하는 방법은 위와 비슷하게하면 되겠지만, 호출 되는 dll에서 어떻게 해야지

호출할때 특정 값을 받아서 그 값에 의해서 특정폼이 호출 될 수 있게 할 수 있는

방법을 몰라서요.

모듈을 아무리 생각해 봐도 잘 생각이 나지 않네요.

이 답답한 인간의 마음을 풀어 주시기 바랍니다.

위의 답변을 하신 김영해님께서의 답변데로 포함 할수도 있겠지만 그러면 열개의 폼

을 또 더해야 하니깐 조금 그래서요

최대한 용량을 줄여야 하거든요



타락천사님과 김영해님 두분중에 꼭 한분이라도 저의 질문에 대해 답변을 주셨으면합니다.