![]() |
|
#2
|
||||
|
||||
![]() Можно так:
Код:
procedure DownloadImage(URL: String); var Img: TFileStream; begin Img:=TFileStream.Create('Img.jpg', fmCreate); try IdHTTP1.Get(URL, Img); except end; Img.Free; Image1.Picture.LoadFromFile('Img.jpg'); DeleteFile('Img.jpg'); end; На форме должен быть компонент IdHTTP. Это конечно не MemoryStream, но пойдет. =) Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. Последний раз редактировалось The Shadow, 12.09.2007 в 11:43. |