节
春
度
欢

随笔分类 -  Delphi

[Delphi] 常用字符集简介
摘要：转载 ANSI (ASCII)美国信息互换标准编码 GB 2312信息交换用汉字编码字符集 GBKChinese Internal Code Specification UTF-8万国码 UTF-16 (ISO/IEC 10646-1、UCS-2) 通用字符集 BIG5大五码或五大码 Delphi 阅读全文
posted @ 2017-03-22 21:08 今心 阅读(1978) 评论(0) 推荐(0)
纯真IP数据库解析Delphi D10.1下正常使用
摘要：直接一个单元，代码分享出来。 阅读全文
posted @ 2017-03-10 15:28 今心 阅读(396) 评论(0) 推荐(0)
superobject 序列数据集
摘要：1 unit uDBJson; 2 3 interface 4 5 {$HINTS OFF} 6 7 uses 8 SysUtils, Classes, Variants, DB, DBClient, SuperObject; 9 10 type 11 TTableJSon = class 12 13 private const ... 阅读全文
posted @ 2017-03-10 15:23 今心 阅读(312) 评论(0) 推荐(0)
[JNA系列]Java调用Delphi编写的Dll之实例Delphi使用PWideChar
摘要：Delphi代码 Java调用代码 正常返回结果：Wstring-->123测试20160825160441882 阅读全文
posted @ 2016-08-25 16:10 今心 阅读(4501) 评论(0) 推荐(0)
[JNA系列]Java调用Delphi编写的Dll之实例Delphi使用PAnsiChar
摘要：Delphi代码 Java调用代码 正常返回结果：String-->123测试20160825160443394 阅读全文
posted @ 2016-08-25 16:06 今心 阅读(2683) 评论(0) 推荐(0)
[JNA系列]Java调用Delphi编写的Dll之JNA使用
摘要：介绍 给大家介绍一个最新的访问本机代码的 Java 框架 —JNA 。 JNA(Java Native Access) 框架是一个开源的 Java 框架，是 SUN 公司主导开发的，建立在经典的 JNI 的基础之上的一个框架。 JNA 项目地址： https://jna.dev.java.net/ 阅读全文
posted @ 2016-08-25 15:59 今心 阅读(1214) 评论(0) 推荐(0)
[JNA系列]Java调用Delphi编写的Dll之Delphi与JAVA基本数据类型对比
摘要：Delphi与JAVA基本数据类型对比 类型 Delphi关键字 JAVA关键字 字节 备注 范围 整型 Shortint byte 1 有符号8位 -128..127 Byte 1 无符号8位 0 .. 255 Smallint short 2 有符号16位 -2^15..2^15-1 Word 阅读全文
posted @ 2016-08-25 15:57 今心 阅读(706) 评论(0) 推荐(0)
JSON和数据集互相转换单元
摘要：JSON和数据集互相转换单元 如题......只是一个单元, 为了测试JSON单元性能的... 具体测试结果参考: http://www.cnblogs.com/hs-kill/p/3668052.html 代码中用到的SevenZIP单元在这里: http://www.cnblogs.com/hs 阅读全文
posted @ 2016-08-17 14:46 今心 阅读(2393) 评论(0) 推荐(0)
让你的程序通过XP防火墙
摘要：procedure TForm1.Button1Click(Sender: TObject); var FwMgr,Profile,FwApp: variant; begin FwMgr := CreateOLEObject('HNetCfg.FwMgr'); Profile := FwMgr.LocalPolicy.CurrentProfile; FwApp := Create... 阅读全文
posted @ 2016-03-31 13:58 今心 阅读(269) 评论(0) 推荐(0)
内存共享【Delphi版】
摘要：一.原理通过使用“内存映射文件”，实现内存共享二.主要操作共享内存结构： PShareMem = ^TShareMem; TShareMem = Record id:string[10]; name:string[20]; age:Integer; end;基本变量： ... 阅读全文
posted @ 2015-11-26 19:24 今心 阅读(467) 评论(0) 推荐(0)
Delphi调用Java的WebService报错can not find dispatch method for{null}terminalNo using "Payload QName-based Dispatcher"的解决方法
摘要：修改InvRegistry.RegisterInvokeOptions(TypeInfo(TestWebservice),ioDocument);------就是把ioLiteral改成ioDocument，不报错，可是服务端收到的参数是null。将InvRegistry.RegisterInvokeOptions(TypeInfo(TestWebservice),ioDocument);注释掉或者改成不是ioDocument和ioLiteral都可以。 阅读全文
posted @ 2013-02-01 15:27 今心 阅读(1665) 评论(0) 推荐(0)