JPEGImage + ProgressBar

[mervinjmicky]

Witam,
Chciałbym do mojej funkcji dodać postęp wczytywania pliku JPG. Nie używam TImage tylko

Kod: Zaznacz cały

TJPEGImage *jpg = new TJPEGImage();

i wczytuje pliczek za pomocÄ…:

Kod: Zaznacz cały

jpg->Assign(plik);

dodatkowo zapisuje tego jpg na dysk:

Kod: Zaznacz cały

   jpg->CompressionQuality = quality;
   jpg->SaveToFile(temp+"\\\\plik.jpg");

Gdy są to pliki 8mb i większe to chwile to trwa dlatego chciałbym umieścić ProgressBar'a na formatce i tam pokazywać status. Czy jest coś takiego możliwe?

[Witold]

Gdy są to pliki 8mb i większe to chwile to trwa dlatego chciałbym umieścić ProgressBar'a na formatce i tam pokazywać status. Czy jest coś takiego możliwe?

Obsługa zdarzenia TJPEGImage::OnProgress może okazać się pomocna, szczegóły w helpie.

[Cyfrowy Baron]

Teoretycznie to powinno wyglądać tak:

Kod: Zaznacz cały

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
  Image = new TJPEGImage();
  Image->OnProgress = ImageProgress;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImageProgress(TObject *Sender, TProgressStage Stage,
     BYTE PercentDone, bool RedrawNow, const TRect &R, const AnsiString Msg)
{
   ProgressBar1->Position = PercentDone;

   if(!RedrawNow) ProgressBar1->Position = 0;
}
//---------------------------------------------------------------------------


Ale klasa TJPEGImage jak i TBitmap nie maja wsparcia dla tego zdarzenie, a więcej na ten temat przeczytasz tutaj: https://forums.embarcadero.com/thread.j ... eadID=7637

Zdarzenie OnProgress działa tylko z kontrolkami graficznymi, czyli z TImage.

---

Tutaj: http://www.delphisources.ru/pages/faq/b ... iewer.html jest chyba podany kod w Delphi jak to można zrobić inaczej, ale nie sprawdzałem, tylko rzuciłem na niego okiem.

[Witold]

Ale klasa TJPEGImage jak i TBitmap nie maja wsparcia dla tego zdarzenie, a więcej na ten temat przeczytasz tutaj: https://forums.embarcadero.com/thread.j ... eadID=7637

Zdarzenie OnProgress działa tylko z kontrolkami graficznymi, czyli z TImage.

Chyba nie uważnie przeczytałeś to co podałeś. TJPEGImage wywołuje TProgressEvent.

... The TJPEGImage class does
implement the OnProgress event, because a JPG image involves
compression/decompression and interlacing, so TJPEGImage implements the
OnPress event so the image can be rendered visually at various stages.

Użycie RedrawNow też Ci chyba nie wyszło:

Kod: Zaznacz cały

if(!RedrawNow) ProgressBar1->Position = 0;

The RedrawNow parameter indicates whether the image can safely be drawn on screen at this point. The R parameter specifies the portion of the image that has changed and needs to be redrawn.

[Cyfrowy Baron]

Wszystko działa prawidłowo w zdarzeniu OnProgress obiektu Image, w TJPEGImage nie działa wogóle. Co do RedrawNow to wyszło, gdy obraz jest odrysowywany ta zmienna posiada wartość true, gdy zakończy się jego odrysowywanie to przyjmuje wartość false. Jeżeli grafika nie może być odrysowana, to RedrawNow posiada wartość false, więc może być użyty do sterowania ProgressBar. Z RedrawNow czy bez niego sterowanie ProgressBar w zdarzeniu OnProgress obiektu TJPEGImage nie działa.

