getidaddimpl.pas

《Delphi7编程100例》代码网上看到了

{ Invokable implementation File for TGetIDadd which implements IGetIDadd }

unit GetIDaddImpl;

interface

uses SysUtils,InvokeRegistry, Types, XSBuiltIns, GetIDaddIntf, Unit1;

type

  { TGetIDadd }
  TGetIDadd = class(TInvokableClass, IGetIDadd)
  public
    function echoEnum(const Value: TEnumTest): TEnumTest; stdcall;
    function echoDoubleArray(const Value: TDoubleArray): TDoubleArray; stdcall;
    function echoMyEmployee(const Value: TMyEmployee): TMyEmployee; stdcall;
    function echoDouble(const Value: Integer): String; stdcall;
  end;

implementation

function TGetIDadd.echoEnum(const Value: TEnumTest): TEnumTest; stdcall;
begin
  { TODO : Implement method echoEnum }
  Result := Value;
end;

function TGetIDadd.echoDoubleArray(const Value: TDoubleArray): TDoubleArray; stdcall;
begin
  { TODO : Implement method echoDoubleArray }
  Result := Value;
end;

function TGetIDadd.echoMyEmployee(const Value: TMyEmployee): TMyEmployee; stdcall;
begin
  { TODO : Implement method echoMyEmployee }
  Result := TMyEmployee.Create;
end;

function TGetIDadd.echoDouble(const Value: Integer): String; stdcall;
begin
  { TODO : Implement method echoDouble }
  Form1.ADOQuery1.Close;
  Form1.ADOQuery1.SQL.Clear;
  Form1.ADOQuery1.SQL.Add('Select * from id where code="' + Inttostr(Value) +'"');
  Form1.ADOQuery1.Open;
  Result := Form1.ADOQuery1.FieldByName('name').AsString;
  Form1.ADOQuery1.Close;
end;

initialization
  { Invokable classes must be registered }
  InvRegistry.RegisterInvokableClass(TGetIDadd);

end.