Объединить файлы jpg в один: Merge PDF documents Online

Разработчик Delphi

Вс, 12 января 2003 г. 03:00:00 GMT

Delphi5: Как объединить несколько файлов JPG.

Допустим, у меня есть 100 файлов jpg. Все одного размера, 10 на
рядов, 10 рядов. Как я могу объединить 100 файлов в один файл
.

напр. Если каждое изображение имеет размер 200 x 200 пикселей, я хочу, чтобы первый файл был размером
верхний левый угол, следующий файл должен быть помещен непосредственно в его правый
,…. и так далее и так далее через первые 10 файлов, затем
второй ряд, чтобы начать….
до последнего файла составляет 2000×2000 пикселей.

Любые идеи,

Или было бы проще использовать Delphi для управления таким приложением, как
Photoshop для управления изображениями?

Спасибо
Пол

М. Х. Авегаар

Разработчик Delphi

Вс, 12 января 2003 г. 03:00:00 GMT

Re:Delphi5: Как объединить несколько файлов JPG.

Создайте TBitmap размером 2000×2000 пикселей и используйте TBitmap.Canvas.StretchDraw, чтобы
скопировать 100 изображений TJpegImages на холст. Затем назначьте TBitmap новому
TJpegImage, чтобы создать изображение JPEG из изображения BMP.

«P.Badger» шриф в берихте
новости:[email protected]…

Quote

> Допустим, у меня есть 100 файлов jpg. Все одного размера, 10 на
> ряд, 10 рядов. Как я могу объединить 100 файлов в один файл
>.

> например. Если каждое изображение имеет размер 200 x 200 пикселей, я хочу, чтобы первый файл находился в
> верхнем левом углу, следующий файл был помещен непосредственно в его
> правый, …. и т. д. и т. д. до первого 10 файлов, потом
> вторая строка для начала.

…
> пока окончательный файл не станет размером 2000×2000 пикселей.

> Любые идеи,

> Или было бы проще использовать Delphi для управления таким приложением, как
> Photoshop для управления изображениями?

> Спасибо
> Пол

Разработчик Delphi

Вс, 12 января 2003 г. 03:00:00 GMT

Re:Delphi5: Как объединить несколько файлов JPG.

«M.H. Avegaart» skrev i en meddelelse
news:[email protected]…

Quote

> Создать TBitmap из 2000×2000 пикселей и используйте TBitmap.Canvas.StretchDraw до
> скопируйте 100 TJpegImages на холст. Затем назначьте TBitmap новому
> TJpegImage, чтобы создать изображение JPEG из изображения BMP.

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

Подробнее см. здесь:
http://www.efg2.com/lab/Graphics/VeryLargeBitmap.htm

Финн Толдерлунд

Вс, 12 января 2003 г. 03:00:00 GMT

Re:Delphi5: Как объединить несколько файлов JPG.

В статье <[email protected]>,
  «М. Х. Авегаарт» написал:

Quote

> Создайте TBitmap размером 2000×2000 пикселей

, затем установите theBitmap.PixelFormat:= pf24Bit,

Quote

> [затем] используйте
> TBitmap .Canvas.StretchDraw в
> скопируйте 100 TJpegImages в холст. Затем назначьте TBitmap
> новый
> TJpegImage, чтобы создать изображение JPEG из изображения BMP.

     Если вы не установите PixelFormat, это не приведет к сбою, но если
система не использует по крайней мере 24-битный цвет, вы не
получить наилучший результат.