🚀 go-pugleaf

Hi,

I've finally discovered, the problem is due to a bug in NMUDP component as
declared in NetMaster web site and solved by upgrading the library.
The problem is that as far as i understood the upgrade of NetMaster are not
for free even for bugs included in compiler version :-(((((

"Francesco" <.> ha scritto nel messaggio
news:3f5442ec@newsgroups.borland.com...
> 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;
>   }
>
//--------------------------------------------------------------------------
> -
>
>