Вопрос по TImage

[aharem08]

люди добрые подскажите, как можно в TImage загрузить картинку с сайта допустим http://blabla.ru/123.png (PNG).

[denisbrain]

Сообщение от aharem08

люди добрые подскажите, как можно в TImage загрузить картинку с сайта допустим http://blabla.ru/123.png (PNG).

что бы просто научить delphi открывать png файлы

[denisbrain]

uses pngimage;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var AResponseCon: TmemoryStream;
  NewGraphic: TGraphic;
  url:string;
begin
  url:='http://netsoftware.ucoz.ru/31.08.png';
AResponseCon:=TmemoryStream.Create;
form1.IdHTTP1.Get(url,AResponseCon);
//AResponseCon.LoadFromFile('c:\31.08.png');
 NewGraphic := pngimage.TPNGObject.Create;
  try
    NewGraphic.LoadFromStream(AResponseCon);
    form1.Image1.Picture.Assign(NewGraphic);
  except
    NewGraphic.Free;
    raise;
  end;

  AResponseCon.Free;
end;

[aharem08]

[aharem08]

Сообщение от denisbrain

uses pngimage;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var AResponseCon: TmemoryStream;
  NewGraphic: TGraphic;
  url:string;
begin
  url:='http://netsoftware.ucoz.ru/31.08.png';
AResponseCon:=TmemoryStream.Create;
form1.IdHTTP1.Get(url,AResponseCon);
//AResponseCon.LoadFromFile('c:\31.08.png');
 NewGraphic := pngimage.TPNGObject.Create;
  try
    NewGraphic.LoadFromStream(AResponseCon);
    form1.Image1.Picture.Assign(NewGraphic);
  except
    NewGraphic.Free;
    raise;
  end;

  AResponseCon.Free;
end;

Ошибку пишет - вот скрин http://www.imagepost.ru/images/r/is/risunok_22.JPG

[denisbrain]

Сообщение от aharem08

Ошибку пишет - вот скрин http://www.imagepost.ru/images/r/is/risunok_22.JPG

http://netsoftware.ucoz.ru/news/skac.../2012-05-12-61

подправил

скачиваем файл с интернета с помощью  TIdHTTP и запихиваем его в TMemoryStream

function  DownloadFileToStream(http:TIdHTTP;Url:string):TMemoryStream;
begin
  Result:=TMemoryStream.Create();
  try
    http.Get(url,result);
  finally
  result.Seek(0,0); // обязательно вернуть курсор в начало записи т.к. 
// procedure TPngObject.LoadFromStream(Stream: TStream);
// не делает этого 
//   Stream.Read(Header[0], 8);
//

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;