ÎÒÏëÓà 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 £ ......
ÎÊÎʸ÷λ¸ßÊÖ£¬1.ACCESSÊý¾Ý¿âÄܹ»´æ´¢Í¼Æ¬¸ñʽµÄÄÚÈÝÂð£¨JPEG BMP)£¬Èç¹û¿ÉÒÔÓ¦¸ÃÓÃʲô¸ñʽ
2.ΪÁËÕýÈ·ÏÔʾÊý¾Ý¿âÖеÄͼƬdelphiÖÐÓ¦Óõ½ÄÇЩ¿Ø¼þ
......
ллÁË¡£×îºÃÓдúÂë
Insert into Table2(field1,field2,...) select value1,value2,... from Table1
insert into ±íÒ» select * from ±í¶þ
Èç¹û×ֶβ»Ò»Ö£¬ÒªÖ¸¶¨×Ö¶Î
insert into ±íÒ»(A,B) se ......
ÎÒµ÷ÓÃvcµÄdll£¬´«ËͽṹÌå²ÎÊý¡£vc½ÓÊܺó´ÓÄÚ´æÖп½±´³öÎÒ´«Ë͵ÄÖµ¡£×ª»»Ö®ºóÊÇÂÒÂë
À´´íµØ·½ÁË.
È¥DELPHI
ddd
ÖªµÀ´íÁË
ÓÐû¾ßÌå´úÂë°¡
//ÏòÖÕ¶Ë·¢ËÍÃŽû±¨¾¯ÐÅÏ¢
function alar ......
project project3.exe raised exception class ERemotableException with message 'access violation at address 004037B in module'project2.exe'.read of address 00000003'.process stopped.use ......