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

Вниз

Вопрос по twebbrowser. Подскажите, пожалуйста!   Найти похожие ветки 

 
Napoleonn   (2002-12-22 14:37) [0]

Как узнать имя файла, который в данный момент открыт в twebbrowser?


 
Napoleonn   (2002-12-22 19:43) [1]

Ну неужели это невозможно!?


 
Danlicha   (2002-12-22 19:50) [2]

http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=20-988620753
--------------
Как получить активный URL из браузера.
--------------
Приводимая здесь функция показывает, как Ваше приложение может извлечь из браузера (IE или Netscape) URL , как, например, это делает аська.
Совместимость: Delphi 4.x (или выше)
Не забудьте добавить DDEMan в Ваш проект!

Собственно сам исходничек функции:

uses windows, ddeman, ......

function Get_URL(Servicio: string): String;
var
Cliente_DDE: TDDEClientConv;
temp:PChar; //
begin
Result := "";
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
begin
SetLink( Servicio,"WWW_GetWindowInfo");
temp := RequestData("0xFFFFFFFF");
Result := StrPas(temp);
StrDispose(temp); //
CloseLink;
end;
Cliente_DDE.Free;
end;

procedure TForm1.Button1Click(Sender);
begin
showmessage(Get_URL("Netscape"));
или
showmessage(Get_URL("IExplore"));
end;


Автор: Ruslan Abu Zant (delphi3000@opilki.net)
Источник: http://www.sources.ru/delphi/


 
int64   (2002-12-22 20:28) [3]

uses ...MSTHL;
...
HTMLDocument(twebbrowser.Document).url
...



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

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

Наверх





Память: 0.55 MB
Время: 0.03 c
1-15029
Valeris
2002-12-12 17:51
2003.01.06
Опции компилятора


3-14942
RomZm
2002-12-13 14:22
2003.01.06
Реализация MultiSelect в DBGrid


7-15319
zalviko
2002-10-27 16:16
2003.01.06
Вопрос


14-15229
race1
2002-12-14 16:30
2003.01.06
косясище


1-14991
lefan
2002-12-24 09:59
2003.01.06
except





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