Hello all !!! Как извлечь JPEG картинку из TStream и

← →
Image (2004-02-27 19:09) [0]

(не сохраняя в файл) засунуть её в Image1 ???

← →
TButton © (2004-02-27 19:14) [1]

Image1.Picture.LoadFromStream(...)
и не забудь JPEG в uses прописать

← →
Image (2004-02-27 19:21) [2]

>>Image1.Picture."LoadFromStream(...)"
Такой процедуры нет !!!

← →
TButton © (2004-02-27 19:23) [3]

есть!
полюбому у кого нить она есть. идешь в хелп и ищешь у кого есть. потом через того у кого есть грузишь.

← →
Image (2004-02-27 19:27) [4]

Я пытался 4 дня и, как видишь, ничего не вышло, перепробовал все мне известные способы

← →
TButton © (2004-02-27 19:32) [5]

блин! ну я ж как-то это делал... или не делал... а! я кста задавал вопрос, как перекинуть картинку через сокетины, в ответе фигурировали стримы... надо это поискать в разделе сети...

← →
VMcL © (2004-02-27 19:36) [6]

TJPEGImage.LoadFromStream() + Image1.Picture.Bitmap.Assign(TJPEGImage)

← →
TButton © (2004-02-27 19:36) [7]

АГРХЫРБЫРДЫР!!!
TBitmap.LoadFromStream тебя чем не устраивает???

← →
TButton © (2004-02-27 19:37) [8]

эт я есси че 2 Image

← →
Image (2004-02-27 19:40) [9]

>>TJPEGImage.LoadFromStream() + Image1.Picture.Bitmap.Assign(TJPEGImage)
На этом он выдаёт ошибку #41 !!!

← →
Style © (2004-02-27 19:42) [10]

Чего ты у TButton спрашиваешь у него даже своей КАНВЫ нет :))
(шутка)

Можеть так пойдет? Написано под пивом :)

procedure TForm1.BitBtn1Click(Sender: TObject);
var
jpg: TJPEGImage;
stream: TMemoryStream;
begin
stream := TMemoryStream.Create;
try
Stream.LoadFromFile("c:\test.jpg");
jpg := TJPEGImage.Create;
try
jpg.LoadFromStream(Stream);
Image1.Canvas.Draw(0,0,jpg);
finally
jpg.Free;
end;

finally
stream.Free;
end;

end;

← →
TButton © (2004-02-27 19:46) [11]

ну да, канвы нет, поэтому в имаджах путаюсь, да в BitMap ДЖПЕГ загрузить не получится.

← →
Style © (2004-02-27 19:52) [12]

TButton © А зачем Bitmap?
И почему это не получится?
Можно черта лысого в ДЖПЕГ загрузить если очень захочется :)

← →
Image (2004-02-27 20:00) [13]

Всё равно выдаёт ошибку #41

← →
Image (2004-02-27 20:01) [14]

Вроде из за jpg.LoadFromStream(Stream);

Гон - попробуй создай новый проект??
Или поудаляй всякие project1.dcu и *.res файлы
Если не работает то скажи хоть что у тебя за версия Delphi?
Или что он пишет на против "ошибка 41#"
Если эта труба будет продолжаться, то сноси Delphi и ставь заного.

← →
Image (2004-02-27 20:13) [16]

Делфя шестая а ошибка такая: raised exception class EJPEG with message "JPEG error #41"

>>Deлфя шестая а ошибка такая: raised exception class EJPEG with
>>Message "JPEG error #41"

Слушай эта ошибка при компиляции появляется или во время работы программы???
Ты JPEG файл не пробовал менять??

← →
Image (2004-02-27 20:18) [18]

менял нераз

Глюк какой-то попробуй Delphi переустанови.

← →
Image (2004-02-27 20:22) [20]

Ладно попробую спасибо !!!

Hello all !!! Как извлечь JPEG картинку из TStream и Найти похожие ветки