Главная страница
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.02 c
14-3077
IronHawk
2003-05-12 11:55
2003.06.02
Пятая Киевская Встреча Мастаков в Реале - СОСТОЯЛАСЬ!!!


4-3209
Nimbus
2003-03-16 21:30
2003.06.02
Как вытащить содержимое ячейки StringGrid а ЧУЖОЙ программы


14-3170
PVOzerski
2003-05-15 11:07
2003.06.02
Как в W2K сделать NUMLOCK по умолчанию ON?


4-3218
Puke Zero
2003-04-05 13:12
2003.06.02
WindowClass


1-2997
_Alex_
2003-05-20 14:36
2003.06.02
d6 и диалог на основе TOpenPictureDialog