CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 05 27 18:53:43

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

NAVIGATEUR C++ BUILDER

Information sur la source

Note :
Aucune note

Catégorie :Divers Classé sous :navigateur, web, cppbuilder, internet, builder Niveau :Débutant Date de création :10/06/2010 Date de mise à jour :10/07/2010 13:42:58 Vu / téléchargé :2 701 / 261

Auteur : hackhamster

Ecrire un message privé

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

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

//---------------------------------------------------------------------------
#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
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------

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

#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!

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

NaveCYeh_RC1
- images
  - 17x17
    - aj_fav.bmp 940 octets
    - fav.bmp 940 octets
    - fermer.bmp 940 octets
    - gest_fav.bmp 940 octets
    - icone.ico 1 758 octets
    - options.bmp 940 octets
    - print.bmp 940 octets
    - save.bmp 940 octets
    - tux-matrix copie.jpg 27 963 octets
    - zoom.bmp 940 octets
  - 24x24
    - accueil.bmp 1 784 octets
    - close.bmp 1 784 octets
    - next.bmp 1 784 octets
    - play.bmp 1 784 octets
    - prew.bmp 1 784 octets
    - refresh.bmp 1 784 octets
  - pack1
    - back.bmp 1 784 octets
    - close.bmp 1 784 octets
    - gest_fav.bmp 1 784 octets
    - home.bmp 1 784 octets
    - next.bmp 1 784 octets
    - refresh.bmp 1 784 octets
  - Thumbs.db9 728 octets
- config.ini 511 octets
- histo.ini 76 octets
- Project1.~bpr4 485 octets
- Project1.~cpp1 369 octets
- Project1.bpr4 460 octets
- Project1.cpp 1 469 octets
- Project1.obj10 580 octets
- Project1.res1 868 octets
- Project1.tds196 608 octets
- Test.html 548 octets
- Unit1.~cpp17 534 octets
- Unit1.~ddp51 octets
- Unit1.~dfm62 433 octets
- Unit1.~h4 770 octets
- Unit1.cpp 17 534 octets
- Unit1.ddp51 octets
- Unit1.dfm62 433 octets
- Unit1.h 4 770 octets
- Unit1.obj106 195 octets
- Unit2.~cpp527 octets
- Unit2.~ddp51 octets
- Unit2.~dfm64 955 octets
- Unit2.~h948 octets
- Unit2.cpp 527 octets
- Unit2.ddp51 octets
- Unit2.dfm64 955 octets
- Unit2.h 948 octets
- Unit2.obj16 502 octets
- Unit3.~cpp1 802 octets
- Unit3.~ddp51 octets
- Unit3.~dfm1 654 octets
- Unit3.~h1 184 octets
- Unit3.cpp 1 822 octets
- Unit3.ddp51 octets
- Unit3.dfm1 654 octets
- Unit3.h 1 184 octets
- Unit3.obj66 072 octets
- Unit4.~cpp9 060 octets
- Unit4.~ddp51 octets
- Unit4.~dfm9 190 octets
- Unit4.~h3 322 octets
- Unit4.cpp 8 108 octets
- Unit4.ddp51 octets
- Unit4.dfm9 190 octets
- Unit4.h 3 322 octets
- Unit4.obj90 935 octets
- Unit5.~cpp1 083 octets
- Unit5.~ddp51 octets
- Unit5.~dfm1 011 octets
- Unit5.~h1 092 octets
- Unit5.cpp 1 083 octets
- Unit5.ddp51 octets
- Unit5.dfm1 011 octets
- Unit5.h 1 091 octets
- Unit5.obj65 522 octets
- webcomp.hpp 24 665 octets
- webdsnap.~hpp2 888 octets
- webdsnap.bpi86 116 octets
- webdsnap.hpp 2 888 octets
- webdsnap60.bpl266 240 octets
- websnap61.bpl714 752 octets

Télécharger le zip

Historique

10 juin 2010 14:25:23 :: correction des fautes
10 juillet 2010 13:42:59 :: Corrections de certain trucs

Sources de la même categorie

KISIEL CD INFO DRIVE par kisiel0147852

SUPPRESSION DES REDONDANCES DE FICHIERS par cyberntique

ÉDITEUR DE RECTANGLES EN CONSOLE par seoseo

CONVERSION DE FICHIER EN FICHIER BMP par seoseo

DETECTEUR EJP par idpro

Toutes les sources de la catégorie Divers

Sources en rapport avec celle ci

COVERT ART IMAGE par nanonavich

[C++] NAVIGATEUR INTERNET QT par pop70

INTERNET IP FINDER TROUVER VOS ADRESSE IP (INTERNET) par xmustapha

TRADUCTION DE MOT AVEC GOOGLE (UN AUTRE) par f_l_a_s_h_b_a_c_k

INFONET INFORMATION QUI VIENT DU NET par f_l_a_s_h_b_a_c_k

Commentaires et avis

Commentaire de safia999info le 16/06/2010 18:18:42

merci pour le partage de sources

Commentaire de omnia le 09/07/2010 22:24:31

