Navigateur c++ builder

Télécharger le projet
Commenter
Description

Voici un petit navigateur web créé avec C++ Builder 6.
Ce projet a été crée en première année de DUT.
Je met mes sources en ligne.
J'espère que cela peut donner des idées à certains
et avoir des avis critiques sur le code
Source / Exemple :

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop                                       *
#include <inifiles.hpp>
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h" 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
WideString urlAccueil;
int j;
bool flag=1;

//---------------------------------------------------------------------------
//    -------------------------Debut du cadre 1-------------------------
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
// Fonction autonome
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------

//lecture du fichier INI pour accueuil
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent *Owner): TForm(Owner)
{
        urlAccueil=  FichierIni->ReadString("parametres", "urlAccueil","");

}
//---------------------------------------------------------------------------

//Fonction de retour si erreur
//---------------------------------------------------------------------------
void __fastcall TForm1::CppWebBrowser1NavigateError(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL, Variant *Frame, Variant *StatusCode,
      VARIANT_BOOL *Cancel)
{
         AdressTE->Text =CppWebBrowser1->LocationURL ;
}
//---------------------------------------------------------------------------

// Procedure qui corrige les tailles lors d'un agrandisement

//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
CppWebBrowser1->Height=Form1->Height-130 ;
CppWebBrowser1->Width=Form1->Width-20;
img_Go->Left=(Form1->Width-60);
ProgressBar1->Left=  (Form1->Width-220);
AdressTE->Width=(Form1->Width)-240;
}
//---------------------------------------------------------------------------

// Procedure qui change l'adresse à chaque changement de page Web
//---------------------------------------------------------------------------
void __fastcall TForm1::CppWebBrowser1NavigateComplete2(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{
        ProgressBar1->Position=0;
        ProgressBar1->Min=0;
        ProgressBar1->Max=500;
        SendMessage(ProgressBar1 ->Handle,PBM_SETBARCOLOR,0,clLime); //change la couleur de la barre
        for(int i=0;i<=500;i++)
                {ProgressBar1->Position++;}

        AdressTE->Text =CppWebBrowser1->LocationURL ;
        Form1->Caption=CppWebBrowser1->LocationName;
      

}
//---------------------------------------------------------------------------

// Procedure qui verouille ou non l'apparition des pages web
//---------------------------------------------------------------------------
void __fastcall TForm1::CppWebBrowser1NewWindow2(TObject *Sender,
      LPDISPATCH *ppDisp, VARIANT_BOOL *Cancel)
{
        if ( Form3->CheckBox1->Checked) {

                Cancel = false;   }
        else   { *Cancel= true;}
}

void __fastcall TForm1::FormActivate(TObject *Sender)
{
        Form3->CheckBox1->Checked=FichierIni->ReadBool("parametres","FiltrePopup","");
          //////////////Init des favoris////////////////////////
        FAVO11->Caption =  FichierIni->ReadString("favoris", "1","");
        FAVO21->Caption =  FichierIni->ReadString("favoris", "2","");
        FAVO31->Caption =  FichierIni->ReadString("favoris", "3","");
        FAVO41->Caption =  FichierIni->ReadString("favoris", "4","");
        FAVO51->Caption =  FichierIni->ReadString("favoris", "5","");
        FAVO61->Caption =  FichierIni->ReadString("favoris", "6","");
        FAVO71->Caption =  FichierIni->ReadString("favoris", "7","");
        FAVO81->Caption =  FichierIni->ReadString("favoris", "8","");
        FAVO91->Caption =  FichierIni->ReadString("favoris", "9","");
        FAVO101->Caption =  FichierIni->ReadString("favoris", "10","");

          /////////////Fin des Init des favoris////////////////////////
}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  StatusBar1->ControlStyle = StatusBar1->ControlStyle << csAcceptsControls ;
  ProgressBar1->Left = 0;
  ProgressBar1->Top = 2;
  ProgressBar1->Parent = StatusBar1;
  

  if(FichierIni->ReadString("parametres", "PagePrecedente","")=="non")
                {       AdressTE->Text=urlAccueil;
                        WideString url=AdressTE->Text;
                        CppWebBrowser1->Navigate(url);
                }
  else          {        WideString url;
                        url=FichierIni->ReadString("parametres", "PagePrecedente","");
                       
                        CppWebBrowser1->Navigate(url);
                }

}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//FIN       Fonction autonome
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//Fonction evenementielle 
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------

//Bouton GO
//---------------------------------------------------------------------------
void __fastcall TForm1::img_GoClick(TObject *Sender)
{
        WideString url=AdressTE->Text;
        CppWebBrowser1->Navigate(url);
     ;

}
//---------------------------------------------------------------------------

//ACCUEIL
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
        WideString urlAccueil;
        urlAccueil=  FichierIni->ReadString("parametres", "urlAccueil","");
        CppWebBrowser1->Navigate(urlAccueil);
}

