Форум: "Начинающим";
Текущий архив: 2006.09.10;
Скачать: [xml.tar.bz2];
ВнизTImage +загрузка из массива Найти похожие ветки
← →
444 (2006-08-16 13:53) [0]Как в TImage загрузить изображение из массива: "array of byte"?
Ничего не придумал, даже ничего похожего на LoadFromStream в TImage не нашел.
← →
Джо © (2006-08-16 13:55) [1]> даже ничего похожего на LoadFromStream в TImage не нашел.
TImage.Picture.Graphic.LoadFromStream();
← →
444 (2006-08-16 14:32) [2]Да, спасибо, но я не очень продвинулся, как-же всё же запихать в TImage jpg картинку из "массива байт".
← →
Джо © (2006-08-16 14:46) [3]
type
TByteArray = array of Byte;
procedure TForm1.Button1Click(Sender: TObject);
var
Bytes: TByteArray;
MemStream: TMemoryStream;
Jpg: TJPEGImage;
begin
// В Bytes пусть хранится "массив байтов".
MemStream := TMemoryStream.Create;
try
MemStream.Write(Bytes[0],Length(Bytes));
MemStream.Position := 0;
Jpg := TJPEGImage.Create;
try
Jpg.LoadFromStream(MemStream);
Image1.Picture.Assign(Jpg);
finally
Jpg.Free;
end;
finally
MemStream.Free;
end;
end;
← →
Palladin © (2006-08-17 11:10) [4]Можно и MemStream.SetPointer
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.10;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.054 c