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 idhttp 设置cookie 和访问后读取cookie 值

Delphi 从其它access数据导入数据到本地数据库

elphi中取出字符串中指定位置的几个字符

Delphi cxgrid中回车键光标移到下列

Delphi 实现程序开机自动启动

Delphi 生成可以控制最大32位随机英文数字字符串

Delphi 字符串替换

两种方法用Delphi实现域名转ip地址---用nmhttp控件和winsock

Delphi trimleft 删除字符串左边的空格

Delphi 提升进程权限到sedebugprivilege

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

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