【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:DataM.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit DataM;
{$WARN SYMBOL_PLATFORM OFF}
interface
uses
Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
DBClient, DSServer_TLB, StdVcl, DB, DBTables, Provider;
type
TMyAppServ = class(TRemoteDataModule, IMyAppServ)
tbAnimal: TTable;
DataSetProvider1: TDataSetProvider;
DataSetProvider2: TDataSetProvider;
qrCustomer: TQuery;
tbItems: TTable;
tbOrders: TTable;
dsOrder: TDataSource;
DataSetProvider3: TDataSetProvider;
procedure RemoteDataModuleCreate(Sender: TObject);
procedure RemoteDataModuleDestroy(Sender: TObject);
procedure tbAnimalBeforeOpen(DataSet: TDataSet);
function DataSetProvider1DataRequest(Sender: TObject;
Input: OleVariant): OleVariant;
private
protected
class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
public
end;
implementation
uses Main;
{$R *.DFM}
class procedure TMyAppServ.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 TMyAppServ.RemoteDataModuleCreate(Sender: TObject);
begin
Form1.UpdateClientCount(1);
end;
procedure TMyAppServ.RemoteDataModuleDestroy(Sender: TObject);
begin
Form1.UpdateClientCount(-1);
end;
procedure TMyAppServ.tbAnimalBeforeOpen(DataSet: TDataSet);
begin
Form1.IncQueryCount;
end;
function TMyAppServ.DataSetProvider1DataRequest(Sender: TObject;
Input: OleVariant): OleVariant;
begin
Form1.Caption := WideString(Input);
Result := OleVariant(true);
end;
initialization
TComponentFactory.Create(ComServer, TMyAppServ,
Class_MyAppServ, ciMultiInstance, tmApartment);
end.
上一篇:
datadomule.pas
下一篇:
哈弗F7 VS名爵HS,谁更懂得年轻人的心?