Q&A
- DLL 호출시 ERROR가 나는데.....
동적DLL로 Child Form 호출시 에러가 납니다.
도대체 원인을 모르겠군요.
소스와 에러 메세지를 올립니다. 도움좀 주세요.
저는 처음에 SPLASH 화면을 뛰우고 그다음 사용자 ID와 PASSWORD를 받고
맞으면 MENU폼을 뛰웁니다.
여기까지는 이상 없이 되는데 여기서(MENU화면)CODE를 Click하면 아래와 같은
ERROR가 나옵니다.
도와주십시요.
---------------------------------------------------------------------------------------
Project log_on.exe raised exception calss EExternalException with message ;external
exception c000001D'.Process stopped Use Step or Run to continue.
---------------------------------------------------------------------------------------
//메인에서 코드 Click시 dll을 호출하는데 자꾸 에러가 발생
{*----------------------------------------------*
*program_id : u_main
*Dscription : Mainmenu
*----------------------------------------------*}
unit u_menu;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, Buttons, ToolWin, ComCtrls,DB,BDE,DBTables,ExtCTRLS;
//Dll에서 사용할 내용 정의
type
//기초코드
Tcodedll = Procedure(App : TApplication);StdCall;
Tcodedll_1 = Function(AOWNER: TCOMPONENT ):TFORM;StdCall;
EDllLoadError = Class(Exception);
type
TF_main = class(TForm)
Menu: TMainMenu;
Code: TMenuItem;
C_Insert: TMenuItem;
E_Insert: TMenuItem;
E_h1: TMenuItem;
E_List: TMenuItem;
E_h2: TMenuItem;
E_See: TMenuItem;
E_h3: TMenuItem;
E_Term: TMenuItem;
User: TMenuItem;
U_chg: TMenuItem;
U_h1: TMenuItem;
U_Insert: TMenuItem;
Config: TMenuItem;
C_Printer: TMenuItem;
Exit: TMenuItem;
Error: TMenuItem;
PrinterSetupDialog1: TPrinterSetupDialog;
ToolBar1: TToolBar;
Sbtn_code: TSpeedButton;
Sbtn_error: TSpeedButton;
Sbtn_User: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure ExitClick(Sender: TObject);
procedure C_PrinterClick(Sender: TObject);
procedure FormHide(Sender: TObject);
procedure C_InsertClick(Sender: TObject);
private
{ Private declarations }
//Dll에서 사용할 내용 추가
DllHandle:THandle;
//기초코드
CodeDll : TCodeDll;
CodeDll_1 : TCodeDll_1;
public
{ Public declarations }
end;
var
F_main: TF_main;
implementation
uses u_log;
{$R *.DFM}
procedure TF_main.FormCreate(Sender: TObject);
var
WindowRgn: HRgn; // 윈도우 영역을 얻어 오는 자료형 선언 Hrgn
begin
WindowRgn := 0; // 현재 윈도우 영역을 지운다.
GetWindowRgn(Handle,WindowRgn); //현재 윈도우 영역을 얻어 옴
DeleteObject(WindowRgn); // 얻어온 윈도우 영역의 객체를 지움
WindowRgn := CreateRectRgn(0,0,Width,78); // 사각형 생성 (Left,Top,Right,Bottom)
SetWindowRgn(Handle,WindowRgn,True); // 실제 그려지고 사용될 영역 선언
DeleteObject(WindowRgn);
end;
//작업종료시 Check
procedure TF_main.ExitClick(Sender: TObject);
begin
if MessageDlg('작업을 종료 하시겠습니까?',mtConfirmation,[mbYes, mbNo],0) = mrYes then
Close;
Form_Log.Close;
end;
procedure TF_main.C_PrinterClick(Sender: TObject);
begin
PrinterSetupDialog1.ExeCute;
end;
procedure TF_main.FormHide(Sender: TObject);
begin
Close;
Form_Log.Close;
end;
//기초코드 등록을 선택하면
procedure TF_main.C_InsertClick(Sender: TObject);
begin
// 기초코드 동적 호출
DllHandle := LoadLibrary('CallCode.Dll');
try
//에러가발생하면
if DllHandle = HINSTANCE_ERROR then
raise EDLLLoadError.Create('CallCode.Dll을 Load 할 수 없습니다.');
@CodeDll := GetProcaddress(DLLHANDLE,'CodeDll');
//메인에서 코드 Click시 dll을 호출하는데 자꾸 에러가 발생되는 위치
CodeDll(Application);
@CodeDll := GetProcaddress(DLLHANDLE,'CodeDll_1');
if ASSIGNED(APPLICATION) then
CodeDll_1(SELF).Show
else
ShowMessage(IntToStr(GetLastError));
finally
// DLL를 해제한다.
FreeLibrary(DLLHandle);
end;
end;
end.
{*----------------------------------------------*
*program_id : CallCode.Dll
*Dscription : 기초코드
*DLL : callcode.dll 사용
*----------------------------------------------*}
library CallCode;
{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }
uses
SysUtils,
Classes,
Forms,
Windows,
u_code in 'u_code.pas' {F_Code};
{$R *.RES}
exports // 추가
codedll Name 'codedll',
codedll_1 Name codedll_1';
procedure CallDllProc(Reason : Integer);
begin
if Reason = DLL_Process_Detach then
if Assigned(DllApp) then
Application := DllApp;
end;
begin
DllApp := nil;
DllProc := @CallDllProc;
end.
{*----------------------------------------------*
*program_id : u_Code
*Dscription : 기초코드 입력 및 조회 및 출력
*DLL : callcode.dll 사용
*관계 DB : Code.DB
*----------------------------------------------*}
unit u_code;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls, Grids, DBGrids, ExtCtrls, Buttons, ToolWin,
ComCtrls,BDE;
type
TF_Code = class(TForm)
Panel1: TPanel;
Bvl_cdgu: TBevel;
Lbl_cdgu: TLabel;
Lbl_cd: TLabel;
Bvl_cd: TBevel;
Lbl_Etc: TLabel;
Bvl_etc: TBevel;
Lbl_nm: TLabel;
Bvl_nm: TBevel;
Tbar_cd: TToolBar;
Btn_Que: TBitBtn;
Splitter1: TSplitter;
Btn_Save: TBitBtn;
Btn_Cancel: TBitBtn;
Btn_Del: TBitBtn;
Btn_Esc: TBitBtn;
DBGrid1: TDBGrid;
Cbox_cdgu: TComboBox;
Edt_cd: TEdit;
Edt_Etc: TEdit;
Edt_nm: TEdit;
DataSource1: TDataSource;
Tbl_Code: TTable;
private
{ Private declarations }
public
{ Public declarations }
end;
//기초코드 DLL호출
procedure CodeDll(MainApp : TApplication);Export;StdCall;
Function CodeDll_1(Aowner : TComponent):TF_Code;Export;StdCall;
var
F_Code: TF_Code;
DllApp : TApplication; //Dll 호출시 추가
implementation
uses U_menu;
{$R *.DFM}
procedure DLLEntryPoint(Reason: integer);
begin
if Reason = DLL_Process_DETACH then
if Assigned(DllAPP) Then
Application := DllAPP;
end;
procedure CodeDll(MainApp : TApplication);
begin
if not Assigned(DllApp) then
begin
DllApp := Application;
Application := MainApp;
end;
// DBH:=SDB;
end;
Function CodeDll_1(Aowner : Tcomponent):TF_Code;
begin
Result := TF_Code.Create(Aowner);
end;
end.
도대체 원인을 모르겠군요.
소스와 에러 메세지를 올립니다. 도움좀 주세요.
저는 처음에 SPLASH 화면을 뛰우고 그다음 사용자 ID와 PASSWORD를 받고
맞으면 MENU폼을 뛰웁니다.
여기까지는 이상 없이 되는데 여기서(MENU화면)CODE를 Click하면 아래와 같은
ERROR가 나옵니다.
도와주십시요.
---------------------------------------------------------------------------------------
Project log_on.exe raised exception calss EExternalException with message ;external
exception c000001D'.Process stopped Use Step or Run to continue.
---------------------------------------------------------------------------------------
//메인에서 코드 Click시 dll을 호출하는데 자꾸 에러가 발생
{*----------------------------------------------*
*program_id : u_main
*Dscription : Mainmenu
*----------------------------------------------*}
unit u_menu;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, Buttons, ToolWin, ComCtrls,DB,BDE,DBTables,ExtCTRLS;
//Dll에서 사용할 내용 정의
type
//기초코드
Tcodedll = Procedure(App : TApplication);StdCall;
Tcodedll_1 = Function(AOWNER: TCOMPONENT ):TFORM;StdCall;
EDllLoadError = Class(Exception);
type
TF_main = class(TForm)
Menu: TMainMenu;
Code: TMenuItem;
C_Insert: TMenuItem;
E_Insert: TMenuItem;
E_h1: TMenuItem;
E_List: TMenuItem;
E_h2: TMenuItem;
E_See: TMenuItem;
E_h3: TMenuItem;
E_Term: TMenuItem;
User: TMenuItem;
U_chg: TMenuItem;
U_h1: TMenuItem;
U_Insert: TMenuItem;
Config: TMenuItem;
C_Printer: TMenuItem;
Exit: TMenuItem;
Error: TMenuItem;
PrinterSetupDialog1: TPrinterSetupDialog;
ToolBar1: TToolBar;
Sbtn_code: TSpeedButton;
Sbtn_error: TSpeedButton;
Sbtn_User: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure ExitClick(Sender: TObject);
procedure C_PrinterClick(Sender: TObject);
procedure FormHide(Sender: TObject);
procedure C_InsertClick(Sender: TObject);
private
{ Private declarations }
//Dll에서 사용할 내용 추가
DllHandle:THandle;
//기초코드
CodeDll : TCodeDll;
CodeDll_1 : TCodeDll_1;
public
{ Public declarations }
end;
var
F_main: TF_main;
implementation
uses u_log;
{$R *.DFM}
procedure TF_main.FormCreate(Sender: TObject);
var
WindowRgn: HRgn; // 윈도우 영역을 얻어 오는 자료형 선언 Hrgn
begin
WindowRgn := 0; // 현재 윈도우 영역을 지운다.
GetWindowRgn(Handle,WindowRgn); //현재 윈도우 영역을 얻어 옴
DeleteObject(WindowRgn); // 얻어온 윈도우 영역의 객체를 지움
WindowRgn := CreateRectRgn(0,0,Width,78); // 사각형 생성 (Left,Top,Right,Bottom)
SetWindowRgn(Handle,WindowRgn,True); // 실제 그려지고 사용될 영역 선언
DeleteObject(WindowRgn);
end;
//작업종료시 Check
procedure TF_main.ExitClick(Sender: TObject);
begin
if MessageDlg('작업을 종료 하시겠습니까?',mtConfirmation,[mbYes, mbNo],0) = mrYes then
Close;
Form_Log.Close;
end;
procedure TF_main.C_PrinterClick(Sender: TObject);
begin
PrinterSetupDialog1.ExeCute;
end;
procedure TF_main.FormHide(Sender: TObject);
begin
Close;
Form_Log.Close;
end;
//기초코드 등록을 선택하면
procedure TF_main.C_InsertClick(Sender: TObject);
begin
// 기초코드 동적 호출
DllHandle := LoadLibrary('CallCode.Dll');
try
//에러가발생하면
if DllHandle = HINSTANCE_ERROR then
raise EDLLLoadError.Create('CallCode.Dll을 Load 할 수 없습니다.');
@CodeDll := GetProcaddress(DLLHANDLE,'CodeDll');
//메인에서 코드 Click시 dll을 호출하는데 자꾸 에러가 발생되는 위치
CodeDll(Application);
@CodeDll := GetProcaddress(DLLHANDLE,'CodeDll_1');
if ASSIGNED(APPLICATION) then
CodeDll_1(SELF).Show
else
ShowMessage(IntToStr(GetLastError));
finally
// DLL를 해제한다.
FreeLibrary(DLLHandle);
end;
end;
end.
{*----------------------------------------------*
*program_id : CallCode.Dll
*Dscription : 기초코드
*DLL : callcode.dll 사용
*----------------------------------------------*}
library CallCode;
{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }
uses
SysUtils,
Classes,
Forms,
Windows,
u_code in 'u_code.pas' {F_Code};
{$R *.RES}
exports // 추가
codedll Name 'codedll',
codedll_1 Name codedll_1';
procedure CallDllProc(Reason : Integer);
begin
if Reason = DLL_Process_Detach then
if Assigned(DllApp) then
Application := DllApp;
end;
begin
DllApp := nil;
DllProc := @CallDllProc;
end.
{*----------------------------------------------*
*program_id : u_Code
*Dscription : 기초코드 입력 및 조회 및 출력
*DLL : callcode.dll 사용
*관계 DB : Code.DB
*----------------------------------------------*}
unit u_code;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls, Grids, DBGrids, ExtCtrls, Buttons, ToolWin,
ComCtrls,BDE;
type
TF_Code = class(TForm)
Panel1: TPanel;
Bvl_cdgu: TBevel;
Lbl_cdgu: TLabel;
Lbl_cd: TLabel;
Bvl_cd: TBevel;
Lbl_Etc: TLabel;
Bvl_etc: TBevel;
Lbl_nm: TLabel;
Bvl_nm: TBevel;
Tbar_cd: TToolBar;
Btn_Que: TBitBtn;
Splitter1: TSplitter;
Btn_Save: TBitBtn;
Btn_Cancel: TBitBtn;
Btn_Del: TBitBtn;
Btn_Esc: TBitBtn;
DBGrid1: TDBGrid;
Cbox_cdgu: TComboBox;
Edt_cd: TEdit;
Edt_Etc: TEdit;
Edt_nm: TEdit;
DataSource1: TDataSource;
Tbl_Code: TTable;
private
{ Private declarations }
public
{ Public declarations }
end;
//기초코드 DLL호출
procedure CodeDll(MainApp : TApplication);Export;StdCall;
Function CodeDll_1(Aowner : TComponent):TF_Code;Export;StdCall;
var
F_Code: TF_Code;
DllApp : TApplication; //Dll 호출시 추가
implementation
uses U_menu;
{$R *.DFM}
procedure DLLEntryPoint(Reason: integer);
begin
if Reason = DLL_Process_DETACH then
if Assigned(DllAPP) Then
Application := DllAPP;
end;
procedure CodeDll(MainApp : TApplication);
begin
if not Assigned(DllApp) then
begin
DllApp := Application;
Application := MainApp;
end;
// DBH:=SDB;
end;
Function CodeDll_1(Aowner : Tcomponent):TF_Code;
begin
Result := TF_Code.Create(Aowner);
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이태수
- 2000.07.31 23:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종석
- •
- 2000.07.31 22:52
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.08.01 01:14안녕하세요. 최용일입니다. DLL과 메인프로그램은 각기 다른 Application이라는 전역변수를 가지고 있습...
-
- 권영길
- •
- 2000.07.31 21:36
- 3 COMMENTS
- /
- 0 LIKES
-
떵개•2000.08.01 01:25답변이 맞는지 모르겠네요..... 쓰레드를 호출을 Create하시면... 그 쓰레드가 종료하면 OnTerminate(?) ...
-
최용일•2000.08.01 01:18안녕하세요. 최용일입니다. 쓰레드객체에 보시면 OnTerminate란 이벤트가 있습니다. 여기에서 종료된다...
-
권영길•2000.08.01 02:33적용해 보겠습니다. 감사합니다. 최용일 wrote: > 안녕하세요. 최용일입니다. > > 쓰레드객체에 보...
-
- 완전 초보
- •
- 2000.07.31 21:03
- 3 COMMENTS
- /
- 0 LIKES
-
떵개•2000.08.01 01:25for 변수의 초기값 to 종료치 do begin end; procedure TForm1.ForTest; var A : integer; begin ...
-
hugehead•2000.08.02 20:08참고로 델파이/오브젝트 파스칼의 for loop는 C의 for loop과는 달리 loop index의 값을 loop 안에서 바꿀 ...
-
찾는이•2000.09.06 06:05떵개 wrote: > for 변수의 초기값 to 종료치 do begin > end; > > procedure TForm1.ForTest; > var ...
-
- 이재호
- 2000.07.31 20:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 김인
- •
- •
- 2000.07.31 20:41
- 1 COMMENTS
- /
- 1 LIKES
동적DLL로 Child Form 호출시 에러가 납니다. 도대체 원인을 모르겠군요. 소스와 에러 메세지를 올립니다. 도움좀 주세요. 저는 처음에 SPLASH 화면을 뛰우고 그다음 사용자 ID와 PASSWORD를 받고 맞으면 MENU폼을 뛰웁니다. 여기까지는 ...-
이태수•2000.07.31 23:18그냥, 일반적인 방법을 사용하여 보시는 것은 어떨런지요. 저는 child Form을 호출하지는 않고, 하나의 E...
-
- 정우성
- 2000.07.31 20:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2000.07.31 20:24
- 0 COMMENTS
- /
- 0 LIKES
-
- space4
- 2000.07.31 20:19
- 0 COMMENTS
- /
- 0 LIKES
-
- space4
- 2000.07.31 20:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 김토토
- •
- 2000.07.31 19:56
- 3 COMMENTS
- /
- 0 LIKES
-
j2•2000.07.31 23:04토토님이 질문하고자하는 내용이 제가 답변하는거랑 맞는지 어떠지 모르겠지만... Boland 폴더 중 Delphi...
-
이경문•2000.08.01 00:54저도 그런 적이 있는데 화면 해상도를 입빠이 높이면 메인메뉴가 보일 수 있습니다. 원하는 곳으로 이동...
-
신상•2010.03.29 20:26ㅋㅋㅋ 그러네요... 듀얼모니터 쓰다가 하나로 하니까 화면이 오른쪽 끝으로 가있어서 안보이는거였어요...
-
- 푸하하
- •
- 2000.07.31 19:45
- 2 COMMENTS
- /
- 0 LIKES
-
김희중•2000.07.31 21:06작업시작할때가 아닌 자료를 저장할때 PK를 생성하시면 됩니다. 푸하하 wrote: > 아까에 이은 두번째 ...
-
배우미•2000.07.31 20:16푸하하 wrote: > 아까에 이은 두번째 질문입니다. > sql7.0서버를 이용할때, 모든 db를 공유하는데에서의...
-
- 푸하하
- •
- 2000.07.31 19:38
- 2 COMMENTS
- /
- 0 LIKES
-
최석기•2000.07.31 20:05푸하하님 님 이 원하는 방식은 편법으로 해결하는 방법 밖어ㅔ 없을꺼 같네요.. 아래 팁을 이용하여 클...
-
푸하하•2000.07.31 22:18감사합니다. 최석기님의 충고로 타이틀바 없애는거랑, 전철호님의 팁을 같이 사용하여 사용해서 해결 봤...
-
- MS반항
- •
- 2000.07.31 19:20
- 2 COMMENTS
- /
- 0 LIKES
-
박세연•2000.09.06 23:26MS반항 wrote: > 예를 들어서 > Form1 과 Form2 이 두 폼사이에여 > a 라는 변수를 주고 싶으면 > 어...
-
최석기•2000.07.31 19:38MS반항 wrote: > 예를 들어서 > Form1 과 Form2 이 두 폼사이에여 > a 라는 변수를 주고 싶으면 > 어...
-
- 신형
- •
- 2000.07.31 15:04
- 1 COMMENTS
- /
- 0 LIKES
-
박서규•2000.08.02 04:18신형 wrote: > * 사용환경 : 델파이5 / Windows 98 > * 에러 메시지 : > > 간단한 메시지 전송 프로...
-
- cheerycoke
- 2000.07.31 13:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이를 사랑하는 사
- •
- 2000.07.31 11:15
- 1 COMMENTS
- /
- 0 LIKES
-
초보•2001.02.13 03:02델 함수 중에 표준편차 구하는 함수가 있네요.. StdDev returns the sample standard deviation for ele...
-
- 김영습
- •
- 2000.07.31 10:06
- 2 COMMENTS
- /
- 0 LIKES
-
박서규•2000.07.31 23:42김영습 wrote: > 안녕하세요... 비가 오고 있습니다.. 태풍이라는데.. 피해가 없기를...^^ > > 클라이...
-
임형호•2000.07.31 13:35김영습 wrote: > 안녕하세요... 비가 오고 있습니다.. 태풍이라는데.. 피해가 없기를...^^ > > 클라이...
-
- 찾는이
- •
- 2000.07.31 09:01
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.08.01 00:45WinshoeUDPListener라는 컴포가 있습니다(Winshoes Servers Tab에 있슴다) 예제를 보여드리자면 일단 B...
-
- 초보
- •
- 2000.07.31 08:12
- 2 COMMENTS
- /
- 0 LIKES
-
양병규•2000.07.31 10:08constructor Create(Canvas : TCanvas; Bit : TBitmap); 이렇게 되어있다면... 쓰레드 내부에서는 비트...
-
초보•2000.08.01 01:37양병규님 정만 감사합니다. 그런데 제가 초보라서 말을 뜻을 잘 이해를 못했어요 ㅠ.ㅠ 죄송하지만 쉽게 ...
저는 child Form을 호출하지는 않고,
하나의 Exe에서 DLL 서브 프로그램을 호출하는 형식을 취하고 있는데,
가장 일반적인 방법으로 처리하고 있습니다.
CodeDll := GetProcaddress( DLLHANDLE, 'CodeDll' );
if ( NOT ASSIGNED( CodeDll ) ) then
begin
end
else
try
CodeDll();
finally
end;
FreeLibrary( DLLHANDLE );
end;
...end of mail......
김인 wrote:
> 동적DLL로 Child Form 호출시 에러가 납니다.
> 도대체 원인을 모르겠군요.
> 소스와 에러 메세지를 올립니다. 도움좀 주세요.
> 저는 처음에 SPLASH 화면을 뛰우고 그다음 사용자 ID와 PASSWORD를 받고
> 맞으면 MENU폼을 뛰웁니다.
> 여기까지는 이상 없이 되는데 여기서(MENU화면)CODE를 Click하면 아래와 같은
> ERROR가 나옵니다.
> 도와주십시요.
> ---------------------------------------------------------------------------------------
> Project log_on.exe raised exception calss EExternalException with message ;external
> exception c000001D'.Process stopped Use Step or Run to continue.
> ---------------------------------------------------------------------------------------
>
> //메인에서 코드 Click시 dll을 호출하는데 자꾸 에러가 발생
> {*----------------------------------------------*
> *program_id : u_main
> *Dscription : Mainmenu
> *----------------------------------------------*}
> unit u_menu;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> Menus, Buttons, ToolWin, ComCtrls,DB,BDE,DBTables,ExtCTRLS;
>
> //Dll에서 사용할 내용 정의
> type
> //기초코드
> Tcodedll = Procedure(App : TApplication);StdCall;
> Tcodedll_1 = Function(AOWNER: TCOMPONENT ):TFORM;StdCall;
>
> EDllLoadError = Class(Exception);
>
> type
> TF_main = class(TForm)
> Menu: TMainMenu;
> Code: TMenuItem;
> C_Insert: TMenuItem;
> E_Insert: TMenuItem;
> E_h1: TMenuItem;
> E_List: TMenuItem;
> E_h2: TMenuItem;
> E_See: TMenuItem;
> E_h3: TMenuItem;
> E_Term: TMenuItem;
> User: TMenuItem;
> U_chg: TMenuItem;
> U_h1: TMenuItem;
> U_Insert: TMenuItem;
> Config: TMenuItem;
> C_Printer: TMenuItem;
> Exit: TMenuItem;
> Error: TMenuItem;
> PrinterSetupDialog1: TPrinterSetupDialog;
> ToolBar1: TToolBar;
> Sbtn_code: TSpeedButton;
> Sbtn_error: TSpeedButton;
> Sbtn_User: TSpeedButton;
> procedure FormCreate(Sender: TObject);
> procedure ExitClick(Sender: TObject);
> procedure C_PrinterClick(Sender: TObject);
> procedure FormHide(Sender: TObject);
> procedure C_InsertClick(Sender: TObject);
>
> private
> { Private declarations }
>
> //Dll에서 사용할 내용 추가
> DllHandle:THandle;
> //기초코드
> CodeDll : TCodeDll;
> CodeDll_1 : TCodeDll_1;
>
> public
> { Public declarations }
>
> end;
>
> var
> F_main: TF_main;
>
> implementation
>
> uses u_log;
>
> {$R *.DFM}
>
> procedure TF_main.FormCreate(Sender: TObject);
> var
> WindowRgn: HRgn; // 윈도우 영역을 얻어 오는 자료형 선언 Hrgn
> begin
>
> WindowRgn := 0; // 현재 윈도우 영역을 지운다.
> GetWindowRgn(Handle,WindowRgn); //현재 윈도우 영역을 얻어 옴
> DeleteObject(WindowRgn); // 얻어온 윈도우 영역의 객체를 지움
> WindowRgn := CreateRectRgn(0,0,Width,78); // 사각형 생성 (Left,Top,Right,Bottom)
> SetWindowRgn(Handle,WindowRgn,True); // 실제 그려지고 사용될 영역 선언
> DeleteObject(WindowRgn);
>
> end;
>
> //작업종료시 Check
> procedure TF_main.ExitClick(Sender: TObject);
> begin
> if MessageDlg('작업을 종료 하시겠습니까?',mtConfirmation,[mbYes, mbNo],0) = mrYes then
> Close;
> Form_Log.Close;
> end;
>
>
> procedure TF_main.C_PrinterClick(Sender: TObject);
> begin
> PrinterSetupDialog1.ExeCute;
> end;
>
>
>
>
> procedure TF_main.FormHide(Sender: TObject);
> begin
> Close;
> Form_Log.Close;
>
> end;
>
>
> //기초코드 등록을 선택하면
> procedure TF_main.C_InsertClick(Sender: TObject);
> begin
>
> // 기초코드 동적 호출
> DllHandle := LoadLibrary('CallCode.Dll');
>
> try
> //에러가발생하면
> if DllHandle = HINSTANCE_ERROR then
> raise EDLLLoadError.Create('CallCode.Dll을 Load 할 수 없습니다.');
>
> @CodeDll := GetProcaddress(DLLHANDLE,'CodeDll');
>
> //메인에서 코드 Click시 dll을 호출하는데 자꾸 에러가 발생되는 위치
> CodeDll(Application);
> @CodeDll := GetProcaddress(DLLHANDLE,'CodeDll_1');
> if ASSIGNED(APPLICATION) then
> CodeDll_1(SELF).Show
> else
> ShowMessage(IntToStr(GetLastError));
>
>
> finally
>
> // DLL를 해제한다.
> FreeLibrary(DLLHandle);
>
> end;
> end;
>
>
>
> end.
>
>
>
>
>
> {*----------------------------------------------*
> *program_id : CallCode.Dll
> *Dscription : 기초코드
> *DLL : callcode.dll 사용
> *----------------------------------------------*}
>
>
>
> library CallCode;
>
> { Important note about DLL memory management: ShareMem must be the
> first unit in your library's USES clause AND your project's (select
> Project-View Source) USES clause if your DLL exports any procedures or
> functions that pass strings as parameters or function results. This
> applies to all strings passed to and from your DLL--even those that
> are nested in records and classes. ShareMem is the interface unit to
> the BORLNDMM.DLL shared memory manager, which must be deployed along
> with your DLL. To avoid using BORLNDMM.DLL, pass string information
> using PChar or ShortString parameters. }
>
> uses
> SysUtils,
> Classes,
> Forms,
> Windows,
> u_code in 'u_code.pas' {F_Code};
>
> {$R *.RES}
> exports // 추가
> codedll Name 'codedll',
> codedll_1 Name codedll_1';
>
> procedure CallDllProc(Reason : Integer);
> begin
> if Reason = DLL_Process_Detach then
> if Assigned(DllApp) then
> Application := DllApp;
> end;
>
> begin
> DllApp := nil;
> DllProc := @CallDllProc;
>
> end.
>
>
>
>
>
>
>
>
>
> {*----------------------------------------------*
> *program_id : u_Code
> *Dscription : 기초코드 입력 및 조회 및 출력
> *DLL : callcode.dll 사용
> *관계 DB : Code.DB
> *----------------------------------------------*}
>
> unit u_code;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> Db, DBTables, StdCtrls, Grids, DBGrids, ExtCtrls, Buttons, ToolWin,
> ComCtrls,BDE;
>
> type
> TF_Code = class(TForm)
> Panel1: TPanel;
> Bvl_cdgu: TBevel;
> Lbl_cdgu: TLabel;
> Lbl_cd: TLabel;
> Bvl_cd: TBevel;
> Lbl_Etc: TLabel;
> Bvl_etc: TBevel;
> Lbl_nm: TLabel;
> Bvl_nm: TBevel;
> Tbar_cd: TToolBar;
> Btn_Que: TBitBtn;
> Splitter1: TSplitter;
> Btn_Save: TBitBtn;
> Btn_Cancel: TBitBtn;
> Btn_Del: TBitBtn;
> Btn_Esc: TBitBtn;
> DBGrid1: TDBGrid;
> Cbox_cdgu: TComboBox;
> Edt_cd: TEdit;
> Edt_Etc: TEdit;
> Edt_nm: TEdit;
> DataSource1: TDataSource;
> Tbl_Code: TTable;
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
>
> //기초코드 DLL호출
> procedure CodeDll(MainApp : TApplication);Export;StdCall;
> Function CodeDll_1(Aowner : TComponent):TF_Code;Export;StdCall;
>
> var
> F_Code: TF_Code;
> DllApp : TApplication; //Dll 호출시 추가
> implementation
>
> uses U_menu;
> {$R *.DFM}
>
> procedure DLLEntryPoint(Reason: integer);
> begin
> if Reason = DLL_Process_DETACH then
> if Assigned(DllAPP) Then
> Application := DllAPP;
> end;
>
>
> procedure CodeDll(MainApp : TApplication);
> begin
> if not Assigned(DllApp) then
> begin
> DllApp := Application;
> Application := MainApp;
> end;
> // DBH:=SDB;
> end;
>
> Function CodeDll_1(Aowner : Tcomponent):TF_Code;
> begin
> Result := TF_Code.Create(Aowner);
> end;
>
> end.
>
>
>
>
>