Zamiast RedrawNow można oczywiście użyć argumentu Stage:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::ImageProgress(TObject *Sender, TProgressStage Stage,
     BYTE PercentDone, bool RedrawNow, const TRect &R, const AnsiString Msg)
{
  switch(Stage)
  {
   case psStarting: ProgressBar1->Position = 0; break;
   case psRunning:  ProgressBar1->Position = PercentDone; break;
   case psEnding:   ProgressBar1->Position = 100; break;
  }
}
//---------------------------------------------------------------------------


Chyba nie uważnie przeczytałeś to co podałeś. TJPEGImage wywołuje TProgressEvent.

Nie wywołuje.

Remy Lebeau ma rację tylko, że Ty nie bierzesz pod uwagę kontekstu wypowiedzi, a tyczy się ona odnośnie pliku JPG ładowanego do obiektu Image poprzez Picture, dlatego cytowane przez ciebie wypowiedź jest poprzedzona:

You are telling TPicture to load a JPG image.

a całość wypowiedzi tyczy się tego kodu:

Kod: Zaznacz cały

        procedure TForm1.Button1Click(Sender: TObject);
        // this is TImage StretchDraw (Part 1)
        var
        Image1: TImage;
        begin
        Image1 := TImage.Create(self);
        Image1.Parent := ScrollBox1;
        Image1.AutoSize := true;
        Image1.OnProgress := ProgressUpdate;
        Image1.Picture.LoadFromFile('TestImg.jpg'); // event works
        // Image1.Picture.LoadFromFile('Covpgh.bmp'); // will load, but no event
        // end of Part 1

Zauważ, że OnProgress został podłączony pod obiekt typu TImage a nie TJPEGImage, a w przypadku TImage działa bez zarzutu, ale tylko dla pliku w formacje JPEG, gdyż pliki JPEG mogą być wczytywane progresywnie a bitmapy nie dlatego nie działa w odniesieniu do pliku w formacie BMP. Po części wiec masz rację, że klasa TJPEGImage wywołuje zdarzenie OnProgress, ale nie jest to zdarzenie tej klasy, lecz zdarzenie odziedziczone po klasie TGraphics i działa tylko w połączeniu z obiektem TImage.

It is not supposed to. Most TGraphic-derived classes, including TBitmap, donot implement the OnProgress event to begin with, as they usually don't need it.

Tego fragmentu chyba też nie przeczytałeś. TJPEGImage dziedziczy po TGraphics i jak sądzę ta wypowiedź też się tyczy tego typu.

W plikach pomocy do BCB nie ma nic na temat klasy TJPEGImage.

---

Jeszcze coś co mi umknęło wcześniej:

i wczytuje pliczek za pomocÄ…:

Kod: Zaznacz cały

            jpg->Assign(plik);

Do wczytywania plików do obiektu klasy TJPEGImage służy funkcje LoadFromFile, a nie Assign. Funkcja Assign tylko kopiuje jeden obiekt do drugiego.

---

Kolejna sprawa, to zdarzenie OnProgress obiektu typu TImage działa tylko w odniesieniu do wczytywania obrazka, nie jest wogóle wywoływane przy zapisywaniu zawartości TImage.

[Witold]

Wszystko działa prawidłowo w zdarzeniu OnProgress obiektu Image w TJPEGImage nie działa wogóle.

Działa dla kompresji/dekompresji (sprawdziłem).

Co do RedrawNow to wyszło, gdy obraz jest odrysowywany ta zmienna posiada wartość true, gdy zakończy się jego odrysowywanie to przyjmuje wartość false. Jeżeli grafika nie może być odrysowana, to RedrawNow posiada wartość false, więc może być użyty do sterowania ProgressBar. Z RedrawNow czy bez niego sterowanie ProgressBar w zdarzeniu OnProgress obiektu TJPEGImage nie działa.

Chyba musisz przeczytać opis z helpa jeszcze raz.

Zauważ, że OnProgress został podłączony pod obiekt typu TImage a nie TJPEGImage, a w przypadku TImage działa bez zarzutu.

It is not supposed to. Most TGraphic-derived classes, including TBitmap, donot implement the OnProgress event to begin with, as they usually don't need it.

