🚀 go-pugleaf

Hi!

I make a program that works perfectly! (almost ;) LOL)

Any way, on certain times of day the pages are loaded VERY slowly.
The IE too are very slowly to LOAD the pages...

I think first about traffic on the site.

But I then used the Firefox, and no problem!!!
The same pages are download in about 2 seconds in firefox, while in IE 
can take to 2 minutes!!!!!!!!!

The IE 6 (is that I use), have to access some server in certain times or 
for some reason, like the MSN?

Was not my code I think, but anyway, I do this:

The code is this:



This is the code that Load the pages...

void TjanelaPrincipal::CarregarFrame(WideString url)
{
   TVariant FrameName( "iContent" );

   paginaCarregada = false;
   Browser->Navigate( url, TNoParam(), &FrameName );

   while( !paginaCarregada )
   {
     Application->ProcessMessages();
   }
}


paginaCarregada (this mean: pageLoaded) is changed this way:

void __fastcall TjanelaPrincipal::BrowserNavigateComplete2(TObject *Sender,
       LPDISPATCH pDisp, Variant *URL)
{
   if (!CurDispatch)
     CurDispatch = pDisp;
}
//---------------------------------------------------------------------------

void __fastcall TjanelaPrincipal::BrowserDocumentComplete(TObject *Sender,
       LPDISPATCH pDisp, Variant *URL)
{

   if (pDisp == CurDispatch)
   {
     CurDispatch = NULL;

     FrameDoc = Frame( WideString("iContent") );

     if( FrameDoc )
       FrameDoc->get_all( &All );
     else
     {
       ShowMessage("ERRO!!! \'Frame\' n�o encontrado!");
       return;
     }

     if( !All )
     {
       FrameDoc->Release();
       ShowMessage("ERRO!!! \'All\' n�o encontrado!");
       return;
     }

     paginaCarregada = true;
   }
   else
   {
     paginaCarregada = false;
   }
}


Any better ideas to do this?
I cannot put my code direct in BrowserDocumentComplete, for various 
reasons....

One is that I use this code:

int TjanelaPrincipal::Agendamento(void)
{
   IDispatch *pDisp;
   IHTMLInputElement *pInput;
   IHTMLSelectElement *pSelect;
   IHTMLOptionElement *pOption;
   TAGIntervalo *pIntervalo;
   WideString opcao;
   AnsiString qtde;
   long pItens;
   int i, m, d, h, qtde_n;

   meses.Reiniciar();
   datas.Reiniciar();

   pSelect = SelectElement("mesDisponivel");
   pSelect->get_length( &pItens );

   for( i = 1; i < pItens; i++ )
   {
     pOption = OptionElement( pSelect, i );

     if( !pOption ) return -1;

     pOption->get_text( &opcao );
     pOption->Release();

     meses.AdicionarData( opcao );
     info_mm->Lines->Add( "M�S: " + AnsiString(opcao) );
   }
   pSelect->Release();

   int prxMes;
   int prxData;
   for( m = 0; m < meses.MesesAptos; m++ )
   {
     pSelect = SelectElement( "mesDisponivel" );
     if( !pSelect ) return -1;

     prxMes = meses.IndiceProximaData;
     if( prxMes == -1 ) return 0;

     pSelect->put_selectedIndex( prxMes );
     pSelect->Release();

     datas.Reiniciar();
     CarregarFrame( "javascript: popularListaDiasDisponiveis()" );


     //Carrega os dias para o M�S selecionado
     pSelect = SelectElement( "diaDisponivel" );
     if( !pSelect ) return -1;

     pSelect->get_length(&pItens);

     for(i = 1; i < pItens; i++)
     {
       pOption = OptionElement( pSelect, i );

       if( !pOption ) return -1;

       pOption->get_text( &opcao );
       pOption->Release();

       datas.AdicionarData( opcao ); //save the date
       info_mm->Lines->Add( "  Data: " + AnsiString(opcao) );
     }
     pSelect->Release();

     //Vasculha os dias para encontrar um apto
     for( d = 0; d < datas.DatasAptas; d++)
     {
       pSelect = SelectElement( "diaDisponivel" );
       if( !pSelect ) return -1;

       prxData = datas.IndiceProximaData;
       if( prxData == -1 ) break;

       pSelect->put_selectedIndex( prxData ); //Get next date if there 
are some interesting.

       pSelect->Release();

       CarregarFrame( "javascript: popularListaHorariosDisponiveis()" );


       pSelect = SelectElement( "seqHorarioAgendamentoDisponivel" );
       if( !pSelect ) return false;

       pSelect->get_length( &pItens );

       for( i = 1; i < pItens; i++ )
       {
         pOption = OptionElement( pSelect, i );
         if( !pOption ) break;

         pOption->get_text(&opcao);
         pOption->Release();

         //info_mm->Lines->Add( datas.DataStr[prxData] + ":" + 
AnsiString(opcao) );

         if(opcao.Length() == 38)
           qtde = opcao.SubString(28, 2);
         else
           qtde = opcao.SubString(28, 1);

         qtde_n = qtde.ToInt();

         if(qtde_n >= requerentes->Count)
         {
           pSelect->put_selectedIndex(i);

           CarregarFrame( "javascript: confirmarAgendamento()" );


           pSelect = SelectElement( "seqHorarioAgendamentoDisponivel" );
           if( pSelect )
           {
             i = 1;
           }
           else
           {
             return 1; //Conseguiu AGENDAR
           }
         }
       }
       pSelect->Release();
     }
   }

   return 0; //Acabou a lista

}

Theres some component like TCppWebBrowser, but that uses firefox or 
other browser?

Any ideas???

Thanks! :)