unit DatamoduleUnit; interface uses {$IFDEF Linux}QForms, {$ELSE}Forms, {$ENDIF} SysUtils, Classes, DB, ADODB, RpCon, RpConDS, RpBase, RpSystem, RpDefine, RpRave; type TDataModule1 = class(TDataModule) ADOConnection1: TADOConnection; DataSource1: TDataSource; ADODataset1: TADODataSet; ADODataSet2: TADODataSet; ADOQuery1: TADOQuery; RvProject1: TRvProject; RvSystem1: TRvSystem; RvDataSetConnection1: TRvDataSetConnection; private public lastRec:string; end; // Procs function DataModule1: TDataModule1; implementation {$R *.dfm} uses IWInit, ServerController; function DataModule1: TDataModule1; begin Result := TUserSession(RWebApplication.Data).Datamodule1; end; RvDataSetConnection.Dataset:=AdoDataSet runtime.visibility:=rtEndUser RvProject1.engine:=RvSystem1 Rvproject1.projectfile:=c:\test1.rav 然後IntraWeb Stand along就可執行,但在DLL就不可執行 請各位高手指點