"Horsun Vlad" ...
> "Мадорский Г.В." ...
> >
> > >
> > > А как называется ф-ция, которой файлы "открываются" ?
> > >
> > > Я бы вставил вызов этой ф-ции перед LoadFromFile(),
> > > с теми же пар-рами, есс-но, и посмотрел бы на GetLastError
> > >
> > Надо будет попробовать. Вообще-то там TFileStream создается, а потом
>
> constructor TFileStream.Create(const FileName: string; Mode: Word; Rights:
> Cardinal);
> ...
> inherited Create(FileOpen(FileName, Mode));
> ...
>
>
> function FileOpen(const FileName: string; Mode: LongWord): Integer;
> {$IFDEF MSWINDOWS}
> ...
> Result := Integer(CreateFile(PChar(FileName), AccessMode[Mode and 3],
>
>
> И выведи (в лог\на экран) с результатом GetLastError имя файла,
> которое попадает в ф-цию, тоже. Возможно тут-то ты и удивишься :)
Да. Наврал я. Там fmOpenRead, для которого зовётся
inherited Create(FileOpen(FileName, Mode));
if FHandle < 0 then
raise EFOpenError.CreateResFmt(@SFOpenError, [FileName]);
причём SFOpenError = 'Cannot open file %s';
Да и имя файла ты показывал...
--
Хорсун Влад
--~--~---------~--~----~------------~-------~--~----~
-~----------~----~----~----~------~----~------~--~---
