如標題,謝謝.

try
  openfile....
except
  on EFOpenError do
  ......
end;

發表人 - pedro 於 2003/11/06 17:14:04

我把我的用途說明一下,我有一個數值會寫在INI檔裡面,那個數值會一直更動累計,這個檔案可能同時會有好幾個程式會用到,所以我必須去檢查這個檔案是否正被使用,如果沒有,我才將值取出運算後在存入.

Hi shihchin您好: 可以在INI裡多設一個識別值, 當有人使用使設為1, 計算完回填時再設為0, 所以需使用此INI時就可直接讀此值來作判斷 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

那若那個ini已被create 第二個程式去create時 便會raise exception 用

try 
  fini:=TIniFile.Create(...)
  dosomething
except 
  排除錯誤
end

可是這樣不是也會有同時使用的問題嗎?    

引言: Hi shihchin您好: 可以在INI裡多設一個識別值, 當有人使用使設為1, 計算完回填時再設為0, 所以需使用此INI時就可直接讀此值來作判斷 我不是高手, 高手是正在銀幕前微笑的人. < face="Verdana, Arial, Helvetica">

open and hold an exclusive lock on the file... e.g. fh := FileOpen('xxx.ini',fmShareExclusive); Then use API to access the ini, WritePrivateProfileString, GetPrivateProfile, etc.

function IsFileInUse(FileName: TFileName): Boolean; var HFileRes: HFILE; begin Result := False; if not FileExists(FileName) then Exit; HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_value); if not Result then CloseHandle(HFileRes); end; procedure TForm1.Button1Click(Sender: TObject); var InUse: Boolean; begin // ... repeat InUse := IsFileInUse('C:\xx.txt'); Application.ProcessMessages; Sleep(300); // 休息一下 until Not InUse; // ... end;

引言: 可是這樣不是也會有同時使用的問題嗎?

引言: Hi shihchin您好: 可以在INI裡多設一個識別值, 當有人使用使設為1, 計算完回填時再設為0, 所以需使用此INI時就可直接讀此值來作判斷 我不是高手, 高手是正在銀幕前微笑的人. < face="Verdana, Arial, Helvetica">

舉個例子:

var IniF : TIniFIle;
begin
   INIF := TINIFile.Create(ExtractFilePath(Application.ExeName)   'MyIni.INI');
   if IniF.ReadInteger('個人設定','執行中', 0) = 1 then 被開啟
      exit
   else begin  未被開啟
      IniF.WriteInteger('個人設定','執行中', 1);
     ...開始自己的計算, 計算完後再回寫...
   end;
   INIF.Free;
end;

一開始就先判斷並回寫, 這時間非常短 我不是高手, 高手是正在銀幕前微笑的人.

引言: 我把我的用途說明一下,我有一個數值會寫在INI檔裡面,那個數值會一直更動累計,這個檔案可能同時會有好幾個程式會用到,所以我必須去檢查這個檔案是否正被使用,如果沒有,我才將值取出運算後在存入.

很不好的方法, 有隱性的 Bug 存在於時間性因數上

1 自己寫個封裝外殼 不怕別人開 2 使用系統的特性加密 例如這個簡單的方式 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38032 3 利用壓縮工具 加上密碼也行 4 寫iso也行 5 md5判斷 也行 不過 你是要不讓別人用 還是要自己知道有改過 至於我是想開不開不是很重要

是否有其他的方法可以避免這個問題?    

引言:

引言: 我把我的用途說明一下,我有一個數值會寫在INI檔裡面,那個數值會一直更動累計,這個檔案可能同時會有好幾個程式會用到,所以我必須去檢查這個檔案是否正被使用,如果沒有,我才將值取出運算後在存入.

很不好的方法, 有隱性的 Bug 存在於時間性因數上

引言: 是否有其他的方法可以避免這個問題?

Open and lock the file exclusively and do not use TIniFile.

HANDLE hFile;
HANDLE hAppend;
DWORD  dwBytesRead, dwBytesWritten, dwPos;
char   buff[4096];     do 
{ 
    if (ReadFile(hFile, buff, 4096, &dwBytesRead, NULL)) 
    { 
        dwPos = SetFilePointer(hAppend, 0, NULL, FILE_END); 
        LockFile(hAppend, dwPos, 0, dwBytesRead, 0); 
        WriteFile(hAppend, buff, dwBytesRead, 
            &dwBytesWritten, NULL); 
        UnlockFile(hAppend, dwPos, 0, dwBytesRead, 0); 
    } 
} while (dwBytesRead == 4096); 
 
// Close both files.
 
CloseHandle(hFile); 
CloseHandle(hAppend);
 

數學系是內功很強(邏輯/分析) 資工系是招式很多(程式技巧) 就像令狐沖VS東方不敗:D [url="http://anpino.begin.8d8d.com"]Programmers Guide[/url] 發表人 - anpino 於 2003/11/20 09:42:55 發表人 - anpino 於 2003/11/20 09:45:44