Announcement

**Andreas Kosch** · 13.07.2001, 07:56

Hallo,

dieser Umweg ist gar nicht notwendig, da die Kombination von ADO + RDS alles notwendige bereits unterst�tzt. In der n�chsten Ausgabe von DER ENTWICKLER gehe ich in einem Beitrag auf die Optionen ein, die f�r eine Three-tier-Anwendung zur Verf�gung stehen. Die folgenden Beispiele stammen aus diesem Artikel:

ADO:

Ein eigenes COM+ Objekt fordert ein RecordSet (ltBatchOptimistic) an, trennt die Verbindung zur ADO-Connection und liefert das "lebende" RecordSet an den Aufrufer zur�ck.
<pre>
function TDE2001SrvObj.CustomerRS: _Recordset;
begin
try
try
ADOConnectionDE2001.Connected := True;
with ADODataSetCustomer do
begin
Active := True;
Result := ADODB_TLB._Recordset(Recordset);
Connection := nil;
Active := False;
end;
SetComplete;
finally
ADOConnectionDE2001.Connected := False;
end;
except
SetAbort;
raise;
end;
end;
</pre>

RDS

Die Remote Data Service-Technologie von Microsoft stellt f�r mehrschichtige Anwendungen die folgenden Kernfunktionen zur Verf�gung:

- Bidirektionaler Transport von RecordSets �ber das HTTP-Protokoll 
- Aufruf von COM-Komponenten �ber HTTP 

Beide Kernfunktionen werden �ber unterschiedliche Techniken realisiert, so dass RDS zwischen dem Implicit Remoting und dem Explicit Remoting unterscheidet.

Das Implicite Remoting wird immer dann den Anforderungen nicht gerecht, wenn die mittlere Ebene spezielle Arbeiten zu erledigen hat und wenn besondere Sicherheitsanforderungen gestellt werden. Daher kann man auf ein eigenes COM+ Objekt zur�ckgreifen, dass die Aufgaben der DataFactory �bernimmt. In diesem Fall gibt es mehrere M�glichkeiten:

- Eine Interface-Methode des COM+ Objekts liefert ein RecordSet zur�ck und wird direkt in einer TADODataSet-Instanz als CommandText verwendet 
- Eine Interface-Methode des COM+ Objekts liefert ein RecordSet zur�ck, wobei ein Methoden-Parameter die zur�ckgelieferte Datenmenge einschr�nkt 
- �ber RDS werden Interface-Methoden des COM+ Objekts aufgerufen, die nichts mit Datenbanken und ADO-RecordSets zu tun haben. In diesem Fall ist RDS eine Aufrufalternative zu DCOM, die immer dann eingesetzt werden kann, wenn nur der Port 80 und der Transportweg HTTP zur Verf�gung steht. RDS ist in diesem Kontext ein COM-Marshaler, der das RecordSet-Objekt zu den Automation-f�higen Datentypen hinzuf�gt.

Client greift �ber RDS auf das COM+ Objekt zu

Der Client demonstriert beide Wege: 
a) lebendes, editierbares RecordSet vom Server abfordern und im TDBGrid anzeigen 
b) beliebige Interface-Methode des COM+ Objekts aufrufen

<pre>
unit CltDE2001SrvRDSFrmMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, ExtCtrls, ComCtrls, Grids, DBGrids;

type
TFormRDS = class(TForm)
StatusBar1: TStatusBar;
RadioGroupConnect: TRadioGroup;
EditIP: TEdit;
RDSConnectionDE2001: TRDSConnection;
DBGridCustomer: TDBGrid;
ADODataSetCustomer: TADODataSet;
DataSourceCustomer: TDataSource;
MemoCustomer: TMemo;
procedure RadioGroupConnectClick(Sender: TObject);
procedure DataSourceCustomerDataChange(Sender: TObject; Field: TField);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
FormRDS: TFormRDS;

implementation

{$R *.dfm}

uses ADOInt;

procedure TFormRDS.RadioGroupConnectClick(Sender: TObject);
var
vRS : OleVariant;
aRS : ADOInt._RecordSet;
begin
ADODataSetCustomer.Active := False;
DBGridCustomer.Visible := False;
case RadioGroupConnect.ItemIndex of
0 : RDSConnectionDE2001.Connected := False;
1 : begin
RDSConnectionDE2001.Connected := True;
vRS := RDSConnectionDE2001.AppServer.CustomerRS;
aRS := IUnknown(vRS) as _RecordSet;
with ADODataSetCustomer do
begin
RecordSet := aRS;
Active := True;
end;
DBGridCustomer.Visible := True;
end;
end;
end;

procedure TFormRDS.DataSourceCustomerDataChange(Sender: TObject;
Field: TField);
var
iCustID : Integer;
iResult : Integer;
swAddrRow1,
swAddrRow2,
swAddrStr,
swAddrHnr,
swAddrPLZ,
swAddrOrt : WideString;
begin
iCustID := ADODataSetCustomer.FieldByName('CustID').AsInteger ;
iResult := RDSConnectionDE2001.AppServer.CustAddr(
iCustID,1,swAddrRow1,swAddrRow2,swAddrStr,
swAddrHnr,swAddrPLZ,swAddrOrt);
with MemoCustomer.Lines do
begin
Clear;
if iResult = 1 then
begin
Add(swAddrRow1);
Add(swAddrRow2);
Add(swAddrStr + ' ' + swAddrHnr);
Add(swAddrPLZ + ' ' + swAddrOrt);
end
else
Add('Es wurden keine Daten gefunden.');
end;
end;

end.
</pre>

P.S: Das ADO-RecordSet-Objekt kann alles was TClientDataSet kann und noch vieles mehr.
&#10

**Hermann Schmidt** · 13.07.2001, 09:12

Hallo Herr Kosch, 
vielen Dank f�r die Informationen. Manchmal frage ich mich, wo Sie die viele Zeit hernehmen ... Habe ein fast identisches Beispiel - nur das ADODataset ist nicht editierbar. 
Viele Gr�ss

Announcement

Mit RDS updaten ohne RDSServer.DataFactory

Mit RDS updaten ohne RDSServer.DataFactory

Comment

Comment