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.