Приветствую Вас Гость | RSS

Delphi заготовки

Вторник, 26.11.2024, 23:37
Главная » 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
Просмотров: 3493 | Добавил: NetSoftWare | Рейтинг: 5.0/1
Всего комментариев: 0
Имя *:
Email *:
Код *: