procedureTForm1.BitBtn1Click(Sender:TObject);varStringStream:TStringStream;FSize:integer;FileData:st…
usesWindows,ShlObj,ShellAPI;functionGetSpecialPath(CSIDL:word):string;vars:string;beginSetLength(s,M…
为了实现在vista和更高版本的系统中能够获取任何文件的大图标(48*48像素,甚至256*256像素),真是找了很多…
像PC端的QQ等聊天软件,都会显示用户在线状态,但离线用户显示的头像就是黑白的,Delphi里如何实现这种彩色…
前几天有个朋友问我这个问题:有段编码字符要转为图片,问我怎么实现?其实凭经验大多数人第一时间想到的就…
//向ImageList中加入png类型的资源图片procedureAddPngToImageList(AImageList:TImagelist;AResName:string…
usesJpeg,IdBaseComponent,IdComponent,IdTCPConnection,IdTCPClient,IdHTTP;{....}functionDownloadJPGToB…
procedureTForm1.Button1Click(Sender:TObject);varLRect:TRectF;beginLRect.Create(0,0,500,200);myimage.…
记不清是从哪年开始学Delphi的了,可能是从Delphi1.0开始用的,一直用到D7,然后工作变动,不再写经常代码,…
usesVcl.Imaging.pngimage;//usesVcl.Imaging.pngimage;//ConvertBMP2PNG('C:\Users\haokucn\Desktop\1…
如果我们在****中拖入一个Image控件,并设置好picture后,Alt+F12就可以看到****的源代码中已经将图片转成了…
DelphiQQ表情的实现QQ表情描述蓝框提示信息鼠标在这个表情上面这个表情才动可以增加表情表情打包单击这个表…
本文主要讲解了如何判断一个图片文件的真实类型,并不是从后缀名来判断类型的方法:以下是引用片段:unitUn…
//声明:ExtractIcon(hInst:HINST;{调用函数的程序实例}lpszExeFileName:PChar;{文件路径;文件可以是*.exe、…
方法一:Delphi的TBitmap类可以方便地操作流,如果能让TGPImage和TBitmap沟通起来就好了;TGPImage有一个子类T…
代码文件:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,D…
GDI+是Windows的一个函数库,来自Windows\System32\GDIPlus.dll,其中包含了610个函数.<spanstyle="color:#ff…
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs;ty…
GDI+以前只是听说过,还没怎么用过,这段时间用了用,觉得挺好用的.在这里总结一下.留个备忘.GDI+(GraphicsDe…
//方法1varIcon:TIcon;Bitmap:TBitmap;beginIcon:=TIcon.Create;Bitmap:=TBitmap.Create;Icon.LoadFromFile…