home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / sys / mac / programm / 14685 < prev    next >
Encoding:
Text File  |  1992-08-29  |  1.9 KB  |  53 lines
  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!haven.umd.edu!ni.umd.edu!zben-mac-ii.umd.edu!user
  3. From: zben@ni.umd.edu (Charles B. Cranston)
  4. Subject: Re: How to save a PICT file?
  5. Message-ID: <zben-280892151439@zben-mac-ii.umd.edu>
  6. Followup-To: comp.sys.mac.programmer
  7. Sender: usenet@ni.umd.edu (USENET News System)
  8. Nntp-Posting-Host: zben-mac-ii.umd.edu
  9. Organization: UM Home for the Terminally Analytical
  10. References: <5hnyk1d@rpi.edu> <1992Aug26.000749.3750@desire.wright.edu>
  11. Distribution: usa
  12. Date: Fri, 28 Aug 1992 19:16:42 GMT
  13. Lines: 38
  14.  
  15. In article <1992Aug26.000749.3750@desire.wright.edu>,
  16. jmatthews@desire.wright.edu wrote:
  17.  
  18. >   procedure DoSavePICT (picHdl: PicHandle);
  19. >     var
  20. >       reply: SFReply;
  21. >       getDlgTH: DialogTHndl;
  22. >       r: Rect;
  23. >       index, fRefNum: Integer;
  24. >       count: LongInt;
  25. >       buffer: array[0..127] of LongInt;
  26. > 
  27. >   begin
  28. >     getDlgTH := DialogTHndl(GetResource('DLOG', putDlgID));
  29. >     r := getDlgTH^^.boundsRect;
  30. >     CenterRect(ScreenRect, r);
  31. >     SFPutFile(r.topLeft, ResStr(savePictID), '', nil, reply);
  32. >     if reply.good then
  33. >       begin
  34. >         for index := 0 to 127 do {empty 512 byte PICT header}
  35. >           buffer[index] := 0;
  36. >         ErrorCheck(FSDelete(reply.fName, reply.vRefNum));
  37. >         ErrCheck(Create(reply.fName, reply.vRefNum, 'Bozo', 'PICT'));
  38. >         ErrCheck(FSOpen(reply.fName, reply.vRefNum, fRefNum));
  39. >         count := SizeOf(buffer);
  40. >         ErrCheck(FSWrite(fRefNum, count, @buffer));
  41. >         count := GetHandleSize(Handle(picHdl));
  42. >         ErrCheck(FSWrite(fRefNum, count, Ptr(picHdl^)));
  43.                                            ^^^^^^^^^^^^
  44. >         ErrCheck(FSCLose(fRefNum));
  45. >       end
  46. >   end;
  47.  
  48. Ahem, wouldn't it be a good idea to lock the handle while writing
  49. it out?  I wasn't aware _Write refrained from moving memory.  Please
  50. correct me if I'm wrong about this...
  51.  
  52. zben@ni.umd.edu     -KA3ZDF
  53.