| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

webbrowser [D7, WinXP]

POINT ©   (2006-10-04 12:27:00) 

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

---

POINT   (2006-10-04 13:58:00) [1]

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

---

POINT   (2006-10-04 13:38:00) [2]

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


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.


---

SergP.   (2006-10-04 13:21:00) [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 12:47:00) [4]

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

---

Dmitrij_K   (2006-10-04 12:36:00) [5]

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

---

Наверх