Delphi XE8：MemoryStream充滿垃圾

Question

IdFTP_Main.Get('test.ini',MemoryStream); 
MemoryStream.Read(Buffer,MemoryStream.Size); 
SetString(TempStatus, PChar(MemoryStream.Memory), MemoryStream.Size div SizeOf(WideChar)); 

test.ini包含一個簡短的純文本字符串。內存大小MemoryStream.Size表示8，這是正確的。 TempString的內容是超過一百個控制字符。所有幫助讚賞。

編輯：此代碼將產生正確的文件，但要求我寫一個副本，這是不安全的：

IdFTP_Main.Get('test.ini',MemoryStream); 
MemoryStream.Position := 0; 
MemoryStream.SaveToFile('./test.ini'); 

Answer 1

你是治療流好像是UTF-16LE編碼。我懷疑事實並非如此。你需要確定編碼。然後，使用一個字符串流是這樣的：

var 
    Stream: TStringStream; 
    Str: string 
.... 
Stream := TStringStream.Create('', TEncoding.UTF8); 
try 
    IdFTP_Main.Get('test.ini', Stream); 
    Str := Stream.DataString; 
finally 
    Stream.Free; 
end; 

還是一個字節流是這樣的：

var 
    Stream: TBytesStream; 
    Str: string 
.... 
Stream := TBytesStream.Create; 
try 
    IdFTP_Main.Get('test.ini', Stream); 
    Str := TEncoding.UTF8.GetString(Stream.Bytes, 0, Stream.Size); 
finally 
    Stream.Free; 
end; 

我在編碼猜測。您需要替換正確的編碼。

在這種情況下，調用流的Read方法是沒有意義的。我剛剛忽略了這一點。

我們看不到您如何配置TIdFTP對象。 TransferType設置是否正確？爲了進一步調試，請使用上面的字節流代碼並轉儲下載的字節。檢查它們是否符合你的期望。