Здравствуйте, в этой статье я хотел бы рассказать как можно получить ссылку с браузера, который Вы укажите, или можно сделать, который у Вас открыт в текущий момент, в Интернете полно таких исходников, но они довольно сильно громоздкие, а мы еще и получим заголовок страницы, то есть название окна браузера (название страницы, которая в данный момент открыта во вкладке или в окне). Мы будем использовать очень хороший компонента, нет мы даже не будем его качать откуда-то, а просто воспользуемся стандартным компонентов и все, у нас готова наша почти программа для получения этих url из браузера, одно отделяет нас — это 3 строчки кода =). Данный компонент называется
- DdeClientConv
Который находится на вкладке
- System
Мы просто устанавливаем данный компонент на форму нашу и все, конечно можно создать его и программно, но пока что не будем насчет этого заморачиваться.
Теперь давайте на OnClick кнопки напишем код, который будет получать url с браузера и его заголовок.
procedure TForm1.Button1Click(Sender: TObject);
var
Temp:WideString;
begin
DdeClientConv1.SetLink('opera','WWW_GetWindowInfo');
Temp:=DdeClientConv1.RequestData('sUrl');
ShowMessage(Temp);
end;
С помощью SetLink мы устанавливаем браузер, с которого мы будем получать информацию, а также какую информацию, а затем в переменную Temp мы записываем это и через запятую в переменной у нас будет в двойных кавычках url и заголовок браузера. Теперь мы можем пропарсить это все и получить например только url
procedure TForm1.Button1Click(Sender: TObject);
var
Temp,url:WideString;
begin
DdeClientConv1.SetLink('opera','WWW_GetWindowInfo');
Temp:=DdeClientConv1.RequestData('sUrl');
delete(Temp,1,pos('"',temp));
url:=copy(temp,1,pos('"',temp)-1);
ShowMessage(Url);
end;
Можно написать подобную функцию и использовать ее
function GetUrlBrowser(NameBrowser:WideString):WideString;
var
Temp:WideString;
begin
Result:='';
Form1.DdeClientConv1.SetLink(NameBrowser,'WWW_GetWindowInfo');
Temp:=Form1.DdeClientConv1.RequestData('surl');
Delete(temp,1,pos('"',temp));
delete(temp,pos('"',temp),length(temp));
result:=temp;
end;
А использовать ее можно так
procedure TForm1.Button2Click(Sender: TObject);
begin
Caption:=GetUrlBrowser('opera');
end;
Данный код компилировался в Delphi 7, и был протестирован на следующих браузерах
- FireFox
- Opera
- IEplorer
Пробывал Google Chrome, но почему-то не захотел
| В настоящее время очень популярно иметь свой сайт. Потому что, через сайт можно давать какие-то советы, продавать товары, вести свой бизнес и так далее. Но здесь очень важно — продвижение сайта. Чтобы Ваш сайт быстро находили, часто пользовались им Вам необходимо поднять позиции сайта. Для данных целей есть различные программы, но лучше всего доверится специалисту, который работает в данной сфере. |
Исходники статьи качаем тут
Автор статьи - Andrey53
Метки: DdeClientConv, TDdeClientConv, получить url c браузера, получить url c браузера на Delphi
Loading ...
Спасибо, за пост, очень понадобился
>>Пробывал Google Chrome, но почему-то не захотел
Судя по тому, что удалось найти в сети по этому поводу (искал ответ на оффюстраничке Chronium) Chrome не поддерживает DDE — отсюда и проблема. А в посте указано команда WWW_GetWindowInfo которая использовалась изначально в IE — на MSDN есть целый список команд, который поддерживает IE. Можно было бы и их в посте рассмотреть
to Vlad,спасибо большое за информацию
C Chrome я решил проблему так:
function GetText(WindowHandle: hwnd): string;
var
TxtLength: integer;
Buffer: string;
begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0) + 1;
setlength(Buffer, TxtLength);
SendMessage(WindowHandle, wm_gettext, txtlength, longint(@Buffer[1]));
Result := Buffer;
end;
function GetChromeURL(hChrome: hwnd): string;
begin
Result := GetText(FindWindowEx(hChrome, 0, ‘Chrome_AutocompleteEditView’, nil));
end;
а для Safari решения не нашёл(
Здравствуйте. А можно ли как то сделать чтоб получать информацию с нескольких одновременно запущенных браузеров?
К сожалению, на IE9 не заработало.
Но замечательно заработало на Firefox.
Универсальное решение нашлось так:
строку
Temp:=DdeClientConv1.RequestData(‘sUrl’);
заменяем на
Temp := DdeClientConv1.RequestData(‘0xFFFFFFFF’);
Теперь работает и в IE.
Проверял на D2010 под Win7 x64.
Огромное спасибо за пост!
P.S. В посте опечатка перед словами «пробовал Google Chrome…»
Там в списке перечисленных браузеров указано IEplorer а правильнее в контексте приведенного кода использовать IExplore.
Отлично, спасибо за исходник
Полезная статья, спасибо! Только я не понял Yuri, как использовать GetChromeURL? Напишите пожалуйста пример вызова
видно надо узнать дескриптор браузера Хром и передавать в эту функцию
Ребята помогите!Мне нужно так:
Чтоб программа ждала свой юрл допустим я открыл site.ru и вылезло сообщение
вот код программы, в данном примере, работает, но не со всеми браузерами