Zeoslib Portal

Code: Select all

function TZNativeLibraryLoader.ZLoadLibrary(Location: String): Boolean;
var newpath, temp: String; // AB modif
begin
  if FLoaded then
    Self.FreeNativeLibrary;
  temp := ''; //init for FPC
  FLoaded := False;
  Result := False;
  newpath := ExtractFilePath(Location);
  // AB modif BEGIN
  try
   if newpath <> '' then begin
     temp := GetCurrentDir;
     SetCurrentDir(newpath);
   end;
  // AB modif END

{$IFDEF UNIX}
  {$IFDEF FPC}
    FHandle := LoadLibrary(PAnsiChar(Location));
  {$ELSE}
    FHandle := HMODULE(dlopen(PAnsiChar(Location), RTLD_GLOBAL));
  {$ENDIF}
{$ELSE}
  FHandle := LoadLibrary(PChar(Location));
{$ENDIF}

  // AB modif BEGIN
  finally
   if temp<>'' then
     SetCurrentDir(temp);
  end;
  // AB modif END
  if (FHandle <> INVALID_HANDLE_VALUE) and (FHandle <> 0) then
  begin
    FLoaded := True;
    FCurrentLocation := Location;
    Result := True;
  end;
end;

Code: Select all

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, db, FileUtil, Forms, Controls, Graphics, Dialogs, DBGrids,
  StdCtrls, ZConnection, ZDataset;

type
  { TForm1 }
  TForm1 = class(TForm)
    btnActivateQuery: TButton;
    cboQueries: TComboBox;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    ZTable1: TZTable;
    procedure btnActivateQueryClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.btnActivateQueryClick(Sender: TObject);
begin
  try
    ZConnection1.Connect;
    ZQuery1.Active := True;
    ZQuery1.SQL.Text := cboQueries.Text;
    ZQuery1.Open;
  except
    On E: Exception do
      MessageDlg('The query is not active', mtWarning, [mbOK], 0);
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  if ZQuery1.Active then
    ZQuery1.Close;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  cboQueries.Items.Add('select * from public.actor');
  cboQueries.Items.Add('select * from public.address');
  cboQueries.Items.Add('select * from public.category');
  cboQueries.Items.Add('select * from public.city');
  cboQueries.Items.Add('select * from public.country');
  cboQueries.Items.Add('select * from public.customer');
  cboQueries.Items.Add('select * from public.film');
  cboQueries.Items.Add('select * from public.film_actor');
  cboQueries.Items.Add('select * from public.film_category');
  cboQueries.Items.Add('select * from public.inventory');
  cboQueries.Items.Add('select * from public.language');
  cboQueries.Items.Add('select * from public.payment');
  cboQueries.Items.Add('select * from public.rental');
  cboQueries.Items.Add('select * from public.staff');
  cboQueries.Items.Add('select * from public.store');
end;

end.

Code: Select all

ChDir(ExtractFilePath(ZConnection.LibraryLocation));
ZConnection.Connect;
Chdir(ExtractFilePath(Application.ExeName));

Code: Select all

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, DBGrids,
  StdCtrls,
  // Synopse units
  SynDB,    // for the dPostgreSQL of the TSQLDBDefinition type
  SynDBZeos
  ;

type
  { TForm1 }
  TForm1 = class(TForm)
    btnActivateQuery: TButton;
    cboQueries: TComboBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    procedure btnActivateQueryClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.btnActivateQueryClick(Sender: TObject);
var
  fConnection: TSQLDBZEOSConnectionProperties;
  iRows: ISQLDBRows;
  Row: Variant;
  intRowCount: integer;
begin
  // Usual connection method
  //fConnection := TSQLDBZEOSConnectionProperties.Create('postgres', 'sakila dvdrental', 'postgres', 'password');
  // URI method
  fConnection := TSQLDBZEOSConnectionProperties.Create(TSQLDBZEOSConnectionProperties.URI(dPostgreSQL, 'localhost:5432'),
                  'sakila dvdrental', 'postgres', 'password');
  //
  try
    //
    intRowCount := 0;
    //
    iRows := fConnection.Execute(cboQueries.Text, [], @Row);
    //
    while iRows.Step do
    begin
      Inc(intRowCount);
      //
      ShowMessage('ID : ' + IntToStr(Row.Actor_id) + LineEnding +
                  'FirstName : ' + Row.First_Name + LineEnding +
                  'LastName : ' + Row.Last_Name + LineEnding +
                  'LastUpdate : ' + DateTimeToStr(Row.Last_Update));
      //
      if intRowCount = 5 then break;
    end;
  finally
    fConnection.Free;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  cboQueries.Items.Add('select * from public.actor');
end;

end.