Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];

Вниз

Как из clipboarda достать html ссылку?   Найти похожие ветки 

← →
Serg455   (2002-09-18 23:59) [0]

Те если копируешь ярлык в клипбоард, то чтобы при нажатии допустим кнопки от отображался в edit1, (если является инетовской ссылкой)

---

← →
McSimm   (2002-09-19 14:19) [1]

Возможно, так:

uses Clipbrd, ShlObj;

procedure TForm1.Button1Click(Sender: TObject);
var
I, L: Integer;
S: String;
begin
for I := 0 to Clipboard.FormatCount - 1 do
begin
SetLength(S, Length(CFSTR_SHELLURL)+1);
L := GetClipboardFormatName(Clipboard.Formats[I], PChar(S), Length(CFSTR_SHELLURL)+1);
SetLength(S, L);
if S = CFSTR_SHELLURL then
begin
Edit1.Text := Clipboard.AsText;
Break
end
end
end;

---

← →
REA   (2002-09-19 14:42) [2]

А HasFormat не получится вызвать?

---

← →
McSimm   (2002-09-19 14:54) [3]

Насколько я понимаю - нет.

HasFormat применим к стандартным форматам (CF_BITMAP и т.п.)

Форматы, числовое значение которых лежит в диапазоне 0xC000-0xFFFF регистрируются приложениями функцией RegisterClipboardFormat. Их числовое значение заранее неизвестно.

---

← →
Serg455   (2002-09-20 02:24) [4]

Все работает, но только один раз.Операция выполняется при создании формы, а после того как форма закрывается и вновь запускается edit1 пустой:( и что бы не было в клипборде, edit
всегда будет пустым при появлении формы) Как исправить?

---

← →
McSimm   (2002-09-20 10:41) [5]

Скорее всего форма создается один раз.
А закрытие/открытие - это hide/show.

В зависимости от задачи можно пойти несколькими путями.
1. Вызывать процедуру всякий раз, когда это требуется;
(например при показе формы)
2. Встроиться в цепочку clipboard viewer и реагировать на изменения в клипбоард.

---

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

Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c