home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / LOADIMG.PAS < prev    next >
Pascal/Delphi Source File  |  1997-12-15  |  431b  |  21 lines
  1.  
  2. Procedure loadImage(X1,Y1 :Integer;FileNaam :String);
  3.  
  4. Var
  5.    F            : File;
  6.    PointImage   : Pointer;
  7.    Size         : Word;
  8.  
  9. Begin
  10.   Assign(f, FileNaam);
  11.   {$I-} Reset(F, 1); {$I+}
  12.   if ioresult =0 then begin
  13.     Size := filesize(f);
  14.     GetMem(PointImage, Size);
  15.     BlockRead(F, PointImage^,size);
  16.     PutImage(X1,Y1, PointImage^, CopyPut);
  17.     FreeMem(PointImage, Size);
  18.     Close(F);
  19.   end;
  20. end;
  21.