Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Как подключить HTML страницу

Автор: Gjjo 30.5.2008, 16:11

Как подключить HTML страницу по кнопке? smile

Автор: Snowy 30.5.2008, 16:21

К чему подключить?

Автор: THandle 30.5.2008, 16:22

Как нить так...

Код


uses ShellAPI;

Код


ShellExecute(Handle, 'Open', 'http://vingrad.ru', nil, nil, sw_show);

Или тебе на форме надо?

Тогда TWebBrowser.

Автор: Gjjo 30.5.2008, 16:25

На форме

Автор: THandle 30.5.2008, 16:27

Gjjo, кладешь на форму TWebBrowser(Вкладка Internet). И по нажатию кнопки:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://forum.vingrad.ru');
end;

Автор: Gjjo 30.5.2008, 16:29

а так чтобы эта страница лежала в папке? просто путь к ней?

Добавлено через 2 минуты и 18 секунд

Цитата(THandle @ 30.5.2008, 16:27)

Gjjo, кладешь на форму TWebBrowser(Вкладка Internet). И по нажатию кнопки:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://forum.vingrad.ru');
end;

Выдает ошибку

Автор: Snowy 30.5.2008, 16:43

А текст ошибки, наверное такой:
"Ошибка: отсутствуют базовые знания Delphi. Обратитесь к соответствующей литературе"

Хватит уже голову морочить. Купи книжку.

Автор: Gjjo 30.5.2008, 16:49

Прошу вас ответить всего на один мой последний ламерский вопрос потом обещаю возьмусь за литературу просто мне срочно надо дописать программу.

Автор: THandle 30.5.2008, 17:11

Цитата(Gjjo @ 30.5.2008, 17:29

)

Выдает ошибку

И шо же за ошибка?

Все таки видимо эта:

Цитата(Snowy @ 30.5.2008, 17:43

)

"Ошибка: отсутствуют базовые знания Delphi. Обратитесь к соответствующей литературе"

Цитата(Gjjo @ 30.5.2008, 17:29

)

а так чтобы эта страница лежала в папке? просто путь к ней?

Нет... не просто... все очень сложно...

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(ExpandFileName('D:\\//\\h.html'));
end;

Добавлено через 1 минуту и 30 секунд
Gjjo, http://www.delphilab.ru/content/view/17/46/