Изменить размер Jpeg не работает

@S0lexV · Регистрация: 27.07.2011

Студворк — интернет-сервис помощи студентам

делаю так

C++
1
2
3
4
5
6
7
8
9
Graphics::TBitmap * Bitmap = new Graphics::TBitmap;
TJPEGImage * examp = new TJPEGImage;
examp->LoadFromFile(OpenPictureDialog1->FileName);
Bitmap->Assign(examp);
Bitmap->Width=200;
Bitmap->Height=200;
carfoto->Canvas->StretchDraw(Bitmap->Canvas->ClipRect, Bitmap);
carfoto->Picture->Bitmap->SaveToFile(FilePath+"\\images\"+Edit1->Text.Trim()+".jpg");
delete Bitmap;

Картинку не уменьшает, а просто сохраняет кусок. что я не так написап ?

@Dinkin · 24.05.2016, 23:55

Вроде после StretchDraw надо задать новые ширину и высоту картинки.

типа так

C++
1
2
carfoto->Width  = RectNew.Width();
carfoto->Height = RectNew.Height();

@volvo · 25.05.2016, 00:18

S0lexV, У тебя файл сохраняется в формате BMP, но с расширением jpg, ты в курсе?

Вот так:

C++
1
2
3
4
5
6
7
8
9
TJPEGImage * examp = new TJPEGImage;
examp->LoadFromFile(OpenPictureDialog1->FileName);
 
Graphics::TBitmap * Bitmap = new Graphics::TBitmap;
Bitmap->Width=200;
Bitmap->Height=200;
Bitmap->Canvas->StretchDraw(Rect(0, 0, 200, 200), examp);
 
Bitmap->SaveToFile(...)

картинка будет именно уменьшена, а не обрезана. Но сохранится по-прежнему в формате BMP... Безо всяких посторонних carfoto

@S0lexV · 25.05.2016, 00:23 **[ТС]**

Тут же на форуме нашел
Надо делать вот так вота

C++
1
2
3
4
5
6
7
8
9
10
TRect RectNew( 0, 0, 250, 250 );
    std::auto_ptr < Graphics::TBitmap > bmp( new Graphics::TBitmap( ) );
 
    bmp->Assign( carfoto->Picture->Graphic );
 
    carfoto->Picture->Bitmap->Assign( bmp.get( ) );
    carfoto->Picture->Bitmap->Width = RectNew.Width( );
    carfoto->Picture->Bitmap->Height = RectNew.Height( );
    carfoto->Picture->Bitmap->Canvas->StretchDraw( RectNew, bmp.get( ) );
    carfoto->Picture->Bitmap->SaveToFile(FilePath+"\\images"+Edit1->Text.Trim()+".jpg");

Добавлено через 1 минуту
работает

Добавлено через 3 минуты
volvo твой вариант тоже работает

@Наталья8 · 07.10.2019, 21:33

Через Stretch на форме быстрее получаеться
скорость можно было померять... да визуально заметно.
Это предпросмотр маленькая картиночка,
но большие фото долго грузит однозначно.
на Image5, Stretch = true.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 //==============
    if( ExtractFileExt(start).LowerCase()==".jpg"  ||
 ExtractFileExt(start).LowerCase()==".jpeg"){
  TJPEGImage *jp = new TJPEGImage();
    jp->LoadFromFile(start);
 PicProp_W = jp->Width; PicProp_H = jp->Height;
Form2->Label1->Caption = String (jp->Width)+" x "+String(jp->Height);
  float kf= PicProp_H / PicProp_W;
   PicProp_H = 100; PicProp_W = PicProp_H/kf;
  if (PicProp_W > Form1->Width) {PicProp_H/=2;PicProp_W/=2;}
                        if (PicProp_W > Form1->Width) {PicProp_H/=2;PicProp_W/=2;}
Form1->Image5->Height=floor(PicProp_H); Form1->Image5->Width=floor(PicProp_W);
        Form1->Image5->Picture->Assign(jp);
     delete jp; jp = NULL;
          }

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .