compess images (Разработка программы)

@HollywooD-new · Регистрация: 12.04.2010

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

Доброе время суток уважаемые программисты.
Я совсем недавно начал увлекаться программированием, и мне захотелось освоить Builder. Сейчас мне для себя хочется написать программу, которая будит способна изменять размерность фотографии, по указанным критериям.

все что я пока сделал, это примерно набросал, как хотелось бы видеть этот продукт

Сейчас я хочу организовать отображение изображений gif, jpg и bmp в ListView. Но открывается как-то не так как хотелось бы.

C++
1
2
3
4
5
6
7
8
9
10
11
    void __fastcall TForm1::Button3Click(TObject *Sender)
{
     FILE *FOpen;
 
    if( OpenDialog->Execute() )
    {
        FOpen = fopen(OpenDialog->FileName.c_str(), "r+");
                    }
                ListView1 -> AddItem(OpenDialog->FileName,NULL);
 
    fclose(FOpen);

я столкнулся с несколькими проблемами.
1) не могу добавить одновременно несколько файлов
2) отображается только путь файла

Помогите разобраться как сделать правильное отображение файла. Что б в таблице был виден тип файла и размер.

@HollywooD-new · 22.04.2010, 02:02 **[ТС]**

спасибо, все предельно ясно)))
Я пытался так делать, незнал про этот Checked.

Добавлено через 2 часа 31 минуту
хочу при OnClick на ListView в компоненте Image отображалась картинка выбранного изображения

пробовал как-то так, но выбивает ошибку... кажется я тут что-то намудрил в условии.

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::ListView1Click(TObject *Sender)
{       int st;
         if (ListView1->Items->Item[st]->Checked) // выделеный элемент
                {
                  AnsiString path = OpenDialog->Files->Strings[st] ; // путь изображения
                  Image1->Picture->LoadFromFile(path); 
                }
}

и ещё как сделать так что бы картинка маштабировалсь в область Image1?

@uggway · 22.04.2010, 09:09

C++
1
2
3
4
5
void __fastcall TForm1::ListView1Click(TObject *Sender)
{      
                  AnsiString path = ListView1->Selected->SubItems[2];
                  Image1->Picture->LoadFromFile(path); 
}

Чтобы картинка в TImage отображалась в масштабе, нужно установить свойства
Stretch и Proportional в true;

@HollywooD-new · 22.04.2010, 13:44 **[ТС]**

C++
1
2
3
4
5
void __fastcall TForm1::ListView1Click(TObject *Sender)
{      
                  AnsiString path = ListView1->Selected->SubItems[2];
                  Image1->Picture->LoadFromFile(path); 
}

почему SubItems[2], программа ругается на это. как взять значения из нужной ячейки таблицы?

@Morfiy · 22.04.2010, 13:54

Мож плз выложыть весь код проги я попробую повторить
А то я тож токо учусь

@HollywooD-new · 22.04.2010, 14:04 **[ТС]**

imcom.rar <-это исходник.

C++
1
AnsiString path = ListView1->Selected->SubItems[2];

пишет что
cannot 'AnsiString' to 'String'

@Morfiy · 22.04.2010, 15:24

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

@uggway · 22.04.2010, 15:25

Эт точно

и должен ругаться... SubItems это же TString... Поэтому нужно где-то так сделать...
И еще неплохо бы поставить ListView1->RowSelect = true;

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::ListView1Click(TObject *Sender)
{
   if(ListView1->Selected){
   AnsiString path = ListView1->Selected->SubItems->Strings[2]; 
   Image1->Picture->LoadFromFile(path);
   }
 
}

Или лучше открывать картинку в событии SelectItem...

C++
1
2
3
4
5
6
void __fastcall TForm1::ListView1SelectItem(TObject *Sender,
      TListItem *Item, bool Selected)
{
        AnsiString path = Item->SubItems->Strings[2];
        Image1->Picture->LoadFromFile(path);
}

@Morfiy · 22.04.2010, 16:03

