mORMot Open Source

 
FConnection := TOleDBMSSQL2012ConnectionProperties.Create('Server','DB','sa', '');   

TDTOCity = class(TCollectionItem)  // deklaracja obiektu DTO dla Miasta
  private
    FName: RawUTF8;
  published
    property Name: RawUTF8 read FName write FName;
  end;

  TDTOCities = class(TInterfacedCollection)  // deklaracja kolekcji obiektow TDTOCity
  private
    function GetCollItem(aIndex: Integer): TDTOCity;
  protected
    class function GetClass: TCollectionItemClass; override;
  public
    function Add: TDTOCity;
    property Item[aIndex: Integer]: TDTOCity read GetCollItem; default;
  end;

  ICitiesService = interface(IInvokable)   // deklaracja interfejsu
    ['{49ACE92E-F9E8-4AE9-BA04-AC9A3198F034}']
    procedure GetCities(const Name: RawUTF8; out Cities: TDTOCities);
  end;

const
  ROOT_NAME = 'Demo';
  PORT_NAME = '888';

implementation

{ TDTOCities }

function TDTOCities.Add: TDTOCity;
begin
  result := TDTOCity(inherited Add);
end;

class function TDTOCities.GetClass: TCollectionItemClass;
begin
  result := TDTOCity;
end;

function TDTOCities.GetCollItem(aIndex: Integer): TDTOCity;
begin
  result := TDTOCity(GetItem(aIndex));
end;                  

 { TCitiesService }

  TCitiesService = class(TInterfacedObject, ICitiesService) // implementacja interfejsu
  private
    FConnection: TSQLDBZEOSConnectionProperties;
    FSQLDBRows: ISQLDBRows;
  public
    constructor Create;
    destructor Destroy; override;

    procedure GetCities(const Name: RawUTF8; out Cities: TDTOCities);
  end;

implementation

{ TCitiesService }

constructor TCitiesService.Create;
begin
  inherited;
end;

destructor TCitiesService.Destroy;
begin
  FConnection.Free;
  inherited Destroy;
end;

procedure TCitiesService.GetCities(const Name: RawUTF8; out Cities: TDTOCities);
begin
  //proste polaczenie do bazy
  FConnection := TSQLDBZEOSConnectionProperties.Create(TSQLDBZEOSConnectionProperties.URI(dMSSQL,'SERVER'),'DATABSE','sa', '');
  FSQLDBRows := FConnection.Execute('SELECT NazwyMiast FROM Miasta WHERE NazwyMiast LIKE ? ', [Name]);

    with Cities.Add do
    begin
      Name := 'Rzeszów;
    end;
        with Cities.Add do
    begin
      Name := 'Miasto2';
    end;
            with Cities.Add do
    begin
      Name := 'Miasto3';
    end;

  //while FSQLDBRows.Step do
  //begin
  //  with Cities.Add do
  //  begin
  //    Name := FSQLDBRows.ColumnUTF8('NazwyMiast');
  //  end;
  //end;
end;      

{$ifndef HASINTERFACERTTI} // circumvent old FPC bug of missing RTTI

{ TInterfaceFactoryDefinition }

type
  /// define and manage missing interface RTTI for the following interfaces:
  // - ICalculator
  TInterfaceFactoryDefinition = class(TInterfaceFactoryGenerated)
  protected
    procedure AddMethodsFromTypeInfo(aInterface: PTypeInfo); override;
  end;

procedure TInterfaceFactoryDefinition.AddMethodsFromTypeInfo(aInterface: PTypeInfo);
begin
  if aInterface=TypeInfo(ICitiesService) then   //dodajemy metode pomocnicza, bo Lazarus ma problem z interfejsami
  begin
    AddMethod('GetCities',[
      ord(smdconst),'Name',TypeInfo(RawUTF8),
      ord(smdOut),'Cities',TypeInfo(TDTOCities)
      ]);
    exit;
  end;
end;

initialization
  TInterfaceFactoryDefinition.RegisterInterface(TypeInfo(ICitiesService)); //rejestrujemy interfejs

{$endif HASINTERFACERTTI}