Как на форме разместить 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) Как обработать исключения (например, выдать сообщение, что нет соединения с инетом)

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