Developing.ru

Код: Выделить всё

{ (C) Somewhere 01.03.07 00:37 }
const
  FAM_Read = 0; {File access mode}
  FAM_Write = 1;
  FAM_ReadWrite = 2;
  FSM_Compat = 0; { File share mode }
  FSM_DenyAll = 16;
  FSM_DenyWrite = 32;
  FSM_DenyRead = 48;
  FSM_DenyNone = 64;
  FAC_ReadOnly = 1; { File attribute constant }
  FAC_Hidden = 2;
  FAC_System = 4;
  FAC_Volume = 8;
  FAC_Archive = 32;
var
  IOError : Word;
  hFile   : Word;
  rCount  : Word;
  Buf     : Array[0..199] of Word;

procedure OpenFile(var fHandle: Word; fPath :String; fAccessMode: Byte);
var h: Word;
begin
fPath := fPath + #0;
asm
push ds
push ss
pop ds
lea dx, fPath
inc dx
mov al, fAccessMode
mov ah, 3Dh
int 21h
pop ds
jnc @noerr
mov IOError, ax
jmp @ex
	@noerr:
mov h, ax
	@ex:
end;
fHandle := h;
end;

procedure CreateFile(var fHandle: Word; fPath :String; fAttr: Byte);
var h : Word;
begin
fPath := fPath + #0;
asm
push ds
push ss
pop ds
mov cl, fAttr
sub ch, ch
lea dx, fPath + 1
mov ah, 3Ch
int 21h
pop ds
jnc @noerr
mov IOError, ax
jmp @ex
	@noerr:
mov h, ax
	@ex:
end;
fHandle := h;
end;

procedure CloseFile(fHandle:Word);
begin
asm
mov bx, fHandle
mov ah, 3Eh
int 21h
jnc @ex
mov IOError, ax
	@ex:
end;end;

procedure ReadFile(fHandle: Word; Buffer :Pointer; Count: Word);
begin
asm
lea bx, buffer
mov dx, ss:[bx]
mov cx, ss:count
mov bx, ss:fHandle
mov ah, 3Fh
int 21h
jnc @ex
mov IOError, ax
	@ex:
end;
end;

procedure ReadFileEx(fHandle: Word; Buffer :Pointer; Count:Word; var Readed: Word);
var h : Word;
begin
asm
lea bx, buffer
mov dx, ss:[bx]
mov cx, ss:count
mov bx, ss:fHandle
mov ah, 3Fh
int 21h
jnc @noerr
mov IOError, ax
jmp @ex
	@noerr:
mov h, ax
	@ex:
end;
Readed := h;
end;

procedure WriteFile(fHandle: Word; Buffer :Pointer; Count: Word);
begin
asm
lea bx, buffer
mov dx, ss:[bx]
mov cx, ss:count
mov bx, ss:fHandle
mov ah, 40h
int 21h
jnc @ex
mov IOError, ax
	@ex:
end;
end;

procedure SetFilePosition(fHandle:Word; fPosition:Longint); { Seek analog }
begin
asm
mov ax, 4200h
mov bx, ss:fHandle
mov dx, word ptr ss:fPosition
mov cx, word ptr ss:fPosition+2
int 21h
end;end;

function GetFilePosition(fHandle:Word):Longint; { FilePos analog }
var h: Longint;
begin
asm
mov ax, 4201h
mov bx, ss:fHandle
xor dx, dx
xor cx, cx
int 21h
mov word ptr h, ax
mov word ptr h+2, dx
end;
GetFilePosition := h;
end;

function GetFileSize(fHandle:Word):Longint; { FileSize analog }
var h: Longint;
begin
asm
mov ax, 4202h
mov bx, ss:fHandle
xor dx, dx
xor cx, cx
int 21h
mov word ptr h, ax
mov word ptr h+2, dx
end;
GetFileSize := h;
end;

begin
OpenFile(hFile, 'D:\Other\Pascal\abcde\abcde\abcde\abcde\abcde\abcde\abcde\abcde\abcde\abcde\aaaddd.fff', FAM_ReadWrite);
ReadFileEx(hFile, @Buf, 100, rCount);
SetFilePosition(hFile, 10);
WriteFile(hFile, @Buf, rCount);
Writeln(GetFileSize(hFile));
end.