
Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука

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