【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-ejb_sidl_javax_ejb_impl.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit ejb_sidl_javax_ejb_impl;
{This file was generated on 28 Feb 2001 10:06:55 GMT by version 03.03.03.C1.06}
{of the Inprise VisiBroker idl2pas CORBA IDL compiler. }
{Please do not edit the contents of this file. You should instead edit and }
{recompile the original IDL which was located in the file sidl.idl. }
{Delphi Pascal unit : ejb_sidl_javax_ejb_impl }
{derived from IDL module : ejb }
interface
uses
SysUtils,
CORBA,
ejb_sidl_javax_ejb_i,
ejb_sidl_javax_ejb_c;
type
TEJBHome = class;
TEJBObject = class;
TEJBHome = class(TInterfacedObject, ejb_sidl_javax_ejb_i.EJBHome)
protected
{******************************}
{*** User variables go here ***}
{******************************}
public
constructor Create;
function getEJBMetaData : ejb_sidl_javax_ejb_i.EJBMetaData;
procedure remove ( const primaryKey : ANY);
function getSimplifiedIDL : AnsiString;
end;
TEJBObject = class(TInterfacedObject, ejb_sidl_javax_ejb_i.EJBObject)
protected
{******************************}
{*** User variables go here ***}
{******************************}
public
constructor Create;
function getEJBHome : ejb_sidl_javax_ejb_i.EJBHome;
function getPrimaryKey : ANY;
procedure remove ;
end;
implementation
constructor TEJBHome.Create;
begin
inherited;
{ *************************** }
{ *** User code goes here *** }
{ *************************** }
end;
function TEJBHome.getEJBMetaData : ejb_sidl_javax_ejb_i.EJBMetaData;
begin
{ *************************** }
{ *** User code goes here *** }
{ *************************** }
end;
procedure TEJBHome.remove ( const primaryKey : ANY);
begin
{ *************************** }
{ *** User code goes here *** }
{ *************************** }
end;
function TEJBHome.getSimplifiedIDL : AnsiString;
begin
{ *************************** }
{ *** User code goes here *** }
{ *************************** }
end;
constructor TEJBObject.Create;
begin
inherited;
{ *************************** }
{ *** User code goes here *** }
{ *************************** }
end;
function TEJBObject.getEJBHome : ejb_sidl_javax_ejb_i.EJBHome;
begin
{ *************************** }
{ *** User code goes here *** }
{ *************************** }
end;
function TEJBObject.getPrimaryKey : ANY;
begin
{ *************************** }
{ *** User code goes here *** }
{ *************************** }
end;
procedure TEJBObject.remove ;
begin
{ *************************** }
{ *** User code goes here *** }
{ *************************** }
end;
initialization
end.