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
Ïà¹ØÎĵµ£º
ÔÚDelphiÓ¦ÓóÌÐòÖÐʹÓÃDLL
¡¡¡¡Delphi²»½ö¿Éµ÷ÓÃC£«£«²úÉúµÄDLLÄ£¿é£¬Í¬ÑùC£«£«³ÌÐòÒ²¿Éµ÷ÓÃDelphiËù²úÉúµÄDLL²¿¼þ¡£ÕâÑù½»»¥µ÷Óã¬ÎÞÐëÖØ¸´¿ª·¢£¬´ó´óËõ¶ÌÁËÉú²úÖÜÆÚ¡£
¡¡¡¡DelphiÓëVisualBasic¡¢VisualFoxProµÈÈí¼þÒ»Ñù£¬ÊôÓÚRAD¹¤¾ß£¨¿ìËÙÓ¦Óÿª·¢¹¤¾ß£©¡£ÊʺϿª·¢32λ»ò16λ£¯32λ»ìºÏÓ¦ÓóÌÐò¡£DelphiËùÊ¹Ó ......
ÓÉÓÚ×é¼þÌṩµÄ·½Ê½²»Í¬£¬ËùÒÔ°²×°µÄ·½·¨Ò²ÊDz»Ò»ÑùµÄ£¬ÏÂÃæ¾ÍĿǰ³£¼ûµÄ¸÷ÖÖÐÎʽµÄ×é¼þµÄ°²×°·½·¨½éÉÜһϡ£
1 Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏDelphiµÄÄÄÖÖ°æ±¾£¬Èç¹û°æ±¾²»¶ ......
¶¯Ì¬Á´½Ó¿âÊÇÒ»¸öÄܹ»±»Ó¦ÓóÌÐòºÍÆäËüµÄDLLµ÷ÓõĹý³ÌºÍº¯ÊýµÄ¼¯ºÏÌå,ËüÀïÃæ°üº¬µÄÊǹ«¹²´úÂë»ò×ÊÔ´¡£ÓÉÓÚDLL´úÂëʹÓÃÁËÄÚ´æ¹²Ïí¼¼Êõ,ÔÚijЩµØ·½windowsÒ²¸øÁËDLLһЩ¸ü¸ßµÄȨÏÞ,Òò¶øDLLÖпÉÒÔʵÏÖһЩһ°ã³ÌÐòËù²»ÄÜʵÏֵŦÄÜ,ÈçʵÏÖwindowsµÄHOOK¡¢ISAPIµÈ¡£Í¬Ê±,DLL»¹Îª²»Í¬ÓïÑÔ¼ä´úÂë¹²ÏíÌṩÁËÒ»Ìõ·½±ãµÄ;¾¶¡£Òò¶øD ......
Client:TSocketConnection ºÍServer: Scktsrvr¹ØÏµ----ѹËõÊý¾Ý´«Êä
Ò»Ö±ÓÃSocketConnectionºÍ·þÎñ¶ËµÄ´«ÊäÊý¾ÝÔÚÈý²ãÊý¾Ý¿âÖУ¬´ÓÀ´Ã»ÓÐ×¢Òâµ½ËüÃÇÖ®¼äµÄÊý¾Ý´«Ê䣬ֻÊÇÏë×Å£¬¹ÜËüÁË£¬ÍøÂçµÄÊ£¬Ç°¶Îʱ¼äÔÚDelphiÖеÄDemosÖз¢ÏÖDemos\Midas\Intrcpt.dprÀý×Ó£¬ºÇºÇ£¬ÔÙ¿´Á˰ëÌìµÄVCL·¢ÏÖ¿ÉÒÔ½«Client¶Ë·¢Ë͵ĸøServerµÄÊ ......
DelphiÖе÷ÓÃWindows×Ô´øµÄͼƬºÍ´«Õæä¯ÀÀÆ÷²é¿´Í¼Æ¬£¬¿ÉÒÔÐýתͼƬҲ¿ÉÒÔµ÷Óûͼ³ÌÐò±à¼Í¼Ïñ¡£×Ô¼ºÐ´²»³öÀ´ºÃµÄ´úÂ룬¾ÍÓÃϵͳ×Ô´øµÄºÃÁË¡£
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI;
type
TForm1 = class(TFo ......