В нижеприведенном коде при вызове UOCFGStringList.SaveToStream(Stream); при невыясненных обстоятельствах у некоторых пользователей иногда вылетает ошибка EWriteError с сообщением Stream write error.
И вторая, не связанная с первой, условия те же. При Stream.DisposeOf; (то, что в конце) вылетает EAccessViolation.
Я как только не крутил - не могу представить себе, как и из-за чего это может быть. Может кто-то сталкивался?
P.S. Дополнительные Stream создаются из-за fmShareDenyNone, которого нет в стандартном TStringList.SaveToFile. Т.к. файл с очень большой вероятностью может уже отрыт, то вот так делаю.
P.P.S. с первым стримом, который для чтения - проблем нет вообще.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
var Stream : TStream;
UOCFGStringList := TStringList.Create;
try
Stream := nil;
if FileExists(ClientDir + 'uo.cfg') then
try
Stream := TFileStream.Create(ClientDir + 'uo.cfg', fmShareDenyNone);
UOCFGStringList.LoadFromStream(Stream);
finally
if Assigned(Stream) then Stream.DisposeOf;
end;
i := 0;
while i < UOCFGStringList.Count do
begin
if UOCFGStringList.Strings[i].Contains('AcctID') then
UOCFGStringList.Delete(i);
if i >= UOCFGStringList.Count then Break;
if UOCFGStringList.Strings[i].Contains('AcctPassword') then
UOCFGStringList.Delete(i);
if i >= UOCFGStringList.Count then Break;
//...еще пять таких же
Inc(i);
end;
UOCFGStringList.Add('AcctPassword=' + String(b));
UOCFGStringList.Add('RememberAcctPW=on');
try
try
if FileExists(ClientDir + 'uo.cfg') then
Stream := TFileStream.Create(ClientDir + 'uo.cfg',
fmOpenWrite + fmShareDenyNone)
else
Stream := TFileStream.Create(ClientDir + 'uo.cfg',
fmCreate);
except
//обрабатываю ошибку
Exit;
end;
UOCFGStringList.SaveToStream(Stream);
finally
if Assigned(Stream) then Stream.DisposeOf;
end;
finally
UOCFGStringList.Free;
end;
На всякий случай приложил 2 репорта от эврики, с 2 ошибками.
Гуглил, в основном все сводится к багам VS и советам проверить хендл файла в process explorer.
