Добрый день, не могу разобраться никак в чём косяк( может кто поймёт причину?
Код:
if(OpenDialog1.Execute)then
begin
in_FHandle:=CreateFile(PChar(OpenDialog1.FileName), GENERIC_READ,FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
in_Size:=SetFilePointer(THandle(in_FHandle), 0, nil, ord(soEnd));
N:=Min(100,in_Size);
GetMem(buffer,N);
ReadFile(in_FHandle,buffer^,N,res,nil);
Memo1.Text:=buffer;
end;
хэндл находит, размер не нулевой, правильный, а в буфер всегда ноь считывается( без понятия почему.. помогите
разобрался, не хватало строки SetFilePointer(in_FHandle,0, nil, FILE_BEGIN);