home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / sys / mac / programm / 20235 < prev    next >
Encoding:
Internet Message Format  |  1992-12-23  |  2.4 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!malgudi.oar.net!hyperion!desire.wright.edu!jmatthews
  2. From: jmatthews@desire.wright.edu
  3. Newsgroups: comp.sys.mac.programmer
  4. Subject: Re: Reading Resources II
  5. Message-ID: <1992Dec23.005321.6341@desire.wright.edu>
  6. Date: 23 Dec 92 00:53:21 EST
  7. References: <1992Dec22.190758.18473@dartvax.dartmouth.edu>
  8. Organization:  Wright State University 
  9. Lines: 55
  10.  
  11. In article <1992Dec22.190758.18473@dartvax.dartmouth.edu>, smsilver@coos.dartmouth.edu (Scott M. Silver) writes:
  12. > I am trying to make my own simple resource and read it in (correctly).
  13. > The resource is simply created by typing in the ascii region when
  14. > creating a new resource.  The following code works for printing out
  15. > the resource, but it really doesn't properly assign the correct
  16. > characters to the variable ch.
  17. > 
  18. > {PrintString: Res is handle to the resource. Size is the size of the
  19. > resource}
  20. > {Takes a handle to a resource and prints it out to the text window in
  21. > THINK Pascal}
  22. >
  23. >  procedure PrintString (res: Handle; size: integer);
  24. > 
  25. >   var
  26. >    index: integer;
  27. >    ch: char;
  28. >    scratch: Ptr;
  29. > 
  30. >  begin
  31. >   Hlock(res);
  32. >   for index := 0 to size - 1 do
  33. >    begin
  34. >     Scratch := Ptr(LongInt(Res^) + longint(index) - longint(1));
  35. >     BlockMove(Scratch, @ch, 2);
  36. >     write(ch);
  37. >     if index mod 32 = 0 then
  38. >      writeln;
  39. >    end;
  40. >   HUnlock(res);
  41. >  end;
  42. > 
  43. > This as it says justs prints out the resource to the text window in
  44. > Think Pascal.  I think my problem is a conceptual one having to do
  45. > with memory and not Resources.  Any help would be appreciated, and
  46. > thank you in advance.  
  47.  
  48. THINK Pascal's char data type is two bytes with the character code in
  49. the high byte (I think:-). Your resource is in effect a packed array of
  50. char. The CharsHandle data type (IM I-384) is just what you need. Try:
  51.  
  52.   for index:= 0 to size - 1 do
  53.     begin
  54.       write(CharsHandle(res)^^[index]);
  55.       if index mod 32 = 0 then writeln;
  56.     end;
  57.  
  58. BTW, I'm guessing this code is just for debugging. If you really need
  59. to print out char after char (using write or DrawChar), build a buffer
  60. of chars (say, your page width long) and use writeln or DrawString.
  61.  
  62. o----------------------------------------------------------------------------o
  63. | John B. Matthews, jmatthews@desire.wright.edu, disclaimer:= myViews <> WSU |
  64. |      "Whom the gods would destroy, they first invite to program in C"      |
  65. o----------------------------------------------------------------------------o
  66.