Перетягивани ссылки из ИЕ !!!

← →
webmaster (2004-11-22 20:32) [0]

Берем Internet Explorer и тянем какую нибудь ссылку в свою прогу
Как получить текст ссылки, и url на который она указывает !
thnx !

← →
Yanis © (2004-11-22 23:24) [1]

uses ..,ddeman; function Get_URL(Servicio: string): String; var Cliente_DDE: TDDEClientConv; temp:PChar; //<<-------------------------This is new 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;

Использование:

showmessage(Get_URL("Netscape")); // или showmessage(Get_URL("IExplore"));

← →
webmaster (2004-11-23 02:57) [2]

$$
Ну ета фукция выдает содержимое строки адреса и заголовок страницы,
а мне нужно ДрагНДропом перетягивать ссылку в свое приложение,
например на странице в брозере есть такая ссылка (on HTML):

<a href=http://servak.net>Ссыллллка</a>

так вот нужно получить "http://servak.net" и "Ссыллллка" !

← →
DVM © (2004-11-23 11:57) [3]

IDropTarget и иже с ним интерфейсы надо реализовать в своей программе.

http://podgoretsky.com/ftp/Docs/Delphi/D3/D3ProgLib/ch_04.htm#1

← →
webmaster (2004-11-23 19:12) [4]

Re DVM:
работат тока с файлами и ярликами и прочей ерундой из explorer

Нужно ссылку из ИЕ(InternetExplorer)

← →
webmaster (2004-11-23 19:16) [5]

Re DVM:
работат тока с файлами и ярликами и прочей ерундой из explorer

Нужно ссылку из ИЕ(InternetExplorer)

> webmaster (23.11.04 19:16) [5]

Да ну!!! Ты статьи прочитал до конца? Если прочитал, то тебе должен стать понятен принцип такого перетаскивания. В том коде надо поменять совсем немного, чтобы окно принимало ссылки, картинки и прочее.

Если не хочешь разбираться найди компоненты
Drag"n"Drop Component Suite - там есть и возможность принимать ссылки и прочее.

Перетягивани ссылки из ИЕ !!! Найти похожие ветки