что нужно дописать в функцыю удаления чтоб картинка очищалась од рисунка

@HollywooD-new · 22.04.2010, 19:52 **[ТС]**

uggway, спасибо, очень полезные оба примера)

Добавлено через 53 минуты
хочу создать кнопку "select all", что б при нажатии на неё во всех строках Listview1 CheckBox были отмечены?

C++
1
2
3
4
for (int i = 0; i < ListView1->Items->Count; i++)
        {
               ListView1->Items->Item[i]->Checked;
        }

пробывал так, но ничего не происходит(

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

C++
1
   ListView1->Items->Item[i]->Checked = true;

все савсем просто оказалось)))

@HollywooD-new · 22.04.2010, 21:18 **[ТС]**

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

Сообщение от Morfiy

что нужно дописать в функцыю удаления чтоб картинка очищалась од рисунка

C++
1
2
3
4
if(ListView1->Selected){
        AnsiString path = Item->SubItems->Strings[2];
        Image1->Picture->LoadFromFile(path);
      }  else Image1->Picture = NULL;  // ничего не показывай

это поможет отчистить image1 от изоброжения которое уже не выделено.

Добавлено через 47 минут
хочу создать кнопку, что б при нажатии на неё появлялся SaveDialog и я мог указать папку в которую хочу сохронить сконвертирование изоброжения. путь этой папки должен отоброжатся в MaskEdit1

помогиет!

@Roma_F · 22.04.2010, 21:45

C++
1
2
3
4
5
6
7
8
9
    SaveDlg->InitialDir = ...;
    SaveDlg->FileName = ...;
    SaveDlg->Filter = "Изображения(*.jpg)|*.jpg";
    SaveDlg->Title = ...;
    SaveDlg->DefaultExt = "jpg";
    if (SaveDlg->Execute())
    {
        ....
    }

Сообщение от HollywooD-new

должен отоброжатся в MaskEdit1

зачем MaskEdit?

p.s. не "сконвертированное" а смаштабированное, соответственно не "compress" а "resize"

@HollywooD-new · 22.04.2010, 23:30 **[ТС]**

Сообщение от Roma_F

зачем MaskEdit?

MaskEdit для того чтоб была возможность пописывать путь вручную или пользоваться Ctrl+V.
или так не делают? я не знаю)))

@HollywooD-new · 22.04.2010, 23:58 **[ТС]**

У меня получилось что в MaskEdit пишет имя самого файла. а мне надо выбирать всего лишь папку в которую будит производится копирование(сохранение) файлов

C++
1
2
3
4
5
if (SaveDialog->Execute())
        for (int i=0; i<OpenDialog->Files->Count; i++)
        { AnsiString path = SaveDialog->Files->Strings[i]  ;
         MaskEdit1->Text = path ;
        }

и ещё, что конкретно делает
SaveDlg->InitialDir = ...; и SaveDlg->DefaultExt = "jpg"; ?

@Roma_F · 23.04.2010, 09:15

Сообщение от HollywooD-new

MaskEdit для того чтоб была возможность пописывать путь вручную или пользоваться Ctrl+V.

А чем не устраивает обычный Edit

Сообщение от HollywooD-new

надо выбирать всего лишь папку

ExtractFileDir

Сообщение от HollywooD-new

SaveDlg->InitialDir

стартовая папка для диалога

Сообщение от HollywooD-new

SaveDlg->DefaultExt

если написать только имя - SaveDialog сам добавит разрешение, иначе получится файл без разрешения

@HollywooD-new · 23.04.2010, 13:20 **[ТС]**

Сообщение от Roma_F

А чем не устраивает обычный Edit

просто взгляд умал на MaskEdit (поменял не Edit)

Сообщение от Roma_F

ExtractFileDir

получилось примерно так

C++
1
2
3
4
if (SaveDialog->Execute())
       {  AnsiString path = SaveDialog->Files->Text  ;
         Edit1->Text = ExtractFileDir(path);
        }

