Информатика / Реферат: MIDAS. Практическое применение

Реферат: MIDAS. Практическое применение

protected

class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);

override;

function NewClientID: Integer; safecall;

function Get_ClientName(ClientID: Integer): WideString; safecall;

На IDL это выглядит так:

[id(0x00000001)]

HRESULT _stdcall NewClientID([out, retval] long * Result);

[propget, id(0x00000004)]

HRESULT _stdcall ClientName([in] long ClientID, [out, retval] BSTR * Value);

Реализация этих функций довольно проста. Надо вызвать хранимые процедуры, и выдать возвращаемое ими значение в качестве результата:

function TrdmCommon.NewClientID: Integer;

begin

lock;

with spNewID do

try

ExecProc;

Result := paramByName('ID').AsInteger;

finally

unlock;

end;

end;

function TrdmCommon.Get_ClientName(ClientID: Integer): WideString;

begin

lock;

try

with spClientFullName do

begin

paramByName('ID').AsInteger := ClientID;

К-во Просмотров: 830
Бесплатно скачать Реферат: MIDAS. Практическое применение