🚀 go-pugleaf

Hi Remy, thank you for the answer,
this is my code:


__fastcall TMainDFM::TMainDFM(TComponent* Owner)
  : TForm(Owner)
{
  String Path;
  String  WPath;
  WPath = ExtractFilePath(Application->ExeName);
  TIniFile* ini = new TIniFile(WPath+"\\Confi.ini");
  Path = ini->ReadString("ATTIVAZIONE", "PATH INTERFACCIAMENTOBACCO", "");
  ADDEEXTRA->DatabaseName = ini->ReadString("ATTIVAZIONE", "ALIAS", "");
  EXTRA->DatabaseName = ini->ReadString("ATTIVAZIONE", "ALIAS", "");
  PRENOTAZIONI->DatabaseName = ini->ReadString("ATTIVAZIONE", "ALIAS", "");
  if(Path.Length() != 0)
  {
    ADOConnection1->ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="+Path+"\InterfacciamentoBacco.mdb;Persist Security Info=False";
  }
  else
  {
    ShowMessage("ERRORE IMPOSSIBILE CARICARE InterfacciamentoBacco.mdb,\nIL
PERCORSO: '"+Path+"'\nNON E' VALIDO");
    Application->Terminate();
  }
  ADDEEXTRA->Open();
  EXTRA->Open();
  PRENOTAZIONI->Open();
  TrayIcon1->Hint = "ADDEBITA EXTRA BACCO\nin attesa su porta 1011";
  Memo1->Clear();
}
//--------------------------------------------------------------------------
-
void __fastcall TMainDFM::TrayIcon1Minimize(TObject *Sender)
{
  Hide();
}
//--------------------------------------------------------------------------
-
void __fastcall TMainDFM::TrayIcon1Restore(TObject *Sender)
{
  Show();
}
//--------------------------------------------------------------------------
-
void __fastcall TMainDFM::CHIUDI1Click(TObject *Sender)
{
  Close();
}
//--------------------------------------------------------------------------
-
void __fastcall TMainDFM::FormClose(TObject *Sender, TCloseAction &Action)
{
  if(Application->MessageBox("CONFERMI L'USCITA\nDAL PROGRAMMA
??","Messaggio",36) == mrYes)
  {
    PRENOTAZIONI->Close();
    ADDEEXTRA->Close();
    EXTRA->Close();
    DETTAGLIO->Close();
    TESTATA->Close();
    if(ADOConnection1->Connected == true)
      ADOConnection1->Connected = false;
    Action = caFree;
  }
  else
    Action = caNone;
}
//--------------------------------------------------------------------------
-

void __fastcall TMainDFM::XJustOne1AlreadyExist(TObject *Sender)
{
  ShowMessage("PROGRAMMA GIA' APERTO!");
}
//--------------------------------------------------------------------------
-

void __fastcall TMainDFM::Esci1Click(TObject *Sender)
{
  Close();
}
//--------------------------------------------------------------------------
-

void __fastcall TMainDFM::NMUDP1DataReceived(TComponent *Sender,
      int NumberBytes, AnsiString FromIP, int Port)
{
  TLocateOptions Opts;
  Opts.Clear();
  Opts << loCaseInsensitive;
  String Buff = "";
  char *Buffer = new char [NumberBytes+2];
  int j = 0;
  NMUDP1->ReadBuffer(Buffer, NumberBytes, j);
  Buffer[j] = 0;
  Buff = Buffer;
  Memo1->Lines->Add(" - "+DateToStr(Date())+" ALLE
"+TimeToStr(Time())+" ---> "+Buff);
  delete [] Buffer;
  }
//--------------------------------------------------------------------------
-