[ildar]

Помогите пожалуйсто новечку.
Надо по нажатию кнопки, открыть A (A=количество) изображений в паямть,затем из A извлеч кол во открытых изображений(B),выполнить подпрограмму B раз а потом сохранить открытые изображения нудопустим с Именем NoName(С) где С- порядковый номер изображения

[lmikle]

Ничего не понял.
Можешь написать подробнее и понятнее. Ну и свой код в студию или в раздел "Работа" со всеми вытекающими...

[Страдалецъ]

Начинаю телепать:
Необходимо загрузить 100 картинок в формате JPG, всех их привести к размеру 768х1024 и сохранить с качеством сжатия 65% под новым именем. Примерно так?

[ildar]

Сообщение от Страдалецъ

Начинаю телепать:
Необходимо загрузить 100 картинок в формате JPG, всех их привести к размеру 768х1024 и сохранить с качеством сжатия 65% под новым именем. Примерно так?

Да, прям в точку,ток сжатие не обязательно, и имена должны быть по порядковому номеру файлов( чтоб их не самим писать а они автоматом шли

[Страдалецъ]

Держите готовую утилю. Я сегодня добрый.

Код:

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

program JpgTran;   {$APPTYPE CONSOLE}   uses   SysUtils,Graphics,JPeg;   Var   Path: String;   FileInfo: TSearchRec;   FileNo,Width: Integer;   Scale: Double;   Jpg: TJpegImage;   Bmp: TBitmap; begin  if ParamCount < 2  then begin       WriteLn('Example: JpgTran c:\jpglib\ 768');       Exit;       end;  Path := Paramstr(1);  Width := StrToInt(Paramstr(2));  FileNo := 0;  try  if FindFirst(Path+'*.jpg',faAnyFile,FileInfo) = 0  then repeat       Inc(FileNo);       Jpg := TJpegImage.Create;       Jpg.LoadFromFile(Path + FileInfo.Name);       Scale := Width / Jpg.Width;       Bmp := TBitmap.Create;       Bmp.Width := Round(Jpg.Width * Scale);       Bmp.Height := Round(Jpg.Height * Scale);       Bmp.Canvas.StretchDraw(Bmp.Canvas.ClipRect, Jpg);       Jpg.Assign(Bmp);       Jpg.SaveToFile(Format('%s%d.jpg',[Path,FileNo]));       Bmp.Free;       Jpg.Free;       until FindNext(FileInfo) <> 0;  except   WriteLn('Error! Program aborted.');   Exit;  end; end.

[ildar]

Пасибо тебе большое