Delphi - Chia sẻ tệp văn bản mở vi phạm

Question

Tôi đang cố gắng mở tệp văn bản để đọc trong ứng dụng Delphi 7, nhưng đang gặp lỗi I/O 32 (chia sẻ vi phạm) vì ứng dụng khác đã mở tệp. Tôi đã cố gắng thiết lập FileMode để "fmOpenRead hoặc fmShareDenyNone" nhưng bây giờ nhận ra điều này không áp dụng cho các tập tin văn bản anyway.

Có cách nào để đọc tệp văn bản được mở bởi ứng dụng khác không?

var 
    f: TextFile; 
begin 
    FileMode := fmOpenRead or fmShareDenyNone; // FileMode IS NOT APPLICABLE TO TEXT FILES!! 
    AssignFile(f, FileName); 
    Reset(f); 

Answer 1

Điều này sẽ khắc phục sự cố của bạn ngay lập tức. Tải tệp bằng TStringList. Chỉ cần gọi:

... 
var sl: TStringList; 
begin 
    sl := TStringList.create(); 
    try 
    sl.loadFromFile(Filename); 
    ...do your stuff here... 
    finally 
    freeAndNil(sl); 
    end; 
end; 

Tôi thấy rằng việc xử lý các tệp văn bản, tốt nhất là sử dụng TStringList. Nếu không tôi sẽ đi cho TFileStream và ở đó bạn có thể chỉ định chế độ mở của bạn.

Answer 2

Nó phụ thuộc vào cách mà quá trình khác đã mở tệp ... Nếu nó mở tệp độc quyền, bạn sẽ không thành công chút nào.

Và TextFile là chiếc mũ cũ, tôi nghĩ nó sẽ mở ở chế độ độc quyền để tương thích với kiểu DOS cũ. Bạn nên sử dụng TFileStream hoặc tương tự.

TStringList cũng có thể hoạt động lại, tùy thuộc vào quá trình khác đang thực hiện. Nhưng nếu tệp đang được viết (như tệp .log) thì fmShareDenyWrite sẽ không hoạt động.

Answer 3

Nếu tôi nhớ chính xác, cũng có một biến Textfilemode chỉ áp dụng cho các tệp văn bản.

Answer 4

Có lẽ như thế này:

vFileList := TStringList.Create; 
    try 
    vFileStream := TFileStream.Create('myfile.txt', fmOpenRead or fmShareDenyNone); 
    try 
     vFileList.LoadFromStream(vFileStream); 
    finally 
     vFileStream.Free; 
    end; 
    // Use vFileList 
    finally 
    vFileList.Free; 
    end; 

Answer 5

Sử dụng phương pháp LoadFromStream của TStringList, chứ không phải là LoadFromFile. Bạn có thể kiểm soát khóa theo cách đó:

var 
    slFile: TStrings; 
    stream: TStream; 
begin 
    slFile := TStringList.Create; 
    try 
     stream := TFileStream.Create(filename, fmOpenRead or fmShareDenyNone); 
     try 
     slFile.LoadFromStream(stream); 
     finally 
     stream.Free; 
     end; 

     //Use the stringlist 
    finally 
     slFile.Free; 
    end; 
end; 

Ví dụ đó đang sử dụng luồng để tải vào TStringList. Nếu bạn chỉ muốn đọc các phần, bạn có thể làm điều đó. Chỉ cần đọc từ luồng.