डेल्फी - उल्लंघन उद्घाटन टेक्स्ट फ़ाइल साझा करना

Question

मैं डेल्फी 7 ऐप में पढ़ने के लिए एक टेक्स्ट फ़ाइल खोलने की कोशिश कर रहा हूं, लेकिन मुझे आई/ओ त्रुटि 32 (उल्लंघन साझा करना) मिल रहा है क्योंकि किसी अन्य एप्लिकेशन में पहले से ही फ़ाइल खुलती है। मैंने फ़ाइलमोड को "fmOpenRead या fmShareDenyNone" पर सेट करने का प्रयास किया है, लेकिन अब यह एहसास है कि यह टेक्स्ट फ़ाइलों पर लागू नहीं होता है।

क्या पाठ फ़ाइलों को पढ़ने का कोई तरीका है जो किसी अन्य एप्लिकेशन द्वारा खुले हैं?

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

Answer 1

यह आपकी समस्या को तत्काल हल करेगा। एक TStringList का उपयोग कर फ़ाइल लोड करें। बस फोन:

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

मैंने पाया कि पाठ फ़ाइलों के साथ काम कर, यह TStringList उपयोग करने के लिए सबसे अच्छा है। अन्यथा मैं TFileStream के लिए जाना होगा और वहां आप अपना खोलने का तरीका निर्दिष्ट कर सकते हैं।

Answer 2

यह इस बात पर निर्भर करता है कि दूसरी प्रक्रिया ने फ़ाइल कैसे खोला ... अगर उसने फ़ाइल खोला तो विशेष रूप से आप सफल होने वाले नहीं हैं।

और टेक्स्टफाइल पुरानी टोपी है, मुझे लगता है कि यह ओल्ड स्टाइल डॉस के साथ संगत होने के लिए विशेष मोड में खुल जाएगा। आपको TFileStream या इसी तरह का उपयोग करना चाहिए।

TStringList अन्य प्रक्रियाओं के आधार पर फिर से काम कर सकता है। लेकिन अगर फ़ाइल लिखी जा रही है (एक .log फ़ाइल की तरह) fmShareDenyWrite काम नहीं करेगा।

Answer 3

यदि मुझे सही याद है, तो टेक्स्टफाइलमोड वैरिएबल भी है जो केवल टेक्स्ट फ़ाइलों पर लागू होता है।

Answer 4

हो सकता है कि इस तरह

:

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

बल्कि LoadFromFile से, TStringList के LoadFromStream विधि का उपयोग करें। आपको लगता है कि जिस तरह से ताला लगा नियंत्रित करने के लिए मिलता है:

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; 

उदाहरण एक TStringList में लोड करने धारा उपयोग कर रहा है यही कारण है कि। यदि आप केवल टुकड़े पढ़ना चाहते हैं, तो आप ऐसा कर सकते हैं। बस स्ट्रीम से पढ़ें।