ÎÒÏëÓà 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 дÁËÒ»¸öocxÎļþ£¬
idhttp.post£¨url,inStream,reStream£©·¢ËÍÊý¾Ý£¬ ·¢Ë͵ÄÊý¾ÝÊÇÎļþ¡£
JSP¶ËÓ¦¸ÃÈçºÎ½ÓÊÕ·¢ËÍÀ´µÄÊý¾Ý
DELPHI ´úÂëÈçÏ¡£
var
Source: ......
ʹÓÃDll Export Viewer¿´µ½dllÓÐ2¸öµ¼³öº¯Êý
º¯ÊýÃû µØÖ· Ïà¶ÔÆ«ÒÆµØÖ· ÐòºÅ Î ......
delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ
ÔõôûÈËÀíÎÒѽ
·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡¡*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
Ïò¸÷λ¸ßÊÖÇóÖú¡£
ÎÒÓÃdelphi2009±àдÁËÒ»¸ö¹ÜÀíϵͳ£¬Ê¹ÓõÄÊÇaccessÊý¾Ý¿â¡£ÏÖÔÚÏëͨ¹ý¶àÈËÒ»Æð¼ÈëÊý¾Ýºó£¬½«Êý¾Ýµ¼³ö£¬µ¼³öµÄÊý¾Ý¿â°üº¬¶à¸öÏàͬµÄ±í¡£ÔÙ½«µ¼³öµÄÊý¾ÝÒÀ´Îµ¼È뵽ͬһ¸öÊý¾Ý¿âµÄÏàͬ±íÖУ¬µ¼Èë ......
'Select * into '+TempTableName+' from OpenDataSource(''Microsoft.JET.OLEDB.4.0'',''Data Source='
+ExcelFilePath+';Mode=Read;Extended Properties=Ex ......