- 全部博客 (22)
- 业界新闻 (2)
- dotnet (1)
- innoSetup (1)
- PowerBuilder (1)
- 数据库技术 (2)
- 报刊文摘 (1)
- Delphi技术 (9)
- Delphi趣闻 (4)
- ThinkDelphi框架 (1)
- 《Borland传奇》--李维 (2018-04-09 13:01)
- Delphi，Hello World！ (2018-04-09 13:26)
- ThinkDelphi Web开发框架，照亮Delphi的美！(by 东莞大师兄) (2018-04-09 14:15)
- Delphi粉丝们，你用过几款Delphi？ (2018-04-09 16:31)
万一---使用 TListView 控件(1)
万一---使用 TListView 控件(1)
2018-04-09
转载自 万一的 Delphi 博客 第一次使用 ListView 是最近两三天的事: http://www.cnblogs.com/del/archive/2008/12/31/1365745.html
将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，Hello World！
Delphi，Hello World！
2018-04-09
program Project1; {$APPTYPE CONSOLE} uses SysUtils; begin Writeln('Hello World !'); Readln; end.
路人甲
好贴，我顶
(2024-03-23)
打酱油的 好贴，支持楼主大侠。。。 (2018-04-09)
路人甲
李维大湿, 又在忽悠了...
(2018-04-09)
路人甲
太简单了!
(2018-04-09)
路人甲
可怜的 Delphi，名次又下滑了。。。
(2018-04-09)