कोड के इस बिट में टोलस्ट्रीम को कैसे मुक्त करें

Question

यह डेल्फी में किए गए कस्टम नेमस्पेसर हैंडलर से है जो मैं वेबब्रोसर घटक में फ़ाइलों को लोड करने के लिए उपयोग करता हूं।

 

Datastream:IStream; 

var 
    F: TFileStream; 
    Dummy: INT64; 
begin 

    F:=TFileStream.Create(strfilename fmOpenRead); 
    CreateStreamOnHGlobal(0, True, DataStream); 
    TOleStream.Create(DataStream).CopyFrom(F, F.Size); 
    DataStream.Seek(0, STREAM_SEEK_SET, Dummy); 
    TotalSize := F.Size; 
    F.Free; 
end; 

समस्या है जब कार्यक्रम समाप्त हो जाती है और कहता है कि TOleStream मुक्त नहीं किया गया था कि Fastmm4 एक स्मृति रिसाव त्रुटि देता है। मैं इसे कैसे मुक्त करूं? अगर मैं एक चर में TOleStream रख दिया और इस

 
var 
TOS:TOleStream; 

TOS:=TOleStream.Create(DataStream) 
TOS.CopyFrom(F, F.Size); 

.. 
TOS.Free; 
End; 

की तरह आवंटित मैं टीओएस चर मुक्त कर जब मैं एक अंत में त्रुटि (EAccessViolation ComObj में TComObject.ObjRelease की ओर इशारा करते) मिलता है। मैं आपकी टिप्पणियों और सहायता की सराहना करता हूं। यह समस्या मुझे थोड़ी देर के लिए परेशान कर रही है।

मैं यह भी सोच रहा हूं कि यह FastMM4 के साथ कुछ हो सकता है? क्या यह झूठी सूचना दे सकता है? निम्नलिखित कोड जैसे कुछ कोड में। आमतौर पर TOLEStream कैसे मुक्त किया जाता है?

 
f.SaveToStream(TOleStream.Create(DataStream)); 

और क्या TFileStream का उपयोग किए बिना डेटास्ट्रीम को डेटा भेजने का कोई तरीका है?

हाय रेमी, आप fastmm और समस्या प्रक्रिया यहाँ के साथ नाम स्थान हैंडलर की एक काम डेमो परियोजना पा सकते हैं: http://mode5.webs.com/namespace.7z जब इस परियोजना लोड, नाम स्थान हैंडलर फ़ाइलें लोड करने के लिए बटन क्लिक करें। जब आप बाहर निकलते हैं, तो आपको फास्टम त्रुटि मिलनी चाहिए। सधन्यवाद,

Answer 1

आप कुछ करने के लिए एक IStream इंटरफ़ेस पारित करने के लिए की जरूरत है, तो आप TStreamAdapter वस्तु में दिखना चाहिए, आप, TFileStream पर एक बना सकते हैं और इसके IStream इंटरफ़ेस गुजरती हैं।