九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

對于Server Module（你也可以用標準的Data Module）通常添加dbExpress組件用來連接數(shù)據(jù)服務(wù)器，添加一個數(shù)據(jù)集提供器輸出指定的數(shù)據(jù)集：

 object IBCONNECTION: TSQLConnection
  ConnectionName = 'IBCONNECTION'
  DriverName = 'Interbase'
  LoginPrompt = False
  Params.Strings = (
    'DriverName=Interbase'
    'Database=C:\Program Files\...\Data\Employee.GDB')
end
object EMPLOYEE: TSQLDataSet
  CommandText = 'EMPLOYEE'
  CommandType = ctTable
  SQLConnection = IBCONNECTION
end
object DataSetProviderEmployee: TDataSetProvider
  DataSet = EMPLOYEE
end

在過去也是用非常相似的方法建立這個Server Module。與之區(qū)別的就是需要添加三個新的組件以提供配置和鏈接。這三個組件是：

DSServer，主服務(wù)器配置組件，這是其它所有DataSnap 2009組件一起工作的組件。

DSServerClass，一個在公開的每個類時需要的組件。這個組件不提供可用的類，而是產(chǎn)生用于遠程客戶機調(diào)用的類對象，換句話說，DSServerClass組件將引用具有公共接口的類。

DSTCPServerTransport，定義傳輸協(xié)議（這個協(xié)議只有在Delphi2009中直接可用）和設(shè)置TCP/IP端口。

在此演示中，這些組件在服務(wù)器端主窗體中。設(shè)置如下：

object DSServer1: TDSServer
  AutoStart = True
  HideDSAdmin = False
  OnConnect = DSServer1Connect
  OnDisconnect = DSServer1Disconnect
end
object DSTCPServerTransport1: TDSTCPServerTransport
  PoolSize = 0
  Server = DSServer1
  BufferKBSize = 32
end
object DSServerClass1: TDSServerClass
  OnGetClass = DSServerClass1GetClass
  Server = DSServer1
  LifeCycle = 'Session'
end

我們稍后講述這些組件的一些屬性的細節(jié)。在上面的設(shè)置中沒有列出TCP/IP端口的值，是因為我沒有改變它的默認值211。

你只需要編寫“類工廠”在代碼，以使DSServerClass1鏈接到Server Module公開的提供器：

procedure TFormFirst3Tier2009Server.
  DSServerClass1GetClass(DSServerClass: TDSServerClass;
  var PersistentClass: TPersistentClass);
begin
  PersistentClass := TDSFirst3TierServerModule;
end;

這是服務(wù)器需要的全部。我給上面的方法添加了一個記錄語句，在DSServer1的Onconnect和OnDisconnect事件中。

再次說明，它不需要任何注冊。只要運行它，在Delphi IDE中可以用Run | Run Without Debugging命令 。這樣可以在設(shè)計期同時建立客戶端程序并鏈接到服務(wù)器。

object SQLConnection1: TSQLConnection
  DriverName = 'Datasnap'
end
object DSProviderConnection1: TDSProviderConnection
  ServerClassName = 'TDSFirst3TierServerModule'
  SQLConnection = SQLConnection1
end
object ClientDataSet1: TClientDataSet
  ProviderName = 'DataSetProviderEmployee'
  RemoteServer = DSProviderConnection1

end
object DataSource1: TDataSource
  DataSet = ClientDataSet1
end

這是一個初步演示所有要做的?，F(xiàn)在先運行服務(wù)器后運行客戶端，你可以單擊客戶端的Open按鈕以看到數(shù)據(jù)表的數(shù)據(jù)，也可以注意到服務(wù)據(jù)端顯示了記錄。

type
  TDSFirst3TierServerModule = class(TDSServerModule)
    IBCONNECTION: TSQLConnection;
    EMPLOYEE: TSQLDataSet;
    DataSetProviderEmployee: TDataSetProvider;
  private
    { Private declarations }
  public
    function GetHello: string;
  end;
 
function TDSFirst3TierServerModule.GetHello: string;
begin
  Result := 'Hello from TDSFirst3TierServerModule at ' 
    + TimeToStr (Now);
end;

