| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Блокировка файла [D7, Win2k]
zdn © (2003-10-25 18:17:00)
Мастера помогите!!!!
Существует блокированый файл созданный внешним приложением (конкретно 1С, конкретно вход пользователя), известно что при добавлениии 1С туда информации о пользователе он увеличивается на 1024 байта. Если же пользователь покинул 1С блок в файле остается, но область блока разблокируется.
И вопрос как просмотреть файл из внешней программы (Delphi) (не 1С) и найти эти разблокированые области??????
Программный код:
Memo1.Lines.Clear;
if FileExists(FileName) then begin
try
hFile:=FileOpen(SG.Rows[SGARow].Strings[2]+"SYSLOG\links.tmp",fmShareDenyNone);
size:=Windows.GetFileSize(hFile,nil);
k:=ceil(size/1024);
for i:=1 to k do begin
try
j:=$1E8481+i;
if FileLock(hFile,j,1024) = 0 then
Memo1.Lines.Add("locked")
else
Memo1.Lines.Add("no locked");
finally
FileUnlock(hFile,j,1024);
end;
end;
finally
CloseHandle(hFile);
end;
Что не так?????
Заранее всем благодарен.
P.S. просьба к ведущему, неделю бьюсь над этим и пока без результатно, знаю, что не хватает знаний, вот и пытаюсь
узнать у сведущих мастеров, пожалуйста, не блокируйте вопрос,
это не спам, а жизненная необходимость.
zdn (2003-10-26 13:07:00) [1]
Вопрос снимается, хоть и не начал обговариваться, огромное спасибо Сергею Попову, указал на мою глупость и помог в решении проблемы.
| |
