david
f0e35ec439
- Recompilación de RO para poner RemObjects_Core_D10 como paquete de runtime/designtime. git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@3 b6239004-a887-0f4b-9937-50029ccdca16
95 lines
4.1 KiB
ObjectPascal
95 lines
4.1 KiB
ObjectPascal
unit ArraysService_Impl;
|
|
|
|
{----------------------------------------------------------------------------}
|
|
{ This unit was automatically generated by the RemObjects SDK after reading }
|
|
{ the RODL file associated with this project . }
|
|
{ }
|
|
{ This is where you are supposed to code the implementation of your objects. }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
interface
|
|
|
|
uses
|
|
{vcl:} Classes, SysUtils,
|
|
{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
|
{Generated:} ArraysLibrary_Intf;
|
|
|
|
type
|
|
{ TArraysService }
|
|
TArraysService = class(TRORemotable, IArraysService)
|
|
private
|
|
protected
|
|
{ IArraysService methods }
|
|
function GetTables: Tables;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{Generated:} ArraysLibrary_Invk, ArraysServerMain;
|
|
|
|
procedure Create_ArraysService(out anInstance: IUnknown);
|
|
begin
|
|
anInstance := TArraysService.Create;
|
|
end;
|
|
|
|
{ ArraysService }
|
|
|
|
function TArraysService.GetTables: Tables;
|
|
begin
|
|
Result := Tables.Create;
|
|
// Customers
|
|
ArraysServerMainForm.tblCustomers.Close;
|
|
ArraysServerMainForm.tblCustomers.Open;
|
|
ArraysServerMainForm.tblCustomers.First;
|
|
while not ArraysServerMainForm.tblCustomers.Eof do begin
|
|
with Result.aCustomers.Add do begin
|
|
CustomerID := ArraysServerMainForm.tblCustomers.FieldByName('CustomerID').AsString;
|
|
CompanyName := ArraysServerMainForm.tblCustomers.FieldByName('CompanyName').AsString;
|
|
ContactName := ArraysServerMainForm.tblCustomers.FieldByName('ContactName').AsString;
|
|
ContactTitle := ArraysServerMainForm.tblCustomers.FieldByName('ContactTitle').AsString;
|
|
Address := ArraysServerMainForm.tblCustomers.FieldByName('Address').AsString;
|
|
City := ArraysServerMainForm.tblCustomers.FieldByName('City').AsString;
|
|
Region := ArraysServerMainForm.tblCustomers.FieldByName('Region').AsString;
|
|
Postalcode := ArraysServerMainForm.tblCustomers.FieldByName('Postalcode').AsString;
|
|
Country := ArraysServerMainForm.tblCustomers.FieldByName('Country').AsString;
|
|
Phone := ArraysServerMainForm.tblCustomers.FieldByName('Phone').AsString;
|
|
Fax := ArraysServerMainForm.tblCustomers.FieldByName('Fax').AsString;
|
|
end;
|
|
ArraysServerMainForm.tblCustomers.Next;
|
|
end;
|
|
ArraysServerMainForm.tblCustomers.Close;
|
|
// orders
|
|
ArraysServerMainForm.tblOrders.Close;
|
|
ArraysServerMainForm.tblOrders.Open;
|
|
ArraysServerMainForm.tblOrders.First;
|
|
while not ArraysServerMainForm.tblOrders.Eof do begin
|
|
with Result.aOrders.Add do begin
|
|
OrderID := ArraysServerMainForm.tblOrders.FieldByName('OrderID').AsInteger;
|
|
CustomerID := ArraysServerMainForm.tblOrders.FieldByName('CustomerID').AsString;
|
|
EmployeeID := ArraysServerMainForm.tblOrders.FieldByName('EmployeeID').AsInteger;
|
|
OrderDate := ArraysServerMainForm.tblOrders.FieldByName('OrderDate').AsDateTime;
|
|
RequiredDate := ArraysServerMainForm.tblOrders.FieldByName('RequiredDate').AsDateTime;
|
|
ShippedDate := ArraysServerMainForm.tblOrders.FieldByName('ShippedDate').AsDateTime;
|
|
ShipVia := ArraysServerMainForm.tblOrders.FieldByName('ShipVia').AsInteger;
|
|
Freight := ArraysServerMainForm.tblOrders.FieldByName('Freight').AsCurrency;
|
|
ShipName := ArraysServerMainForm.tblOrders.FieldByName('ShipName').AsString;
|
|
ShipAddress := ArraysServerMainForm.tblOrders.FieldByName('ShipAddress').AsString;
|
|
ShipCity := ArraysServerMainForm.tblOrders.FieldByName('ShipCity').AsString;
|
|
ShipRegion := ArraysServerMainForm.tblOrders.FieldByName('ShipRegion').AsString;
|
|
ShipPostalCode := ArraysServerMainForm.tblOrders.FieldByName('ShipPostalCode').AsString;
|
|
ShipCountry := ArraysServerMainForm.tblOrders.FieldByName('ShipCountry').AsString;
|
|
end;
|
|
ArraysServerMainForm.tblOrders.Next;
|
|
end;
|
|
ArraysServerMainForm.tblOrders.Close;
|
|
end;
|
|
|
|
initialization
|
|
TROClassFactory.Create('ArraysService', Create_ArraysService, TArraysService_Invoker);
|
|
|
|
finalization
|
|
|
|
end.
|
|
|