نحوه استفاده صحیح از DBISAM جهت بالا بردن امنیت رکوردها

[دنیای دلفی]

در این زمینه بحثهای مختلفی شده که دوستان مختلف از مشکلات DBISAM زیاد گفته اند من مدتهاست که دارم روی DBISAM کار می کنم و تقریبا با تمامی روشهای استفاده صحیح استفاده از این کامپوننت قدرتمند آشنا شده ام در این تاپیک می خواهم روش های ترمیم صحیح اطلاعات با حداقل تلافات و Qptimize کرد جداول برای آزاد سازی فضای Domy اشغال شده درون Database صحبت کنم .
اولین پست من بعد از این پست نحوه ترمیم دیتابیس (کلیه جداول) در DBISAM خواهد بود از طریق کد نویسی .

موفق باشید تا بعد
:flower:

[دنیای دلفی]

procedure TForm1.FormCreate(Sender: TObject);

 var

   i:integer;

begin

    // Get the path to the data

    APath := UpperCase(ExtractFilePath(Application.ExeN  ame));

    BPath:=APath;

    if APath[Length(APath)] <> '\' then

     begin

         APath := APath + '\';

         BPath := BPath + '\';

     end;



   i:=PosEx('\REPAIR',APath,1);

    Delete(APath,i,7);

    BPath:=Apath;

    APath:=APath + 'DATABASE';

end;





procedure TForm1.RxGIFAnimator1Click(Sender: TObject);

 var

   i:integer;

   list:Tstrings;

   Result,messages:Boolean;

begin

  Result:=False;

  Messages:=True;

  list := TStringList.Create;

  try

    session.GetTableNames(APath,list);

    for i:=0 to list.Count-1 do

     begin

         Table1.DatabaseName:=APath;

         Table1.TableName:=List.Strings[i];

         Application.ProcessMessages;

         Form1.Enabled:=False;

         p.Progress:=0;

         p.Visible:=True;

         Application.ProcessMessages;

         Result:=Table1.RepairTable(True);

         if not Result then

          Messages:=false;

     end;

  finally

        list.Free;



  end;

  form1.Enabled:=True;

 

  P.Progress:=0;

end;





 

[amir_22]

چه متغييري براي ارقام بزرگ مثل چند صد ميليارد را ميتوان ذخيره كرد
حتي با وجود استفاده از متغيير largint , integer نيز استفاده كردم ولي جواب نداد

[vcldeveloper]

چه متغييري براي ارقام بزرگ مثل چند صد ميليارد را ميتوان ذخيره كرد

اگر نیاز به اعداد منفی ندارید، Cardinal تا 4294967295 را پشتیبانی میکنه. اگر به اعداد منفی هم نیاز دارید، یا به هر دلیلی Cardinal هم برای شما کافی نیست، Int64.