Последние записи
- Нужен ли сайт разработчику?
- Обсуждаем технологию I2P
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
20th
Май
можно ли как то открыть файл в одной программе два раза сразу?
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.
Любой поток в любой момент времени может вызвать это процедуру, запросив запись в любое место файла. Я так лог пишу. Если нуно, могу весь код привести, там не так много.