Скачать: CL | DM;

Немогу   Найти похожие ветки 

← →
Kirill KIrsanov   (2003-02-16 16:56) [0]


procedure TForm1.Button2Click(Sender: TObject);
Var
Jpg : TJpegImage;
BMP : TBitMap;
Temp : TMemoryStream;
begin
Jpg := TJpegImage.Create;
Temp := TmemoryStream.Create;
BMP := TBitMap.Create;

IBTableImage.SaveToStream(Temp);//<Берем jpg-BLOB из БД

Jpg.LoadFromStream(Temp);
Jpg.SaveToFile("z.jpg"); //Тут сохранятеся ПУСТОЙ Файл

TEMP.SaveToFile("a.jpg"); // А тут Нормальный!!!
Jpg.LoadFromFile("a.jpg");
Jpg.SaveToFile("b.jpg"); // И тут Нормальный!!

Temp.Destroy;
Bmp.Destroy;
Jpg.Destroy;
end;


Как с этим бороться? Т.к. использовать Буферный файл нет никакого желания...

---

← →
ЮЮ ©   (2003-02-17 08:54) [1]

LoadFromStream не изменяет Stream.Position, который после IBTableImage.SaveToStream(Temp) указывает на конец потока.

Поставь Temp.Position := 0;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: -0.987 c