Упаковка изображения, хранимого в TBitmap, в OleVariant для передачи по COM-DCOMDelphi , Технологии , COM и DCOMУпаковка изображения, хранимого в TBitmap, в OleVariant для передачи по COM-DCOM
Автор: Бармалей { **** UBPFD *********** by delphibase.endimus.com **** >> Упаковка изображения, хранимого в TBitmap, в OleVariant для передачи по COM/DCOM Зависимости: Classes Автор: Бармалей, barma@amazonit.ru Copyright: (с) Муханов Игорь Станиславович, г.Москва, 2002 г. Дата: 29 апреля 2002 г. ***************************************************** } function SaveBitmapToVariant(Bitmap: TBitmap): OleVariant; // Сохранение изображения из TBitmap в OleVariant var Stream: TMemoryStream; Buffer: OleVariant; PBuffer: pointer; begin Result := varEmpty; Stream := TMemoryStream.Create; Bitmap.SaveToStream(Stream); Buffer := VarArrayCreate([0, Stream.Size - 1], VarByte); PBuffer := VarArrayLock(Buffer); try Stream.Position := 0; Stream.Read(PBuffer^, Stream.Size); finally VarArrayUnlock(Buffer); Stream.Free; end; Result := Buffer; end; Статья Упаковка изображения, хранимого в TBitmap, в OleVariant для передачи по COM-DCOM раздела Технологии COM и DCOM может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: COM и DCOM ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |