unit1.pas

《Delphi7编程100例》代码,书配资料

unit Unit1;
{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ActiveX, Mtsobj, Mtx, ComObj, Project1_TLB, StdVcl, Unit2, SysUtils;

type
  TMyFirstMTSServer = class(TMtsAutoObject, IMyFirstMTSServer)
  protected
    function NewMethod(Param1: Integer): WideString; safecall;
    { Protected declarations }
  end;

implementation

uses ComServ;

function TMyFirstMTSServer.NewMethod(Param1: Integer): WideString;
begin
  MyFirstMTSDM.ADOQuery1.Close;
  MyFirstMTSDM.ADOQuery1.SQL.Clear;
  MyFirstMTSDM.ADOQuery1.SQL.Add('Select * from Products where ProductID='+Inttostr(Param1));
  MyFirstMTSDM.ADOQuery1.Open;
    Result := MyFirstMTSDM.ADOQuery1.FieldValues['ProductName'];
  MyFirstMTSDM.ADOQuery1.Close;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TMyFirstMTSServer, Class_MyFirstMTSServer,
    ciMultiInstance, tmApartment);
end.