【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“account_s.pas”一文,供大家参考学习!
unit account_s;
{This file was generated on 11 Aug 2000 19:55:07 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 account.idl. }
{Delphi Pascal unit : account_s }
{derived from IDL module : default }
interface
uses
CORBA,
account_i,
account_c;
type
TAccountSkeleton = class;
TAccountSkeleton = class(CORBA.TCorbaObject, account_i.Account)
private
FImplementation : Account;
public
constructor Create(const InstanceName: string; const Impl: Account);
destructor Destroy; override;
function GetImplementation : Account;
function balance : Single;
published
procedure _balance(const _Input: CORBA.InputStream; _Cookie: Pointer);
end;
implementation
constructor TAccountSkeleton.Create(const InstanceName : string; const Impl : account_i.Account);
begin
inherited;
inherited CreateSkeleton(InstanceName, 'Account', 'IDL:Account:1.0');
FImplementation := Impl;
end;
destructor TAccountSkeleton.Destroy;
begin
FImplementation := nil;
inherited;
end;
function TAccountSkeleton.GetImplementation : account_i.Account;
begin
result := FImplementation as account_i.Account;
end;
function TAccountSkeleton.balance : Single;
begin
Result := FImplementation.balance;
end;
procedure TAccountSkeleton._balance(const _Input: CORBA.InputStream; _Cookie: Pointer);
var
_Output : CORBA.OutputStream;
_Result : Single;
begin
_Result := balance;
GetReplyBuffer(_Cookie, _Output);
_Output.WriteFloat(_Result);
end;
initialization
end.
上一篇:
account_impl.pas
下一篇:
法律专业开题报告范文