웬지.......
ArDataForm1 의
생성자에서 ArData_Frm1 = this; 를
소멸자에서 ArData_Frm1 = NULL; 을
넣어주면 될 것 같네요.


쏘가리 님이 쓰신 글 :
: runtime package 로 ArData.bpl을 만들었습니다.
: 그런데 Package안에 만들은 ArData_Frm1과 ArData_Frm2 간의 변수를 사용하려면
: Access Error가 발생을 하네요. 도무지 방법을 찾을 길이 없습니다.
: ArData_Unit2.cpp 파일의 Button1Click 함수에서 ArData_Frm1->Name = "KKKK";
: 이렇게 ArData_Unit1에 선언되어 있는 변수에 쓸려고 하면 에러가 발생합니다.
: 알고 계시는 분은 꼭 답변해주시면 감사하겠습니다.
:
: ArData_Unit1.cpp
: //---------------------------------------------------------------------------
:
: #include <vcl.h>
: #pragma hdrstop
:
: #include "ArData_Unit1.h"
: #include "ArData_Unit2.h"
: //---------------------------------------------------------------------------
: #pragma package(smart_init)
: #pragma link "AdvGrid"
: #pragma link "BaseGrid"
: #pragma resource "*.dfm"
: TArData_Frm1 *ArData_Frm1;
: //---------------------------------------------------------------------------
: __fastcall TArData_Frm1::TArData_Frm1(TComponent* Owner)
:     : TForm(Owner)
: {
: }
: //---------------------------------------------------------------------------
: void initialization(void)
: {
:   RegisterClass(__classid(TArData_Frm1));
: }
:
: void finalization(void)
: {
:   UnRegisterClass(__classid(TArData_Frm1));
: }
:
: #pragma startup initialization
: #pragma exit finalization
: //----------------------------------------------------------------------------
: void __fastcall TfrmOrderEnquiry::FormClose(TObject *Sender,
:       TCloseAction &Action)
: {
:   Action = caFree;
: }
: //---------------------------------------------------------------------------
: void __fastcall TArData_Frm1::FormClose(TObject *Sender, TCloseAction &Action)
: {
:     Action = caFree;
: }
: //---------------------------------------------------------------------------
: void __fastcall TArData_Frm1::Button1Click(TObject *Sender)
: {
:     TForm *ar_data = new TArData_Frm2(NULL);
:     ar_data->Show();
: }
: //---------------------------------------------------------------------------
:
: ArData_Unit1.h
: //---------------------------------------------------------------------------
:
: #ifndef ArData_Unit1H
: #define ArData_Unit1H
: //---------------------------------------------------------------------------
: #include <Classes.hpp>
: #include <Controls.hpp>
: #include <StdCtrls.hpp>
: #include <Forms.hpp>
: #include "AdvGrid.hpp"
: #include "BaseGrid.hpp"
: #include <Grids.hpp>
: //---------------------------------------------------------------------------
: class TArData_Frm1 : public TForm
: {
: __published:    // IDE-managed Components
:     TButton *Button1;
:     TAdvStringGrid *AdvStringGrid1;
:     void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
:     void __fastcall Button1Click(TObject *Sender);
: private:    // User declarations
:
: public:        // User declarations
:     AnsiString Name;
:     __fastcall TArData_Frm1(TComponent* Owner);
: };
: //---------------------------------------------------------------------------
: extern PACKAGE TArData_Frm1 *ArData_Frm1;
: //---------------------------------------------------------------------------
: #endif
:
: ArData_Unit2.cpp
: /---------------------------------------------------------------------------
:
: #include <vcl.h>
: #pragma hdrstop
:
: #include "ArData_Unit2.h"
: #include "ArData_Unit1.h"
: //---------------------------------------------------------------------------
: #pragma package(smart_init)
: #pragma resource "*.dfm"
: TArData_Frm2 *ArData_Frm2;
: //---------------------------------------------------------------------------
: __fastcall TArData_Frm2::TArData_Frm2(TComponent* Owner)
:     : TForm(Owner)
: {
: }
: //---------------------------------------------------------------------------
: void __fastcall TArData_Frm2::Button1Click(TObject *Sender)
: {
:     ArData_Frm1->Name = "KKKK";  <------여기서 에러 발생
:                 ShowMessage(ArData_Frm1->Name);
: }
: //---------------------------------------------------------------------------
: void __fastcall TArData_Frm2::FormClose(TObject *Sender, TCloseAction &Action)
: {
:     Action = caFree;
: }
: //---------------------------------------------------------------------------
: void init_Unit2(void)
: {
:   RegisterClass(__classid(TArData_Frm2));
: }
:
: void final_Unit2(void)
: {
:   UnRegisterClass(__classid(TArData_Frm2));
: }
:
: #pragma startup init_Unit2
: #pragma exit final_Unit2
:
: ArData_Unit2.h
: //---------------------------------------------------------------------------
:
: #ifndef ArData_Unit2H
: #define ArData_Unit2H
: //---------------------------------------------------------------------------
: #include <Classes.hpp>
: #include <Controls.hpp>
: #include <StdCtrls.hpp>
: #include <Forms.hpp>
: //---------------------------------------------------------------------------
: class TArData_Frm2 : public TForm
: {
: __published:    // IDE-managed Components
:     TButton *Button1;
:     void __fastcall Button1Click(TObject *Sender);
:     void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
: private:    // User declarations
: public:        // User declarations
:     __fastcall TArData_Frm2(TComponent* Owner);
: };
: //---------------------------------------------------------------------------
: extern PACKAGE TArData_Frm2 *ArData_Frm2;
: //---------------------------------------------------------------------------
: #endif
:
:
: bpl 파일 콜 하는 프로그램 부분
:
: try {
:      PHandle = LoadPackage("ArData.bpl");
: } catch (...) {
:     ShowMessage("LoadPackage Error!!!");
: }
:
: AClass = GetClass("TArData_Frm1");
:
:  if (AClass != NULL) {
:      Application->CreateForm(AClass, &AForm);
:      AForm->Show();
:   }