Bonjour,

  alors plusieurs remarques :
     - lorsque l'on upload une source on supprime au préalable tous les fichiers temporaire, CS est déja très encombré.
     - lorsqu tu utilise les MFC, pense à le préciser dans le titre, car même si ton projet te semblait difficile car tu débutes, ce genre de source y en à + de 100 et en terme de développement n'apporte strictement rien mise à part peut être pour les autres personnes de ton cursus.
     - pour "la politique Open sources" bon dans un premier temps on parle de licence (http://fr.wikipedia.org/wiki/Licence_publique_g%C3%A9n%C3%A9rale_GNU) ^^, ensuite la mise en place d'une licence sur ce genre de code/projet ...

mais malgré ces remarques qui ont l'air négatives, je te recommande lorsque tu auras progressé et découvert des astuces de les publiés ici car ces l'une des vocations de CS.

Pour information ce genre de source en général est supprimé...

Bon codage et bonne chance dans tes études :)

Commentaire de hackhamster le 10/07/2010 13:46:36

Je te remercie pour ce commentaire, je débute en effet en programmation CPP builder, son interface est dure à géré. je n'aime pas beaucoup, je préfère de loin QT.

Pour ce qui en est des source j'ai fait des recherche e n'ai pas vraiment trouve d'autre sources en CpP builder. C'est d'ailleurs pour cela que je l'ai posté.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

SOS Pb Utilisation ActiveX Navigateur Web Microsoft sans MFC [ par electrix ] Je lance un appel aux pro de ActiveX ! ;)Voila mon probleme:Je developpe une appli en Visual C++ 6.0 ,qui possede une interface graphique DDraw, et je Navigateur web et autres browsers [ par dwarft ] Bonjour a vous tous,voila le probleme, je cherche a réaliser un petit navigateur web tout ce qu'il y a de plus simple c'est a dire juste la fonction d Navigateur web et autres browsers [ par dwarft ] Bonjour a vous tous,voila le probleme, je cherche a réaliser un petit navigateur web tout ce qu'il y a de plus simple c'est a dire juste la fonction d Comment fait-on fonctionner le contrôle activex "Navigateur Web Microsoft" [ par Memerosti ] Ben tout est dans le titre :=)J'ai crée un projet MFC, et j'aimerais, afficher une page web à l'aide de ce contrôle dans une fenêtre de mon programme. Communication MySql sur Web et C++Builder 6.0 [ par Gera182 ] Comment je peut faire pour communiquer avec une Base MySql sur internet de comme Free ou autre et MySql.J'ai déja réunssi sur un réseau de type TCP/IP Inserer image d'internet dans application c++ builder 6 [ par Vincman87 ] Bonjour a tousJe cherche le moyen d'inserer une image (JPG) stokée sur internet dans mon application C++. Je suis sous C++ Builder 6 de Borland si ca Navigateur web????? [ par supergrey ] Salut, je cherche une source de navigateur internet tout simple, que j'ai vu il y a un moment, mais je ne la retrouve plus, y'a que celle de gromito m Projet sous linux [ par rimkazz ] Bonjour a tous. J'ai programmer un petit outil de gestion en php et jaimerai le faire demarrer directement sous linux , donc lancer un navigateur web navigateur web [ par thunderfear ] Bonjour, j'aimerai integrer un navigateur web dans une dialog mais je ne sais po cmt faire? Est-ce que quelqu'un peux m'aider? merci proxy [ par wassila_lalouani ] bonjour! je desire realiser une application pour pda qui joue le role d'un proxy: elle recupere les requetes du navigateur web, elle gere le cache et

Nos sponsors

Derniers Blogs

IMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg

KINECT 1.5 IS OUT ! par Vko

LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc

REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc

SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg

Forum

MATRICE TEMPLATE par hjr2610

SUPERVISION DE LA BATTERIE par romanticgirl

RE : OPENCV ET INTERFACE GRAPHIQUE VISUAL STUDIO par buno

RE : SAC A DOS par hadjkaddour

OPENCV ET INTERFACE GRAPHIQUE VISUAL STUDIO par ssaif

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Realisation d-une version 2 d-un site e-commerce existant sous prestashop-REPUBLICATION
Budget : 5 000€
Recherche Infogerance Serveur Debian Linux
Budget : 1 800€
Creation d-un site vitrine avec MagentO
Budget : 2 000€

Logiciels

sDEVIS-FACTURES vlPRO (8.1.0.3)
SDEVIS-FACTURES VLPRO (8.1.0.3)

sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa...

Cliquez pour télécharger sDEVIS-FACTURES vlPRO
974 Application Server (12.2.4.6)
974 APPLICATION SERVER (12.2.4.6)

Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc...

Cliquez pour télécharger 974 Application Server
vPicture (1.4.2.1)
VPICTURE (1.4.2.1)

Avec vPicture, hébergez vos images facilement et rapidement. vPicture est un utilitaire simple, ...

Cliquez pour télécharger vPicture
Easy-Planning (2.2.1.6)
EASY-PLANNING (2.2.1.6)

Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au...

Cliquez pour télécharger Easy-Planning
COM-BACKUP (2.0)
COM-BACKUP (2.0)

COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...

Cliquez pour télécharger COM-BACKUP