18

iOS 用の FMX フォームに TImage を配置し、URL からこの TImage にイメージ (jpg) をロードして、iOS アプリに表示することはできますか?

私は成功しませんでした。正しい方向へのヒントやポイントをいただければ幸いです。

4

2 に答える 2

2

TButton、TImageControl、および TIdHttp を Firemonkey フォームにドロップすると、次のコードが Web から画像を取得します。

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;
于 2012-11-16T14:01:46.593 に答える