為達到遠程調(diào)用，必須連接到通過DSServerClass公開方法的類。（前提是我們已經(jīng)完成了數(shù)據(jù)庫部分）。第二個要求是啟用類的$MethodInfo編譯指示器，但這已經(jīng)在基TDSServerModule類中聲明。這意味著，在實踐中，我們所要做的就是添加一個公共方法給服務(wù)器模塊，一切將工作。
怎么在客戶端應用程序調(diào)用這些服務(wù)器方法呢？有兩個基本的選擇。第一個是使用新的SqlServerMethod組件，調(diào)用服務(wù)器方法像存儲過程一樣。第二個是在客戶端程序中生成一個代理類，用此代理類調(diào)用方法。
在下面的客戶端演示中，我實現(xiàn)了這兩種方法。第一個，向客戶端窗體上加一個SqlServerMethod組件，并綁定到連接，選擇設(shè)置ServerMethodName屬性的值（列表中列出了所有可用的IAppServer接口方法），并檢查Params屬性的值。下面列出了此組件屬性設(shè)置的代碼（這實際上包括進行檢查時，參數(shù)的示例調(diào)用結(jié)果）：
object SqlServerMethod1: TSqlServerMethod
GetMetadata = False
Params = <
item
DataType = ftWideString
Precision = 2000
Name = 'ReturnParameter'
ParamType = ptResult
Size = 2000
Value = 'Hello from TDSFirst3TierServerModule...'
end>
SQLConnection = SQLConnection1
ServerMethodName = 'TDSFirst3TierServerModule.GetHello'
end
傳統(tǒng)的String類型成了一個2000字符的String類型參數(shù)，設(shè)置完SqlServerMethod組件的屬性后，該程序可以以帶輸入?yún)?shù)（此處沒有）和輸出參數(shù)（作為結(jié)果）的存儲過程或查詢形式來調(diào)用：
procedure TFormFirst3Tier2009Client.btnHelloClick(
Sender: TObject);
begin
SqlServerMethod1.ExecuteMethod;
ShowMessage (SqlServerMethod1.Params[0].Value);
end;
為了更容易的編寫調(diào)用代碼，我們可以使用我前面提到的第二種方式，在客戶端建立一個代理類。要做到這一點，我們可以要求Delphi IDE解析服務(wù)器的類的接口，并為它的本地代理類，可以右擊SQLConnection組件，選擇 Generate Datasnap client classes命令。Delphi將生成下面的類單元（我省略了構(gòu)造器和自毀器代碼）：
type
TDSFirst3TierServerModuleClient = class
private
FDBXConnection: TDBXConnection;
FInstanceOwner: Boolean;
FGetHelloCommand: TDBXCommand;
public
constructor Create(
ADBXConnection: TDBXConnection); overload;
constructor Create(
ADBXConnection: TDBXConnection;
AInstanceOwner: Boolean); overload;
destructor Destroy; override;
function GetHello: string;
end;
function TDSFirst3TierServerModuleClient.GetHello: string;
begin
if FGetHelloCommand = nil then
begin
FGetHelloCommand := FDBXConnection.CreateCommand;
FGetHelloCommand.CommandType :=
TDBXCommandTypes.DSServerMethod;
FGetHelloCommand.Text :=
'TDSFirst3TierServerModule.GetHello';
FGetHelloCommand.Prepare;
end;
FGetHelloCommand.ExecuteUpdate;
Result := FGetHelloCommand.Parameters[0].
Value.GetWideString;
end;
生成的代碼沒有用高級的SqlServerMethod組件，而是直接調(diào)用低級的dbExpress實現(xiàn)對象，像TDBXCommand類。
有了這個可用的代理類，客戶端可以用更多的友好的方式調(diào)用服務(wù)器方法，雖然我們需要創(chuàng)建一個代理類的實例。此代碼不完全與上面基于SqlServerMethod組件的代螞相同：
procedure TFormFirst3Tier2009Client.btnHelloClick(
Sender: TObject);
begin
with TDSFirst3TierServerModuleClient.Create(
SQLConnection1.DBXConnection) do
try
ShowMessage (GetHello);
finally
Free;
end;
end;
如果代碼實際上比前一版本更長，這是因為我們調(diào)用的方法沒有參數(shù)，從而使語言綁定代碼少有關(guān)。然而，有一個現(xiàn)成的代理對象，我們可以這樣寫：

ShowMessage (ServerProxyObject.GetHello);

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊舉報。