Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Глюки с открытием файла   Найти похожие ветки 

 
*Pavel ©   (2004-05-07 16:23) [0]

Использую unit uCRC32;
В нем есть
function  CRC32Stream(FName: String; Count: Integer;
const BufSize: Cardinal = 1024): Cardinal;
Вызываю ее из основной программы
if CRC32Stream(OpenSaveDialog.FileName, FSize) = CRC then label1.Caption := "ОК";
Вываливается exception "......... Stream read error......."
в следующем месте (в uCRC32)

function  CRC32Stream(FName: String; Count: Integer;
const BufSize: Cardinal = 1024): Cardinal;
var
N: Cardinal;
Buffer: Pointer;
     source : TFileStream;
begin
     source := TFileStream.Create(FName, fmOpenRead);   // <---вылет тут
     ..................

Самое интересное - все это прекрасно работает в классическом VCL project"e.

Может кто знает в чем траблы ?


 
*Pavel ©   (2004-05-07 16:37) [1]

Иногда вываливается в том же месте сообщение:
Vta.exe raised exception class EFOpenError with message "Cannot open file D:\Vta\test1.exe". Process stopped. Use step or Run to continue.


 
SPeller ©   (2004-05-07 16:54) [2]

Может этот файл был открыт до этой функции? Кстати, что говорит ошибка в случаях кроме "иногда" ?


 
*Pavel ©   (2004-05-07 17:35) [3]

>> Speller

Нет, файл не был открыт, т.к. инструкция
source := TFileStream.Create(FName, fmOpenRead);
стоит первой в этой функции.

Вываливается ошибка на всех абсолютно файлах.
Существуют два вида ошибок: либо "Cannot open file *******.***"
либо "Stream read error", но первая возникает значительно чаще.
Есть у меня предчувствие, что тут причастны следующие юниты:
....\Delphi6\Kol\sysdcu_d6\*.dcu. (судя по инструкции - альтернативная замена делфийским)


 
*Pavel ©   (2004-05-07 17:46) [4]

Вариант с уже открытым файлом не катит по одной причине (повторяюсь): Классический VCL проект работает прекрасно на любой версии Delphi и Windows. Но стоит подрубить этот юнит (uCRC32) к KOL_MCK проекту и вызвать ту самую функцию - возникает exception.


 
Gandalf ©   (2004-05-07 17:52) [5]

Это KOL модуль? У нас нет TFileStream...


 
SPeller ©   (2004-05-07 18:51) [6]

А если скомпилить проект без замены системных библиотек, ошибка есть?



Страницы: 1 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.049 c
3-1100531559
Dionnis
2004-11-15 18:12
2004.12.12
Использование индексов


8-1094843851
KADAN
2004-09-10 23:17
2004.12.12
Длительность музыкальных и видеофайлов


3-1100183875
msguns
2004-11-11 17:37
2004.12.12
Конструктор запросов


1-1101738973
Гриша
2004-11-29 17:36
2004.12.12
мемо


1-1101452426
sergg
2004-11-26 10:00
2004.12.12
Надпись на BitBtn в две строки