چند سوال در مورد Pack

[رضا عربلو]

با سلام.
حتماً اساتید گرامی تا به حال با pack کردن بانک های پارادکس خود با الگوریتمی شبیه به زیر پرداخته اند.
(می بخشید من سیستم نامگذاری دراز اما کارای خودم را دارم)

procedure Procedure_ParadoxPack(Table_Paradox : TTable);

var

   CRTblDesc_TBDesc : CRTblDesc; // Uses BDE

   hDbiDb_hDb : hDbiDb;          // Uses BDE

   CharArray_TablePath : array[0..DBIMAXPATHLEN] of char;

begin

   FillChar(CRTblDesc_TBDesc, SizeOf(CRTblDesc_TBDesc), 0);

   with CRTblDesc_TBDesc do

   begin

      StrPCopy(szTblName, Table_Paradox.TableName);

      StrPCopy(szTblType, szPARADOX);

      bPack := True;

   end;

   Table_Paradox.Open;

   hDbiDb_hDb := nil;

   Check(DbiGetDirectory(Table_Paradox.DBHand  le, True, CharArray_TablePath));

   Table_Paradox.Close;

   Check(DbiOpenDatabase(nil, 'STANDARD', dbiREADWRITE, dbiOPENEXCL, nil, 0, nil, nil, hDbiDb_hDb));

   Check(DbiSetDirectory(hDbiDb_hDb, CharArray_TablePath));

   Check(DbiDoRestructure(hDbiDb_hDb, 1, @CRTblDesc_TBDesc, nil, nil, nil, False));

   Table_Paradox.Open;

   Table_Paradox.Close; {// I added}

end;

حال سوال های من به قرار زیر است.
1 - چگونه می توانم در حین انجام pack برای اینکه کاربر حوصله اش سر نرود و در ضمن از مدت زمان لازم برای انجام این دستور و میزان ÷یشرفت دقیق این عمل اگاه شود position یک progressbar را مقدار داد.
2 - وقتیکه دستور فوق را به یک بانک پارادکس بزرگ می زنم. برنامه بسیار کند می شود چگونه می توانم. بلافاصله بعد از دستور فوق دوباره درایورهای بانک الاعاتی را در حافظه لود کنم تا سرعت برنامه از دست نرود.

[شفیعی]

سلام
برای فشرده سازی یک جدول از نوع پاراداکس می توانید از کد زیر استفاده کنید

procedure PARADOXPACK(TABLE:TTABLE);

VAR

TBDESC:CRTBLDESC;

HDB:HDBIDB;

TABLEPATH:ARRAY[0..DBIMAXPATHLEN] OF CHAR;

BEGIN

FillChar(TBDESC,SIZEOF(TBDESC),0);

WITH TBDESC DO BEGIN

StrPCopy(SZTBLNAME,TABLE.TableName);

STRPCOPY(SZTBLTYPE,SZPARADOX);

BPACK:=TRUE;

END;

TABLE.Open;

HDB:=NIL;

Check(DBIGETDIRECTORY(TABLE.DBHANDLE,TRUE,  TABLEPATH));

TABLE.Close;

CHECK(DBIOPENDATABASE(NIL,'STANDARD',DBIRE  ADWRITE,DBIOPENEXCL,NIL,0,NIL,HDB));

CHECK(DBISETDIRECTORY(HDB,TABLEPATH)&#  41;;

Check(DBIDORESTRUCTURE(HDB,1,@TBDESC,NIL,N  IL,NIL,FALSE));

TABLE.Open;

END;

برای فشرده سازی جداول نوع DBASE از دستور زیر استفاده نمایید

DBIPACKTABLE(TABLE1.DBHANDLE,TABLE1.HANDLE,NIL  ,NIL,TRUE);

نقل از کتاب 296 برنامه اجرا شده در دلفی 6 ( نویسنده : حسین ریاضی )

[رضا عربلو]

با سلام
این جواب من نیست. :shock:

این پروسیجر را من هم از کتاب 296 برنامه اجرا شده در دلفی 6 پیدا کرده ام و برای ان افرادی که کتاب فوق را نتوانسته ان تهیه کنند نوشته ام. 8)

[JavanSoft]

1) اگر واقعا به حوصله کاربرانتون علاقه مندید می تونید با نوشتن یک Thread زمان تخمینی مانده را نمایش دهید
اما من پیشنهاد می کنم بجای اینکار از یک Lable ساده استفاده کنید "لطفا کمی صبر کنید ...."(و زمان "کمی را هم قید کنید ")

2)بدلیل بافری که BDE استفاده می کند پیشنهاد می کنم اصلا اینکار را نکنید