Главная страница
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.017 c
1-2943
chuvak
2003-05-20 19:08
2003.06.02
Подскажите как в DLL засунуть форму а потом ее от туда вызывать??


14-3093
salvo
2003-05-14 05:50
2003.06.02
компилятор


14-3063
Taktik
2003-05-16 04:27
2003.06.02
EhLib а есть ли по нему русский мануал... ну или хелп


1-2935
_stealth_
2003-05-20 19:15
2003.06.02
несворачиваемое окно (не реагирующее на Win+D)


3-2748
novill
2003-05-13 10:40
2003.06.02
Как получить групповую сортировку в таблице?