ÎÒÏëÓà 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ΪÍ˳ö¹ý³Ì
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£
ûÓÐÑо¿¹ý£¬ºÇºÇ
ÓÐɶÑо¿Í·£¿
ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡
ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿
ÒòΪ²»ÊìϤDelphi £ ......
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()
¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...
Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!
(ÔÚA ......
ÇëÎÊdbook V1.10°æ±¾µÄÔ´´úÂ루delphi£©ÊDz»ÊÇÔËÐв»Á˰¡£¬ÔÚÍøÉÏÏÂÁ˺ö࣬´ò¿ªÖ÷´°ÌåµÄʱºò×ÜÊDZ¨´í,֮ǰ×Ôѧc#£¬²Å¸Õ¿ªÊ¼£¬ÏÖÔÚÀÏʦ²¼ÖÃÈÎÎñÈÃÎÒ¸Ädbook V1.10°æ±¾µÄÔ´´úÂ룬ץ¿ñÁË£¬Ò»µãÍ·Ð÷ҲûÓУ¿¸÷λ´óÏÀ¸øµ ......
ÎÒ³¢ÊÔÒ»¸ö idhttp ·ÃÎÊÍøÕ¾Á´½ÓµÄ³ÌÐò
ÔÚÉèÖôúÀí¶Ë¿ÚµÄʱºò³ö´í
±àÒëûÓдíÎó
¾ÍÊÇÔÚÔËÐеÄʱºò ³öÏÖÁË
80 is not a valid integer value µÄÎÊÌâ
ÎÒÒѾ°Ñ º¯Êý·ÖÀà³öÀ´µÄ port ת»»Îª integer ÁË ......