vfp9.0µ÷ÓÃdelphi¶¯Ì¬¿â,Ìáʾ²ÎÊý¹ý¶à
ÇëÎÊһϴó¼Ò£¬ÎÒÔÚµÄʱºò£¬ÀÏÊÇÌáʾ²ÎÊýÌ«¶àÊÇʲôÔÒò°¡£¿
vfp9.0µ÷ÓôúÂëÈçÏ£º
DECLARE string yh_interface_call IN "YhGzHisInterface.dll",string astr_jybh,string astr_jysr_xml,string astr_jylsh,string @astr_jyyzm,string @astr_jysc_xml,long @aint_appcode,string @astr_appmsg
yh_interface_call(astr_jybh,astr_jysr_xml,astr_jylsh,@astr_jyyzm,@astr_jysc_xml,@aint_appcode,@astr_appmsg)
CLEAR dlls
delphi:yh_interface_callÔÐͶ¨ÒåÈçÏ£º
yh_interface_call(string astr_jybh,string astr_jysr_xml,string astr_jylsh,ref string astr_jyyzm,ref string astr_jysc_xml,ref long aint_appcode,ref string astr_appmsg)
Âé·³¸ßÊÖ°ï°ïæ¿´Ï¡£
lzÔõôÑùÁË£¿
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
ллÏÈ£¬²âÊÔϸø·Ö¡£
**½Ó¿Ú³õʼ»¯
DECLARE string yh_interface_init IN "YhGzHisInterface.dll" string astr_jysr_xml,long @aint_appcode,string @astr_appmsg
yh_interface_init(astr_jysr_xml,@aint_appcode,@astr_appmsg)
CLEAR DLLS
ÉùÃ÷dllµ÷ÓóöÏÖÒì³£¡£
DeclareStringyh_interface_initIn"YhGzHisInterface.dll"Stringastr_jysr_xml,Long @aint_appcode,String @astr_appmsglc_astr_jysr_xml=""&&Õâ¸öÖµ²»Ò»¶¨Îª¿Õ£¬¸ù¾ÝÄãµÄº¯Êý¶¨ln_aint_appcode=0&&Õâ¸öÖµ²»Ò»¶¨Îª0£¬¸ù¾ÝÄãµÄº¯Êý¶¨lc_astr_appmsg=Space(255) &&»ò 255¸öchar(0)yh_interface_init(lc_astr_jysr_xml,@ln_aint_appcode,@lc_astr_appmsg)
*³É¹¦ºó£¬Äã¿ÉÒÔÏÔʾ´«³öÖµ£º
?ln_aint_a
Ïà¹ØÎÊ´ð£º
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
VC ¿ØÖÆÌ¨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
function myfun:integer;
var b:pointer;
begin
b:=pointer($6Bc3C6);
asm
mov eax,[eax]
xor eax,[ecx+4]
cmp eax,0
je @b
end;
ÕâÑùд±àÒë²»¹ýÈ¥¡£ÇëÎÊÈçºÎ² ......
ÎÒÏëдһ¸öÔÚ´ò¿ªÍøÒ³ºó£¬ÆäÖÐÍøÒ³ÖÐÓÐÏÂÀÁбí¿òÀïÃæÓм¸¸öÖµ£¬ÎÒÔÚÏëÔÚÊÂÏÈ»¹Ã»Óдò¿ªÍøÒ³Ç°Ñ¡Ò»¸öÖµ£¬ÔÚ´ò¿ªÍøÒ³ºó£¬ÍøÒ³ÖÐÕâ¸öÏÂÀÁбí¿ò¾ÍÏÔʾÎÒÊÂÏÈѡȡµÄÖµ¡£Ð¡µÜ²»»á£¬Ï£ÍûÄÄλ´óÏÀ³öÊÖÏàÖúһϣ¿£¿£¿£¿£¿
......