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

  • Автор темы kuzya
  • Дата начала
Статус
Закрыто для дальнейших ответов.
K

kuzya

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

brink

Гость
#2
У меня проблема, мне нужно создать учебник с кучей 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\
:(
 
B

Barmutik

Гость
#3
Для: kuzya

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

kuzya

Гость
#5
А если получать путь к исполняемому файлу, к которому добавлять название папки с html, например:
Код:
....
AnsiString tmp;
tmp = ExtractFilePath(Application->ExeName);
tmp += "Moduls\\main.html";
таким образом html-файлы всегда будут открываться из ..\Program_name\Moduls\
:rolleyes:
Большое спасиба за ответ :rolleyes:
 
R

romka16

Гость
#6
помогите!!!
у меня таже проблема
куда вставить сей код
чтобы на 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
 
Статус
Закрыто для дальнейших ответов.