Помогите создать веб-браузер для просмотра Html

[kuzya]

У меня проблема, мне нужно создать учебник с кучей html используя не Internet Explorer, а свой браузер, я использовал компонент CppWebBrowser и столкнулся с проблемой: не знаю как задать путь без указание имени диска, так как этот учебник будет на диску, то привязку к конкретной букве диска делать нельзя
{ String sURL = "C:/Moduls/main.html"; //Как указать без названия диска С:?
CppWebBrowser1->Navigate((TVariant)sURL);
}

 

[brink]

У меня проблема, мне нужно создать учебник с кучей html используя не Internet Explorer, а свой браузер, я использовал компонент CppWebBrowser и столкнулся с проблемой: не знаю как задать путь без указание имени диска, так как этот учебник будет на диску, то привязку к конкретной букве диска делать нельзя
{ String sURL = "C:/Moduls/main.html"; //Как указать без названия диска С:?
CppWebBrowser1->Navigate((TVariant)sURL);
}

А если получать путь к исполняемому файлу, к которому добавлять название папки с html, например:

....
AnsiString tmp;
tmp = ExtractFilePath(Application->ExeName);
tmp += "Moduls\\main.html";

таким образом html-файлы всегда будут открываться из ..\Program_name\Moduls\

 

[Barmutik]

Для: kuzya

А Вы дмаете что CppWebBrowser внутри какой браузер использует ? Правильно ... Internet Explorer...

 

[drod]

Для: kuzya

А Вы дмаете что CppWebBrowser внутри какой браузер использует ? Правильно ... Internet Explorer...

Вы меня не совсем поняли я имелд в виду чтоб не использовать интерфейс Internet Exlorera

 

[kuzya]

А если получать путь к исполняемому файлу, к которому добавлять название папки с html, например:

....
AnsiString tmp;
tmp = ExtractFilePath(Application->ExeName);
tmp += "Moduls\\main.html";

таким образом html-файлы всегда будут открываться из ..\Program_name\Moduls\

Большое спасиба за ответ

 

[romka16]

помогите!!!
у меня таже проблема
куда вставить сей код
чтобы на CD в прграмке откпывалась
строничка сделоная мной

+ как сохронить сей проэкт?


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
ComboBox1: TComboBox;
WebBrowser1: TWebBrowser;
StatusBar1: TStatusBar;
StatusBar2: TStatusBar;
StatusBar3: TStatusBar;
procedure ComboBox1Click(Sender: TObject);
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if (ComboBox1.Text <> '') then WebBrowser1.Navigate(ComboBox1.Text);
end;

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

if (ComboBox1.Text = '') then exit;
ComboBox1.Items.Insert(0,ComboBox1.Text);
ComboBox1Click (Sender);
end;
end;

end.

Добавлено: romka16