1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

type
  GePackage = class // Abstract External C++ Class
  public
    constructor Create(); overload;
    constructor Create( szFileName: PChar ); overload;

    destructor  Destroy(); virtual;

    class function  Init(): longint; cdecl;
    class procedure Release(); cdecl;

    class function  Open( szFileName: PChar ): longint; virtual; abstract;
    class function  Close(): longint; virtual; abstract;
    ...

constructor GePackage.Create();
  external 'core.dll' name '??0GePackage@Core@GEL@@QAE@XZ';
constructor GePackage.Create( szFileName: PChar );
  external 'core.dll' name '??0GePackage@Core@GEL@@QAE@PBD@Z';

destructor  GePackage.Destroy();
  external 'core.dll' name '??1GePackage@Core@GEL@@UAE@XZ';

class function  GePackage.Init(): longint;
  external 'core.dll' name '?Init@GePackage@Core@GEL@@QAEJXZ';
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  frmMain: TfrmMain;
  kPackage: GePackage;

...

procedure TfrmMain.FormCreate( Sender: TObject );
var szBuffer: string;
begin
  szBuffer := 'data.gpf';
  kPackage := GeGillianPackage.Create( PChar( szBuffer ));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

type
  GeGillianPackage = class( GePackage ) // External C++ Class
  public
    constructor Create(); overload;
    constructor Create( szFileName: PChar ); overload;

    destructor Destroy();

    class function Open( szFileName: pchar ): longint; stdcall;
    class function Close(): longint; stdcall;

    class function Flush(): longint; stdcall;
    ...

constructor GeGillianPackage.Create();
  external 'core.dll' name '??0GeGillianPackage@Core@GEL@@QAE@XZ';
constructor GeGillianPackage.Create( szFileName: PChar );
  external 'core.dll' name '??0GeGillianPackage@Core@GEL@@QAE@PBD@Z';

destructor GeGillianPackage.Destroy();
  external 'core.dll' name '??1GeGillianPackage@Core@GEL@@UAE@XZ';

class function GeGillianPackage.Open( szFileName: pchar ): longint;
  external 'core.dll' name '?Open@GeGillianPackage@Core@GEL@@UAEJPBD@Z';
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

GePackage::GePackage( void )
{
  file *log = fopen( "log.txt", "a+" );
  fprintf( log, "%s { - %i %s\n", __FUNCTION__, __LINE__, __FILE__ );

  m_pkLog = new GeLog( "Systm", "core.log", true );
  mlog( "### Package System is online!" );

  Init();

  fprintf( log, "%s } - %i %s\n", __FUNCTION__, __LINE__, __FILE__ );
  fclose( log );
  log = NULL;
}