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

Excel ÈçºÎµ÷Óà Delphi ±àÒëµÄ Dll Öеĺ¯Êý£¿

ÎÒÏëÓà Delphi ±àд°üº¬º¯ÊýµÄ Dll£¬È»ºóÔÚ Excel VBA µ÷Óá£ÊÔÁ˺ܶà´Î¶¼ÎÞ·¨·µ»ØÕýÈ·µÄ½á¹û¡£
¾ßÌåÈçÏ£º

Delphi7 ÖеIJâÊÔÔ´Â룺

//********************************************************************************************
library XlsExt;
{±È½ÏÁ½ÊýµÄ´óС£¬²¢·µ»Ø½Ï´óÕß}

uses
  SysUtils,
  Classes;

{$R *.res}

var
  SaveExit:Pointer;
procedure LibExit;              //ΪÁ˲»Ê¹Í˳öExcelʱ³öÏÖÒì³£
begin
  ExitProc:=SaveExit;          //»Ö¸´Í˳ö¹ý³ÌÁ´±í
end;

function MyMax(X,Y:SmallInt):SmallInt;stdcall;  //¶¨Ò庯Êý
begin
  try
    if X>Y then MyMax:=X else MyMax:=Y;
  except
    MyMax:=333;                                  //²âÊÔÒì³£´¦Àí£¬¿ÉÊǺÃÏñûÓп´µ½Õâ¸ö½á¹û¡£
  end;
end;

exports                              //º¯ÊýÊä³ö
  MyMax;

begin
  SaveExit:=ExitProc;                //±£´æÍ˳ö¹ý³ÌÁ´±í
  ExitProc:=@LibExit;                //ÉèÖÃLibExitΪÍ˳ö¹ý³Ì


Ïà¹ØÎÊ´ð£º

Delphi´úÂë»»³ÉVB´úÂë ¼±¼±

type SFPRDA=packed record
¡¡¡¡¡¡¡¡¡¡¡¡czmm:Word;¡¡¡¡¡¡¡¡¡¡¡¡//²Ù×÷ÃÜÂë¡£
¡¡¡¡¡¡¡¡¡¡¡¡sqcz:array[1..8] of packed record dm:Byte; mm:Word end;¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡//8¸öÊÚȨ²Ù×÷Ô ......

ACCESSµÄ×Ô¶¨Ò庯ÊýÔÚdelphiÀïÔõôÓÃÄØ...

ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()

¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...

Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!


(ÔÚA ......

תÌû£ºDELPHI±àд·þÎñ³ÌÐò×ܽáÒ»£­£­±àд¼¼ÇÉ

Ô­ÎĵØÖ·£ºhttp://hi.baidu.com/sqldebug/blog/item/8e2749213082c0589922ed61.html

Ö±½ÓÌù¹ýÀ´µÄ£¬ÓеãÂÒ£¬´ó¼Ò´ÕºÏ¿´¡£

Ò»¡¢·þÎñ³ÌÐòºÍ×ÀÃæ³ÌÐòµÄÇø±ð

Windows 2000/XP/2003µÈÖ§³ÖÒ»ÖÖ½Ð×ö¡° ......

¼±£¡DelphiÖÐÏÔʾc#µÄvs2008дµÄ¿Ø¼þ

ÎÒÏ뽫c#дµÄ¿Ø¼þǶµ½Delphi7µÄFormÖÐÏÔʾ£¬µ«ÊÇʼÖÕÊÇÃ»×ø³É£¬ÎÒͨ¹ýµ¼ÈëtlbÎļþ£¬¿ÉÒÔͨ¹ýc#дµÄ½Ó¿Ú£¬ÊµÏÖÔÚDelphiÖÐÏÔʾһ¸ö´°Ì壬µ«ÊÇÏÔʾµÄÖ»ÊÇÔÚ×ÀÃæÉϸ¡¶¯µÄ´°Ì壬ÎÞ·¨½«ËûµÄ¸¸ÈÝÆ÷Ö¸¶¨ÎªDelphiµÄForm£¬ÎÒÏë ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