SetLengthの呼び出し時にアプリケーションがフリーズする

Question

この質問は私の問題を解決するかもしれないし、解決しないかもしれないが、私はDelphi/Windowsがこれを引き起こす方法でどのように振る舞うかを学びたい。

サードパーティコンポーネントを使用してOutlook .msgファイルを読み込むアプリケーションがあります。

場合によっては（特定のメール）、SetLengthを呼び出すときにアプリケーションがフリーズします（コンポーネントの内部には、ソースコードがあります）。 これは、setLengthがファイル（ストリーム）からプロパティをロードするプロシージャの内部で呼び出されたときに発生することがあります。それは同じメールで同じ場所に起こり、毎回再現することができます。

明らかにコンポーネントは多くのことを行い、おそらくこれのいくつかの副作用です。ただし、メールには第三者コンポーネントの開発者に送信できない機密データが含まれているため、デバッグするために送信することはできません。

プログラムは、ドメイン上のWindows XPで実行されています。 奇妙なことは、プログラムを実行しているユーザーがローカルマシン上で管理者に設定されていない場合にのみ発生するということです。正確には何WriteStorageToStream

ms := TMemoryStream.Create; 
try 
    WriteStorageToStream(SubStorage, ms); 
    ApplyValue(ms, ms.Size) 
finally 
    ms.Free; 
end; 

procedure ApplyValue(Stream: TStream; brLen: Integer); 
var 
    s: AnsiString; 
begin 
    SetLength(s, brLen);   // this freezes it all. brLen=3512 
    FillChar(s[1], brLen, #0); 
    Stream.Read(s[1], brLen); 
    Value := s; 
end; 

は私には不明であるが、我々は、ストリームを操作していないとbrLenが整数値を持っているので、私はそれは無関係だと仮定します。

Answer 1

単純なメモリ上書きだったので、メモリ管理構造体を使用しようとするSetLengthが呼び出されたときにメモリマネージャのエラーが発生します。問題はWriteStorageToStream（SubStorage、ms）にあります。

これを見つけるには、FastMMデバッグバージョンでメモリ上書き検出オプションをオンにしてください。

Answer 2

SetLengthが3512文字のAnsiStringでフリーズすることは絶対にありません。それが凍っていて、どこか早く（WriteStorageToSteamのような）ではないことはどうですか？おそらく、これをデバッガで実行していると思われます。 CPUが凍結されている場合、そのプロセススレッドでCPUが100％にスパイクしますか？特定の電子メールでのみフリーズするという事実は、それらの電子メールの内容に何かがフリーズを引き起こしていることを示しています。 SetLengthの呼び出しは内容とは関係ありません。それは長さだけを気にします。