unit datos;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus, Vcl.ExtCtrls,
  Vcl.Grids, Vcl.DBGrids, Data.DB, ZAbstractRODataset, ZAbstractDataset,
  ZDataset, Vcl.Tabs, Vcl.ComCtrls, Vcl.Mask, Vcl.DBCtrls, ZAbstractConnection,
  ZConnection, ZAbstractTable, Vcl.ExtDlgs, Vcl.Imaging.jpeg, frxClass, frxDBSet,
  frxExportPDF, frxBarcode, Vcl.Buttons, VCLTee.TeEngine, VCLTee.Series,
  VCLTee.TeeData, VCLTee.TeeProcs, VCLTee.Chart, VCLTee.DBChart,ShellApi,
  Vcl.OleCtrls,IdHTTP,mshtml, SHDocVw, Vcl.DBLookup,  VSPDF8Lib_TLB, AcroPDFLib_TLB, Vcl.ToolWin, Vcl.ImgList,BDE,dateutils,
  Excel_TLB, Vcl.OleServer,  ComObj, Excel2000, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdMessage, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
  IdMessageClient, IdSMTPBase, IdSMTP;

type
  Tdm = class(TDataModule)
    DBproduccgest: TZConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}
uses principal;
{$R *.dfm}

procedure Tdm.DataModuleCreate(Sender: TObject);
var F: TextFile;
    sLinea,thost,tuser,tpass: String;
    hora1,hora2,hora3:ttime;
    configuracion:array of string;
    linea,x:integer;
begin
  inherited;
  AssignFile( F, ExtractFilePath( Application.ExeName ) + 'config.ini' );
  Reset( F );
  linea:=1;
  setlength (configuracion,5);
  for x:=1 to 4 do
  begin
    ReadLn( F, sLinea );
    configuracion[linea]:=sLinea;
    linea:=linea+1;
  end;

  CloseFile( F );
    thost:=configuracion[1];
    tuser:=configuracion[2];
    tpass:=configuracion[3];
    DM.DBproduccgest.Connected:=false;
    DM.DBproduccgest.HostName:=thost;
    DM.DBproduccgest.User:=tuser;
    DM.DBproduccgest.Password:=tpass;
    DM.DBproduccgest.connected:=true;
end;


end.