ThinkDelphi官方博客ThinkDelphi名博

“照亮Delphi的美! 翻开Delphi新一页!”
个人信息
  • 今日访问:82
  • 总访问量:7278
  • 开博时间:2022-06-01
博文

万一---使用 TListView 控件(1)

万一---使用 TListView 控件(1)

2018-04-09

转载自 万一的 Delphi 博客 第一次使用 ListView 是最近两三天的事: http://www.cnblogs.com/del/archive/2008/12/31/1365745.html

分类: Delphi技术 | 评论:0 | 浏览:70 查看全文>>

将Bitmap位图转化为base64字符串

将Bitmap位图转化为base64字符串

2018-04-09

//将Bitmap位图转化为base64字符串 function BitmapToString(img:TBitmap):string ; var ms:TMemoryStream; ss:TStringStream; s:string; begin ms := TMemoryStream.Create; img.SaveToStream(ms); ss := TStringStream.Create(''); ms.Position:=0; EncodeStream(ms,ss);//将内存流编码为base64字符流 s:=ss.DataString; ms.Free; ss.Free; result:=s; end; ///将base64字符串转化为Bitmap位图 function StringToBitmap(imgStr:string):TBitmap; var ss:TStringStream;

分类: Delphi技术 | 评论:0 | 浏览:41 查看全文>>

Delphi,Hello World!

Delphi,Hello World!

2018-04-09

program Project1; {$APPTYPE CONSOLE} uses SysUtils; begin Writeln('Hello World !'); Readln; end.

分类: Delphi技术 | 评论:1 | 浏览:78 查看全文>>
共6页/16条记录 首页 上一页 1 2 3 4 5 下一页 末页 跳页

关于凯蒂 | 联系我们 | 博客后台管理入口

©2018 ThinkDelphi --- 东莞大师兄作品