VPF::Чтение открытыго файла API функциями

gAlexKo

Дата 7.12.2011, 12:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 23.3.2011

Репутация: нет
Всего: нет

Hello, All! Подскажите!

Нужно переписать одну библиотеку на функции Windows API (чтобы работать с
файлами больше 2 гиг). Прежняя библиотека была написана на функциях типа
_lcreat, _lwrite, _lread etc. Новую библиоеку я написал, никаких проблем не
случилось кроме одной - никак не получается получать доступ на чтение у
файла который открыт на запись.
К примеру, одна прога открывает файл на запись:

Код


h = CreateFile("test.txt", GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ,
NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);

и начианает туда писать:

Код


WriteFile(h, abuf.c_str(), abuf.Length(), &wr, 0);

Друга прога пытается открыть этот же файл на чтение:

Код


h = CreateFile("test.txt", GENERIC_READ, FILE_SHARE_READ, NULL,
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);

и считывать данные (предисторию событий)

Код


int ret = ReadFile(h, buf, to_read, &read, 0);

При попытке второй проги открыть на файл на чтение происходит ошибка
открытия - "файл уже используется другим процессом."

Ниже я привожу исходники обих программ (Сбилдер, но это не важно для API):
proga1 - пишет файл "test.txt"

Код


HANDLE h; DWORD dwError;
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
//Создаем файл для записи
h = CreateFile("test.txt", GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ,
NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
if(dwError != NO_ERROR )  ShowError("create");
}
//-----------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{ CloseHandle(h); }
//----------------------------------------------------------
int count=0;
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
AnsiString abuf = count++; DWORD wr=0;
Panel1->Caption = abuf;
WriteFile(h, abuf.c_str(), abuf.Length(), &wr, 0);
}
//-----------------------------------------------------------

proga2 - читает файл "test.txt"

Код


HANDLE h;
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
//Открываем файл для чтения
h = CreateFile("test.txt", GENERIC_READ, FILE_SHARE_READ, NULL,
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
dwError = GetLastError();
if(dwError != NO_ERROR )  { ShowError("open er"); }
Timer1->Enabled = true;
}
//-------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
char buf[500]; memset(buf,0,500);
DWORD to_read = 500;
DWORD read = 0;
int ret = ReadFile(h, buf, to_read, &read, 0);
  if(ret==0) { ShowError("--"); Timer1->Enabled = false; return; }
  if(ret!=0 && read==0) { ShowError("--"); Timer1->Enabled = false;
return; }
 
Panel1->Caption = AnsiString(buf);
}
//---------------------------------------------------

M
GremlinProg

пользуйтесь кнопкой "Код", пожалуйста

Это сообщение отредактировал(а) GremlinProg - 7.12.2011, 12:43

feodorv

Дата 7.12.2011, 15:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2214
Регистрация: 30.7.2011

Репутация: 9
Всего: 45

Попробуйте открывать оба раза с FILE_SHARE_READ | FILE_SHARE_WRITE, должно помочь.

Поскольку у Вас один раз файл открывается на запись, то просто FILE_SHARE_READ не годится.

Таблица режимов совместного использования файла

Это сообщение отредактировал(а) feodorv - 7.12.2011, 17:48

--------------------

Напильник, велосипед, грабли и костыли - основные инструменты программиста...

gAlexKo

Дата 8.12.2011, 12:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 23.3.2011

Репутация: нет
Всего: нет

Цитата(feodorv @ 7.12.2011, 15:56)

Да спасибо, в этом было дело.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C/C++: Системное программирование и WinAPI \| Следующая тема »