Delphi显示圆形头像circle image

测试环境及功能

Win7 64位操作系统
Delphi 10.2.3
Firemonkey
功能：Delphi显示圆形头像

主要代码

procedure TForm5.Button1Click(Sender: TObject);
var path : string;
begin
  {$IFDEF MSWINDOWS}
    path := ExpandFileName(GetCurrentDir) + '\bebe1.jpg';
  {$ELSE}
    path := TPath.GetDocumentsPath + PathDelim + 'bebe1.jpg';
  {$ENDIF}
  Circle1.Fill.Bitmap.Bitmap.LoadFromFile(path);
end;

procedure TForm5.Button2Click(Sender: TObject);
var
  idhttp : TIdHTTP;
  memStream: TMemoryStream;
begin
  try
    memStream := TMemoryStream.Create();
    idhttp    := TIdHTTP.Create();
    idhttp.Get('http://i.imgur.com/2peTq0G.jpg',memStream);
    Circle1.Fill.Bitmap.Bitmap.LoadFromStream(memStream);
  finally
    memStream.Free;
    idhttp.Free;
  end;
end;

procedure TForm5.Button1Click(Sender: TObject);

var path : string;

begin

{$IFDEF MSWINDOWS}

path := ExpandFileName(GetCurrentDir) + '\bebe1.jpg';

{$ELSE}

path := TPath.GetDocumentsPath + PathDelim + 'bebe1.jpg';

{$ENDIF}

Circle1.Fill.Bitmap.Bitmap.LoadFromFile(path);

end;

procedure TForm5.Button2Click(Sender: TObject);

var

idhttp : TIdHTTP;

memStream: TMemoryStream;

begin

try

memStream := TMemoryStream.Create();

idhttp := TIdHTTP.Create();

idhttp.Get('http://i.imgur.com/2peTq0G.jpg',memStream);

Circle1.Fill.Bitmap.Bitmap.LoadFromStream(memStream);

finally

memStream.Free;

idhttp.Free;

end;

Delphi显示圆形头像circle image

测试环境及功能

主要代码

相关下载

2018年唐山市高级职称申报人员公示

Delphi获取文件创建时间、文件最后修改时间

参与评论

快速导航

Delphi显示圆形头像circle image

测试环境及功能

主要代码

相关下载

分享本文封面

相关文章

参与评论

登录

快速导航