Clipboard

← →
Алексей Петухов (2004-10-22 16:07) [0]

Здравствуйте, уважаемые мастера.
Не подскажете, как программно осуществить Копирование в Clipboard текста из MS Word и вставку в из Clipboard в компонент TImage?
На подобие вставки в Paint.

← →
VMcL © (2004-10-22 18:10) [1]

>>Копирование в Clipboard текста из MS Word

Selection.Copy

>вставку в из Clipboard в компонент TImage

TImage.Picture.LoadFromClipboardFormat()
TImage.Picture.SaveToClipboardFormat()

← →
Алексей Петухов (2004-10-22 19:56) [2]

> TImage.Picture.LoadFromClipboardFormat()

У меня не получается это использовать.
Подскажите, параметры этой функции.

← →
Алексей Петухов (2004-10-22 20:15) [3]

Помогите конкретным примерчиком, пожалуйста.

← →
TUser © (2004-10-22 20:19) [4]

> Помогите конкретным примерчиком, пожалуйста.

А в хелпе примеров нет?

← →
Алексей Петухов (2004-10-23 09:22) [5]

Вы меня извините, дело не в том что мне лень самому разбираться, только что-то не как не дойдет до меня как этой функциейй пользоваться "и чего только я с ней не пробовал... " (с) :-). Я вас не прошу решать мои проблемы, надеюсь, если кто знает подскажет примерчиком конкретным.
Заранее благодарен.

← →
VMcL © (2004-10-23 20:30) [6]

Неужели так трудно набрать LoadFromClipboardFormat, нажать F1, выбрать TBitmap.LoadFromClipboardFormat, а потом нажать ссылку Example?

Image1.Picture.LoadFromClipboardFormat(CF_BITMAP, Clipboard.GetAsHandle(CF_BITMAP), 0);

← →
Алексей Петухов (2004-10-25 09:18) [7]

> Image1.Picture.LoadFromClipboardFormat(CF_BITMAP, Clipboard.GetAsHandle(CF_BITMAP),
> 0);

Спасибо, конечно, но, извините, это сделать я догадался и сам.
unsupported clipboard format
Если картинка в буфере, то вроде работает, но мне нужно текст Word документа отобразить как картинку. (см. Вопрос).
Вот здесь у меня затруднения возникают.

← →
VMcL © (2004-10-25 10:24) [8]

>>Алексей Петухов (25.10.04 09:18) [7]

>Спасибо, конечно, но, извините, это сделать я догадался и сам.

Откуда из предыдущих твоих сообщений это видно?

>но мне нужно текст Word документа отобразить как картинку

Для того, чтобы "текст Word" вставить как картинку, его нужно сначала скопировать как картинку, например, с помощью клавиши PrintScreen.

← →
Алексей Петухов (2004-10-25 17:22) [9]

> Для того, чтобы "текст Word" вставить как картинку, его
> нужно сначала скопировать как картинку, например, с помощью
> клавиши PrintScreen.

Если в открытом документе Word нажать "выделить все" затем нажать "копировать", потом открыть Paint и нажать там "вставить", то в Paint вставиться выделенный текст как картинка. Вот меня интерисует как это можно сделать? (без PrintScreen)

← →
Amoeba © (2004-10-25 18:06) [10]

В твоей программе надо взять текст из Clipboard в его формате в StringList, а затем отрисовать его на Canvas TImage.Picture.Bitmaр

← →
VMcL © (2004-10-25 18:18) [11]

>>Алексей Петухов (25.10.04 17:22) [9]

Судя по списку форматов, которые Word запихивает в Clipboard, можно попробовать Enhanced Metafile (CF_ENHMETAFILE). Если не получится, попробуй другие форматы - подробнее смотри в Clipboard Viewer после копирования фрагмента из Word.

← →
alena.svt (2004-10-25 20:22) [12]

uses Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
begin
ClipBoard.Open;
Image1.Picture.LoadFromClipboardFormat(CF_METAFILEPICT, Clipboard.GetAsHandle(CF_METAFILEPICT), 0);
Clipboard.Close;
end;

>>alena.svt (25.10.04 20:22) [12]

try/finally

procedure TForm1.Button1Click(Sender: TObject);
var
MyHandle: THandle;
begin
ClipBoard.Open;
try
MyHandle:= Clipboard.GetAsHandle(CF_METAFILEPICT);
if MyHandle <> 0 then
Image1.Picture.LoadFromClipboardFormat(CF_METAFILEPICT, MyHandle, 0);
finally
Clipboard.Close;
end;
end;
Так ошибки не будет если нет этого формата
И буфер обмена закроется что не поведет за собой плохие последствия

← →
Алексей Петухов (2004-10-26 16:23) [16]

To alena.svt
Супер! Спасибо огромное.

To VMcL
А что за Clipboard Viewer ?

ВСЕМ огромное спасибо за поддежку.

>>Алексей Петухов (26.10.04 16:23) [16]

>А что за Clipboard Viewer ?

clipbrd.exe

Clipboard Найти похожие ветки