![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Image1 Каким образом загрузить картинку с сайта???
HITMAN © (2006-12-21 22:10:00)я пишу простейшее:
image1.Picture.LoadFromFile(' http://informer.gismeteo.ru/34240-10.GIF');
есть ли какой нибудь простой метод или как прописать данный адрес, чтобы загрузилось???
заранее благодарен!!!
Германн (2006-12-22 01:31:00) [1]
> HITMAN © (21.12.06 23:57) [9]
>
> С жосткого диска Image прогружает в себя GIF'ы, вот и уверенность.
> ..
>
Сказал бы лучше, что пользуешь RxLib.
HITMAN (2006-12-22 00:33:00) [2]Готовый пример для тех, кто в танке!!!
uses
gifimage
var
_MS: TMemoryStream;
begin
_MS := TMemoryStream.Create;
try
IdHTTP1.Get(' http://informer.gismeteo.ru/34240-10.GIF', _MS);
_MS.Position := 0;
Image1.Picture.Graphic := TGIFImage.Create;
Image1.Picture.Graphic.LoadFromStream(_MS);
finally
_MS.Free;
end;
HITMAN (2006-12-21 23:57:00) [3]С жосткого диска Image прогружает в себя GIF'ы, вот и уверенность...
ProgRAMmer Dimonych (2006-12-21 23:14:00) [4]По поводу некомпилирующегося LoadFromStream - у TPicture на самом деле нет такого метода, зато он есть у TImage.Picture.Bitmap. Ещё один вопрос: откуда уверенность, что TImage (VCL'ный) способен отображать GIF'ы?
HITMAN (2006-12-21 22:53:00) [5]Вроде всё есть, теперь немагу поместить картинку из памяти "мем" в Image1
Очень нужно ПЛЗ!!!
Плохиш (2006-12-21 22:40:00) [6]
> HITMAN © (21.12.06 22:30) [5]
Лучше б за пивом с фисташками бегала :-(
HITMAN (2006-12-21 22:30:00) [7]нает кто нить или не подскажет, очень надо, просто моя новая почтовая программа показывает погоду, интерфейсом так задуманно...
HITMAN (2006-12-21 22:21:00) [8]var
mem:TMemoryStream;
begin
...
Image.Picture.LoadFromStream(mem);
LoadFromStream - говорит, что нету такого
[Error] Unit1.pas(80): Undeclared identifier: 'LoadFromStream'
Использую D6
Palladin (2006-12-21 22:18:00) [9]почему бы и так не написать
image1.Picture.LoadFromFile('Россия, г. Ханты-Мансийск, ул. Чехова, рекламный щиток перед детским садиком');
Palladin (2006-12-21 22:15:00) [10]еще одна гениальность...
Dmitrij_K (2006-12-21 22:14:00) [11]
mem := TMemoryStream.Create;
IdHTTP.Get(' http://site/img.jpg', mem); // Indy TIdHTTP
mem.Position := 0;
Image.Picture.LoadFromStream(mem);
mem.Free;