Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как сохранить картинку в буфер, а потом ее от туда считать?


CrossOut ©   (2004-08-21 21:50:00) 

Как сохранить картинку в буфер, а потом ее от туда считать?


8ung   (2004-08-21 22:20:00) [1]

читай да переводи


8ung   (2004-08-21 22:18:00) [2]

В хелпе написано еще
Allocates a global handle and writes the picture in its native Clipboard format (CF_BITMAP for bitmaps, CF_METAFILE for metafiles, and so on).

Delphi syntax:

procedure SaveToClipboardFormat(var AFormat: Word; var AData: THandle; var APalette: HPALETTE);

C++ syntax:

void __fastcall SaveToClipboardFormat(Word &AFormat, int &AData, HPALETTE &APalette);

Description

Use SaveToClipboardFormat to copy the picture to a Clipboard format. The resulting values can then be copied to the Windows clipboard using the clipboard’s SetAsHandle method.

The picture’s palette is returned in the APalette parameter, the format in the AFormat parameter, and a handle to the data in the AData parameter. Before the picture can be saved, an application must have registered the format using the RegisterClipboardFormat method.


CrossOut   (2004-08-21 21:52:00) [3]

В Help'e приводится пример:

procedure TForm1.Button1Click(Sender: TObject);

var
 MyFormat : Word;
 Bitmap : TBitMap;
 AData,APalette : THandle;
begin
 Bitmap := TBitmap.Create;
 try
   Bitmap.LoadFromFile('c:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
   Bitmap.SaveToClipBoardFormat(MyFormat,AData,APalette);
   ClipBoard.SetAsHandle(MyFormat,AData);
 finally
   Bitmap.Free;
 end;
end;

За что отвечают переменные MyFormat,AData,APalette?


Наверх

Титульная страница Поиск, карта сайта Написать письмо