rtgit/RtTool
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
30244b7dcd
RtTool/Delphi7/开发档案/马国钢开发代码/ThreeFun/dllPas/dsrnew.pas

175 lines
5.9 KiB
ObjectPascal
Raw Normal View History

添加7的代码
2025-01-08 11:55:07 +08:00
unit dsrnew;
interface
function ft001(): Integer; stdcall; external 'FUTONGDLL.DLL';
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ini:
//Ŀ<>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><D0B4>ڣ<EFBFBD><DAA3><EFBFBD>ʾ<EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD><CABC>ʱ<EFBFBD><CAB1>һ<EFBFBD><D2BB>Ҫʹ<D2AA><CAB9><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>
function ft002(): Integer; stdcall; external 'FUTONGDLL.DLL';
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CheckKey
//Ŀ<>ģ<EFBFBD><C4A3>ù<EFBFBD><C3B9><EFBFBD><EFBFBD>ض<EFBFBD><D8B6><EFBFBD><EFBFBD>㷨<EFBFBD><E3B7A8>֤<EFBFBD><D6A4>ǰ<EFBFBD>ļ<EFBFBD><C4BC>ܹ<EFBFBD><DCB9>Ƿ<EFBFBD>Ϊ<EFBFBD><CEAA>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>
//<2F><><EFBFBD>ؽ<EFBFBD><D8BD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD>ֵ
function ft003(a: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>SetValue
//Ŀ<>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//<2F><><EFBFBD><EFBFBD>a<EFBFBD><61>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD>ֵ
//<2F><><EFBFBD>ؽ<EFBFBD><D8BD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD>ֵ
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD> x1 = x2; <20>ĸ<EFBFBD>ֵ<EFBFBD><D6B5>ʽ<EFBFBD><CABD><EFBFBD>ɸ<EFBFBD><C9B8><EFBFBD> x1 = ft003(x2)<29>ķ<EFBFBD>ʽ
function ft004(var s1, s2: PAnsiChar; len: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CompareString
//Ŀ<>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>бȽ<D0B1>
//<2F><><EFBFBD><EFBFBD>s1<73><31>Ҫ<EFBFBD>Ƚϵ<C8BD><CFB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>֮һ
//<2F><><EFBFBD><EFBFBD>s2<73><32>Ҫ<EFBFBD>Ƚϵ<C8BD><CFB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>֮һ
//<2F><><EFBFBD><EFBFBD>len<65><6E>Ҫ<EFBFBD>Ƚϵij<CFB5><C4B3><EFBFBD>
//<2F><><EFBFBD>ؽ<EFBFBD><D8BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0<CEAA><30><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȣ<EFBFBD><C8A3><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s1>s2,<2C><><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD>,s1<s2
function ft005(var s1, s2: PAnsiChar; len: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CompareStringNoCase
//Ŀ<>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>бȽ<D0B1>(<28><><EFBFBD>Դ<EFBFBD>Сд)
//<2F><><EFBFBD><EFBFBD>s1<73><31>Ҫ<EFBFBD>Ƚϵ<C8BD><CFB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>֮һ
//<2F><><EFBFBD><EFBFBD>s2<73><32>Ҫ<EFBFBD>Ƚϵ<C8BD><CFB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>֮һ
//<2F><><EFBFBD><EFBFBD>len<65><6E>Ҫ<EFBFBD>Ƚϵij<CFB5><C4B3><EFBFBD>
//<2F><><EFBFBD>ؽ<EFBFBD><D8BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0<CEAA><30><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȣ<EFBFBD><C8A3><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s1>s2,<2C><><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD>,s1<s2
function ft006(var s1, s2: PAnsiChar): Integer; stdcall; external 'FUTONGDLL.DLL';
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Strcat
//Ŀ<>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//<2F><><EFBFBD><EFBFBD>s1<73><31>Ҫ<EFBFBD><D2AA><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>֮һ
//<2F><><EFBFBD><EFBFBD>s2<73><32>Ҫ<EFBFBD><D2AA><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>֮һ
//<2F><><EFBFBD>ؽ<EFBFBD><D8BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>ij<EFBFBD><C4B3>ȣ<EFBFBD> s1 Ϊ<><CEAA><EFBFBD>Ӻ<EFBFBD><D3BA><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>
//<2F>൱<EFBFBD><E0B5B1> s1 = s1 + s2, s2<73><32><EFBFBD><EFBFBD>s1<73>ĺ<EFBFBD><C4BA>棬 <20><><EFBFBD>ء<EFBFBD>
function ft007(sd, s: PAnsiChar): Integer; stdcall; external 'FUTONGDLL.DLL';
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Strcpy
//Ŀ<>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>и<EFBFBD><D0B8><EFBFBD>
//<2F><><EFBFBD><EFBFBD>sd<73><64>Ŀ<EFBFBD><C4BF><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>
//<2F><><EFBFBD><EFBFBD>s:Դ<>ַ<EFBFBD><D6B7><EFBFBD>
//<2F><><EFBFBD>ؽ<EFBFBD><D8BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>ij<EFBFBD><C4B3><EFBFBD>
//<2F>൱<EFBFBD><E0B5B1> sd = s
function ft008(p1, p2: Integer; exp: Char): Integer; stdcall; external 'FUTONGDLL.DLL';
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:Compare
//Ŀ<>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƚ<EFBFBD><C8BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ĵ<EFBFBD>С<EFBFBD><D0A1><EFBFBD>൱<EFBFBD><E0B5B1>?a>b,a<b,a=b
//<2F><><EFBFBD><EFBFBD>p1<70><31>Ҫ<EFBFBD>Ƚϵĵ<CFB5>һ<EFBFBD><D2BB><EFBFBD><EFBFBD>
//<2F><><EFBFBD><EFBFBD>p2<70><32>Ҫ<EFBFBD>Ƚϵĵڶ<C4B5><DAB6><EFBFBD><EFBFBD><EFBFBD>
//<2F><><EFBFBD><EFBFBD>c<EFBFBD><63><EFBFBD>Ǵ<EFBFBD><C7B4>ڣ<EFBFBD>С<EFBFBD>ڻ<EFBFBD><DABB><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>">","<","="
//<2F><><EFBFBD>ؽ<EFBFBD><D8BD><EFBFBD><EFBFBD><EFBFBD>
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0<EFBFBD><30><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>ʽΪ<CABD>٣<EFBFBD><D9A3><EFBFBD><EFBFBD><EFBFBD>1<EFBFBD><31>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>ʽΪ<CABD><CEAA>
//<2F><>ȡ<EFBFBD><C8A1><EFBFBD>ü<EFBFBD><C3BC>ܹ<EFBFBD><DCB9>еIJ<D0B5><C4B2><EFBFBD>
//<2F>Լ<EFBFBD><D4BC>ܹ<EFBFBD><DCB9>Ĵ洢<C4B4><E6B4A2><EFBFBD><EFBFBD><EFBFBD>в<EFBFBD><D0B2><EFBFBD>ʱ,<2C><>ʱʱ<CAB1><CAB1><EFBFBD>ϳ<EFBFBD>,Ӧע<D3A6>⣡<EFBFBD><E2A3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//<2F><><EFBFBD>ܹ<EFBFBD><DCB9>д洢λ<E6B4A2><CEBB>˵<EFBFBD><CBB5>
//<2F><><EFBFBD><EFBFBD>ʹ<EFBFBD>õ<EFBFBD><C3B5>ܿռ<DCBF>160<36>ֽڣ<D6BD><DAA3><EFBFBD><EFBFBD>У<EFBFBD>64<36>ֽڴ<D6BD><DAB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ֱ<EFBFBD><D6B1>ǣ<EFBFBD>
//<2F><>ʶ <09><>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD> <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ŵ<EFBFBD><C5B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// 5 IP<49><50>ַ 15
// 6 <09>û<EFBFBD><C3BB><EFBFBD> 15
// 7 <09>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD> 15
// 8 DataBase 15
// 9 <09><>ʶ <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ر<EFBFBD><D8B1><EFBFBD>ʶ,<2C>籾<EFBFBD><E7B1BE><EFBFBD>ܹ<EFBFBD><DCB9><EFBFBD><EFBFBD><EFBFBD>Ϣ,<2C><><EFBFBD><EFBFBD>Ӳ<EFBFBD><D3B2><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>
// 0-4 <09>Զ<EFBFBD><D4B6><EFBFBD> <09><>80<38>ֽڿռ䣬ÿ<E4A3AC><C3BF><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD>ʾ1<CABE><31>(16<31>ֽ<EFBFBD>)<29><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// ע<><D7A2><EFBFBD>ռ䲻<D5BC><E4B2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ֪<CEB4><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// 0-4<><34>ʶʹ<CAB6>õ<EFBFBD><C3B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ռ䣬<D5BC><E4A3AC>0λ<30>õij<C3B5><C4B3>ȳ<EFBFBD><C8B3><EFBFBD>15ʱ<35><CAB1>
// <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1<EFBFBD><31>λ<EFBFBD>õĴ洢<C4B4><E6B4A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// ʹ<><CAB9> 0<><30> <20><><EFBFBD>ÿռ<C3BF> 80 - 1<><31>
// 1<><31> 64 - 1<><31>
// 2<><32> 48 - 1<><31>
//........
function ft011(outstr: PAnsiChar; Ord: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>GetParm
//Ŀ<>ģ<EFBFBD><C4A3><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD>ܹ<EFBFBD>ָ<EFBFBD><D6B8>λ<EFBFBD>õ<EFBFBD><C3B5>ַ<EFBFBD><D6B7><EFBFBD>
//<2F><><EFBFBD><EFBFBD>outstr<74><72>Ŀ<EFBFBD><C4BF><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>
//<2F><><EFBFBD><EFBFBD>Ord:<3A><>ʶ<EFBFBD><CAB6><EFBFBD>ܹ<EFBFBD><DCB9>ض<EFBFBD><D8B6>ص<EFBFBD><D8B5>ı<EFBFBD>־ֵ<D6BE><D6B5>0-9<><39>
//<2F><><EFBFBD>ؽ<EFBFBD><D8BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>ij<EFBFBD><C4B3><EFBFBD>
function ft012(instr: PAnsiChar; Ord: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>SetParm
//Ŀ<>ģ<EFBFBD><C4A3>ڼ<EFBFBD><DABC>ܹ<EFBFBD><DCB9><EFBFBD>ָ<EFBFBD><D6B8>λ<EFBFBD>ô<EFBFBD><C3B4><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>
//<2F><><EFBFBD><EFBFBD>instr<74><72><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ŵ<EFBFBD><C5B5>ַ<EFBFBD><D6B7><EFBFBD>
//<2F><><EFBFBD><EFBFBD>Ord:<3A><>ʶ<EFBFBD><CAB6><EFBFBD>ܹ<EFBFBD><DCB9>ض<EFBFBD><D8B6>ص<EFBFBD><D8B5>ı<EFBFBD>־ֵ<D6BE><D6B5>0-9<><39>
//<2F><><EFBFBD>ؽ<EFBFBD><D8BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><D0B4><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>ij<EFBFBD><C4B3><EFBFBD>
//<2F>ӽ<EFBFBD><D3BD>ܺ<EFBFBD><DCBA><EFBFBD>
function ft021(inStr, outStr: PAnsiChar): Integer; stdcall; external 'FUTONGDLL.DLL';
//˵<><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>instr<74><72><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܣ<EFBFBD>
//Ŀ<>ģ<EFBFBD><C4A3><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>instr<74>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>outstr
//<2F><><EFBFBD><EFBFBD>instr<74><72><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5>ַ<EFBFBD><D6B7><EFBFBD>
//<2F><><EFBFBD><EFBFBD>outStr:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܺ<EFBFBD><DCBA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//<2F><><EFBFBD>ؽ<EFBFBD><D8BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĵij<C4B5><C4B3><EFBFBD>
function ft022(source, dest, key: PAnsiChar; flg: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
function ft023(source, dest, key: PAnsiChar; flg: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
//˵<><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>ӽ<EFBFBD><D3BD>ܺ<EFBFBD><DCBA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɼӽ<C9BC><D3BD><EFBFBD>
//Ŀ<>ģ<EFBFBD><C4A3><EFBFBD>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD>Key<65><79><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>source<63><65><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>destΪ<74>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>
//<2F><><EFBFBD><EFBFBD>source<63><65><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>Դ<EFBFBD><D4B4>
//<2F><><EFBFBD><EFBFBD>dest:<3A>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//<2F><><EFBFBD><EFBFBD>key<65><79><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD>õ<EFBFBD>key,<2C>ַ<EFBFBD><D6B7><EFBFBD>
//<2F><><EFBFBD><EFBFBD>flg: Ϊ1ʱ<31><CAB1><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC>ܣ<EFBFBD>Ϊ0ʱ<30><CAB1><EFBFBD>н<EFBFBD><D0BD><EFBFBD>
//<2F><><EFBFBD>ؽ<EFBFBD><D8BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>ij<EFBFBD><C4B3><EFBFBD>
function PBDecode(Strin, StrOut: PAnsiChar; nInLen, nOutLen: Integer): Integer; stdcall; external 'FUTONG.DLL';
//Ϊ<><CEAA><EFBFBD>ܺ<EFBFBD><DCBA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2><EFBFBD>ΪStrin,<2C><><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5>ַ<EFBFBD><D6B7><EFBFBD>
// StrOut,<2C><><EFBFBD>ܺ<EFBFBD><DCBA><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>Ԥ<EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD>ռ䣩
// nInLen,ΪStrin<69>ij<EFBFBD><C4B3><EFBFBD>
// nOutLen,Ϊ<><CEAA><EFBFBD>ܺ<EFBFBD><DCBA>ij<EFBFBD><C4B3><EFBFBD>
function PBEncode(Strin, StrOut: PAnsiChar; nInLen, nOutLen: Integer): Integer; stdcall; external 'FUTONG.DLL';
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĺ<EFBFBD><C4BA><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>ʵ<EFBFBD>ּ<EFBFBD><D6BC>ܹ<EFBFBD><DCB9><EFBFBD>
{
//function ulong SQlfunc(ref string OutStr,ref string InStr,UINT len,UINT ID) LIBRARY "Futong.dll"
//<2F><>Ӧ<EFBFBD><D3A6><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD>չ<EFBFBD>洢<EFBFBD><E6B4A2><EFBFBD>̣<EFBFBD>ʵ<EFBFBD>ּ<EFBFBD><D6BC>ܹ<EFBFBD><DCB9>ܣ<EFBFBD><DCA3><EFBFBD>Ӧ<EFBFBD>Ľ<EFBFBD><C4BD>ܺ<EFBFBD><DCBA><EFBFBD>
// OutStrҪ<72><D2AA>Ԥ<EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD>ռ<EFBFBD>
// len Ϊ<><CEAA><EFBFBD>ܺ<EFBFBD><DCBA><EFBFBD><EFBFBD>ݳ<EFBFBD><DDB3><EFBFBD>
// ID <20>㷨<EFBFBD><E3B7A8><EFBFBD><EFBFBD>(<28>ʹ洢<CDB4><E6B4A2><EFBFBD>̶<EFBFBD>Ӧ)
function checkfunc(handle: Integer; DogFlag: String): Integer; stdcall; external 'FUTONG.DLL';
//<2F><><EFBFBD><EFBFBD>Ӳ<EFBFBD><D3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// handleΪ<65><CEAA><EFBFBD><EFBFBD><EFBFBD>ھ<EFBFBD><DABE><EFBFBD>
// DogFlagΪ<67><CEAA><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF>в<EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>Ӳ<EFBFBD><D3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
// DLL<4C>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>Ӳ<EFBFBD><D3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>DogFlag<61><67><EFBFBD><EFBFBD>Ϣ<EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>3<EFBFBD><33><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
function GetParm(flag: Integer; out len: Integer; outHex: PAnsiChar): Integer; stdcall; external 'FUTONG.DLL';
//Ӳ<><D3B2><EFBFBD><EFBFBD><EFBFBD>л<EFBFBD>ȡ<EFBFBD>ض<EFBFBD><D8B6><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>IP<49><50>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD>ƣ<EFBFBD><C6A3>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//<2F>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>flagȡֵ<C8A1><D6B5>ΧΪ0--4<><34><EFBFBD>洢<EFBFBD>ռ<EFBFBD>һ<EFBFBD><D2BB>Ϊ20<32><30><EFBFBD>ֽڣ<D6BD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD>ַ<EFBFBD>ռ<EFBFBD>
//Ҳ<><D2B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0<EFBFBD><30><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ó<EFBFBD><C3B3><EFBFBD>Ϊ20<32><30><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// <09><><EFBFBD><EFBFBD>4<EFBFBD><34><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ó<EFBFBD><C3B3><EFBFBD>Ϊ4
//DogFlagΪ<67>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>Ϣ
function SetParm(flag, len: Integer; inHex: PAnsiChar): Integer; stdcall; external 'FUTONG.DLL';
//flag=5IP,=6User,=7Pass,=8DB
//Ӳ<><D3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>IPʱ<50><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ <20><>C8A00164<36><34><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ<EFBFBD><CABD><EFBFBD>루192.168.1.100<EFBFBD><EFBFBD>
//<2F>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>÷<EFBFBD>ͬ<EFBFBD><CDAC>
function InfoFunc(order: Integer; info: PAnsiChar): Integer; stdcall; external 'FUTONG.DLL';
//<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>Ӳ<EFBFBD><D3B2><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵΪ<D6B5><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//<2F><><EFBFBD>ǵ<EFBFBD>ijЩ<C4B3><D0A9><EFBFBD>ƶ<EFBFBD><C6B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>ѯ<EFBFBD>̶<EFBFBD><CCB6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װʱҪ<CAB1><D2AA><EFBFBD>Ƴ<EFBFBD><C6B3><EFBFBD><EFBFBD>ƶ<EFBFBD><C6B6><EFBFBD><EFBFBD><EFBFBD>
//orderΪ<72>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0<EFBFBD><30>ʼ
function GetHostIpAddr(DogParm, HostName, IPAddr: PAnsiChar): Integer; stdcall; external 'FUTONG.DLL';
//<2F><>ȡӲ<C8A1><D3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ,<2C><><EFBFBD><EFBFBD>IP<49><50>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>ο<EFBFBD><CEBF><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD><D0B6><EFBFBD>IP<49><50>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮һ<D6AE><D2BB>
//<2F>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
}
implementation
end.
Reference in New Issue Copy Permalink