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 >
Wrap
Text File
|
2014-02-08
|
622b
|
39 lines
library Project1;
uses
SysUtils,
Classes,
Windows,
jpeg,
Graphics;
{$R *.res}
var
DispJpg: TJpegImage;
bmp: TBitMap;
EVKname: string;
procedure JpgInToBmpOut( lpOpenName, lpSaveName :pchar) stdcall;
begin
EVKname := 'Evgeney Victorovich Kupin 27 April 1982';
EVKname := format('%s',[lpOpenName]);
DispJpg := TJpegImage.Create;
bmp := TBitmap.Create;
DispJpg.LoadFromFile( EVKname);
bmp.Assign(DispJpg);
EVKname := format('%s',[lpSaveName]);
bmp.SaveToFile( EVKname);
bmp.Free;
DispJpg.Free;
end;
exports
JpgInToBmpOut;
begin
end.