можно ли как то открыть файл в одной программе два раза сразу?

Posted by Chas under Топик-обзор

(получив разные хендлы, с разными позициями соответственно)
иль хотелось бы еще проще, по одному хендлу сделать оное, возможно ли такое иль писать свой класс для работы таким образом?

цель, дать нескольким потокам возможность работать с одним файлов одновременно(каждому потоку нужна своя позиция в файле)

элементарно, через OVERLAPPED:

var

  OL: POVERLAPPED;

  ofs: unsigned; // 32 or 64 bit offset

begin

    // тут находим/создаём свободный OL

    //

    if (nil <> OL) then begin

      //

      OL.Offset := ofs and $FFFFFFFF;

      {$IFDEF CPU64 }

      OL.OffsetHigh := ofs shr 32;

      {$ELSE }

      OL.OffsetHigh := 0;

      {$ENDIF CPU64 }

      //

      result := WriteFile(handle, g_logOLBufs, len, nil, OL);

      if (not result and (ERROR_IO_PENDING = GetLastError())) then

	result := true	// report no error

      else

	SetEvent(OL.hEvent);

      //

    end;

end;

g_logOLBufs — массив буферов (для каждого OL свой буфер).
Только файл handle должен быть открыт с флагом OVERLAPPED.

Любой поток в любой момент времени может вызвать это процедуру, запросив запись в любое место файла. Я так лог пишу. Если нуно, могу весь код привести, там не так много.

тема на форуме

Похожие статьи

• Синтезатор на Delphi
• Сохранение и чтение файла в StringGrid
• Определение размера открытого файла
• Получить размер файла
• Копирование файлов в делфи
• Как проверить существует ли файл?
• Как можно узнать контрольную сумму файла?
• Дерево жесткого диска в StringList
• Получить список файлов и время создания файла в ListView
• Как открыть файл в Memo используя OpenDialog?