首页
学习
活动
专区
圈层
工具
发布
    • 综合排序
    • 最热优先
    • 最新优先
    时间不限
  • 来自专栏菩提树下的杨过

    重温delphi之:如何将Bitmap位图与base64字符串相互转换

    然后就可以使用下面二个函数了: by 菩提树下的杨过 http://yjmyzz.cnblogs.com/ ///将Bitmap位图转化为base64字符串 function BitmapToString(img:TBitmap     ss.Free;     result:=s;  end; ///将base64字符串转化为Bitmap位图 function StringToBitmap(imgStr:string):TBitmap ; var ss:TStringStream;     ms:TMemoryStream;     bitmap:TBitmap; begin     ss := TStringStream.Create  TMemoryStream.Create;     DecodeStream(ss,ms);//将base64字符流还原为内存流     ms.Position:=0;     bitmap := TBitmap.Create

    1.3K100发布于 2018-01-23
  • 来自专栏全栈程序员必看

    Delphi XE5 FireMonkey移动开发示例:粒子系统

    class private FGravity: TPointF; FVelocity: TPointF; FLifeSpan: Integer; FPart: TBitmap ; FPartSize: Integer; FPosition: TPointF; public constructor Create(ASprite: TBitmap; X private FParticles: TObjectList<TParticle>; public constructor Create(Count: Integer; ASprite: TBitmap SetEmmitter(X, Y: Single); end; implementation { TParticle } constructor TParticle.Create(ASprite: TBitmap FLifeSpan, True); end; { TParticleSystem } constructor TParticleSystem.Create(Count: Integer; ASprite: TBitmap

    85920编辑于 2022-09-09
  • 来自专栏全栈程序员必看

    delphi有办法旋转或翻转图片么?

    google下不都可以找一堆吗 procedure   TForm1.RotateangleClick(Sender:   TObject);     var         newbmp:   TBitmap ;         Bitmap:   TBitmap;         angle:   integer;     begin         newbmp   :=   TBitmap.Create ;         Bitmap   :=   TBitmap.Create;         screen.Cursor   :=   crhourglass;         newbmp.Assign newbmp.Free;         Bitmap.Free;     end;   procedure   Tform1.bmp_rotate(Srcbmp,   DestBmp:   Tbitmap

    1.8K10发布于 2021-08-05
  • 来自专栏全栈程序员必看

    delphi vcl_delphi数据类型

    TBitmap类封装了VCL中的位图操作,其属性包括Palette,Height,Width和TransparentColor,其方法包括LoadFromFile,LoadFromResourceID和 SaveToFile,其他组件类也可以用TBitmap,除了TCanvas外诸如TImage、TBitBtn和TSpeedButton等都可以用TBitmap,在大量图形应用程序中通常用脱屏位图,这样可以减少闪动

    4K10编辑于 2022-11-09
  • 来自专栏微卡智享

    delphi提示“Undeclared identifier”的缺少引用单元列表

    SysUtils TAdoConnection ADODB TAdoQuery ADODB TAlign Controls TAlignment Classes TAnchors Controls TBitmap

    2.7K20发布于 2019-07-25
  • 来自专栏微卡智享

    Delphi类型和引用

    从声明数组属性的语法可以看出,数组属性可以带索引子句,索引子句由指示字Index加一个整数常量 构成,整数常量的值只能在-32767和32767之间,程序示例如下: property picturePlus:Tbitmap index 0 read GetPicture Write SetPicture; property PictureMinus:Tbitmap index 1 read GetPicture Write SetPicture; Property PictureOpen:TBitmap index 2 read GetPicture Write Setpicture; 上例声明了 共享的方法必定要有一个Index参数,用于传递当前的索引号,请看GetPic- ture和SetPicture的声明: Function GetPicture(Index:Integer):TBitmap ; Procedure SetPicture(Index:Integer;Value:TBitmap); 当程序访问带有索引子句的属性时,程序自动将索引号传递给方法。

    3.5K30发布于 2019-07-24
领券