unit uEngineDb;

interface


    uses
      Windows,Forms,SysUtils,Classes,FireDAC.Stan.Intf, FireDAC.Stan.Option,
      FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
      FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.MySQL,
      FireDAC.Phys.MySQLDef, FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS,
      FireDAC.DApt.Intf, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet,
      FireDAC.Comp.Client,IniFiles;

  type
    TMyDB = Class
      private
        Fkoneksi : TFDConnection;
        FParamHost : String;
        FParamDB : String;
        FPort: String ;
        FParamUser : String;
        FParamPassword : String;
        Fparam : TStringList;
        Procedure Konek;
        procedure addParams;
      public
        constructor Create();

        Destructor Destroy;

    End;

implementation

{ TMyDB }

procedure TMyDB.addParams;
var
  Aini : TINIFIle;

begin

   Aini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.Ini');
  try


    FParamHost      :=  Aini.ReadString('Database','Host','');

    Fport           :=  Aini.ReadString('Database','Port','0');
    FParamDB        :=  Aini.ReadString('Database','DB','');
    FParamUser      :=  aini.ReadString('Database','User','');
    FParamPassword  :=  Aini.ReadString('Database','Pass','');

    Fparam.Add('server='+FParamHost);
    FParam.Add('user_name='+FParamUser);
    FParam.Add('password='+FParamPassword);
    FParam.Add('database='+FParamDB);
    Fparam.Add('port='+FPort);

  finally
    Aini.Free;
  end;
end;

constructor TMyDB.Create();
begin
  Fkoneksi := TFDConnection.Create(nil);
  Fparam   := TStringList.Create;

  Konek;
end;

destructor TMyDB.Destroy;
begin
  Fkoneksi.Free;
  Fparam.Free;
end;

procedure TMyDB.Konek;
begin
  with Fkoneksi do begin


    FDManager.AddConnectionDef('CON1','MYSQL',Fparam);
    ConnectionDefName :='CON1';
    try
      Connected := True;
    Except
      MessageBox(Application.Handle,'Error Connection Database','ERROR',MB_OK);
    end;

  end;

end;

end.