別人在讀的文件，我又能鎖住後修改，可行嗎(請看下面這個函數）(100分)

goddy · 2001-08-20

鎖沒有用SH_DENYWR bool __fastcall TFMain::ReadDBF(String DBFFileName) {    int handle, status;    long length;    /* Must have DOS Share.exe loaded for */    /* file locking to function properly */    //寫INI文件     RE->Lines->Add(DateTimeToStr(Now())+":寫Counter.dbf");    int i=0;    //如果打開文件失敗，重試1000次    for(i=0;i<1000;i++)    {        //打開dbf文件(共享方式，可讀寫)        handle = sopen(DBFFileName.c_str(),                  O_RDWR ,SH_COMPAT ,S_IREAD|S_IWRITE);        //打開成功則退出循環 //        handle = sopen(DBFFileName.c_str(),     //別人在讀我打不開了 //                 O_RDWR ,SH_DENYWR ,S_IREAD|S_IWRITE);        if(handle>-1)            break;        Application->ProcessMessages();     }     if(handle < 0)     {//如果打開1000次文件還不成功，提示打開失敗       RE->Lines->Add(DateTimeToStr(Now())+":讀Counter.dbf失敗,有人在使用");       ShowMessage("有人在使用,讀No_Counter.dbf失敗");       return false;      }    //如果加鎖文件失敗，重試1000次    for(i=0;i<1000;i++)    {      //從98L開始加鎖10個字節      status = lock(handle,98L,10);      //如果加鎖成功，退出循環      if(status==0)         break;      Application->ProcessMessages();    }    if(status!=0)    {//如果加鎖1000次都失敗，提示失敗，返回      RE->Lines->Add(DateTimeToStr(Now())+":鎖Counter.dbf失敗");      close(handle);      ShowMessage("鎖No_Counter.dbf失敗");      return false;    }    //讀舊的文號    lseek(handle, 98L, SEEK_SET);    char buf[11];    if(read(handle, buf, 10)!=10)    {//讀取失敗時返回      status = unlock(handle,98L,10);      close(handle);      RE->Lines->Add(DateTimeToStr(Now())+":讀Counter.dbf失敗");      ShowMessage("讀No_Counter.dbf失敗");      return false;    }    //把讀取的文號加1    String iTmp=Now().FormatString("YYYY").ToInt()-1911;    buf[10]=0;    String sTemp=AnsiString(buf);    if(sTemp.SubString(1,2).Trim()!=iTmp.Trim())           iTmp=iTmp+"00000001";    else       {            iTmp=sTemp.ToDouble()+1;       }    COUNTERNO=iTmp;//把新文件號放在全局變量中    //把新文號寫回文件    lseek(handle, 98L, SEEK_SET);    if(write(handle,iTmp.c_str(),10)!=10)    {//寫入失敗，解鎖，關閉，返回      status = unlock(handle,98L,10);      close(handle);      RE->Lines->Add(DateTimeToStr(Now())+":寫Counter.dbf失敗");      ShowMessage("寫No_Counter.dbf失敗");      return false;    }    //解鎖    status = unlock(handle,98L,10);    if(status!=0)//解鎖失敗，在INI文件中記錄         RE->Lines->Add(DateTimeToStr(Now())+":解鎖Counter.dbf失敗");    close(handle);    Application->ProcessMessages();    CounterNoTwo=COUNTERNO.SubString(1,2);    CounterNoSix=COUNTERNO.SubString(COUNTERNO.Length()-5,6).ToInt(); //去掉前面的0    RE->Lines->Add(DateTimeToStr(Now())+":寫Counter.dbf成功:");    return true;

goddy · 2001-08-20

我現在遇到的問題是：我和別人能同時讀寫No_count.dbf,這個對我們的系統就會出現問題 我現在想：我在讀寫時，不會與別人沖突    我讀寫時把這個文件鎖住，但別人仍可讀寫 以上那個函數不行，大家能否幫我看看問題出在何處，謝謝！

zhhc · 2001-08-20

你的程序是在什么地方不行的？ 是什么错？

wyn · 2001-09-03

你的程序沒問題啊

goddy · 2001-09-03

多人接受答案了。

goddy · 2001-09-04

多人接受答案了。

別人在讀的文件，我又能鎖住後修改，可行嗎(請看下面這個函數）(100分)

goddy

Unregistered / Unconfirmed

goddy

Unregistered / Unconfirmed

zhhc

Unregistered / Unconfirmed

wyn

Unregistered / Unconfirmed

goddy

Unregistered / Unconfirmed

goddy

Unregistered / Unconfirmed

Similar threads