FireMonkey iOS RAD Studio XE2 - URLからロードされたフォームに画像を表示

Question

iOSのFMXフォームにTImageを配置し、URLからこのTImageに画像（jpg）をロードしてiOSアプリケーションに表示できますか？

私は成功しなかった。正しい方向のヒントやポイントは高く評価されます。

Answer 1

ドロップTButtonは、TImageControlとTIdHttp FireMonkeyのフォームにこのコードは、ウェブから画像をプルダウンします：

procedure TForm1.btnReadWebImgClick(Sender: TObject); 
begin 
    ReadWebImage('http://www.gravatar.com/avatar/5af5f8c5f88c6c237745e9472a31410f?s=32&d=identicon&r=PG'); 
end; 
procedure TForm1.ReadWebImage(imgAddress: string); 
var 
    memStream: TMemoryStream; 
begin 
    memStream := TMemoryStream.Create; 
    try 
    idhttp1.Get (imgAddress,memStream); 
    except 
    ShowMessage('Image not found at:'+imgAddress); 
    memStream.Free; 
    exit; 
    end; 
    try 
    memStream.Position := 0; 
    ImageControl1.Bitmap.LoadFromStream(memStream); 
    finally 
    memStream.Free; 
    end; 
end; 

Answer 2

答えが少し凍結で動作します。 ループ内に4つの画像を読み込みます。 ボタンを押すと、プログラムがフリーズして画像がダウンロードされ、プログレスバーが機能しなくなり、ダウンロードが完全に続行されます。 4枚の画像が1秒間フリーズします。 50の場合、それは "no connection"または "Bad Program"です。 これはコードです。

procedure TForm1.SpeedButton1Click(Sender: TObject); 
var 
    i: Integer; 
    Stream: TMemoryStream; 
    imgAddress: string; 
begin 
    ProgressBar1.Min := 0; 
    ProgressBar1.Max := Table1.RecordCount; 

    for i := 1 to Table1.RecordCount do 
    begin 
    ProgressBar1.Value := i; 

    imgAddress := VirtualTable1.FieldByName('flyer').AsString; 
    Stream := TMemoryStream.Create; 
    idhttp1.Get (imgAddress,Stream); 

    try 
     Stream.Position := 0; 
     Table1.Edit; 
     TBlobField(Table1.FieldByName('image')).LoadFromStream(Stream); 
     Table1.Post; 
    finally 
     Stream.Free; 
    end; 
    Table1.Next; 
    end; 
    Table1.First; 
end;