Скачать: CL | DM;

Как на форме разместить web-страницу?   Найти похожие ветки 

← →
dera   (2006-10-05 10:02) [0]

---

← →
clickmaker ©   (2006-10-05 10:05) [1]

TWebBrowser

---

← →
dera   (2006-10-05 10:22) [2]

а дальше?

---

← →
Officeman   (2006-10-05 10:41) [3]

делаешь так.
на форме располагаешь око компонента.
находится в дельфи. закладка Internet -> TWebBrowser  (шарик такой с лупой)

//сначала надо проверить если ли соединение с Интернет
//добавляешь такую функцию.
//проверяем: MODEM, LAN, PROXY

function TForm1.IsConnectedToInternet:Boolean;
var
 dwConnectionTypes: DWORD;
begin
 dwConnectionTypes :=
   INTERNET_CONNECTION_MODEM +
   INTERNET_CONNECTION_LAN +
   INTERNET_CONNECTION_PROXY;
 Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

//если коннект есть, то начинаем загружать страничку.

if IsConnectedToInternet then
begin
WebBrowser1.Navigate("http://stalkerz.info/primer/banner.htm");
end;

//если передаешь URL адрес из другого компонента то будет так

if IsConnectedToInternet then
begin
WebBrowser1.Navigate(Trim(Edit1.text));
end;

---

← →
dera   (2006-10-05 11:30) [4]

>Officeman   (05.10.06 10:41) [3]
Исчерпывающий ответ! Спасибо!

---

← →
dera   (2006-10-05 12:06) [5]

Пишет: Undeclared identifier: INTERNET_CONNECTION_MODEM
          Undeclared identifier: INTERNET_CONNECTION_LAN
          Undeclared identifier: INTERNET_CONNECTION_PROXY
          Undeclared identifier: InternetGetConnectedState

Что делать?

---

← →
clickmaker ©   (2006-10-05 12:17) [6]

рекомендую поиск файла в Delphi\Source, содержащего что-либо из Undeclared

---

← →
Officeman   (2006-10-05 12:24) [7]

Добаввь

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs,   IdBaseComponent;

---

← →
Officeman   (2006-10-05 12:28) [8]

а не.  вот это     uses WinInet

))

---

← →
dera   (2006-10-05 12:42) [9]

>Officeman   (05.10.06 12:28) [8]
Спасибо!

А еще вопросики. 1) Как показать прогресс загрузки страницы?
                         2) Как обработать исключения (например, выдать сообщение, что нет соединения с инетом)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.047 c