Главная страница
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.044 c
1-1089078010
iffi
2004-07-06 05:40
2004.07.18
RichEdit


3-1088065611
Ugrael
2004-06-24 12:26
2004.07.18
Ускорить запуск


1-1088751504
Vitalik
2004-07-02 10:58
2004.07.18
Сохранение свойств компонента в файл


3-1088338732
AlTav
2004-06-27 16:18
2004.07.18
Delphi 7 & API Interbase 7.1


14-1088157996
MetalFan
2004-06-25 14:06
2004.07.18
или форум глючит...