unicode与GB2312转换等Delphi函数
{ 函数 : RESULTSTRING = HexToBin(HEXSTRING)
{ 目的 : 把十六进制字符串转换为二进制字符串
{
{===============================================================}
{ 函数 : RESULTINTEGER = HexCharToInt(HEXCHAR)
{ 目的 : 转换一个十六进制字符为整数
{===============================================================}
{ 函数 : RESULTSTRING = HexCharToBin(HEXCHAR)
{ 目的 : 转换一个十六进制字符为二进制字符串
{===============================================================}
{ 函数 : RESULTINTEGER = Pow(BASE,POWER)
{ 目的 : 指数函数
{===============================================================}
{ 函数 : RESULTINTEGER = BinStrToInt(BINSTRING)
{ 目的 : 把二进制字符串转换为整数
{===============================================================}
{ 函数 : RESULTSTRING = DecodeSMS7Bit (PDUSTRING)
{ 目的 : 解码一个7-bit SMS (GSM 03.38) 为ASCII码
{===============================================================}
{ 函数 : RESULTSTRING = ReverseStr (SOURCESTRING)
{ 目的 : 反转一个字符串
{===============================================================}
{===============================================================}
{ 函数 : RESULTSTRING = UniCode2Gb (SOURCESTRING)
{ 目的 : 将UniCode字符串转换为GB
{===============================================================}
{===============================================================}
{ 函数 : RESULTSTRING = GB2UniCode (SOURCESTRING)
{ 目的 : 将GB字符串转换为UniCode
{===============================================================}
unit BinHexTools;
interface
function HexToBin(HexNr : String): String;
function HexCharToInt(HexToken : char): Integer;
function HexCharToBin(HexToken : char): String;
function pow(base, power: integer): integer;
function BinStrToInt(BinStr : String) : Integer;
function DecodeSMS7Bit(PDU : String): String;
function ReverseStr(SourceStr : String) : String;
function GB2UniCode(GB:string): String;
function UniCode2GB(S : String): String;
implementation
uses sysutils, dialogs;
function
相关文档：
我们能看到以下代码
var pSource,pDest:PChar;
len: integer;
.......................//一些代码
Move(pSource,pDest,len); //错误
Move(pSource^,pDest^,len); //正确
看起来确实好像是传值，而不是传地址，但是各位别忘了，这不是C，C++，而是Delphi
Object Pascal,所以，绝不能从函数� ......
注： 使用错误，或者在该加的地方没有加，可能会出现"privileged instruction"错误，或者地址访问错误。
常见的调用惯例有register, pascal, cdecl, stdcall, safecall。函数的调用管理决定了参数如何传递给子过程，并从堆栈中退出，以及寄存器在参数传递中的使用，错误和异常的处理。Delphi中默认的� ......
开发步骤：
1、创建ActiveX Library工程。
2、创建COM Object。
3、创建Type Library，并创建相应接口。
4、创建接口对应的函数和实现。
具体如下：
1、创建COM Object。
new|other|activeX|com object
在Class Name(本例里类名里填Object，可按自己需要填写) 填写类名.(Instancing:实例创建方式,Threading Model:� ......
delphi中Synchronize这个东东有什么用？我知道是线程同步使用的
是否是一个函数或变量，当一个线程在使用时，如果这个函数使用了Synchronize修钸的话就不允许别一个线程来调用这个函数
1楼：别的线程会等待该操作完成后才能继续
2楼：你说的基本是这个意思。它的目的是避免多个子线程同时访问主线程资源。
示例：
......
