| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Перетягивани ссылки из ИЕ !!! [D7, WinXP]

webmaster ©   (2004-11-22 20:32:00) 

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

---

DVM   (2004-11-24 10:21:00) [1]

> webmaster   (23.11.04 19:16) [5]

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

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

---

webmaster   (2004-11-23 19:16:00) [2]

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

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

---

webmaster   (2004-11-23 19:12:00) [3]

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

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

---

DVM   (2004-11-23 11:57:00) [4]

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

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

---

webmaster   (2004-11-23 02:57:00) [5]

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

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

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

---

Yanis   (2004-11-22 23:24:00) [6]


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'));


---

Наверх