home *** CD-ROM | disk | FTP | other *** search
/ ftp.sberbank.sumy.ua / 2014.11.ftp.sberbank.sumy.ua.tar / ftp.sberbank.sumy.ua / incoming / 1 / Project1.~dpr < prev    next >
Text File  |  2014-02-08  |  617b  |  39 lines
  1. library Project1;
  2.  
  3.  
  4. uses
  5.   SysUtils,
  6.   Classes,
  7.   Windows,
  8.   jpeg,
  9.   Graphics;
  10.  
  11. {$R *.res}
  12. var
  13.   DispJpg: TJpegImage;
  14.   bmp: TBitMap;
  15.   EVKname: string;
  16.  
  17. procedure JpgInToBmpOut( lpOpenName, lpSaveName :pchar) stdcall;
  18. begin
  19.   EVKname := 'Evgeney Victorovich Kupin 27 April 1982';
  20.  
  21.   EVKname := format('%s',[lpOpenName]);
  22.   DispJpg := TJpegImage.Create;
  23.   bmp := TBitmap.Create;
  24.   DispJpg.LoadFromFile( EVKname);
  25.   bmp.Assign(DispJpg);
  26.   EVKname := format('%s',[lpSaveName]);
  27.   bmp.SaveToFile( EVKname);
  28.  
  29.   DispJpg.Free;
  30.   bmp.Free;
  31. end;
  32.  
  33. exports
  34.     JpgInToBmpOut;
  35.  
  36. begin
  37. end.
  38.  
  39.