Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.02 c