Delphi - 随笔分类 - 王云盼

delphi创建HTTPServer服务接收json中文乱码

摘要：做服务端，很多人已经淘汰用delphi了，确实，各种中文乱码的问题，也有人劝过我用JavaScript，很简单，连源码都给我了，但是还没时间研究，眼前有个项目，必须提供一个服务供第三方调用，请求方式POST，请求格式JSON，当解析请求的json时发现中文乱码。解决方法如下：上代码： proced 阅读全文

posted @ 2021-01-18 00:54 王云盼阅读(1461) 评论(0) 推荐(0) 编辑

delphi http 403 获取不到服务器返回的错误消息用浏览器打开url可以返回

摘要：用delphi的idhttp Get一个url如下： http://117.135.237.4:9090/agent/api/treatmentModeUpdate?userName=VDAwMIMQ==&userPwd=VDAjIxMQ==&centerNo=NTIyMj2&hospCode=Nz 阅读全文

posted @ 2018-07-25 19:25 王云盼阅读(328) 评论(0) 推荐(0) 编辑

获取指定目录下的所有文件名，包括子目录函数

摘要：获取指定目录下所有文件名，这是一个一个目录遍历的方法：function TPathWatch.FList(ASourFile: string): TStrings; // 查找子目录 AStrings存放查找出路径， ASourceFile要查找的目录var sour_path, sour_... 阅读全文

posted @ 2015-12-09 11:30 王云盼阅读(782) 评论(0) 推荐(0) 编辑

delphi常用快捷键（我自己经常使用的）

摘要：代码编辑器：Home 回到当前行的头部End 回到当前行的尾部Insert 插入代码，覆盖后面的代码，(按回车无效)，再按撤回效果Delete 删除F1 双击一个单词后，按F1调用自带的Library 参考函数引用单元及用法F2 在Project上可... 阅读全文

posted @ 2015-11-28 14:38 王云盼阅读(2043) 评论(0) 推荐(0) 编辑

delphi 十进制十六进制转换

摘要：delphi有提供十进制转换成十六进制的函数： IntToStr(); 返回值为String// 十进制转十六进制var i: integer; str: string;begin i := 255; ShowMessage(IntToHex(I, 2)); //FF ... 阅读全文

posted @ 2015-11-28 10:40 王云盼阅读(322) 评论(0) 推荐(0) 编辑

泛型，存放N张图片

