Скачать: CL | DM;

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);

---

← →
Style ©   (2004-02-27 20:09) [15]

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

---

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

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

---

← →
Style ©   (2004-02-27 20:17) [17]

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

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

---

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

менял нераз

---

← →
Style ©   (2004-02-27 20:21) [19]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.018 c