конфликт совместного использования файла - Общие вопросы Delphi

Gol · 23.04.2010, 10:54

Добрый день, коллеги!
Передо мной была поставлена задача написания нового софта под старое оборудование. Задача заключается в опросе оборудования и циклической записи в файл, анализирует который другая прога. Данные в файл записываются верно (сравнивалось с оригинальным софтом за большие периоды), но вот анализирующая программа явно считывает файл с ошибками(( Т.е. налицо конфликт расшаривания файла...
Открытие и запись в файл производится следующим образом:
FileHandle:=CreateFile('C:\NewFile. bin', GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
WriteFile(FileHandle,array,100,_WRe d,nil);
Оригинальная программа была написана под MS-DOS, конфликта с анализирующей программой нет.
Возможно, кто-нибудь сталкивался с такой проблемой?
Буду благодарен за совет.

Пепел Феникса · 23.04.2010, 11:04

попробуйте полный шаринг дать...ДОС программа скорее всего шаринг вообще не юзает.

Hottabych · 23.04.2010, 11:25

Код:

...
FileHandle:=CreateFile('C:\NewFile.bin', GENERIC_WRITE or GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
if FileHandle<>INVALID_HANDLE_VALUE then
...

Полный доступ и полный шаринг

Gol · 23.04.2010, 11:28

Цитата:

Сообщение от Пепел Феникса

попробуйте полный шаринг дать...ДОС программа скорее всего шаринг вообще не юзает.

"полный шаринг" - это FILE_SHARE_READ or FILE_SHARE_WRITE ? - попробую.
Оригинальная программа - на ДОСе, а анализирующая - под WinXP вроде написана.

Gol · 23.04.2010, 11:30

Цитата:

Сообщение от Hottabych

Код:

...
FileHandle:=CreateFile('C:\NewFile.bin', GENERIC_WRITE or GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
if FileHandle<>INVALID_HANDLE_VALUE then
...

Полный доступ и полный шаринг

Спасибо, попробую.

Пепел Феникса · 23.04.2010, 11:30

да, там еще DELETE шаринг есть...попробуйте...но есть вероятность того что программа хочет эксклюзивного доступа к файлу

Gol · 23.04.2010, 11:47

Цитата:

Сообщение от Пепел Феникса

да, там еще DELETE шаринг есть...попробуйте...но есть вероятность того что программа хочет эксклюзивного доступа к файлу

Да вроде не должно быть такого - ан. прога - просто читает, монопольного доступа тоже вроде ей не надо - с моей стороны - чистая запись примерно по 10 бинарных строк в сек.

Пепел Феникса · 23.04.2010, 11:52

Цитата:

монопольного доступа тоже вроде ей не надо

ну проге может и не надо, а вот программис её писавший мог сказать иначе..

Hottabych · 23.04.2010, 12:10

Да, кстати еще может быть неправильно записана функция WriteFile(FileHandle,array,100,_WRe d,nil);
Точно не помню, но если массив динамический, то так:
WriteFile(FileHandle,arr[0],100,_WRe d,nil);

Gol · 23.04.2010, 12:27

Массив статический, к тому же запись идёт правильная - проверялась на длинных логах. Результаты конфликта - только в анализирующей проге.

23.04.2010, 10:54	#1
Gol Регистрация: 22.04.2010 Сообщений: 5	конфликт совместного использования файла Добрый день, коллеги! Передо мной была поставлена задача написания нового софта под старое оборудование. Задача заключается в опросе оборудования и циклической записи в файл, анализирует который другая прога. Данные в файл записываются верно (сравнивалось с оригинальным софтом за большие периоды), но вот анализирующая программа явно считывает файл с ошибками(( Т.е. налицо конфликт расшаривания файла... Открытие и запись в файл производится следующим образом: FileHandle:=CreateFile('C:\NewFile. bin', GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0); WriteFile(FileHandle,array,100,_WRe d,nil); Оригинальная программа была написана под MS-DOS, конфликта с анализирующей программой нет. Возможно, кто-нибудь сталкивался с такой проблемой? Буду благодарен за совет.

23.04.2010, 11:04	#2
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	попробуйте полный шаринг дать...ДОС программа скорее всего шаринг вообще не юзает. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

23.04.2010, 11:25	#3
Hottabych Форумчанин Регистрация: 13.01.2008 Сообщений: 140	Код: `... FileHandle:=CreateFile('C:\NewFile.bin', GENERIC_WRITE or GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0); if FileHandle<>INVALID_HANDLE_VALUE then ...` Полный доступ и полный шаринг

23.04.2010, 11:30	#6
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	да, там еще DELETE шаринг есть...попробуйте...но есть вероятность того что программа хочет эксклюзивного доступа к файлу Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ищу партнёров для совместного заработка	JarProger	Фриланс	6	14.09.2009 09:30
Имя mp3 файла без использования Bass	Дима я	Мультимедиа в Delphi	7	28.07.2009 12:24
конфликт файла записей и компонентов формы	Deathwatcher	Общие вопросы Delphi	9	14.11.2008 13:03

23.04.2010, 12:10	#9
Hottabych Форумчанин Регистрация: 13.01.2008 Сообщений: 140	Да, кстати еще может быть неправильно записана функция WriteFile(FileHandle,array,100,_WRe d,nil); Точно не помню, но если массив динамический, то так: WriteFile(FileHandle,arr[0],100,_WRe d,nil);

23.04.2010, 12:27	#10
Gol Регистрация: 22.04.2010 Сообщений: 5	Массив статический, к тому же запись идёт правильная - проверялась на длинных логах. Результаты конфликта - только в анализирующей проге.