C++ Builder Web Image To TImage control

Question

Кто-нибудь, пожалуйста, помогите мне, как использовать этот код в C++ Builder? Я хочу получить изображение из Интернета в TImage Control.

uses 
    GIFImg; 

procedure TForm1.btn1Click(Sender: TObject); 
var 
    MS : TMemoryStream; 
    GIf: TGIFImage; 
begin 
    MS := TMemoryStream.Create; 
    GIf := TGIFImage.Create; 
    try 
    IdHTTP1.get('http://www.google.com/intl/en_ALL/images/logo.gif',MS); 
    Ms.Seek(0,soFromBeginning);  
    Gif.LoadFromStream(MS); 
    img1.Picture.Assign(GIF); 

    finally 
    FreeAndNil(GIF); 
    FreeAndNil(MS); 
    end; 
end; 

Answer 1

#include <GIFImg.hpp> 

void __fastcall TForm1::btn1Click(TObject *Sender) 
{ 
    TMemoryStream *MS = new TMemoryStream; 
    TGIFImage *GIf = new TGIFImage; 
    try 
    { 
     IdHTTP1->Get("http://www.google.com/intl/en_ALL/images/logo.gif", MS); 
     MS->Seek(0, soFromBeginning);  
     Gif->LoadFromStream(MS); 
     img1->Picture->Assign(Gif); 
    } 
    __finally 
    { 
     FreeAndNil(GIF); 
     FreeAndNil(MS); 
    } 
}