Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

HTML из буфера обмена   Найти похожие ветки 

 
oleg_SYS   (2004-07-03 23:25) [0]

Как вытащить из буфера обмена фрагмент HTML, который был скопирован через IE? (нужно сохранить таблицу).


 
KilkennyCat ©   (2004-07-04 02:12) [1]

куда вытащить?


 
@BraIN ©   (2004-07-04 02:19) [2]

Memo1.PasteFromClipboard;


 
Алекс А   (2004-07-04 03:55) [3]

Удалено модератором
Примечание: Задай вопрос в своей ветке


 
KilkennyCat ©   (2004-07-04 04:02) [4]

Удалено модератором


 
Алекс А   (2004-07-04 04:50) [5]

Удалено модератором


 
@BraIN ©   (2004-07-04 04:58) [6]

> Есть в Дельфи компоненты с поддержкой этого
Это смотря какого формата.


 
KilkennyCat ©   (2004-07-04 05:02) [7]

Конечно, есть... TWebBrowser, например.
Вставить можно при помощи ExecWB с константами OLECMDID_PASTE, OLECMDID_PASTESPECIAL


 
Алекс А   (2004-07-04 06:00) [8]

Удалено модератором


 
KilkennyCat ©   (2004-07-04 06:44) [9]

Удалено модератором


 
Алекс А   (2004-07-04 07:09) [10]

Удалено модератором


 
KilkennyCat ©   (2004-07-04 07:39) [11]

Удалено модератором


 
KilkennyCat ©   (2004-07-04 08:07) [12]

Но а если захотите все же сами, вот вам справочная информация, которая потребуется:

Буфер обмена может иметь несколько форматов. В нашем случае, при копировании интернет-страницы используются следующие форматы:

HTML Format = $C089
Rich Text Format = $C051
Ole Private Data = $C013
CF_LOCALE (Win 95) = $0010
CF_OEMTEXT = $0007


Если необходимо прочитать, например, только таблицу с тесктом, достаточно обработать буфер с форматом $C089, получив при этом обыкновенный текст с тэгами... Вот только с кодировкой могут возникнуть проблемы.


 
KilkennyCat ©   (2004-07-04 08:10) [13]

Да, самое забавное при работе с буфером - Вы можете зарегестрировать свой собственный формат.


 
oleg_SYS   (2004-07-04 18:19) [14]

KilkennyCat, спасибо за справку, но у меня не работает:


procedure TForm1.Button1Click(Sender: TObject);
var
h: THandle;
p: PChar;
begin
   H := Clipboard.GetAsHandle($C089);
   P := GlobalLock(H);
   Memo1.SetTextBuf(P);
   GlobalUnlock(H);
end;


 
KilkennyCat ©   (2004-07-05 23:31) [15]

извините, моя вина, ошибся.
Верно так: $C084



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

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.036 c
4-1085394644
Kullibin
2004-05-24 14:30
2004.07.18
Очистка КЕША


1-1088939406
ida
2004-07-04 15:10
2004.07.18
Как заставить работать клавиатурные сокращения?


14-1088593444
Kerk
2004-06-30 15:04
2004.07.18
ENV{ PATH_INFO }


1-1089029409
Volk
2004-07-05 16:10
2004.07.18
TreeView


3-1087994111
Николай
2004-06-23 16:35
2004.07.18
Сохранение изменений