ESS数据库.doc

(,压缩数据库)以下代码在WIN2K,D6,,ESS环境下运行成功.//Obj,ActiveX//声明连接字符串ConstSConnectionString='Provider=;DataSource=%s;'+'JetOLEDB:DatabasePassword=%s;';//=============================================================================//Procedure:GetTempPathFileName//Author:ysai//Date:2003-01-27//Arguments:(None)//Result:string//=============================================================================functionGetTempPathFileName():string;//取得临时文件名varSPath,SFile:array[0..254]ofchar;beginGetTempPath(254,SPath);GetTempFileName(SPath,'~SM',0,SFile);result:=SFile;DeleteFile(PChar(result));end;//=============================================================================//Procedure:essFile//Author:ysai//Date:2003-01-27//Arguments:FileName:String;PassWord:string=''//Result:boolean//=============================================================================essFile(FileName:String;PassWord:string=''):boolean;//ess文件,如果文件存在则失败varSTempFileName:string;vCatalog:OleVariant;beginSTempFileName:=GetTempPathFileName;tryvCatalog:=CreateOleObject('');(format(SConnectionString,[STempFileName,PassWord]));result:=CopyFile(PChar(STempFileName),PChar(FileName),True);DeleteFile(STempFileName);exceptresult:=false;end;end;//=============================================================================//pactDatabase//Author:ysai//Date:2003-01-27//Arguments:AFileName,APassWord:string//Result:boolean//=============================================================================pactDatabase(AFileName,APassWord:string):boolean;//压缩与修复数据库,覆盖源文件varSTempFileName:string;vJE:OleVariant;beginSTempFileName:=GetTempPathFileName;tryvJE:=CreateOleObject('');pactDatabase(format(SConnectionString,[AFileName,APassWord]),format(SConnectionString,[STempFileName,APassWord]));result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);DeleteFile(STempFileName);exceptresult:=false;end;end;//===============================================