12 2015 档案

delphi 屏幕截屏
摘要：function GetScreenAll: TBitmap; // 截取全屏var C: TCanvas;begin C := TCanvas.Create; result := TBitmap.Create; result.Width := Screen.Width; result.... 阅读全文
posted @ 2015-12-25 10:39 王云盼 阅读(693) 评论(0) 推荐(0)
UDP发送中文
摘要：procedure TForm1.SpeedButton1Click(Sender: TObject);begin udp.Send('localhost', 1234, 'abc123'); // 发送字符， 这样发中文接收方会乱码end;procedure TForm1.SpeedButton2... 阅读全文
posted @ 2015-12-16 18:21 王云盼 阅读(594) 评论(0) 推荐(0)
获取指定目录下的所有文件名，包括子目录函数
摘要：获取指定目录下所有文件名，这是一个一个目录遍历的方法：function TPathWatch.FList(ASourFile: string): TStrings; // 查找子目录 AStrings存放查找出路径， ASourceFile要查找的目录var sour_path, sour_... 阅读全文
posted @ 2015-12-09 11:30 王云盼 阅读(834) 评论(0) 推荐(0)
将图片压缩后转Base64函数
摘要：function CutImgToBase(fn: string): string; // 压缩图片只能压缩bmp：将jpg转换成bmp再压缩var m1: TMemoryStream; m2: TStringStream; jpg: TJPEGImage; bmp: TBitmap;begin ... 阅读全文
posted @ 2015-12-07 13:41 王云盼 阅读(1020) 评论(0) 推荐(0)
Byte，TBytes，array of Byte， array[0..9] of byte的区别
摘要：Byte前面已经说是存放bit的单元，是电脑内存的基本单位，byte表示0-255中的256个数字下面为Byte的用法：var B: Byte; // 表示0-255的数字begin B := 1; Log(B.ToString()); //1 B := 255; Log(B.To... 阅读全文
posted @ 2015-12-06 21:19 王云盼 阅读(3640) 评论(0) 推荐(0)
对bit、byte、TByte、Char、string、进制的认识
摘要：在学校老师就教1byte = 8bit，一个Byte在内存中占8个房间、每个房间都有门牌号、找到内存中的内容就找门牌号，寻址什么的，虽然在听，但是脑袋里一头雾水，到现在只知道会用就行，但原理也不是那么明白。 这里我记录下到现在我自己的理解，我知识有限，若有错误请见谅并指出，一起学习： 首先：计算机内 阅读全文
posted @ 2015-12-01 16:31 王云盼 阅读(3380) 评论(0) 推荐(0)