Image - белая полоса

[antoxamad]

Уважаемы форумчане вообщем проблема такая, у меня есть 100 - 200 jpg файлов(фотографий), мне требуется в каждой фотографии дорисовать(именно дорисовать с увеличением размера по высоте ровно на толщину полоски, а не приклеить белую полоску поверх фотографии) снизу фотографии белую полоску 100 - 200 пикселей толщиной для дальнейшей подписи фотографий.
Естественно через фотошоп ручками это все лопатить не серьезно.

Крутил, вертел в Delphi XE компонент timage пробовал дорисовывать через канвасы но нечего не выходило. подскажите как организовать данную ситуацию в программном коде.
Заранее благодарен за помощь!

[MadReason]

Даже не знаю зачем вы его крутили) вот, сварганил, на 7ке правда.

......
uses jpeg;
......


procedure whiteline(fLoad,fSave:string;dy:byte);
var
  bm:TBitmap;
  rct:trect;
  jp:TJPEGImage;
begin
  bm:=TBitmap.Create;
  jp:=TJPEGImage.Create;
  try
  jp.LoadFromFile(fLoad);
  except
  end;
  bm.Width:=jp.Width;
  bm.Height:=jp.Height+dy;
  rct:=Rect(0,0,jp.Width,jp.Height);
  bm.Canvas.Brush.Color:=clWhite;
  bm.Canvas.FillRect(bm.Canvas.ClipRect);
  bm.Canvas.StretchDraw(rct,jp);
  jp.Assign(bm);
  jp.SaveToFile(fSave);
  bm.Free;
  jp.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 whiteline('c:\1.jpg','c:\3.jpg',20);
end;

[3D Hunter]

Механизм Action в фотошопе не знаете? Тут и делфи не нужен. Незнание порождает головную боль.
А теперь по коду:
MadReason, смысл ставить try..except на загрузку файла? тогда уже на всю процедуру и сделать ее функцией, типа этого:

function whiteline(fLoad,fSave:string;dy:byte):Boolean;
begin
  Result:=True;
  try
    //код обработки
  except
    Result:=False;
  end;
end;

Для создаваемого TBitmap следует явно задавать глубину цвета:

TBitmap.PixelFormat:=pf24bit;

[antoxamad]

MadReason
спс за помощь, посмотрел ваш код, малость добавил напильника как говорится, все работает, но есть одно но, подскажи пожалуйста что значат строки:

bm.Width:=jp.Width; //Ширина бм будет такая же как ширина загруженного jpg файла
bm.Height:=jp.Height+dy; //Высота бм будет такая же как высота загруженного jpg файла + количество пикселей dy
rct:=Rect(0,0,jp.Width,jp.Height); //в переменную загоняем прямоугольник первые две координаты указывают начало прямоугольника, вторые естественно конец, то есть рисуем большой белый прямоугольник на всю фотографию
bm.Canvas.Brush.Color:=clWhite; //белый цвет кисти
bm.Canvas.FillRect(bm.Canvas.ClipRe ct); //это непонятно
bm.Canvas.StretchDraw(rct,jp);//это не понятно
jp.Assign(bm);//вот это не понятно

собственно сам новичок с делфой на вы ) вот не понятные последние три строки, подскажи как и для чего они.



3dHunter

Для создаваемого TBitmap следует явно задавать глубину цвета:
Код:

TBitmap.PixelFormat:=pf24bit;

куда нужно поместить данный код чтобы создать 24х битный бм, заранее спасибо.

Ну и общий вопросец такой, с каким качеством сохраняется конечный жпг? размер исходного файла 1,5 мб а конечный получается 300кб.

[MadReason]

rct:=Rect(0,0,jp.Width,jp.Height);//это просто задание прямоугольника с 4мя координатами
bm.Canvas.FillRect(bm.Canvas.ClipRect); //заливаем всю бм белым цветом
bm.Canvas.StretchDraw(rct,jp);//грубо говоря копируем изображение из jp в bm
jp.Assign(bm);//а тут преобразовываем bm в jp

FillRect и StretchDraw гляньте в справочнике, яснее будет

немножко доработан:

procedure whiteline(fLoad, fSave: string; dy: byte);
var
  bm: TBitmap;
  rct: trect;
  jp: TJPEGImage;
begin
  bm := TBitmap.Create;
  bm.PixelFormat := pf24bit;
  jp := TJPEGImage.Create;
  jp.PixelFormat := jf24Bit;
  try
    jp.LoadFromFile(fLoad);
    jp.CompressionQuality := 85;//коэф сжатия, не знаю сколько нужно. он от 0 до 100
  except
    bm.Free;
    jp.Free;
    Exit;
  end;
  bm.Width := jp.Width;
  bm.Height := jp.Height + dy;
  rct := Rect(0, 0, jp.Width, jp.Height);
  bm.Canvas.Brush.Color := clWhite;
  bm.Canvas.FillRect(bm.Canvas.ClipRect);
  bm.Canvas.StretchDraw(rct, jp);
  jp.Assign(bm);
  jp.SaveToFile(fSave);
  bm.Free;
  jp.Free;
end;

[antoxamad]

вот спасибо огромное, буду разбираться, отличный подгончик на сегодняшний мой день варенья!

На сколько я понимаю

jp.CompressionQuality := 85;//коэф сжатия, не знаю сколько нужно. он от 0 до 100

действует для сохранения jpg файла.?.