LoadFromStream для ТImage.Picture

← →
Elic (2003-10-29 07:20) [0]

Как заставить ТImage.Picture принимать MemoryStream
Т.е. нет у него свойства LoadFromStream,а надо.

← →
Elic (2003-10-29 08:02) [1]

Или может кто встречал какой нить компонент который отображает несколько основных форматов картинок BMP,JPg, GIF, PCX?

← →
ЮЮ (2003-10-29 08:37) [2]

В этих форматах картинки хранятся в файлах, а отображается все в BitMap-ах

TZipStreamer - мой собственный класс, Stream - как раз MemoryStream. Чтобы уметь загрузить "картинку" надо знать в каком формате она лежит. В моём случае анализируется расширение файла FileName

procedure TZipStreamer.LoadPicture(Target: TPersistent; FileName: TFileName);
var
ext: string;
pic: TGraphic;
begin
ext := AnsiUpperCase(ExtractFileExt(FileName));
LoadToStream(FileName);
if ext = ".GIF" then
pic := TGIFImage.Create
else if (ext = ".JPG") or (ext = ".JPEG") then
pic := TJPEGImage.Create
else if (ext = ".WMF") then
pic := TMetafile.Create
else if (ext = ".ICO") then
pic := TIcon.Create
else
pic := TBitmap.Create;
try
pic.LoadFromStream(Stream);
Target.Assign(pic);
finally
pic.Free;
end;
end;

← →
Amoeba (2003-10-29 15:05) [3]

Воспользуйся бесплатной с исходниками библиотекой GraphicEx (поддерживает массу форматов)
http://www.delphi-gems.com/Graphics.php
Просто добавляешь в Uses graphicex и после этого можешь загружать в обычнный TImage свой файл, как это делается с *.bmp

LoadFromStream для ТImage.Picture Найти похожие ветки