Скачать PNG картинку из интернета и отобразить ее на Image - 12 Мая 2012

Главная » 2012 » Май » 12 » Скачать PNG картинку из интернета и отобразить ее на Image

14:02 Скачать PNG картинку из интернета и отобразить ее на Image
uses pngimage; // for delphi 7 используем компонент http:TIdHTTP // Indy function DownloadFileToStream(http:TIdHTTP;Url:string):TMemoryStream; begin Result:=TMemoryStream.Create(); try http.Get(url,result); finally result.Seek(0,0); // обязательно вернуть курсор в начало записи end; end; // собственно сама процедура procedure TForm1.Button1Click(Sender: TObject); var AResponseCon: TmemoryStream; NewGraphic: TGraphic; url:string; Buffer:string; begin url:='http://netsoftware.ucoz.ru/bangladesh.png'; // скачиваем флаг Бангладежа NewGraphic := TPNGObject.Create; try NewGraphic.LoadFromStream(DownloadFileToStream(form1.IdHTTP1,url)); form1.Image1.Picture.Assign(NewGraphic); except NewGraphic.Free; raise; end; end; http://netsoftware.ucoz.ru/load/komponent_dlja_raboty_s_png_falom/1-1-0-6 компонент для работы с PNG в Delphi 7
1 2 3 4 5 Просмотров: 3436 \| Добавил: NetSoftWare \| Рейтинг: 5.0/1

Delphi заготовки