Скачать: CL | DM;

Помогите разобратся с чтением из файла   Найти похожие ветки 

← →
maker ©   (2003-01-30 14:41) [0]

Мне необходимо читать иформацию из файла быстро и совместно с другими программами, т.е. Производить чтение когда файл уже открыт другой программой. Ещё одно, необходимо использовать только модуль Windows (uses Windows). Пробовал CreateFile, но не получается перемещатся по файлу(Seek)...

---

← →
Игорь Шевченко ©   (2003-01-30 14:46) [1]

SetFilePointer

---

← →
MBo ©   (2003-01-30 14:46) [2]

>но не получается перемещатся по файлу(Seek)...
SetFilePointer

---

← →
Songoku   (2003-02-01 15:23) [3]

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"));

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c