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
Ïà¹ØÎÊ´ð£º
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
function myfun:integer;
var b:pointer;
begin
b:=pointer($6Bc3C6);
asm
mov eax,[eax]
xor eax,[ecx+4]
cmp eax,0
je @b
end;
ÕâÑùд±àÒë²»¹ýÈ¥¡£ÇëÎÊÈçºÎ² ......
RT
ÎÒÔڹرÕDelphi³ÌÐòµÄʱºòÐèÒªÏòINIÎļþÖÐдµã¶«Î÷.
ÏÂ´ÎÆô¶¯Delphi³ÌÐòµÄʱºòÐèÒª¶Á,ÔÚDelphi³ÌÐòµÄOnCloseʼþÖÐдÁËûÎÊÌâ,µ«ÎÒ·¢ÏÖÈç¹û³ÌÐò¿ª×Å,È»ºó½«»úÆ÷:¿ªÊ¼->¹Ø±Õ¼ÆËã»ú->¹Ø±Õ»òÕßÖØÐÂÆô¶¯µÄʱº ......
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
ÎÒÏëдһ¸öÔÚ´ò¿ªÍøÒ³ºó£¬ÆäÖÐÍøÒ³ÖÐÓÐÏÂÀÁбí¿òÀïÃæÓм¸¸öÖµ£¬ÎÒÔÚÏëÔÚÊÂÏÈ»¹Ã»Óдò¿ªÍøÒ³Ç°Ñ¡Ò»¸öÖµ£¬ÔÚ´ò¿ªÍøÒ³ºó£¬ÍøÒ³ÖÐÕâ¸öÏÂÀÁбí¿ò¾ÍÏÔʾÎÒÊÂÏÈѡȡµÄÖµ¡£Ð¡µÜ²»»á£¬Ï£ÍûÄÄλ´óÏÀ³öÊÖÏàÖúһϣ¿£¿£¿£¿£¿
......