Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!rphroy!caen!ox.com!math.fu-berlin.de!tmpmbx!zelator!tooly
From: tooly@zelator.uucp (Theo Schneider)
Newsgroups: comp.sys.apple2
Subject: SFGetFile / Pascal Question
Message-ID: <NNRQEWO@zelator.uucp>
Date: 9 May 91 18:22:34 GMT
Distribution: comp
Organization: Puplic-Access-Xenix
Lines: 34

Hi there,

i got an problem with an FilterProc for SFGetFile in Complete Pascal.
In the FilterProc i will check if the File have an ResourceFork or not.

TB Ref3 says that the Pointer for the FilterProc is an Pointer to an
DirEntryRec Template. 

So i write this FilterProc :

{$DefProc}
function FilterProc (DirEntry : DirEntryRecPtrGS) : integer;
begin
  if DirEntry^.resourceBlocks <> 0 then
      FilterProc := displaySelect
	else
	    FilterProc := noSelect
	    end;

	    If i check the Filetype (esp. if DirEntry^.fileType = $B3),
	    than all is OK but not with resourceBlocks or resourceEOF.

	    PLEASE CAN ANYBODY HELP !!

	    I hope You can read my English and best regards from Germany

	       Theo

-- 

   | Theo Schneider       |\| UUCP      : tooly@zelator.in-berlin.de |
   | Babelsberger Str. 40 |/| GEnie     : T.Schneider6               |
   | 1000 Berlin 31       |\| Zerberus  : T.Schneider@TeleMail.Zer   |
   | Germany              |/| Voice     : Germany 030 / 854 29 72    |