paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-24 03:59:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Added jpeg support

Browse Source
This commit is contained in:
michael 2004-02-20 21:12:14 +00:00
parent d668c06dc9
commit a56a50b42e
1 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
fcl/image/imgconv.pp
View File

@ -19,7 +19,7 @@ program ImgConv;
{_$define UseFile} {_$define UseFile}
uses FPWriteXPM, FPWritePNG, FPWriteBMP, uses FPWriteXPM, FPWritePNG, FPWriteBMP,
FPReadXPM, FPReadPNG, FPReadBMP, FPReadXPM, FPReadPNG, FPReadBMP, fpreadjpeg,fpwritejpeg,
{$ifndef UseFile}classes,{$endif} {$ifndef UseFile}classes,{$endif}
FPImage, sysutils; FPImage, sysutils;
@ -38,8 +38,15 @@ begin
Reader := TFPReaderXPM.Create Reader := TFPReaderXPM.Create
else if T = 'B' then else if T = 'B' then
Reader := TFPReaderBMP.Create Reader := TFPReaderBMP.Create
else if T = 'J' then
Reader := TFPReaderJPEG.Create
else if T = 'P' then
Reader := TFPReaderPNG.Create
else else
Reader := TFPReaderPNG.Create; begin
Writeln('Unknown file format : ',T);
Halt(1);
end;
ReadFile := paramstr(2); ReadFile := paramstr(2);
WriteOptions := paramstr(3); WriteOptions := paramstr(3);
WriteFile := paramstr(4); WriteFile := paramstr(4);
@ -57,8 +64,15 @@ begin
Writer := TFPWriterXPM.Create Writer := TFPWriterXPM.Create
else if T = 'B' then else if T = 'B' then
Writer := TFPWriterBMP.Create Writer := TFPWriterBMP.Create
else else if T = 'J' then
Writer := TFPWriterPNG.Create; Writer := TFPWriterJPEG.Create
else if T = 'P' then
Writer := TFPWriterPNG.Create
else
begin
Writeln('Unknown file format : ',T);
Halt(1);
end;
img := TFPMemoryImage.Create(0,0); img := TFPMemoryImage.Create(0,0);
end; end;
@ -123,7 +137,7 @@ begin
if (paramcount <> 4) and (paramcount <> 3) then if (paramcount <> 4) and (paramcount <> 3) then
begin begin
writeln ('Give filename to read and to write, preceded by filetype:'); writeln ('Give filename to read and to write, preceded by filetype:');
writeln ('X for XPM, P for PNG, B for BMP (write only)'); writeln ('X for XPM, P for PNG, B for BMP (write only), J for JPEG');
writeln ('example: imgconv X hello.xpm P hello.png'); writeln ('example: imgconv X hello.xpm P hello.png');
writeln ('example: imgconv hello.xpm P hello.png'); writeln ('example: imgconv hello.xpm P hello.png');
writeln ('Options for'); writeln ('Options for');