摘要：
function GetScreenAll: TBitmap; // 截取全屏var C: TCanvas;begin C := TCanvas.Create; result := TBitmap.Create; result.Width := Screen.Width; result.... 阅读全文
摘要：
procedure TForm1.SpeedButton1Click(Sender: TObject);begin udp.Send('localhost', 1234, 'abc123'); // 发送字符， 这样发中文接收方会乱码end;procedure TForm1.SpeedButton2... 阅读全文
摘要：
获取指定目录下所有文件名，这是一个一个目录遍历的方法：function TPathWatch.FList(ASourFile: string): TStrings; // 查找子目录 AStrings存放查找出路径， ASourceFile要查找的目录var sour_path, sour_... 阅读全文
摘要：
function CutImgToBase(fn: string): string; // 压缩图片只能压缩bmp：将jpg转换成bmp再压缩var m1: TMemoryStream; m2: TStringStream; jpg: TJPEGImage; bmp: TBitmap;begin ... 阅读全文
摘要：
Byte前面已经说是存放bit的单元，是电脑内存的基本单位，byte表示0-255中的256个数字下面为Byte的用法：var B: Byte; // 表示0-255的数字begin B := 1; Log(B.ToString()); //1 B := 255; Log(B.To... 阅读全文
摘要：
在学校老师就教1byte = 8bit，一个Byte在内存中占8个房间、每个房间都有门牌号、找到内存中的内容就找门牌号，寻址什么的，虽然在听，但是脑袋里一头雾水，到现在只知道会用就行，但原理也不是那么明白。 这里我记录下到现在我自己的理解，我知识有限，若有错误请见谅并指出，一起学习： 首先：计算机内 阅读全文
摘要：
将字符串写入txt文档，读取txt文档中的内容。//一次写字符串到文本文件，每次都会将原来的内容替换掉。procedure FilePutContents(f,s:String); // f为文件名，s为存的内容var ss:TStrings;begin ss:=TStringList.Creat... 阅读全文
摘要：
前面说了已经获取到颜色值了，现在需要比较两个颜色的差值。两个颜色的根据RGB的差来取，有两种情况：1.(R的平方+G的平方+B的平方)开根号，再两个颜色值相减获取差值。2.(((R1-R2)的平方) + ((R1-R2)的平方) + ((R1-R2)的平方))开根号，即为差值第一种情况差值比第二种情... 阅读全文
摘要：
前言：http://www.cnblogs.com/studypanp/p/5002953.html 获取的颜色值前面获取到一个像素点的颜色值后(十六进制)，比如说(黄色)：FFD1C04C(共八位)，我自认为前面两位代表透明度，其它顺序为R-G-B, 没想到顺序是G-B-R下面为从十六进制解析RG... 阅读全文
摘要：
前言：在VCL里有GetPixel函数，可直接用，在FMX里直接用这个函数没有定义，在FMX的library中找这个函数在FMX.Graphics.TBitmapData.GetPixel中 结果我引用FMX.Graphics不行，引用FMX.Graphics.TBitmapData也不行，然后我... 阅读全文