Wie kann ich einen Browser basteln?

[KingofWerlte]

So hier der versprochene Source:
(zur erklärung evtl. die HP wird in einem Ole Fenster dargestellt)

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    btnStart: TButton;
    btnZurueck: TButton;
    btnVorwaerts: TButton;
    btnHinzufuegen: TButton;
    btnEntfernen: TButton;
    btnNeu: TButton;
    btnAbbrechen: TButton;
    OleContainer1: TOleContainer;
    procedure OnCreate(Sender: TObject); //Form1
    procedure FormShow(Sender: TObject); //Form1
    procedure FormClose(Sender: TObject; var Action: TCloseAction); //Form1
    procedure btnStartClick(Sender: TObject);
    procedure btnZurueckClick(Sender: TObject);
    procedure btnVorwaertsClick(Sender: TObject);
    procedure btnNeuClick(Sender: TObject);
    procedure btnAbbrechenClick(Sender: TObject);
    procedure btnHinzufuegenClick(Sender: TObject);
    procedure btnEntfernenClick(Sender: TObject);
    

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
const
   FavouritenListe = 'c:\FavouritenListe.txt';
   
implementation

{$R *.dfm}

procedure TForm1.OnCreate(Sender: TObject);
begin
OleContainer1.CreateObject('Shell.Explorer',False);
if FileExists(FavouritenListe) then
   ComboBox1.Items.LoadFromFile(FavouritenListe);

end;

procedure TForm1.FormShow(Sender: TObject);
begin
OleContainer1.DoVerb(ovShow);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ComboBox1.Items.SaveToFile(FavouritenListe);
OleContainer1.Close;
OleContainer1.DestroyObject;

end;

procedure TForm1.btnStartClick(Sender: TObject);
begin
OleContainer1.OleObject.Navigate(ComboBox1.Text);
end;

procedure TForm1.btnZurueckClick(Sender: TObject);
begin
OleContainer1.OleObject.GoBack;
end;

procedure TForm1.btnVorwaertsClick(Sender: TObject);
begin
OleContainer1.OleObject.GoForward;
end;

procedure TForm1.btnNeuClick(Sender: TObject);
begin
OleContainer1.OleObject.Refresh;
end;

procedure TForm1.btnAbbrechenClick(Sender: TObject);
begin
OleContainer1.OleObject.Stop;
end;

procedure TForm1.btnHinzufuegenClick(Sender: TObject);
begin
if ComboBox1.Items.IndexOf(ComboBox1.Text)=-1 then
   ComboBox1.Items.Add(ComboBox1.Text); 
end;

procedure TForm1.btnEntfernenClick(Sender: TObject);
begin
if ComboBox1.Items.IndexOf(ComboBox1.Text)<>-1 then
   ComboBox1.Items.Delete(ComboBox1.Items.IndexOf(ComboBox1.Text)); 
end;

end.

So da ich die Komponenten mit angegeben hast kannst du den eigentlich ganz leicht nachprogrammieren
Hier der link: Mein Browser

[CalganX]

Hi,
öhm... :gruebel: Das ist immer noch auf dem Internet Explorer basierend! Du ladest ja schließlich das Explorer-Shell-Objekt. Das ist im Endeffekt zwar der Windows Explorer, was allerdings natürlich identisch ist mit dem Internet Explorer (du kannst ja auch mit dem Papierkorb surfen :mrgreen:)!

Chris

[KingofWerlte]

Ich hab ja auch nie was anderes behauptet :mrgreen:

[CalganX]

Hi,
stimmt auch wieder. Allerdings hatte S2B behauptet, dass es so wäre... ;) Oder zumindest habe ich es so verstanden. :tongue:

Chris

[Alexander]

Du hast doch gesagt, dass du einen eigenständigen Browser benutzt :gruebel: Der hier entspricht dem des TWebbrowsers..

[CalganX]

Hi Alexander,
im Endeffekt. Allerdings hat KingOfwertle Recht, dass es nicht auf dem TWebBrowser basiert, denn er verwendet das OLE-Objekt direkt, ohne erst auf den ActiveX-Wrapper zuzugreifen... ;)

Chris

[KingofWerlte]

ich hab doch nur gesagt das ich dieses TWebBrowser nicht benutze...oder hab ich da nu was falsch :gruebel:
Ne doch nicht :-D (glaub ich zumindest)
hast recht Chakotay

[S2B]

Sorry, ich hab da was falsch verstanden! Ich hab die Antwort nochmal genau augeschaut und da ist mir ein Licht aufgegangen :-D. Ich hab aber mal ne Source gefunden, wo das ganze auch ohne den IE (denk ich zumindest) funktioniert! Da hat derjenige das dann mit PageControl gemacht. Der hieß glaub ich :coder:(sch... der hieß genau so wie der HTML-Code, also coder mit vorne und hinten ":") oder so. Es war aber auf einer anderen Seite (glaub ich, schon lange her). Wenn ihr wollt, kann ich versuchen, die Source auf meiner Platte zu finden und sie hier reinstellen.
Grüße S2B


Edit: Ich hab die Source gefunden, die basiert aber auf dem TWebBrowser :lol:. Kann man nichts machen...

[mumu]

lol ey, nen browser mal einfach so basteln, ich glaub das ist nicht so ohne weiteres...

[CalganX]

Hi,
Internetsurfer
Das war mein erstes richtiges Projekt mit Delphi... ;) Ganz einfach und einfaches zusammengeklicke sonst nichts. :) Ist also prinzipiell ganz einfach.

Wenn es aber darum geht einen komplett neuen Browser zu schreiben ala Mozilla oder Opera, wirst du wirklich nicht ohne weiteres das schaffen. ;)

Chris