void __fastcall TForm1::img_homeClick(TObject *Sender)
{
        WideString urlAccueil;
        urlAccueil=  FichierIni->ReadString("parametres", "urlAccueil","");

        CppWebBrowser1->Navigate(urlAccueil);
}
//---------------------------------------------------------------------------

//PRECEDENT
//---------------------------------------------------------------------------
void __fastcall TForm1::img_BackClick(TObject *Sender)
{
        CppWebBrowser1->GoBack();
}

void __fastcall TForm1::Prcdent1Click(TObject *Sender)
{
        CppWebBrowser1->GoBack();
}
//---------------------------------------------------------------------------

//SUIVANT
//---------------------------------------------------------------------------
void __fastcall TForm1::img_nextClick(TObject *Sender)
{
        CppWebBrowser1->GoForward();
}

void __fastcall TForm1::Suivant1Click(TObject *Sender)
{
        CppWebBrowser1->GoForward();
}
//---------------------------------------------------------------------------

//FERMER
//---------------------------------------------------------------------------
void __fastcall TForm1::Quitter1Click(TObject *Sender)
{
        Close();
        Form5->ShowModal();
}
//---------------------------------------------------------------------------

//Fenetre à propos
//---------------------------------------------------------------------------
void __fastcall TForm1::APropos1Click(TObject *Sender)
{
        Form2->Show();
}
//---------------------------------------------------------------------------

// Affiche fenetre Option
//---------------------------------------------------------------------------
void __fastcall TForm1::Option1Click(TObject *Sender)
{
     Form3->Show();
}
//---------------------------------------------------------------------------

//Bouton Stop
//---------------------------------------------------------------------------
void __fastcall TForm1::img_StopClick(TObject *Sender)
{
        CppWebBrowser1->Stop();
}
//---------------------------------------------------------------------------

//Bouton refresh
//---------------------------------------------------------------------------
void __fastcall TForm1::img_RefreshClick(TObject *Sender)
{
       CppWebBrowser1->Refresh();
}
//---------------------------------------------------------------------------

//Affiche le cadre de l ajout des favoris
//---------------------------------------------------------------------------
void __fastcall TForm1::AjouterenFavoris1Click(TObject *Sender)
{
                  int i;
            Panel1->Visible=1;
            Edit1->Text= CppWebBrowser1->LocationName;
            Edit2->Text= CppWebBrowser1->LocationURL;

            i=10;    flag=0;
            for(i=10;i>0;i--)
          {     if (FichierIni->ReadString("favoris",i,"")!="%" ){flag=0;i--;}
                if (FichierIni->ReadString("favoris",i,"")=="%"){
                        flag=1;
                     FichierIni->WriteInteger("favoris","i",i);
            
                       Label5->Caption = i;
                  }
               
          }

 }
//---------------------------------------------------------------------------

//Procedure qui charge les favoris pour les afficher
//---------------------------------------------------------------------------
void __fastcall TForm1::Favoris2Click(TObject *Sender)
{
//////////////Init des favoris////////////////////////
        FAVO11->Caption =  FichierIni->ReadString("favorisN", "1","");
        FAVO21->Caption =  FichierIni->ReadString("favorisN", "2","");
        FAVO31->Caption =  FichierIni->ReadString("favorisN", "3","");
        FAVO41->Caption =  FichierIni->ReadString("favorisN", "4","");
        FAVO51->Caption =  FichierIni->ReadString("favorisN", "5","");
        FAVO61->Caption =  FichierIni->ReadString("favorisN", "6","");
        FAVO71->Caption =  FichierIni->ReadString("favorisN", "7","");
        FAVO81->Caption =  FichierIni->ReadString("favorisN", "8","");
        FAVO91->Caption =  FichierIni->ReadString("favorisN", "9","");
        FAVO101->Caption =  FichierIni->ReadString("favorisN", "10","");
        if(FichierIni->ReadString("favoris", "1","")=="%"){FAVO11->Visible=false;}else{FAVO11->Visible=true;}
        if(FichierIni->ReadString("favoris", "2","")=="%"){FAVO21->Visible=false;}else{FAVO21->Visible=true;}
        if(FichierIni->ReadString("favoris", "3","")=="%"){FAVO31->Visible=false;}else{FAVO31->Visible=true;}
        if(FichierIni->ReadString("favoris", "4","")=="%"){FAVO41->Visible=false;}else{FAVO41->Visible=true;}
        if(FichierIni->ReadString("favoris", "5","")=="%"){FAVO51->Visible=false;}else{FAVO51->Visible=true;}
        if(FichierIni->ReadString("favoris", "6","")=="%"){FAVO61->Visible=false;}else{FAVO61->Visible=true;}
        if(FichierIni->ReadString("favoris", "7","")=="%"){FAVO71->Visible=false;}else{FAVO71->Visible=true;}
        if(FichierIni->ReadString("favoris", "8","")=="%"){FAVO81->Visible=false;}else{FAVO81->Visible=true;}
        if(FichierIni->ReadString("favoris", "9","")=="%"){FAVO91->Visible=false;}else{FAVO91->Visible=true;}
        if(FichierIni->ReadString("favoris", "10","")=="%"){FAVO101->Visible=false;}else{FAVO101->Visible=true;}

          /////////////Fin des Init des favoris////////////////////////
}
//---------------------------------------------------------------------------

