program Main;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  ZConnection,
  ZDataset,
  DatabaseTestExecutor in 'DatabaseTestExecutor.pas',
  DataGenerator in 'DataGenerator.pas';

var
  Connection: TZConnection;
  Query: TZQuery;

begin
    Connection := TZConnection.Create(nil);
    Connection.LibraryLocation := ExtractFilePath(ParamStr(0)) + 'libpq.dll';

    try
      Connection.Protocol := 'postgresql';
      Connection.HostName := 'localhost';
      Connection.Port := 5433;
      Connection.Database := 'test_db';
      Connection.User := 'postgres';
      Connection.Password := 'postgres';

      Writeln('Connecting to PostgreSQL...');
      Connection.Connect;
      Writeln('Connected successfully!');
      Writeln('-------------------------');



      var DatabaseManager: TDatabaseManager;
      DatabaseManager := TDatabaseManager.Create(Connection, 1234);
      var SetupSuccess: Boolean;

      SetupSuccess := DatabaseManager.SetupDatabase();

      if SetupSuccess then
        begin
          Writeln('Done!');
        end
      else
        begin
          Writeln('Failed to setup database connection!');
        end;
    finally

    end;

  Writeln('-------------------------');
  Writeln('Press Enter to exit...');
  Readln;
end.