ExamineFH64

Fill in a FileInfoBlock structure concerning a file associated with a particular filehandle.

Declaration

Source position: amigados.pas line 2308

Arguments

Function result

=0 fail, <> 0 success

Description

Fill in a FileInfoBlock structure where TFileHandle.fib_Size64 containing the size of the file. TFileHandle.fib_NumBlocks64 contains the number of blocks for the file.

See also

Example

program ExamineFH64Test;
uses
  AmigaDOS;
var
  FH: BPTR;
  FIB: PFileInfoBlock;
begin
  FH := DOSOpen('c:dir', MODE_OLDFILE);
  FIB := AllocDosObject(DOS_FIB, nil);
  if Assigned(FIB) and (FH <> 0) then
  begin
    if Boolean(ExamineFH64(FH, FIB, nil)) then
      writeln('Size: ', FIB^.fib_size64);
  end;
  if Assigned(FIB) then FreeDosObject(DOS_FIB, FIB);
  if FH <> 0 then DOSClose(FH);
end.