🚀 go-pugleaf

Eduardo Jauch wrote:

> The same pages are download in about 2 seconds in firefox, while in IE 
> can take to 2 minutes!!!!!!!!!

So TCppWebBRowser is slow, IE is slow and Firefox is fast.

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

> void TjanelaPrincipal::CarregarFrame(WideString url)
> {
>   TVariant FrameName( "iContent" );
> 
>   paginaCarregada = false;
>   Browser->Navigate( url, TNoParam(), &FrameName );
> 
>   while( !paginaCarregada )
>   {
>     Application->ProcessMessages();
>   }
> }

Is that code that loads a htmppage in one of the frames of an existing
page? Why didn't you tell?

What is the use of paginaCarregada ? I think you can omit it all the way.

And at least the loop with  Application->ProcessMessages(); looks not needed.

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

You did explain nothing of CurDispath? What is it? Where did you assign it?
Why this code?


> void __fastcall TjanelaPrincipal::BrowserDocumentComplete(TObject *Sender,
>       LPDISPATCH pDisp, Variant *URL)
> {
>   if (pDisp == CurDispatch)
>   {
>     CurDispatch = NULL;
> 
>     FrameDoc = Frame( WideString("iContent") );

You did not explain the function Frame().
> 
>     if( FrameDoc )
>       FrameDoc->get_all( &All );
>     else
>     {
>       ShowMessage("ERRO!!! \'Frame\' n�o encontrado!");

You are making a return without

	paginaCarregada = true;

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

You are making a return without

	paginaCarregada = true;

>       return;
>     }
> 
>     paginaCarregada = true;
>   }
>   else
>   {
>     paginaCarregada = false;
>   }
> }
> 
> 
> Any better ideas to do this?

Well you never told what you wanted to happen, nor explained the
start of the scenario.

> I cannot put my code direct in BrowserDocumentComplete, for various 
> reasons....

Should we guess?

> One is that I use this code:
> 
> int TjanelaPrincipal::Agendamento(void)

You did not tell where/when you call that function

> {
>   IDispatch *pDisp;
>   IHTMLInputElement *pInput;
>   IHTMLSelectElement *pSelect;
>   IHTMLOptionElement *pOption;
>   TAGIntervalo *pIntervalo;
>   WideString opcao;
>   AnsiString qtde;
>   long pItens;
>   int i, m, d, h, qtde_n;

That looks like C programming. Why not declare the variables at the
moment where you first use them?

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

We do not see what that code does.

>   pSelect = SelectElement("mesDisponivel");

You did not explain that function nor the rest of the code.

> Any ideas???

You would be better off if you managed to produce a htmlpage
that you could put on the internet and that we could use too.

Hans.