Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Clipboard

Алексей Петухов © (2004-10-22 16:07:00)
Здравствуйте, уважаемые мастера.
Не подскажете, как программно осуществить Копирование в Clipboard текста из MS Word и вставку в из Clipboard в компонент TImage?
На подобие вставки в Paint.

VMcL (2004-10-27 07:23:00) [1]
>> Алексей Петухов (26.10.04 16:23) [16]

> А что за Clipboard Viewer ?

clipbrd.exe

Алексей Петухов (2004-10-26 16:23:00) [2]
To alena.svt
Супер! Спасибо огромное.

To VMcL
А что за Clipboard Viewer?

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

alena.svt (2004-10-25 21:36:00) [3]
VMcL © (25.10.04 21:25) [13]
Не обновляла страницу поэтому не видела сорри

alena.svt (2004-10-25 21:35:00) [4]
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;
Так ошибки не будет если нет этого формата
И буфер обмена закроется что не поведет за собой плохие последствия

VMcL (2004-10-25 21:25:00) [5]
>> alena.svt (25.10.04 20:22) [12]

try/finally

alena.svt (2004-10-25 20:22:00) [6]
uses Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
begin
ClipBoard.Open;
Image1.Picture.LoadFromClipboardFormat(CF_METAFILEPICT, Clipboard.GetAsHandle(CF_METAFILEPICT), 0);
Clipboard.Close;
end;

VMcL (2004-10-25 18:18:00) [7]
>> Алексей Петухов (25.10.04 17:22) [9]

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

Amoeba (2004-10-25 18:06:00) [8]
В твоей программе надо взять текст из Clipboard в его формате в StringList, а затем отрисовать его на Canvas TImage.Picture.Bitmaр

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

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

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

VMcL (2004-10-25 10:24:00) [10]
>> Алексей Петухов (25.10.04 09:18) [7]

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

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

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

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

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

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

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

VMcL (2004-10-23 20:30:00) [12]
Неужели так трудно набрать LoadFromClipboardFormat, нажать F1, выбрать TBitmap.LoadFromClipboardFormat, а потом нажать ссылку Example?

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

Алексей Петухов (2004-10-23 09:22:00) [13]
Вы меня извините, дело не в том что мне лень самому разбираться, только что-то не как не дойдет до меня как этой функциейй пользоваться "и чего только я с ней не пробовал... " (с) :-). Я вас не прошу решать мои проблемы, надеюсь, если кто знает подскажет примерчиком конкретным.
Заранее благодарен.

TUser (2004-10-22 20:19:00) [14]

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

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

Алексей Петухов (2004-10-22 20:15:00) [15]
Помогите конкретным примерчиком, пожалуйста.

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

> TImage.Picture.LoadFromClipboardFormat()

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

VMcL (2004-10-22 18:10:00) [17]
>> Копирование в Clipboard текста из MS Word

Selection.Copy

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »