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

Тема в разделе "Borland C++ Builder & Kylix", создана пользователем kuzya, 4 апр 2007.

Статус темы:
Закрыта.
  1. kuzya

    kuzya Гость

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

    brink Гость

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

    Barmutik Гость

    Для: kuzya

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

    drod Гость

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

    kuzya Гость

    Большое спасиба за ответ :rolleyes:
     
  6. romka16

    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
     
Загрузка...
Похожие Темы - Помогите создать веб
  1. bolik1
    Ответов:
    0
    Просмотров:
    323
  2. Acute97
    Ответов:
    1
    Просмотров:
    1.087
  3. Ромаха
    Ответов:
    0
    Просмотров:
    1.463
  4. BlackShadow
    Ответов:
    1
    Просмотров:
    1.784
  5. limbra
    Ответов:
    3
    Просмотров:
    43
Статус темы:
Закрыта.

Поделиться этой страницей