Tego fragmentu chyba też nie przeczytałeś. TJPEGImage dziedziczy po TGraphics i jak sądzę ta wypowiedź też się tyczy tego typu.

przeczytałem, jest ogólny nie o TJPEGImage.

W plikach pomocy do BCB nie ma nic na temat klasy TJPEGImage.

u mnie jest.

Myślę że wczytywanie/zapisywanie pliku JPG o wielkości 8 MB nie powinno zająć dużo czasu, dekompresja/kompresja (przy pomocy TJPEGImage) już może być widoczna (to oczywiście zależy od sprzętu na którym się testuje - u mnie jest zauważalna).


Zmienione: Pomyliłem TPicture::OnProgress z TImage::OnProgress ale w opisie TPicture::OnProgress jest:

OnProgress is generated by the particular graphic that the picture object contains. Whether OnProgress occurs depends upon the type of graphic in the Graphic property. Some graphics generate this event, others do not. Jpeg images, for example, generate an OnProgress event.

[Cyfrowy Baron]

PrzytoczÄ™ jeszcze raz ten zapis:

Zauważ, że OnProgress został podłączony pod obiekt typu TImage a nie TJPEGImage, a w przypadku TImage działa bez zarzutu, ale tylko dla pliku w formacje JPEG, gdyż pliki JPEG mogą być wczytywane progresywnie a bitmapy nie dlatego nie działa w odniesieniu do pliku w formacie BMP. Po części wiec masz rację, że klasa TJPEGImage wywołuje zdarzenie OnProgress, ale nie jest to zdarzenie tej klasy, lecz zdarzenie odziedziczone po klasie TGraphics i działa tylko w połączeniu z obiektem TImage.

---

Działa dla kompresji/dekompresji (sprawdziłem).

Tu nie chodzi o kompresje czy dekompresje, lecz o wczytywanie i zapisywanie. O ile zdarzenie OnProgress dla TImage i plików w formacie JPEG działa bez zarzutu, o tyle w przypadku samej tylko klasy TJPEGImage już wogóle nie działa.

---

przeczytałem, jest ogólny nie o TJPEGImage.

Nie jest ogólny, gdyż został umieszczony pod tym cytatem:

after I replaced TImage with TBitmap and some other minor
changes to make it comile, the OnProgress event is not invoked.

Więc tyczy się dokładnie problemu z OnProgress dla wczytywanych bitmap, a jeżeli jeszcze przyjrzysz się pytaniu zadanemu przez Kung Yuan:

I have problem with invoke OnProgress event from TBitmap component.

To nie trudno pojąć, że odpowiedź udzielona Remy Lebeau tyczy się właśnie tego.

---

Myślę że wczytywanie/zapisywanie pliku JPG o wielkości 8 MB nie powinno zająć dużo czasu, dekompresja/kompresja (przy pomocy TJPEGImage) już może być widoczna (to oczywiście zależy od sprzętu na którym się testuje - u mnie jest zauważalna).

Nie ma znaczenia czy postęp jest widoczny czy nie, gdyby zdarzenie było wywoływane dla TJPEGImage to przy tym kodzie:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::ImageProgress(TObject *Sender, TProgressStage Stage,
     BYTE PercentDone, bool RedrawNow, const TRect &R, const AnsiString Msg)
{
  switch(Stage)
  {
   case psStarting: ProgressBar1->Position = 0; break;
   case psRunning:  ProgressBar1->Position = PercentDone; break;
   case psEnding:   ProgressBar1->Position = 100; break;
  }
}
//---------------------------------------------------------------------------

Po zakończeniu wczytywania ProgressBar1 zostałby ustawiony na 100, a nie jest.

Przeprowadziłem test na pliku JPEG o rozmiarze 6 MB i kompresji 50%. Plik wczytywał się ~20 sekund a pasek postępu nie drgnął, podczas gdy przy wczytywaniu do Image wszystko działa prawidłowo. Większych plików klasa TJPEGImage nie chciała wczytać.

