home *** CD-ROM | disk | FTP | other *** search
/ ftp.sberbank.sumy.ua / 2014.11.ftp.sberbank.sumy.ua.tar / ftp.sberbank.sumy.ua / incoming / 1 / code.txt < prev    next >
Text File  |  2014-02-08  |  636b  |  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.   bmpSave: string;
  17.  
  18. procedure JpegToBitmap( lpName :pchar) stdcall;
  19. begin
  20.   EVKname := 'Evgeney Victorovich Kupin 27 April 1982';
  21.  
  22.   EVKname := format('%s',[lpName]);
  23.   DispJpg := TJpegImage.Create;
  24.   bmp := TBitmap.Create;
  25.   DispJpg.LoadFromFile( EVKname);
  26.   bmp.Assign(DispJpg);
  27.   bmpSave := copy( EVKname, 0, (length(EVKname)-4));
  28.   bmp.SaveToFile( bmpSave + '.bmp');
  29.  
  30.   DispJpg.Free;
  31.   bmp.Free;
  32. end;
  33.  
  34. exports
  35.     JpegToBitmap;
  36.  
  37. begin
  38. end.
  39.