Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

jmp,je,jnzÔÚ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;
ÕâÑùд±àÒë²»¹ýÈ¥¡£ÇëÎÊÈçºÎ² ......

¹Ø±ÕµçÄÔʱ,Delphi³ÌÐò»á³ö·¢Ê²Ã´Ê¼þ?

RT
ÎÒÔڹرÕDelphi³ÌÐòµÄʱºòÐèÒªÏòINIÎļþÖÐдµã¶«Î÷.
ÏÂ´ÎÆô¶¯Delphi³ÌÐòµÄʱºòÐèÒª¶Á,ÔÚDelphi³ÌÐòµÄOnCloseʼþÖÐдÁËûÎÊÌâ,µ«ÎÒ·¢ÏÖÈç¹û³ÌÐò¿ª×Å,È»ºó½«»úÆ÷:¿ªÊ¼->¹Ø±Õ¼ÆËã»ú->¹Ø±Õ»òÕßÖØÐÂÆô¶¯µÄʱº ......

xml´´½¨ºóÈçºÎÏú»Ù? - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢

xml := CreateOleObject('Microsoft.XMLHTTP');
  xml.Open('GET','http://www.google.com', False);
  xml.Send;
  xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......

delphi ÍøÒ³ÖÐ<option> ±êÇ©µÄ·½·¨

ÎÒÏëдһ¸öÔÚ´ò¿ªÍøÒ³ºó£¬ÆäÖÐÍøÒ³ÖÐÓÐÏÂÀ­Áбí¿òÀïÃæÓм¸¸öÖµ£¬ÎÒÔÚÏëÔÚÊÂÏÈ»¹Ã»Óдò¿ªÍøÒ³Ç°Ñ¡Ò»¸öÖµ£¬ÔÚ´ò¿ªÍøÒ³ºó£¬ÍøÒ³ÖÐÕâ¸öÏÂÀ­Áбí¿ò¾ÍÏÔʾÎÒÊÂÏÈѡȡµÄÖµ¡£Ð¡µÜ²»»á£¬Ï£ÍûÄÄλ´óÏÀ³öÊÖÏàÖúһϣ¿£¿£¿£¿£¿
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