Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.05.20;
Скачать: [xml.tar.bz2];

Вниз

УПРАВЛЕНИЕ Internet Explorero м   Найти похожие ветки 

 
ATLANTIDO   (2002-03-01 00:38) [0]

Уважаемые мастера ! Как встроить Internet Explorer
с целью контроля посещаемых URL ? Пробовал через
OLE-container - не работает.


 
ATLANTIDO   (2002-03-01 00:42) [1]

P.S. : имеется ввиду втсроить в свою программу или открыть
новое окно, которым можно будет управлять.


 
[NIKEL]   (2002-03-01 06:08) [2]


uses Comobj;
{...}
var
Form1: TForm1;
IEApp: OLEVariant;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
IEApp := CreateOLEObject("InternetExplorer.Application");
IEApp.Visible := True;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.Width := Screen.Width;
IEApp.Height := Screen.Height;
IEApp.Navigate(" http://delphi.mastak.ru");
end;

{
To Close the Internet Explorer:
Um Internet Explorer beenden:
}

IEApp.Quit;

{
Some other methods:
Einige andere Methoden:
}

IEApp.GoForward
IEApp.GoBack
IEApp.GoHome
IEApp.Refresh
IEApp.Stop
IEApp.GoHome
IEApp.FullScreen := true;

{
To set some Properties:
Einige Eigenschaften setzen:
}

IEApp.StatusText := "My Status Text";

{
IEApp.Path = Show Path to IE, Pfad anzeigen
IEApp.FullName = Full Path to IE, voller Pfad zum IE
IEApp.LocationURL = Get active Url, Aktuelle URL
}


хотя я на этот вопрос уже отвечал :(
плохо ищещь в форуме!


 
ATLANTIDO   (2002-03-01 19:02) [3]

Большое спасибо, я уже просматривал этот код. Проблемка в том,
что пользователь может "открыть ссылку в новом окне", которым
я уже упрвлять не смогу. Может в настройках експлорера это
можно запретить, или еще как ?


 
Sasha9   (2002-03-01 19:08) [4]

посмотри компонент TWebBrowser


 
ATLANTIDO   (2002-03-01 22:23) [5]

OK! А как в WebBrowser решить эту проблему (с открытием
в новом окне) ?


 
ATLANTIDO   (2002-03-01 23:22) [6]

Используя WebBrowser пользователь не получит доступ к таким настройкам как "вид кодировки", "размер шрифта" ...
Я сам видел пример работающей проги, которай имитирует
IE, и при попытке попасть на определенные URL выдается
окошко с запретом. Вот шелда, в которой тоже есть такая функция -
http://zshell.hop.ru.


 
Sasha9   (2002-03-02 15:50) [7]

попробуй отловить клик правой кнопкой


 
ATLANTIDO   (2002-03-02 20:39) [8]

WebBrowser вообще не подходит по задаче. Требуется нормальное
окно IE создать.


 
Фэ   (2002-03-02 22:02) [9]

TWebBrowser и есть IE


 
ATLANTIDO   (2002-03-03 02:14) [10]

А как показать тогда в WebBrowser"е панели инструментов !?
...стороку состояния, панели обозревателя, как дать пользователю
возможность изменить размер шрифта, вид кодировки ? Как ?
Третий раз повторяю одно и тоже :(



 
[NIKEL]   (2002-03-03 13:30) [11]

2ATLONTIDO
может за тебя еще всё приложение написать? :) ручками надо все делать, ручками...


 
ATLANTIDO   (2002-03-03 14:25) [12]

Ручками это как ?


 
Sasha9   (2002-03-04 11:35) [13]

поработай с событиями TWebBrowser"а


 
ATLANTIDO   (2002-03-04 14:45) [14]

WebBrowser не подходит ! ! !
Я уже сам почти разобрался...
Установив какой-то параметр в реестре можно получить требуемый
результат :
пользователь, который открыл IE и пытается попасть на жесткие диски (вводя например "c:\") не может этого сделать -
выводится окно о запрете.

Вопрос в том, что это за параметр и в каком он ключе ?


 
Quadro   (2002-03-04 23:31) [15]

А причем тут Delphi?


 
ATLANTIDO   (2002-03-04 23:59) [16]

Подскажи тогда где это можно узнать ?
Может ты знаешь форум о реестре win98 :) ?


 
Quadro   (2002-03-05 01:23) [17]

Подсказать не подскажу.
Но по моему скромному мнению проще сделать через реестр, чем колбасить смотрелку.


 
ATLANTIDO   (2002-03-06 23:59) [18]

Согласен!


 
ATLANTIDO   (2002-03-07 16:10) [19]

Сам ответу на свой вопрос. Параметр norun называеться.



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

Форум: "Сети";
Текущий архив: 2002.05.20;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.006 c
1-64577
Николай.
2002-05-05 11:10
2002.05.20
Поменять размер JPEG-картинки


1-64581
cult
2002-05-07 14:48
2002.05.20
Знаете ли вы RichEdit?


3-64462
Rub
2002-04-25 09:51
2002.05.20
Народ, а кто-нибудь юзал TeamSource???


1-64728
AVeR
2002-05-04 07:31
2002.05.20
Получить имя файла из полного пути


1-64646
anod
2002-05-08 11:06
2002.05.20
Множества





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский