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;
来源：https://www.amingstudio.com/delphi/551.html
 

相关阅读 >>

Delphi如何计算一个文件目录的大小

Delphi sql语句查询最新的各个台位的最后一个检测值

Delphi 获取网卡mac代码可用2020.01.22

Delphi get_hd_serial() 获得磁盘驱动器序列号

Delphi 写log的代码(按日期)

Delphi 如何获得其他进程的token

Delphi idhttp1下载文件防止假死

Delphi delete 删除字符串中指定的字符串

Delphi webbrowser 跨域访问

Delphi 获取windows任务栏的高度

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi显示圆形头像circle image