s_server.pas

com+组件,用于分布式构架的组件服务实例

unit S_SERVER;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComServ, ComObj, VCLCom, StdVcl, bdemts, DataBkr, DBClient,
  MtsRdm, Mtx, S_COM_TLB, Provider, DB, ADODB,inifiles;

type
  TS_COM_DLL = class(TMtsDataModule, IS_COM_DLL)
    DSP: TDataSetProvider;
    CNN: TADOConnection;
    ADS: TADODataSet;
    procedure MtsDataModuleCreate(Sender: TObject);
  private
    { Private declarations }
    MY_INIFILE:Tinifile;
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    procedure insert(cID: Integer; CDelat: OleVariant); safecall;
    procedure update(vID: Integer; vDelta: OleVariant); safecall;
  public
    { Public declarations }
  end;
var
  S_COM_DLL: TS_COM_DLL;
implementation
{$R *.DFM}
class procedure TS_COM_DLL.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

procedure TS_COM_DLL.insert(cID: Integer; CDelat: OleVariant);
begin
 if Cid=0 then
  SHOWMESSAGE('0')
  ELSE
   SHOWMESSAGE('A');
end;

procedure TS_COM_DLL.update(vID: Integer; vDelta: OleVariant);
begin
   if vid=0 then
  SHOWMESSAGE('0')
  ELSE
   SHOWMESSAGE('A');
end;

procedure TS_COM_DLL.MtsDataModuleCreate(Sender: TObject);
VAR
MY_NAME_PATH,INI,CONNSTR:STRING;
begin
 INI:='ServerConfig';
 MY_NAME_PATH:=ExtractFilePath(paramstr(0))+'server.ini';//路径为什么去了在C盘下？
 showmessage(MY_NAME_PATH);
 MY_INIFILE:=Tinifile.Create(MY_NAME_PATH);//创建INI
 CONNSTR:=MY_INIFILE.ReadString(INI,'ConnectionString','');
 //
 //CONNSTR:='Provider=SQLOLEDB.1;Password=198373;Persist Security Info=True;User ID=sa;Initial Catalog=b_s_c;';
 //CONNSTR:=CONNSTR+'Data Source=;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=QIANGCO-B27CCD;Use Encryption for Data=False;Tag with column collation when possible=False';
 CNN.ConnectionString:=CONNSTR;
 CNN.DefaultDatabase:='b_s_c';
 CNN.Connected:=true;
 CNN.KeepConnection:=true;
 CNN.LoginPrompt:=False;
 CNN.Open;
 ADS.CommandText:='select * from personal_biao';
 DSP.DataSet:=ADS;
 ADS.Active:=TRUE;
end;

initialization
  TComponentFactory.Create(ComServer, TS_COM_DLL,
    Class_S_COM_DLL, ciMultiInstance, tmApartment);
end.