Переместить ссылки из браузера

[AnalogXP]

Здравствуйте!

Хочу в свою программу получить ссылки и их описание (текст) через перетаскивание.
То есть в браузере нажимаю на текст ссылки и перетаскиваю на мою программу, в результате получаю текст и его ссылку.
Как это реализовать? Дайте идею.

[mutabor]

Если это в принципе возможно (перетаскивание ссылок), то идея такая - при бросании ссылки на окно, программа получит сообщение от системы с параметрами, как при перетаскивании файлов.

[mihali4]

Вот вам код для получения ссылки с описанием из IE по нажатию кнопки. Если вам нужно осуществить именно DragDrop, возьмете только нужный кусок.

procedure TFVMZWebDB.GetIEUrl;
var Cliente_DDE: TDDEClientConv;
    temp:PChar;
    i: integer;
    tmp,tmps,tmpd: string;
    ie: hwnd;
    buff: array [0..127] of Char;
begin
try
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
try
SetLink( 'IExplore','WWW_GetWindowInfo');
temp := RequestData('1');
if temp>'' then
begin
tmp:=StrPas(temp);
for i:=2 to Length(tmp) do
if tmp[i]<>'"' then
tmps:=tmps+tmp[i] else
break;
ie:=FindWindow(pchar('IEFrame'),nil);
GetWindowText(ie, buff, sizeof(buff));
tmp:=StrPas(buff);
for i:=1 to Length(tmp) do
if tmp[i]<>'-' then
tmpd:=tmpd+tmp[i] else
break;
tmpd:=TrimRight(tmpd);
ListBox2.Items.Append(tmps+';'+tekind+';'+tmpd+';'+'5');
edurl:=True;
end;
finally
StrDispose(temp);
CloseLink;
end;
Cliente_DDE.Free;
except
ShowMes(12,332,'Error V001');
Application.ProcessMessages;
if snd then
PlaySound('ERROR',0,SND_RESOURCE or SND_SYNC);
end;
end;

Тут есть немного лишнего, некогда вычищать, думаю сами разберетесь...

[AnalogXP]

Сообщение от mutabor

Если это в принципе возможно (перетаскивание ссылок), то идея такая - при бросании ссылки на окно, программа получит сообщение от системы с параметрами, как при перетаскивании файлов.

Возможно. Есть такой набор компонентов как "DragDrop". Вот как все это делается, я и хочу узнать. У VirtualStringTree есть пример с Drag and Drop. Так вот, там передается вроде через Буфер обмена (пока не понял - при перетаскивании чего либо, оно помещяется сначал в буфер?). И дальше обрабатывается CF_UNICODETEXT, в результате чего получаем и текст ссылки и саму ссылку.

вот пример:

procedure TfrmMain.AddUnicodeText(DataObject: IDataObject;
  Target: TVirtualStringTree; Mode: TVTNodeAttachMode);
var
  // Структура, которая будет запрашивать указатеь на глобальные данные
  FormatEtc: TFormatEtc;
  // Структура с данными
  Medium: TStgMedium;
  // Указатель на строку
  OLEData,
  // Для прохода цикла с целью разделения текста на строки
  Head, Tail: PWideChar;
  // Узел, получающий новую ветку
  TargetNode,
  // Новая ветка
  Node: PVirtualNode;
  // Её данные
  Data: PItemNode;
begin
  if Mode <> amNowhere then
  begin
    // Заполняем струкутру для получения ЮНИКОД-текста
    with FormatEtc do
    begin
      cfFormat := CF_UNICODETEXT;
      // Нет у нас никакого девайса...
      ptd := nil;
      // Нам нужно содержание (текст в данном случае)
      dwAspect := DVASPECT_CONTENT;
      // Нет страницы для мультистраничных данных
      lindex := -1;
      // Мы будем получать указатель на данные через глобальную память
      tymed := TYMED_HGLOBAL;
    end;
    // Есть ли ЮНИКОД-текст для нашего запроса?
    if DataObject.QueryGetData(FormatEtc) = S_OK then
    begin
      // Опа, есть, можем получить данные
      if DataObject.GetData(FormatEtc, Medium) = S_OK then
      begin
        // Вот они:
        OLEData := GlobalLock(Medium.hGlobal);
        if Assigned(OLEData) then
        begin
          Target.BeginUpdate;
          // Выбираем место для вставки, если переданное = nil
          TargetNode := Target.DropTargetNode;
          if TargetNode = nil then
            TargetNode := Target.FocusedNode;
          // Разбиваем текст на строки
          Head := OLEData;
          try
            while Head^ <> #0 do
            begin
              Tail := Head;
              while not (Tail^ in [WideChar(#0), WideChar(#13), WideChar(#10), WideChar(#9)]) do
                Inc(Tail);
              if Head <> Tail then
              begin
                // Добавляем новую ноду, если есть хотя бы один символ
                // для строки.
               Node := Target.InsertNode(TargetNode, Mode);
               Data := Target.GetNodeData(Node);
               Data^.Name := Head;
               SetLength(Data^.Name, (Tail - Head));
              end;
              // Пропускаем табы
              if Tail^ = #9 then
                Inc(Tail);
              // Символы переноса каретки и конца строки
              if Tail^ = #13 then
                Inc(Tail);
              if Tail^ = #10 then
                Inc(Tail);
              // Шагаем дальше
              Head := Tail;
            end;
          finally
            GlobalUnlock(Medium.hGlobal);
            Target.EndUpdate;
          end;
        end;
        // Вот это лучше не забывать делать
        ReleaseStgMedium(Medium);
      end;
    end;
  end;
end;

Вот вам код для получения ссылки с описанием из IE по нажатию кнопки.

mihali4, я имел ввиду то, что все ссылки которые в данный момент есть на этой странице (текстов и картинок - на которые можно кликнуть), можно было переместить в мою программу.

[Квэнди]

mihali4, я имел ввиду то, что все ссылки которые в данный момент есть на этой странице (текстов и картинок - на которые можно кликнуть), можно было переместить в мою программу.

А на кой здесь dragndrop тебе mihali4 показал как забрать активный урл из браузера, забирай урл, и парси его как душе угодно, чтож ты пользователя еще и заставляешь ссылки таскать

[mihali4]

Сообщение от Квэнди

А на кой здесь dragndrop ... забирай урл, и парси его как душе угодно, чтож ты пользователя еще и заставляешь ссылки таскать

Совершенно верно. Мне нравится как сделано, например, в DownLoad Master-е - выбираешь "Загрузить все с помощью DownLoad Master", он показывает список всех имеющихся в тексте страницы ссылок, ставим "птицы" против нужных ссылок и т.д.
Мне кажется, вам нужно именно такой подход реализовать. Вы представляете, юзер открыл страничку с парой сотен порнофотографий и ему почему-то (?!) захотелось все их скопировать к себе на диск... Вы хотите предложить ему делать две сотни перетаскиваний???
Да он и вас, и вашу примочку проклянет!

[AnalogXP]

А зачем качать? Например нашли адрес на статью, инфо, новость. Что же, качать из за одного адреса все ссылки из окна? Хранить где-то целые страницы? Пользователь сам сохранит что ему нужно. Я же хочу помочь сохнить адрес.
Большинство менеджеров закладок имеют плавающего окошка, на котором можно бросать ссылки прямо из окна.

Вы хотите предложить ему делать две сотни перетаскиваний???

Только одну - на эту страницу.