Текущий архив: 2004.02.25;
Скачать: CL | DM;
Вниз
TStream Найти похожие ветки
← →
ORMADA © (2004-02-09 11:51) [0]Пишу в поток jpg
var FileStream : TFileStream;
TJPEGImage(Image1.Picture.Graphic).SaveToStream(filestream);
потом хочу загрузить из него в Image ? Как это сделать ?
Пробовал так - ругается пишет Bitamap Image is not valid
TestImage.Picture.Bitmap.LoadFromStream(filestream);
Есть идеи как это сделать?
← →
Skier © (2004-02-09 11:55) [1]>ORMADA © (09.02.04 11:51)
А конвертировать перед сохранением из JPEG в BMP кто будет ?
← →
ORMADA © (2004-02-09 11:56) [2]как ?
← →
Digitman © (2004-02-09 12:04) [3]
> как ?
чего "как" ?
выгружал ты с пом-ю TJPEGImage в формате jpeg, значит и загружать то что ранее выгрузил следует в TJPEGImage, а не в TBitmap
← →
ORMADA © (2004-02-09 12:09) [4]пробовал так грузить
TImage(TestImage).Picture.Graphic.LoadFromStream(filestream);
не идёт пишет access violation......
← →
alex_*** © (2004-02-09 13:47) [5]TImage.Picture.Assign(jpeg);
← →
ORMADA © (2004-02-10 11:37) [6]var Jpeg: TJPEGImage;
Jpeg.LoadFromStream(filestream); здеся всё ок
TestImage.Picture.Graphic.Assign(jpeg);но тут ошибка вылетает типа виолатион
пробовал так TestImage.Picture.Assign(jpeg); не канает
Может стоит перести при загрузке из jpg>bitmap и потом рабоатть как с битмапом ?
Кто знает как это можно сделать ?
← →
alex_*** © (2004-02-10 11:42) [7]
FOTO: TMemoryStream;
..
..
try
if FOTO.Size>0 then
Begin
jpg := TJPEGImage.Create;
FOTO.Seek(0,soFromBeginning);
jpg.LoadFromStream(FOTO);
Image1.Picture.Assign(jpg);
end;
CurrentDataSet.Refresh;
CurrentDataSet.Locate("ID",PID_Employe,[]);
finally
jpg.Free();
jpg := nil;
end;
← →
ORMADA © (2004-02-10 11:56) [8]2 alex_*** Рулез СПАСИБО!
Страницы: 1 вся ветка
Текущий архив: 2004.02.25;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.026 c
