Немогу
Kirill KIrsanov © (2003-02-16 16:56:00)
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:00) [1]
LoadFromStream не изменяет Stream.Position, который после
IBTableImage.SaveToStream(Temp) указывает на конец потока.
Поставь Temp.Position := 0;
Наверх 
ЧАТ |
Орешник |
|
