Недавно добавленные исходники

•  TDictionary Custom Sort  3 107

•  Fast Watermark Sources  2 892

•  3D Designer  4 637

•  Sik Screen Capture  3 176

•  Patch Maker  3 393

•  Айболит (remote control)  3 465

•  ListBox Drag & Drop  2 833

•  Доска для игры Реверси  78 953

•  Графические эффекты  3 730

•  Рисование по маске  3 099

•  Перетаскивание изображений  2 473

•  Canvas Drawing  2 589

•  Рисование Луны  2 428

•  Поворот изображения  2 027

•  Рисование стержней  2 062

•  Paint on Shape  1 478

•  Генератор кроссвордов  2 114

•  Головоломка Paletto  1 687

•  Теорема Монжа об окружностях  2 116

•  Пазл Numbrix  1 607

•  Заборы и коммивояжеры  1 902

•  Игра HIP  1 242

•  Игра Go (Го)  1 181

•  Симулятор лифта  1 385

•  Программа укладки плитки  1 137

•  Генератор лабиринта  1 465

•  Проверка числового ввода  1 253

•  HEX View  1 415

•  Физический маятник  1 282

•  Задача коммивояжера  1 318

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Распаковка изображения из 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;




Похожие по теме исходники

Изменение цвета изображения

TGIFImage (GIF изображения)

Поворот изображения

Нейросеть для распознавания образов

 

Механизм станка качалки для нефти

Весы для взвешивания

Кувшины для воды

Доска для игры Реверси

 

Расчет зубчатой передачи

DBLookupComboBox in StringGrid

e-Bay Commerce

Fractal Compression

 

Easy Compress Jpg

Component TClock

Component ZSImage

Compare Algo Circles

 

SMTP Component

fwIoCompletionPipe

TThreadComponent




Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте