Navigateur c++ builder

Soyez le premier à donner votre avis sur cette source.

Vue 7 170 fois - Téléchargée 989 fois

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!

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
vendredi 17 février 2006
Statut
Membre
Dernière intervention
10 juillet 2010

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é.
Messages postés
240
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
22 mars 2009

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 :)
Messages postés
2
Date d'inscription
samedi 19 décembre 2009
Statut
Membre
Dernière intervention
16 juin 2010

merci pour le partage de sources

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.