VPF::Dicom VCL 3.8 - получние Bitmap - Форум программистов

Tsukasa

Дата 26.11.2009, 02:51 (ссылка)

(нет голосов)

Загрузка ...

скучающий мозгоблуд

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 3.2.2009

Репутация: нет
Всего: нет

Требуется помощь знающих людей.

на текущий момент пишу демо проект с использование DicomVCL для построения пред просмотра изображений в ListView требуется получить TBitmap.
Bitmap у dicom взять не получается т.к. он изменён, но имеется возможность сохранить в TStream
и это единственная на текущий момент мысль.
о5 же при попытке сохранить в TStream поучаю по башке граблями, ес точнее Abstract Error

вот примерный используемый код

Код


var
  i,j,x: integer;
  img: TDicomView;
  BMP: TBitmap;
  stream: TStream;
begin
  img:= TDicomView.Create(nil);
  img.DicomDatasets:= TDicomDatasets.Create(nil);
  img.DicomDatasets.Clear;
  bmp:= TBitmap.Create;
  stream:= TStream.Create;
//---------------------------------
    img.DicomDatasets.LoadFromFile(main.masListPrv.data[j].elem[i].patch,false);
    img.AttributesIndex:=img.DicomDatasets.Count-1;

    img.Bitmap.SaveToStream(stream); // error
    bmp.LoadFromStream(stream);

    main.imgLargePrv.Add(bmp, nil);
    main.masListPrv.data[j].elem[i].img:= main.imgLargePrv.Count-1;

  img.DicomDatasets.Free;
  img.Free;

также имеется обработка исключений и т.д. но сюда выложил только касающийся дела код.
с типом TStream работаю впервые к сожалению поэтому могу неправильно написать и т.д.
так-же вероятно я вообще не в ту сторону смотрю.
Просьба помочь, кодом или советом. smile

Alexeis

Дата 26.11.2009, 10:10 (ссылка)

(голосов:1)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

TStream это абстрактный класс предок всех потоков. Если нужно загнать в память, то следует использовать TMemoryStream, если в файл TFileStream.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »