Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как на форме разместить web-страницу? [D7, XP]

dera © (2006-10-05 10:02:00)

dera (2006-10-05 12:42:00) [1]
>Officeman (05.10.06 12:28) [8]
Спасибо!

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

Officeman (2006-10-05 12:28:00) [2]
а не. вот это uses WinInet

))

Officeman (2006-10-05 12:24:00) [3]
Добаввь

unit Unit1;

interface

uses

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

clickmaker (2006-10-05 12:17:00) [4]
рекомендую поиск файла в Delphi\Source, содержащего что-либо из Undeclared

dera (2006-10-05 12:06:00) [5]
Пишет: Undeclared identifier: INTERNET_CONNECTION_MODEM
Undeclared identifier: INTERNET_CONNECTION_LAN
Undeclared identifier: INTERNET_CONNECTION_PROXY
Undeclared identifier: InternetGetConnectedState

Что делать?

dera (2006-10-05 11:30:00) [6]
>Officeman (05.10.06 10:41) [3]
Исчерпывающий ответ! Спасибо!

Officeman (2006-10-05 10:41:00) [7]
делаешь так.
на форме располагаешь око компонента.
находится в дельфи. закладка 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 10:22:00) [8]
а дальше?

clickmaker (2006-10-05 10:05:00) [9]
TWebBrowser

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »