home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Snippets / PNL Libraries / MyLookFreeOT.p < prev    next >
Encoding:
Text File  |  1996-08-02  |  954 b   |  46 lines  |  [TEXT/CWIE]
  1. unit MyLookFreeOT;
  2.  
  3. interface
  4.  
  5.     uses
  6.         Types, OpenTransport;
  7.         
  8.     function OTLFSndUData(ref: EndpointRef; var udata: TUnitData): OSStatus;
  9.     function OTLFRcvUData(ref: EndpointRef; var udata: TUnitData; var flags: OTFlags): OSStatus;
  10.     
  11. implementation
  12.  
  13.     function OTLFSndUData(ref: EndpointRef; var udata: TUnitData): OSStatus;
  14.         var
  15.             err, junk: OSStatus;
  16.             i: integer;
  17.     begin
  18.         for i := 1 to 20 do begin
  19.             err := OTSndUData( ref, @udata );
  20.             if err = kOTLookErr then begin
  21.                 junk := OTRcvUDErr( ref, nil );
  22.             end else begin
  23.                 leave;
  24.             end;
  25.         end;
  26.         OTLFSndUData := err;
  27.     end;
  28.     
  29.     function OTLFRcvUData(ref: EndpointRef; var udata: TUnitData; var flags: OTFlags): OSStatus;
  30.         var
  31.             err, junk: OSStatus;
  32.             i: integer;
  33.     begin
  34.         for i := 1 to 20 do begin
  35.             err := OTRcvUData( ref, @udata, flags );
  36.             if err = kOTLookErr then begin
  37.                 junk := OTRcvUDErr( ref, nil );
  38.             end else begin
  39.                 leave;
  40.             end;
  41.         end;
  42.         OTLFRcvUData := err;
  43.     end;
  44.     
  45. end.
  46.