Скачать: CL | DM;

webbrowser   Найти похожие ветки 

← →
POINT ©   (2006-10-04 12:27) [0]

подскажите как сделать так, чтобы компонент WebBrowser сам автоматически загружал определнную хтмл-ку скажем с жесткого диска.
то есть я запускаю скомпилированное приложение и на форме отображается определнная страничка, расположенная локально.

---

← →
Dmitrij_K   (2006-10-04 12:36) [1]

Form.OnActivate()
begin
WB.Navigate("c:\lalala.htm")
end

---

← →
POINT ©   (2006-10-04 12:47) [2]

спасибо за ответ. я новичок в делфи судьба заставила написать одно приложение..сижу мучаюсь =) еще бы знать куда эти строчки кода поставить. в ивентсах компонента WebBrowser OnActivate не нашел...заранее благодарен за ответ поподробней =)

---

← →
SergP.   (2006-10-04 13:21) [3]

> [1] Dmitrij_K   (04.10.06 12:36)
> Form.OnActivate()
> begin
> WB.Navigate("c:\lalala.htm")
> end


Хм... Вроде бы так:
WB.Navigate("file:///с:\lalala.htm");

---

← →
POINT ©   (2006-10-04 13:38) [4]

вот приведу исходник..куда это чудо поставить? =)
я знаю что оттвет прост, но программирование не моя область =(


unit main;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ComCtrls, ToolWin, OleCtrls, SHDocVw, ImgList, MPlayer,
 jpeg, ExtCtrls, ShockwaveFlashObjects_TLB;

type
 TForm1 = class(TForm)
   WebBrowser1: TWebBrowser;
   CoolBar1: TCoolBar;
   ToolBar1: TToolBar;
   ComboBox1: TComboBox;
   ToolButton1: TToolButton;
   ToolButton2: TToolButton;
   ToolButton3: TToolButton;
   ToolButton4: TToolButton;
   ToolButton5: TToolButton;
   ToolButton6: TToolButton;
   OpenDialog1: TOpenDialog;
   StatusBar1: TStatusBar;
   ProgressBar1: TProgressBar;
   ImageList1: TImageList;
   MediaPlayer1: TMediaPlayer;
   procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);
   procedure ToolButton1Click(Sender: TObject);
   procedure ToolButton2Click(Sender: TObject);
   procedure ToolButton4Click(Sender: TObject);
   procedure ToolButton5Click(Sender: TObject);
   procedure ToolButton3Click(Sender: TObject);
   procedure ToolButton6Click(Sender: TObject);
   procedure WebBrowser1StatusTextChange(Sender: TObject;
     const Text: WideString);
   procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
     ProgressMax: Integer);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if Key= VK_RETURN then WebBrowser1.Navigate(ComboBox1.Text)
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
begin
if OpenDialog1.Execute then
begin
WebBrowser1.Navigate(OpenDialog1.FileName);
ComboBox1.Text:=OpenDialog1.FileName;
end;
end;
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
WebBrowser1.GoForward;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
WebBrowser1.Stop;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
var
PostData, Headers:OLEvariant;
begin
WebBrowser1.ExecWB(OLECMDID_PRINT,OLECMDEXECOPT_DODEFAULT,PostData, Headers);

end;

procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
 const Text: WideString);
begin
StatusBar1.SimpleText:=Text;
end;

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
 ProgressMax: Integer);
begin
ProgressBar1.Max:=ProgressMax;
ProgressBar1.Position:=Progress;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.


---

← →
POINT ©   (2006-10-04 13:58) [5]

все, спасибо, разобрался

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c