Распаковка изображения из OleVariant в TBitmap, для передачи по COM-DCOMDelphi , Технологии , COM и DCOMРаспаковка изображения из OleVariant в TBitmap, для передачи по COM-DCOM
Автор: Бармалей { **** UBPFD *********** by delphibase.endimus.com **** >> Распаковка изображения из OleVariant в TBitmap, для передачи по COM/DCOM Зависимости: Classes Автор: Бармалей, barma@amazonit.ru Copyright: (с) Муханов Игорь Станиславович, г.Москва, 2002 г. Дата: 29 апреля 2002 г. ***************************************************** } procedure LoadBitmapFromVariant(Bitmap: TBitmap; Buffer: OleVariant); // Загрузка изображения в TBitmap из OleVariant var Stream: TMemoryStream; PBuffer: pointer; begin if not VarIsArray(Buffer) then Exit; Stream := TMemoryStream.Create; PBuffer := VarArrayLock(Buffer); try Stream.Write(PBuffer^, (VarArrayHighBound(Buffer, 1) - VarArrayLowBound(Buffer, 1) + 1)); finally VarArrayUnlock(Buffer); end; Stream.Position := 0; Bitmap.LoadFromStream(Stream); Stream.Free; end; Статья Распаковка изображения из OleVariant в TBitmap, для передачи по COM-DCOM раздела Технологии COM и DCOM может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: COM и DCOM ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |