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

Вниз

Открытие страницы IE в полноэкранном режиме в текущем окне   Найти похожие ветки 

 
Trekker ©   (2011-02-24 09:21) [0]

Здравствуйте.
Пытаюсь написать программу для обновления окна сайта. Есть информационный киоск в нем запускается IE с ключем -k. Т.к. многие клиенты, работающие на киоске бросают его в любом месте сайта, хотелось бы написать программу, которая возвращала бы его на домашнюю страницу при простое например через 5 мин. Было принято решение писать экранную заставку, которая будет просто обновлять IE на домашнюю страницу. Сам я в Delphi новичок, на просторах Инета нашел много способов, как можно открыть страницу в текущем окне IE, но проблема в том, что каким бы я способом обновления не пользовлася, если IE запущен с ключем -k или просто в полноэкранном режиме по F11, то ничего не получается запускается еще один процесс IE. Если IE работает в обычном режиме, все работает нормально. Подскажите как можно заставить IE, запущенный с ключем -k обновляться до домашней страницы в текущем окне без запуска второго процесса или открывать произвольную страницу. Ниже привожу код программы.

var
Form1: TForm1;
DDE : TDDECLientConv;
URL : String;
URLFired : Boolean;
crsm, crs:Tpoint;

procedure TForm1.FormCreate(Sender: TObject);

begin
Getcursorpos(crs);
URL := "http://www.trudvsem.ru";
DDE := TDDEClientConv.Create(nil);
try
DDE.ServiceApplication := "iexplore";
if DDE.SetLink("iexplore", "WWW_OpenURL") then
if (DDE.RequestData(URL + ",,1") <> nil) then
if DDE.SetLink("iexplore", "WWW_Activate") then
URLFired := DDE.RequestData("0,0") <> nil;
finally
DDE.Free;
end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
getcursorpos(crsm);
if crsm.x<>crs.x then begin showcursor(true); close;
end;
end;
end.


 
clickmaker ©   (2011-02-24 12:16) [1]

> возвращала бы его на домашнюю страницу при простое например
> через 5 мин

<META HTTP-EQUIV="REFRESH" CONTENT="300;URL=default.htm">


 
sniknik ©   (2011-02-24 12:55) [2]

> <META HTTP-EQUIV="REFRESH" CONTENT="300;URL=default.htm">
а можно сделать чтобы считало с момента последнего действия пользователя? т.е. например клиент "тупит" перед терминалом, что то вводит/стирает ходит по меню ... и вот когда он наконец то "решился" денег заплатить/... его вдруг на другую страничку кидает... нехорошо.

думаю в вопросе это и имеется в виду, не безусловное время, а с момента "покинутости" киоска (клиент ушел).


 
Trekker ©   (2011-02-24 12:56) [3]


> <META HTTP-EQUIV="REFRESH" CONTENT="300;URL=default.htm">


И куда мне это воткнуть ?


 
Trekker ©   (2011-02-24 12:56) [4]


> <META HTTP-EQUIV="REFRESH" CONTENT="300;URL=default.htm">


И куда мне это воткнуть ?


 
trekker ©   (2011-02-24 12:57) [5]

да именно когда клиент ушел


 
clickmaker ©   (2011-02-24 13:42) [6]

> т.е. например клиент "тупит" перед терминалом, что то вводит/стирает
> ходит по меню

если ходит по меню, то это уже перезагрузка страницы, как правило.
Ну, можно запустить таймер, сбрасывать по mousemove/keydown. В таймере document.location.href="default.htm"


 
Trekker ©   (2011-02-24 14:03) [7]

как я понял <META HTTP-EQUIV="REFRESH" CONTENT="300;URL=default.htm"> это тег. В HTML я не силен. Создал HTML документ. Что должно быть в default.htm?

<html>
<head>
<META HTTP-EQUIV="REFRESH" CONTENT="15;URL=default.htm">
</head>
</html>


 
trekker ©   (2011-02-24 14:12) [8]


> если ходит по меню, то это уже перезагрузка страницы, как
> правило.Ну, можно запустить таймер, сбрасывать по mousemove/keydown.
>  В таймере document.location.href="default.htm"


clickmaker, У меня проблема с обновление страницы именно в текущем окне, когда IE запущен в режиме киоск с ключем -k, или в полноэкранном режиме. У меня происходит обновление но запускается второй процесс IE. В этом все проблема.



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

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

Наверх





Память: 0.47 MB
Время: 0.008 c
2-1298668522
Проходящий
2011-02-26 00:15
2011.06.05
Отлов ошибок аппаратного уровня.


2-1298361567
viktor
2011-02-22 10:59
2011.06.05
подключение к БД используя РОЛЬ


15-1298150996
Юрий
2011-02-20 00:29
2011.06.05
С днем рождения ! 20 февраля 2011 воскресенье


15-1297805399
Юрий
2011-02-16 00:29
2011.06.05
С днем рождения ! 16 февраля 2011 среда


15-1298011878
Virgo_Style
2011-02-18 09:51
2011.06.05
Помнится, когда-то здесь поднималась тема китайских магазинов





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский