home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / mag&info / ptv3n5.zip / SIMPLUSR.PAS < prev    next >
Pascal/Delphi Source File  |  1992-01-29  |  613b  |  26 lines

  1. {Three Myths, figure 2.  Copyright ⌐ 1992, Jon Shemitz}
  2.  
  3. unit SimplUsr; {Sample bindings unit for a DLL user}
  4.  
  5. interface
  6.  
  7. type
  8.   Simple = object
  9.            {No fields}
  10.            constructor Setup(Code: word);
  11.            destructor  Teardown;
  12.            procedure   Method(Ptr: pointer);
  13.            procedure   Alias (Seg, Ofs: word);
  14.        end;
  15.  
  16. implementation
  17.  
  18. const    DLL = 'SimplDLL';
  19.  
  20. constructor Simple.Setup;    external DLL index 1;
  21. destructor  Simple.Teardown;    external DLL index 2;
  22. procedure   Simple.Method;    external DLL index 3;
  23. procedure   Simple.Alias;    external DLL index 3;
  24.  
  25. end.
  26.