Lave en webbrowser

Selve componenten er ikke tilgængelig, for versioner delphi pe, men prøv at søge på webbrowser i kategorien delphi, måske der der et link til en 3'part component du kan bruge.

Du skal importere componenten via aktix X.Det er såre ligetil.Har selv fået svar på spm. Her på E for ca 1 år siden.Kigger lige.

Jeg kan desværre ikke huske hvad den hed, men den ligger der i forvejen.Jeg tror ikke der sker noget særligt ved at installere et par stykker for meget.Hvis det var mig ville jeg prøve nogen af dem med HTM i navnet.Ellers vent..Der er givetvis nogen eksperter, der kan give dig det exacte componentnavn.

Vælg menuen "Component" > "Import ActiveX Control...".

Vælg "Microrosoft Internet Controls (Version 1.1)" i listen.
Tryk "Install...".
Gør nu næsten som du plejer, når du installerer komponenter :-)

Der kommer nu to nye komponenter på "ActiveX"-fanen :-)

procedure TForm1.BtnOpenClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
      GotoPage (OpenDialog1.FileName);
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
var
  NewUrl: string;
begin
  StatusBar1.Panels[0].Text := 'Done';
  // add URL to combobox
  NewUrl := WebBrowser1.LocationURL;
  if (NewUrl <> '') and
      (ComboURL.Items.IndexOf (NewUrl) < 0) then
    ComboURL.Items.Add (NewUrl);
end;

procedure TForm1.WebBrowser1TitleChange(Sender: TObject;
  const Text: WideString);
begin
  Caption := Text;
end;

procedure TForm1.BtnGoClick(Sender: TObject);
begin
  GotoPage (ComboUrl.Text);
end;

procedure TForm1.ComboURLKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    GotoPage (ComboUrl.Text);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  GotoPage (ExtractFilePath (Application.ExeName) +
    'greeting.htm');
end;

procedure TForm1.GotoPage(ReqUrl: string);
begin
  WebBrowser1.Navigate (ReqUrl, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam);
end;

procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
  StatusBar1.Panels[1].Text := Text;
end;

procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := 'Downloading ' +
    WebBrowser1.LocationURL + '...';
end;

end.

VH
koden12

Prøvede

procedure TForm1.BtnGoClick(Sender: TObject);
begin
  GotoPage (ComboUrl.Text);
end;

[Error] Unit1.pas(91): Undeclared identifier: 'GotoPage'

Jeg har fundet ud af det nu. Men hvis jeg skriver adressen i det felt hvor den skal stå og trykker enter, siger den lyden man får ved at skrive "Beep;" i Delphi. Ret irriterende!

hej koden12: har lagt et link til dig på - http://www.eksperten.dk/spm/415633

Øøøh? Hvad skal jeg bruge linket til?

HVordan får jeg GoToPage, til at virke.

Har slet ikke fordybet med i kodeeksemplet, men kan fortælle udfra knas med egne programeksempler (det er ikke noget særlig svært - du skulle hellere prøve selv at bygge et programeksempel op) at man tit bliver nødt til at putte kommandoen: refresh; ind efter forskellige navigationsmanipulationer.

et basalt eks. kunne se ud a la nedenstående:

unit Unit2333;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, OleCtrls, SHDocVw,StdCtrls,ExtCtrls,Mask,winxp;

 
type
  TForm2 = class(TForm)
    WebBrowser1: TWebBrowser;
    StatusBar1: TStatusBar;
    EAddress: TEdit;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Label1: TLabel;
    procedure EAddressChange(Sender: TObject);
    procedure EAddressKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
   




  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form2: TForm2;

implementation


{$R *.DFM}
procedure TForm2.EAddressKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RETURN then
    WebBrowser1.Navigate(EAddress.Text);
end;
procedure TForm2.EAddressChange(Sender: TObject);
begin
  WebBrowser1.Navigate(EAddress.Text);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin



If opendialog1.execute then
begin
Form2.caption:=opendialog1.filename;
  WebBrowser1.Navigate(opendialog1.filename);

end;



end;



procedure TForm2.Label1Click(Sender: TObject);
begin
webBrowser1.Navigate(EAddress.Text);
refresh;
end;







end.

decko: uses skal du nok slette winxp, der er en slags 'sminke'-unit.

Tak Janbb
Jeg kigger på den.
VH
Koden12

Har stadig lidt problemer. Ligesom der står
"Eksperten | Programmering : Delphi :Lave en webbrowser" i toppen af en browser som i IE, skal jeg også lave det. Og hvis man går ind på f.eks www.hjemmeside.dk, og så trykker på et link så man kommmer til www.hjemmeside.dk/links, står der stadig www.hjemmeside.dk i adresselinjen.

Det med title virker, men ikke det med links!

Nåh, nu virker det jeg spurgte om. Så bare glem dem. Dog er der et lille problem. Hvis jeg åbner siden i et nyt vindue, åbner den siden i IE.

procedure TSlbrowser.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  NewWindow: Tslbrowser;
begin
  // a new instance of the form will be created

  NewWindow := Tslbrowser.Create(self);

  NewWindow.Show;
  ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
end;

[Error] Unit1.pas(63): Undeclared identifier: 'TSlbrowser'

decko: det vistnok valgfrit hvad du kalder 'den' (har ikke kørt det endnu).

du skal bare udskifte TSlbrowser, med din form's navn.

[Error] Unit1.pas(79): Identifier redeclared: 'Form1'