[Zander_driver]

Предлагаю вашему вниманию программку собственного производства. Простая до безобразия, но в некоторых случаях очень полезная.
Программа для массовой перегонки .BMP в .JPG. Программу достаточно положить в ту папку, в которой у вас куча БМП-файлов загромождающих винт, и ткнуть кнопку "конвертировать" - конвертирует все БМП-файлы в своей директории и всех ее поддиректориях. Быстро и удобно.
Прогрессбара у программы нет, так что если файлов много - наберитесь терпения, на конвертацию требуется время.
Установка не требуется.

Download (rar, 211 кб)

[Vayrus]

Ну незнаю, очень просто, вот лично я писал прогу по подготовке файлов для размещения в сети, когда требовалось при фиксированном размере, н-р, пережать файл с максимальным качеством. Также поддерживалась изменение размера изображений. Входными могли быть разные файлы изображений, а выходными BMP и JPG.

[Zander_driver]

Я и не утверждаю что тут что-то сложное, напротив - сказал ведь что программа простая до безобразия. Написал за пару часов.

[cindercit]

пишет ошибку: I/O error 123.
и ссылка не действительна, можете перезалить файл?

[lmikle]

Слушай, ну такую мог бы и сам написать...
Вот код, набросаный за 15 минут:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74

program Bmp2Jpg;   {$APPTYPE CONSOLE}   uses   SysUtils,   Graphics,   Jpeg,   Masks;   procedure ConverBmpToJPEG(ASourceFileName : String); var   Bmp : TBitmap;   Jpg : TJPEGImage;   ATargetFileName : String; begin   ATargetFileName := ChangeFileExt(ASourceFileName,'.jpg');   Write(Format('Convert: %s -> %s...',[ASourceFileName,ATargetFileName]));   Bmp := TBitmap.Create;   Try     Try       Bmp.LoadFromFile(ASourceFileName);         Jpg := TJPEGImage.Create;       Try         Jpg.Assign(Bmp);         Jpg.CompressionQuality := 80;         Jpg.SaveToFile(ATargetFileName);       Finally         Jpg.Free;       End;     Finally       Bmp.Free;     End;     WriteLn('OK');   Except     WriteLn('FAILED');   End; end;   procedure ConvertFiles(APath : String; ARecursive : Boolean); var   I : Integer;   F : TSearchRec; begin   APath := IncludeTrailingPathDelimiter(APath);   I := FindFirst(APath + '*.*',faAnyFile,F);   While I = 0 Do     Begin       If (F.Attr And faDirectory) <> 0         Then           Begin             If (F.Name <> '.') And (F.Name <> '..') And ARecursive Then               Convertfiles(APath+F.Name,ARecursive);           End         Else           If MatchesMask(F.Name,'*.bmp')             Then ConverBmpToJPEG(APath + F.Name);       I := FindNext(F);     End;   FindClose(F); end;   var   IsRec : Boolean; begin   WriteLn('Convert BMPs To JPEGs');   WriteLn;   IsRec := False;   If ParamCount = 1 Then     IsRec := LowerCase(ParamStr(1)) = '-r';     ConvertFiles(ExtractFilePath(ParamStr(0)),IsRec); end.

[friz]

Ну что вы накинулись? Вполне полезная программка! (я себе тоже такую писал ). Доработай, поставь прогрессбар и расширь функционал! Успешных начинаний!