Reasumując, o ile dla TImage OnProgress działa prawidłowo, tylko dla plików JPEG niezależnie od stopnia kompresji i wielkości pliku, dla bitmap już nie działa, to w przypadku samej tylko klasy TJPEGImage zdarzenie OnProgress nie jest wywoływane.

---

Co do RedrawNow to co piszesz niczego nie zmienia, gdy grafika jest wczytywana RedrawNow przyjmuje wartość true, gdy zostanie wczytana lub nie można jej wczytać przyjmuje wartość false. Tyle wystarczy by sterować ProgressBar.

---

Skoro twierdzisz, że jest inaczej, to podaj działający kod.

[mervinjmicky]

Dzięki Panowie za konstruktywne odpowiedzi. Z wczytywaniem poradziłem sobie - użyłem TImage. Tylko pytanie teraz jak dokonać kompresji w TImage i np zmiany wielkości wczytanego pliku? Bowiem jak próbuję zrobić to za pomocą TCanvas dla TImage to dostaje komunikat, że zmian można dokonywać tylko na plikach bmp. Do tej pory robiłem to tak:

Kod: Zaznacz cały

  TJPEGImage *jpg = new TJPEGImage();
   Graphics::TBitmap *bmp = new Graphics::TBitmap();
   jpg->LoadFromFile(File);
   bmp->Assign(jpg);
   int height=0;
   int procent = (width*100)/bmp->Width;
   height = (bmp->Height*procent)/100;
   bmp->Canvas->StretchDraw(Rect(0, 0, width, height), bmp);
   bmp->Height = height;
   bmp->Width = width;
   jpg->Assign(bmp);
   jpg->CompressionQuality = quality;
   jpg->SaveToFile(temp+"\\\\miniatura1.jpg");
   jpg->Free();
   bmp->Free();


[Cyfrowy Baron]

Po wczytaniu pliku JPEG do Image musisz dokonać konwersji na bitmapę:

► patrz serwis: Cyfrowy Baron dziaÅ‚: porady grafika

potem wykonujesz operacje na bitmapie, a przed zapisaniem konwertujesz bitmapÄ™ na format JPEG.

Wszystkie operacje wykonuj na obiektach klasy TJPEGImage i Graphics::TBitmap w pamięci, a do Image->Picture kopiuj je tylko poprzez Assign, celem wizualizacji. To czego nie musisz wizualizować, nie kopiuj, czyli możesz wykonać konwersję z JPEG do BITAMPY w pamięci i w pamięci wykonać na bitmapie operację, potem również w pamięci przekonwertować to ponownie na JPEG i dopiero potem przekopiować do Image.

Klasa TJPEGImage nie obsługuje klasy TCanvas.

Konwersji nie możną dokonać poprzez Assign, jak wspomniałem wcześniej ta funkcja służy tylko do kopiowania jednego obiektu na drugi, ale obiekt A do którego się kopiuje obiekt B, musi obsługiwać klasę obiektu A. Klasa TPicture obługuje zarówno klasę TJPEGImage jak i TBitmap, ale TJPEGImage nie obsługuje TBitmap, więc samo kopiowanie nic nie da trzeba przerysować obiekt typu TJPEGImage do obiektu typu TBitmap.

[mervinjmicky]

Jeszcze raz dzięki. W międzyczasie poradziłem sobie i zrobiłem to tak:

Kod: Zaznacz cały

Graphics::TBitmap * bmp = new Graphics::TBitmap();
bmp->Width = this->Image1->Picture->Width;
bmp->Height = this->Image1->Picture->Height;
bmp->Canvas->Draw(0, 0, this->Image1->Picture->Graphic);
int height = (bmp->Height*(300*100)/bmp->Width)/100;
bmp->Canvas->StretchDraw(Rect(0, 0, 300, height), bmp);
this->Image1->Picture->Assign(bmp);
bmp->Free();