Но у меня ворос я указал FileName = '...' это никак не повлияет на именя файлов которые я буду сохронять? я ведь буду использовать только путь из Edit1 и именя открытых файлов из ExtractFileName(path).

A если у меня будут форматы .gif и .bmp, а в SaveDlg->DefaultExt = ".jpg", SaveDialog просто поменяет их раздешения?

@HollywooD-new · 23.04.2010, 15:32 **[ТС]**

Хочу что б значения CSpinEdit1 и CSpinEdit2 изменялись прапорционально если у нас отмечен RadioButton1 (percentage) и стоит галочка CheckBox1(Save proportional)

C++
1
2
if (CheckBox1->Checked == true && RadioButton1->Checked == true)
    { CSpinEdit2->Value = CSpinEdit1->Value;  }

программа компилирует, но значения CSpinEdit's не меняются одновременно(

@HollywooD-new · 23.04.2010, 15:43 **[ТС]**

выкрутился таким способом:

C++
1
2
3
4
5
6
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
   if (CheckBox1->Checked == true && RadioButton1->Checked == true)
    { CSpinEdit2->Visible = false ;
      StaticText2->Visible = false;}
}

но это не решит проблему когда нужно будит сохронять пропорции в pixels

@uggway · 23.04.2010, 16:03

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::CSpinEdit2Change(TObject *Sender)
{
    if(CheckBox1->Checked && RadioButton1->Checked){
    CSpinEdit1->Value = CSpinEdit2->Value;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::CSpinEdit1Change(TObject *Sender)
{
     if(CheckBox1->Checked && RadioButton1->Checked){
    CSpinEdit2->Value = CSpinEdit1->Value;
    }
}
//---------------------------------------------------------------------------

@Roma_F · 23.04.2010, 18:09

Сообщение от HollywooD-new

я указал FileName = '...' это никак не повлияет на именя файлов которые я буду сохронять

он просто предложит это имя по умолчанию, можно это свойство не трогать

Сообщение от HollywooD-new

A если у меня будут форматы .gif и .bmp, а в SaveDlg->DefaultExt = ".jpg", SaveDialog просто поменяет их раздешения?

C++
1
 SaveDlg->Filter = "Изображения (JPEG, GIF, BMP)|*.jpg;*.jpeg;*.gif;*.bmp";

кстати это это задаётся и в самом билдере

@HollywooD-new · 23.04.2010, 19:08 **[ТС]**

uggway, спасибо очень пригодится)))
для процентов решил оставить так

C++
1
2
3
4
5
6
7
8
 void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
   if (CheckBox1->Checked == true && RadioButton1->Checked == true)
        { CSpinEdit2->Visible = false ;     StaticText2->Visible = false;
          StaticText1->Caption = "Proportion"; } 
   else {CSpinEdit2->Visible = true ;     StaticText2->Visible = true;
         StaticText1->Caption = "Height";}
} //оставляет один CSpinEdit.

Добавлено через 55 минут
Приступаю к последнему этапу. Теперь мою программку надо научить брать по очереди файлы Select из ListView1 и конвертирует изображения по указанным параметрам CSpinEdit1 и CSpinEdit1 в место указанное в Edit1
Какие может быть дополнительные компоненты или методы мне понадобятся в этом случае?

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Morfiy 5 / 5 / 1 Регистрация: 16.04.2010 Сообщений: 64
	22.04.2010, 13:54
	Мож плз выложыть весь код проги я попробую повторить А то я тож токо учусь 0

@Morfiy 5 / 5 / 1 Регистрация: 16.04.2010 Сообщений: 64
	22.04.2010, 15:24
	У мну такой вопрос а как зделать так чтоб в таблицы когда выделяеш 1 из записий не выдавало ошыбку 0

@Morfiy 5 / 5 / 1 Регистрация: 16.04.2010 Сообщений: 64
	22.04.2010, 16:03
	что нужно дописать в функцыю удаления чтоб картинка очищалась од рисунка 0