Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.02;
Скачать: 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 вся ветка

Текущий архив: 2003.06.02;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
1-2947
alords
2003-05-20 12:09
2003.06.02
Как узнать завершение другой проги (DOS или Win)


6-3029
velsi
2003-04-02 12:38
2003.06.02
Как удалить разщаренный ресурс?


14-3095
Ciberrus
2003-05-14 09:31
2003.06.02
Где найти доку по ADO


3-2770
Cranium
2003-05-12 19:36
2003.06.02
FIBPLUS получение значения поля из DataSet


14-3127
sergey2
2003-05-14 17:40
2003.06.02
Кто знает УРЛ где можно скачать TEmbeddedWB?