摘要：(* ************************************************* 1、里面放多张图片，用文件名作为索引 2、线程在背后从硬盘加载到内存 3、批量加载 4、加载完成后执行回调，回调是线程安全的 5、回调中的参数是新加载了多少张图片****************... 阅读全文

posted @ 2015-11-19 09:50 王云盼阅读(355) 评论(0) 推荐(0) 编辑

delphi 创建DLL文件及其调用和注意事项

摘要：首先创建一个DLL文件，项目自带的代码为：library ProjectPnr;{ Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause A... 阅读全文

posted @ 2015-11-17 10:50 王云盼阅读(3355) 评论(0) 推荐(0) 编辑

Form1调用Unit2类中函数

摘要：Form1有一个button，当Form1.Create时触发Button的OnClick事件，OnClick事件调用Unit2单元中的函数；unit Unit2; interface uses FMX.Dialogs, FMX.StdCtrls;type TBClick = class p... 阅读全文

posted @ 2015-11-06 14:48 王云盼阅读(224) 评论(0) 推荐(0) 编辑

XE下创建及调用Frame

摘要：1.创建Form1；2.创建FMXFrame(New -> Other->Delphi Files -> FMXFrame); // 单元名为UnitFrame，窗体名为frm 在窗体里放一个button，一个memo，这里只是测试有木有引用到。3.调用。uses UnitFrame;var ... 阅读全文

posted @ 2015-11-05 09:49 王云盼阅读(698) 评论(0) 推荐(0) 编辑

XE ListBox实现伸缩效果

摘要：功能：实现年月日压缩，初始化时item是所有年，点击年展开月，点击月展开天，再点击则收缩。思路：实际上一开始是将所有item显示，只是将月日的item.height赋值为0，记录每一行的item的index，包括年，月，日，找到年的item，点击时，显示月的item，赋month.hei... 阅读全文

posted @ 2015-11-02 19:21 王云盼阅读(736) 评论(0) 推荐(0) 编辑

XE下显示托盘图标（TrayIcon）

摘要：1.拖一个TrayIcon控件2.拖一个ApplicationEvents控件3.拖一个PopupMenu控件将TrayIcon的PopupMenu属性与PopupMenu控件关联unit UnitMain;interfaceuses Winapi.Windows, Winapi.Messages... 阅读全文

posted @ 2015-11-02 16:44 王云盼阅读(1285) 评论(0) 推荐(0) 编辑

XE 画矩形实现拖拉改变大小（属性）

摘要：实现原理：1.拖一个rectangle控件，Align属性为TOP2.拖一个Split控件，Align为Top3.拖Rectangle，Align为Bottom4.拖Split，Align为Bottom5.左边、右边依次类推，6.最后拖一个Rectangle，Align为Client，Stroke属... 阅读全文

posted @ 2015-11-02 16:15 王云盼阅读(299) 评论(0) 推荐(0) 编辑

XE StringGrid应用（G1属性触发G2）

摘要：unit UnitMain;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.... 阅读全文

posted @ 2015-11-02 15:54 王云盼阅读(499) 评论(0) 推荐(0) 编辑

delphi 金额大小写转换函数

摘要：{*------------------------------------------------ 金额大小写转换函数 @author 王云盼 @version V1506.01　在delphi7测试OK-------------------------------------------... 阅读全文

posted @ 2015-10-30 14:01 王云盼阅读(488) 评论(0) 推荐(0) 编辑

delphi TString使用（取有规律的字符串中某一项内容）

摘要：{目的，取得下面字符串中的每一项内容，如s：='a,b,c,d',要去的用逗号隔开的每一项内容这时采用Tstring，会方便很多，TString是继承TStringList带有List所有属性。}var str: string; ss: TStringList;begin str := 'a... 阅读全文

posted @ 2015-10-29 18:41 王云盼阅读(710) 评论(0) 推荐(0) 编辑

delphi 取json中数组的值（ISuperArray）

摘要：{ "action": "******", "data": [ { "Info1": { "ID": "1", "Name": "张三", }, "Info2": [ ...... ] }, "... 阅读全文

posted @ 2015-10-29 11:27 王云盼阅读(2848) 评论(0) 推荐(0) 编辑

delphi 数组的使用

摘要：delphi中数组就跟string使用类似，数组分为：动态数组和静态数组还可根据数据的功能分为：数组（一维数组）、二维数组、三维数组、、、静态数组：固定长度，内容需要定义时添加。动态数组：故名思意没固定长度，可任意添加修改内容。使用时必须设置长度，否则编译器不通过。实际上用法都是一样，分为取出... 阅读全文

posted @ 2015-10-28 21:46 王云盼阅读(2906) 评论(0) 推荐(0) 编辑

delphi取括号内或括号外的内容

摘要：记录：解释0(代表***)，1(代表***).... // 用户需求但数据库内的字段时整型，所以要去掉括号及括号里面的 // 数据库需求好吧，后来我发现直接leftStr(); 或者找到'('就行了。。。取出括号里的数： Log为memo1.lines.add(s); 阅读全文

posted @ 2015-10-28 16:24 王云盼阅读(1142) 评论(0) 推荐(0) 编辑

delphi 获取windows任务栏的高度

摘要：function GetWinTrayWnd: Integer; // 获取windows任务栏高度var TrayWnd: HWnd; //任务栏句柄 Rec : TRect;begin TrayWnd := FindWindow('Shell_TrayWnd',nil)... 阅读全文

posted @ 2015-10-22 21:14 王云盼阅读(347) 评论(0) 推荐(0) 编辑

delphi监控文件夹

摘要：(****************************************** 文件和目录监控当磁盘上有文件或目录操作时，产生事件使用方法：开始监控: PathWatch(Self.Handle, 'C:\FtpFolder'); 解除监控：PathWatch(-1); 在... 阅读全文

posted @ 2015-10-19 09:27 王云盼阅读(1601) 评论(0) 推荐(0) 编辑

王云盼

随笔分类 - Delphi

公告