Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.25;
Скачать: CL | DM;

Вниз

Загрузка картинки в Image из интернета   Найти похожие ветки 

 
niil   (2007-02-08 16:34) [0]

Чего-то не выходит. Image1 не загружает
var
ImgStream: TMemoryStream;
begin
idHttp1.Head(Edit1.Text);
ImgStream := TMemoryStream.Create;
idHttp1.Get(Edit1.Text, ImgStream);
Image1.Picture.Bitmap.LoadFromStream(ImgStream);
end;


 
niil   (2007-02-08 16:35) [1]

В ImgStream загружается нормально.


 
Johnmen ©   (2007-02-08 16:43) [2]


> Чего-то не выходит.

Чего чего-то? И с чего ты это взял?


 
niil   (2007-02-08 16:45) [3]

После загрузки картинки в поток ImgStream, надо ее вывести на Image1
Image1.Picture.Bitmap.LoadFromStream(ImgStream);
Картинка не отображается на Image1. Как быть?


 
Johnmen ©   (2007-02-08 16:50) [4]

1. А ты уверен, что в стриме картинка в формате бмп?
2. После Get"а поставь ImgStream.Position:=0;


 
niil   (2007-02-08 16:52) [5]

Нет в Image картинка JPG, но Image1.Picture нет процедуры загрузки из Stream. Как быть?


 
Johnmen ©   (2007-02-08 17:17) [6]

Ищи сам, тема избитая.
Больше не буду кодом подсказывать, это последний раз.
var
 jpg: TJPEGImage;
...
jpg :=TJPEGImage.Create;
jpg.LoadFromStream(ImgStream);
Image1.Picture.Bitmap.Assign(jpg);
jpg.Free;
...



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

Текущий архив: 2007.02.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.043 c
2-1170416975
Елена
2007-02-02 14:49
2007.02.25
Application.Terminate


2-1170741914
fisherman
2007-02-06 09:05
2007.02.25
ODBC


15-1170357529
Nic
2007-02-01 22:18
2007.02.25
Поднял старый семейный магнитафон


15-1170135796
DeadMeat
2007-01-30 08:43
2007.02.25
Пиратов наказали


2-1170894457
Евгенич
2007-02-08 03:27
2007.02.25
Как передать имя файла теста программе тестирования?