1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:

; *******************************************************
; *              *
; *     Delphi Runtime Library                          *
; *              *
; *  Copyright (c) 1996,98 Inprise Corporation  *
; *              *
; *******************************************************

  INCLUDE  SE.ASM
  INCLUDE  FILEIO.ASM

  .386
  .MODEL  FLAT

  EXTRN  ReadFile:NEAR, GetLastError:NEAR, SetInOutRes:NEAR

  PUBLIC  _BlockRead

  .CODE

;  PROCEDURE _BlockRead( f: File; buffer: Pointer; recCnt: Longint; var result: Longint);

_BlockRead PROC

; ->  EAX  Pointer to file variable
;  EDX  Pointer to buffer
;  ECX  Number of records to read
;  [ESP+4]  Pointer to result or nil

  PUSH  EBX
  PUSH  ESI

  MOV  EBX,EAX
  MOV  ESI,EDX

  MOV  EDX,[EBX].Mode    ; File must be open
  SUB  EDX,fmInput
  CMP  EDX,fmInOut-fmInput
  JA  @@fileNotOpen

;  ReadFile(f.Handle, buffer, recCnt*f.RecSize, @result, Nil);

  PUSH  ECX

  PUSH  0      ; space for OS result
  MOV  EAX,ESP

  PUSH  0      ; pass lpOverlapped
  PUSH  EAX      ; pass @result

  MOV  EAX,[EBX].RecSize
  MUL  ECX
  PUSH  EAX      ; pass nNumberOfBytesToRead

  PUSH  ESI      ; pass lpBuffer
  PUSH  [EBX].Handle    ; pass hFile
  CALL  ReadFile
  DEC  EAX      ; check EAX = TRUE
  POP  EAX      ; pop result
  POP  ECX
  JNZ  @@error

  XOR  EDX,EDX
  DIV  [EBX].RecSize    ; recCnt = result DIV f.RecSize
  MOV  EDX,[ESP+4+8]
  TEST  EDX,EDX
  JE  @@noResult
  MOV  [EDX],EAX
@@exit:
  POP  ESI
  POP  EBX

  RET  4

@@noResult:
  CMP  EAX,ECX
  JE  @@exit
  MOV  EAX,100
  JMP  @@errExit

@@error:
  CALL  GetLastError
@@errExit:
  CALL  SetInOutRes
  XOR  EAX,EAX
  JMP  @@exit

@@fileNotOpen:
  MOV  EAX,103
  JMP  @@errExit

_BlockRead ENDP

  END					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

EXTRN  ReadFile:NEAR <---

{...}
;  ReadFile(f.Handle, buffer, recCnt*f.RecSize, @result, Nil);

  PUSH  ECX

  PUSH  0      ; space for OS result
  MOV  EAX,ESP

  PUSH  0      ; pass lpOverlapped
  PUSH  EAX      ; pass @result

  MOV  EAX,[EBX].RecSize
  MUL  ECX
  PUSH  EAX      ; pass nNumberOfBytesToRead

  PUSH  ESI      ; pass lpBuffer
  PUSH  [EBX].Handle    ; pass hFile
  CALL  ReadFile  <---
{...}