// Afficher form4->gestion des favoris
//---------------------------------------------------------------------------
void __fastcall TForm1::GFAVClick(TObject *Sender)
{
 Form4->Show();
}

//Fonction clavier
//---------------------------------------------------------------------------
void __fastcall TForm1::AdressTEKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{

if (Key==VK_RETURN)  //voir virtual key codes
	{
        WideString url=AdressTE->Text;
        CppWebBrowser1->Navigate(url);
	}

//comprends pas pourquoi ça marche pas !
if (Key==(VK_CONTROL)&&(VK_RETURN))
	{
        WideString url = "http://wwww." + AdressTE->Text + ".fr";
        CppWebBrowser1->Navigate(url);
	}

}
//---------------------------------------------------------------------------

//Enregistrer
//---------------------------------------------------------------------------
void __fastcall TForm1::Enregistrersous1Click(TObject *Sender)
{
        CppWebBrowser1->ExecWB(OLECMDID_SAVEAS , OLECMDEXECOPT_DODEFAULT);
}
//---------------------------------------------------------------------------

//Bouton Imprimer
//---------------------------------------------------------------------------
void __fastcall TForm1::Imprimer1Click(TObject *Sender)
{
        CppWebBrowser1->ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT);
       // CppWebBrowser1->ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
//     -------------------------Fin du cadre 1-------------------------
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
//-------------------------Cadres d'ajout de favoris-------------------------
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)    //BoutonAnnuler
{
     Panel1->Visible=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender) //boutonOK
{
     Panel1->Visible=0;
     int i=FichierIni->ReadInteger("favoris","i",0);
                FichierIni->WriteString("favorisN",i,Edit1->Text);
                 FichierIni->WriteString("favoris",i,Edit2->Text);
                   if(FAVO11->Caption=="%"){FAVO11->Visible=false;}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 if ( FichierIni->ReadBool("parametres","SaveBefore","")==0){}
 else {Form5->ShowModal();}

}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

void __fastcall TForm1::FAVO11Click(TObject *Sender){
        WideString url = FichierIni->ReadString("favoris",1,"") ;
        CppWebBrowser1->Navigate(url);
 }
void __fastcall TForm1::FAVO21Click(TObject *Sender)
{
        WideString url = FichierIni->ReadString("favoris",2,"") ;
        CppWebBrowser1->Navigate(url);
}
void __fastcall TForm1::FAVO31Click(TObject *Sender)
{
        WideString url = FichierIni->ReadString("favoris",3,"") ;
        CppWebBrowser1->Navigate(url);
}
void __fastcall TForm1::FAVO41Click(TObject *Sender)
{
        WideString url = FichierIni->ReadString("favoris",4,"") ;
        CppWebBrowser1->Navigate(url);
}
void __fastcall TForm1::FAVO51Click(TObject *Sender)
{
        WideString url = FichierIni->ReadString("favoris",5,"") ;
        CppWebBrowser1->Navigate(url);
}
void __fastcall TForm1::FAVO61Click(TObject *Sender)
{
        WideString url = FichierIni->ReadString("favoris",6,"") ;
        CppWebBrowser1->Navigate(url);
}
void __fastcall TForm1::FAVO71Click(TObject *Sender)
{
        WideString url = FichierIni->ReadString("favoris",7,"") ;
        CppWebBrowser1->Navigate(url);
}
void __fastcall TForm1::FAVO81Click(TObject *Sender)
{
        WideString url = FichierIni->ReadString("favoris",8,"") ;
        CppWebBrowser1->Navigate(url);
}
void __fastcall TForm1::FAVO91Click(TObject *Sender)
{
         WideString url = FichierIni->ReadString("favoris",9,"") ;
        CppWebBrowser1->Navigate(url);
}
void __fastcall TForm1::FAVO101Click(TObject *Sender)
{
         WideString url = FichierIni->ReadString("favoris",10,"") ;
        CppWebBrowser1->Navigate(url);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//                             FIN DU UNIT1
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
Conclusion :

Ce projet est un petit projet. Laissez vos commentaires!
Télécharger le projet
Codes Sources

A voir également

Navigateur c++ builder
Python navigateur - Forum Python
C++ builder radiogroup - Forum C / C++ / C++.NET
C builder shell execute ✓ - Forum C / C++ / C++.NET
Builder compresseur - Forum C / C++ / C++.NET
Changer la couleur de la font d'un radiobutton ou d'un radiogroup ✓ - Forum Delphi / Pascal
S'inscrire maintenant
Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.
Source / Exemple :

Conclusion :

A voir également

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
