| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите разобратся с чтением из файла [D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]
maker © (2003-01-30 14:41:00)Мне необходимо читать иформацию из файла быстро и совместно с другими программами, т.е. Производить чтение когда файл уже открыт другой программой. Ещё одно, необходимо использовать только модуль Windows (uses Windows). Пробовал CreateFile, но не получается перемещатся по файлу(Seek)...
Songoku (2003-02-01 15:23:00) [1]function ReadFromFile(FilePath:String):Pointer;
var
f:HFile;
hszT: HLOCAL;
Size: LongInt;
begin
f:=_lopen(PChar(FilePath), OF_READ or OF_SHARE_DENY_READ);
Size:=_llseek(f, 0, 2);
_llseek(f, 0, 0);
hszT:=LocalAlloc(LMEM_MOVEABLE or LMEM_ZEROINIT, Size + 1);
Result:=LocalLock(hszT);
_lread(f,Result,Size);
_lclose(f);
end;
Потом на пример вот так
Edit1.Text:=Pchar(ReadFromFile("C:\Autoexec.bat"));
Игорь Шевченко (2003-01-30 14:46:00) [2]SetFilePointer
MBo (2003-01-30 14:46:00) [3]>но не получается перемещатся по файлу(Seek)...
SetFilePointer
| |
