Форум: "Основная";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.012 c
