Delphi заготовки

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;
&n ... Читать дальше »