डेल्फी 2009

Question

में 'स्ट्रिंग' के लिए TMemoryStream परिवर्तित हम पहले डेल्फी 2009 तक निम्नलिखित कोड था:

<span style="font: 10pt Courier New;"><span class="pas1-reservedword">function</span><span class="pas1-space"> </span><span class="pas1-identifier">MemoryStreamToString(M:</span><span class="pas1-space"> </span><span class="pas1-identifier">TMemoryStream):</span><span class="pas1-space"> </span><span class="pas1-reservedword">String</span><span class="pas1-symbol">; 
</span><span class="pas1-reservedword">var 
</span><span class="pas1-space"> </span><span class="pas1-identifier">NewCapacity:</span><span class="pas1-space"> </span><span class="pas1-identifier">Longint; 
</span><span class="pas1-reservedword">begin 
</span><span class="pas1-space"> </span><span class="pas1-reservedword">if</span><span class="pas1-space"> </span><span class="pas1-symbol">(M.Size</span><span class="pas1-space"> </span><span class="pas1-symbol">=</span><span class="pas1-space"> </span><span class="pas1-number">0)</span><span class="pas1-space"> </span><span class="pas1-reservedword">or</span><span class="pas1-space"> </span><span class="pas1-symbol">(M.Memory</span><span class="pas1-space"> </span><span class="pas1-symbol">=</span><span class="pas1-space"> </span><span class="pas1-reservedword">nil</span><span class="pas1-symbol">)</span><span class="pas1-space"> </span><span class="pas1-reservedword">then 
</span><span class="pas1-space"> </span><span class="pas1-identifier">Result:=</span><span class="pas1-space"> </span><span class="pas1-string">'' 
</span><span class="pas1-space"> </span><span class="pas1-reservedword">else 
</span><span class="pas1-space"> </span><span class="pas1-reservedword">begin 
</span><span class="pas1-space"> </span><span class="pas1-reservedword">if</span><span class="pas1-space"> </span><span class="pas1-identifier">TMemoryStreamProtected(M).Capacity</span><span class="pas1-space"> </span><span class="pas1-symbol">=</span><span class="pas1-space"> </span><span class="pas1-identifier">M.Size</span><span class="pas1-space"> </span><span class="pas1-reservedword">then 
</span><span class="pas1-space"> </span><span class="pas1-reservedword">begin 
</span><span class="pas1-space">  </span><span class="pas1-identifier">NewCapacity:=</span><span class="pas1-space"> </span><span class="pas1-identifier">M.Size+1; 
</span><span class="pas1-space">  </span><span class="pas1-identifier">TMemoryStreamProtected(M).Realloc(NewCapacity); 
</span><span class="pas1-space"> </span><span class="pas1-reservedword">end</span><span class="pas1-symbol">; 
</span><span class="pas1-space"> </span><span class="pas1-identifier">NullString(M.Memory^)[M.Size]:=</span><span class="pas1-space"> </span><span class="pas1-character">#0; 
</span><span class="pas1-space"> </span><span class="pas1-identifier">Result:=</span><span class="pas1-space"> </span><span class="pas1-identifier">StrPas(M.Memory); 
</span><span class="pas1-space"> </span><span class="pas1-reservedword">end</span><span class="pas1-symbol">; 
</span><span class="pas1-reservedword">end</span><span class="pas1-symbol">; 
</span></span> 

हम डेल्फी 2009 के साथ अब यूनिकोड समर्थन करने के लिए इस कोड को कैसे परिवर्तित कर सकते हैं?

Answer 1

आपके पास जो कोड है वह पुराने डेल्फी संस्करणों के लिए भी अनावश्यक रूप से जटिल है। एक धारा बल के स्ट्रिंग संस्करण को क्यों लाया जाना चाहिए, स्ट्रीम की स्मृति को फिर से आवंटित किया जाना चाहिए?

function MemoryStreamToString(M: TMemoryStream): string; 
begin 
    SetString(Result, PChar(M.Memory), M.Size div SizeOf(Char)); 
end; 

बस इतना ही डेल्फी संस्करणों में काम करता है, न सिर्फ डेल्फी 2009 यह काम करता है जब धारा किसी विशेष मामले के बिना खाली है। SetString एक कम सराहनीय समारोह है।

अपनी स्ट्रीम की सामग्री को डेल्फी 2009 तक अपने स्विच के साथ यूनिकोड को नहीं बदल रहे हैं, तो आप के बजाय इस समारोह का उपयोग करना चाहिए:

function MemoryStreamToString(M: TMemoryStream): AnsiString; 
begin 
    SetString(Result, PAnsiChar(M.Memory), M.Size); 
end; 

कि अपने मूल कोड के बराबर है, लेकिन विशेष मामलों को छोड़ देता है ।

Answer 2

मैं अब तक अपग्रेड नहीं किया है, लेकिन मेरी समझ है:

NewCapacity := (M.Size + 1) * SizeOf(Char); 

Answer 3

या शायद आप अपने कोड सीधे एक TStringStream सीधे उपयोग करने के लिए refactor कर सकते हैं? आप इसे TMemoryStream के बजाय उपयोग कर सकते हैं (उनके पास एक ही इंटरफ़ेस है) और आप इसे myString: = myStringStream.DataString को कॉल करके इसे एक स्ट्रिंग में 'रूपांतरित' कर सकते हैं;

Answer 4

एक "स्वच्छ" जिस तरह से हो सकता है:

function StreamToString(aStream: TStream): string; 
var 
    SS: TStringStream; 
begin 
    if aStream <> nil then 
    begin 
    SS := TStringStream.Create(''); 
    try 
     SS.CopyFrom(aStream, 0); // No need to position at 0 nor provide size 
     Result := SS.DataString; 
    finally 
     SS.Free; 
    end; 
    end else 
    begin 
    Result := ''; 
    end; 
end; 

Answer 5

मैं का उपयोग करें:

function StreamToString(const Stream: TStream; const Encoding: TEncoding): string; 
var 
    StringBytes: TBytes; 
begin 
    Stream.Position := 0; 
    SetLength(StringBytes, Stream.Size); 
    Stream.ReadBuffer(StringBytes, Stream.Size); 
    Result := Encoding.GetString(StringBytes); 
end; 

यह केवल डेल्फी XE7 साथ परीक्षण किया गया है।