Çë½ÌdelphiµÄÄÚ´æ¹ÜÀí£¡
ÈçÏ£¬ÎÒ¶¨ÒåÁËÒ»¸örecordÀàÐÍ£¬ÔÙÔÚÆäÉ϶¨ÒåÒ»¸öÊý×éÀàÐÍ
TParamValue = Record
ParamName:String; //The Name of Variant
ParamValue:String; //The Value of Variant
end;
TParamValues = Array of TParamValue;
ÎÒÓÐÒ»¸öfunction·µ»ØÒ»¸öTParamValuesÀàÐÍÊý×é¡£
function GetValueList():TParamValues;
var
ValueList: TParamValues;
begin
SetLength(ValueList,n);
......
Result:=ValueList;
end;
¾¹ý²âÊÔÿ´Îµ÷ÓÃfunction¶¼·µ»ØÒ»¸öеÄValueList
procedure UseValueList()£»
var
ValueList: TParamValues;
begin
ValueList:=GetValueList();
......
end;
ÇëÎÊÕâ¸öValueListÔÚʹÓÃÍê±ÏºóDelphi»Ø×Ô¶¯»ØÊÕÄÚ´æÂð£¿
ÕâÖ»Ö»ÊǸöÊý×é,Ó¦¸ÃÊÍ·Å
µ«ÊÇÔÚ
procedure UseValueList()£»
var
ValueList: TParamValues;
begin
ValueList:=GetValueList();
......
end;
ÕâÀïÃæValueListÄÜÕý³£ÔËÐÐÂð?
»á»ØÊÕ°É£¬ËäÈ»ÄãÉÏÃæÓõ½setLength·ÖÅäÄڴ棬µ«ÓÉÓÚ¶¯Ì¬Êý×éÊÇÉú´æÆÚ×Ô¹ÜÀíÀàÐÍ¡£
動態數組Ò²ÊDzÉÓà string ÒýÓÃ計數µÄ¹ÜÀí·½Ê½維護Éú´æÖÜÆÚ
²»»á×Ô¶¯»ØÊÕ£¬´æÔÚÄ
Ïà¹ØÎÊ´ð£º
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½
¿´µ½delphiµ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
ÈçÌ⣬ µã»÷DelphiµÄFile²Ëµ¥µÄExitÍ˳öDelphi£¬ Delphi²¿·Ö¹Ø±Õ--¼´²»ÄÜÔÙ²Ù×÷Delphi£¬µ«ÈÎÎñÀ¸ºÍ½ø³ÌÀDelphi»¹ÔÚÔËÐУ¬Ã»ÓÐÕæÕýµÄÍ˳ö¡£ÊDz»Êǰ²×°ÁËjre¸Ä±äÁËijЩ»·¾³±äÁ¿µ¼Ö£¬ÇëÎʸßÊÖÈçºÎ½â¾ö£¿ ×¢£ºÃ»°²×° ......
´íÎóÀàÐÍ£º³ö´íÎó³¢ÊÔ¶ÁÈ¡»òдÈëÊܱ£»¤µÄÄÚ´æ¡£Õâͨ³£Ö¸Ê¾ÆäËûÄÚ´æÒÑË𻵡£
C#Ô´Âë
[DllImport("Base64.dll")]
public static extern string Base64ToStr(string Base64);
protected void Page_Load(o ......