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

Image1 Каким образом загрузить картинку с сайта???   Найти похожие ветки 

← →
HITMAN ©   (2006-12-21 22:10) [0]

я пишу простейшее:
image1.Picture.LoadFromFile("http://informer.gismeteo.ru/34240-10.GIF");
есть ли какой нибудь простой метод или как прописать данный адрес, чтобы загрузилось???
заранее благодарен!!!

---

← →
Dmitrij_K   (2006-12-21 22:14) [1]


mem := TMemoryStream.Create;
IdHTTP.Get("http://site/img.jpg", mem); // Indy TIdHTTP
mem.Position := 0;
Image.Picture.LoadFromStream(mem);
mem.Free;


---

← →
Palladin ©   (2006-12-21 22:15) [2]

еще одна гениальность...

---

← →
Palladin ©   (2006-12-21 22:18) [3]

почему бы и так не написать
image1.Picture.LoadFromFile("Россия, г. Ханты-Мансийск, ул. Чехова, рекламный щиток перед детским садиком");

---

← →
HITMAN ©   (2006-12-21 22:21) [4]

var
mem:TMemoryStream;

begin
...
Image.Picture.LoadFromStream(mem);

LoadFromStream -  говорит, что нету такого
[Error] Unit1.pas(80): Undeclared identifier: "LoadFromStream"

Использую D6

---

← →
HITMAN ©   (2006-12-21 22:30) [5]

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

---

← →
Плохиш ©   (2006-12-21 22:40) [6]

> HITMAN ©   (21.12.06 22:30) [5]

Лучше б за пивом с фисташками бегала :-(

---

← →
HITMAN ©   (2006-12-21 22:53) [7]

Вроде всё есть, теперь немагу поместить картинку из памяти "мем" в Image1
Очень нужно ПЛЗ!!!

---

← →
ProgRAMmer Dimonych ©   (2006-12-21 23:14) [8]

По поводу некомпилирующегося LoadFromStream - у TPicture на самом деле нет такого метода, зато он есть у TImage.Picture.Bitmap. Ещё один вопрос: откуда уверенность, что TImage (VCL"ный) способен отображать GIF"ы?

---

← →
HITMAN ©   (2006-12-21 23:57) [9]

С жосткого диска Image прогружает в себя GIF"ы, вот и уверенность...

---

← →
HITMAN ©   (2006-12-22 00:33) [10]

Готовый пример для тех, кто в танке!!!

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;

---

← →
Германн ©   (2006-12-22 01:31) [11]

> HITMAN ©   (21.12.06 23:57) [9]
>
> С жосткого диска Image прогружает в себя GIF"ы, вот и уверенность.
> ..
>

Сказал бы лучше, что пользуешь RxLib.

---

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

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



Память: 0.47 MB
Время: 0.03 c