[es] - Konverzija bmp u jpg

Proko
Martin Hric
St.Pazova

Član broj: 29355
Poruke: 1562
91.150.124.*

Sajt: proko.rs

+28 Profil

^{23.05.2009. u 10:19 - pre 181 meseci}

Uradio sam jednostavan program za video nadzor za jednu analognu kameru. Program radi tako što se svakih 0.5 sekundi osvežava bmp slika. Zatim se ta slika konvertuje u jpg, ali opet u jednu sliku sa istim imenom "slika.jpg". Kada se dobije komanda od IR senzora prave se kopije od "slika.jpg" i dodeljuje im se ime tekućeg vremena i datuma. Sve to radi odlično i te slike ne zauzimaju puno prostora, ali...
Za kratko vreme (manje od 1 sat) "Commit Charge" se napuni do 1.8G i ukoči se računar...
Do sada sam u istom tom programu koristio program "Dorgem", koji radi konverziju i to se nije događalo. Izbacio sam ga zbog nekih stvari, koje mi se nisu sviđale, i program koji sam napravio je mnogo jednostavniji...
Postoji li neki način da se računaru saopšti da ne pravi backup nečega što nije potrebno...
Inače, cod koji koristim za konverziju je sledeći:

Code:

Private Sub Timer1_Timer()    't=500
    CompressQuality = 80
    BmpToJpeg App.Path & "\slika.bmp", App.Path & "\slika.jpg", CompressQuality
End Sub

Probao sam i neki drugi kod, pa i da produžavam vreme tajmeru, čak do 5 sekundi, ali zauzetost memorije se stalno povećava...

...neki drugi pogled na svet...

Odgovor na temu

Proko
Martin Hric
St.Pazova

Član broj: 29355
Poruke: 1562
93.87.203.*

Sajt: proko.rs

+28 Profil

Re: Konverzija bmp u jpg

^{25.05.2009. u 23:59 - pre 181 meseci}

Ili da preformulišem pitanje...kako stalno raditi konverziju slika bmp u jpg (pa makar to bila i jedna te ista slika), a da se ne povećava zauzetost memorije računara?

...neki drugi pogled na svet...

Odgovor na temu

dzigilibonglica
NS

Član broj: 200040
Poruke: 294

+17 Profil

Re: Konverzija bmp u jpg

^{26.05.2009. u 13:01 - pre 181 meseci}

Mozda da ubacis neku ActiveX freeware kontrolu koja snima u Avi ili wmv, pa da onda kada hoces da vidis neki frame ucitas video fajl i pomeris na poziciju za koju ti treba frejm.

Inace to sa slikama ne znam kako.

Ali probaj nista te ne kosta, izguglaj malo na sajtovima sa ActiveX/OCX kontrolama, one rade skoro u svim jezicima, a ima ih dobrih.

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.231.*

+1 Profil

Re: Konverzija bmp u jpg

^{26.05.2009. u 14:36 - pre 181 meseci}

Koristi GDI+ biblioteku, imaš je na svakom računaru koji ima Windows XP i noviji.

Šaljem ti primer sa GDI+ klasom i tlb datotekom u attachmentu.

Može da snima i Gif, Png, Tiff... :)

Prikačeni fajlovi

GDIPlus.zip - 69.33k

Odgovor na temu

Proko
Martin Hric
St.Pazova

Član broj: 29355
Poruke: 1562
93.87.203.*

Sajt: proko.rs

+28 Profil

Re: Konverzija bmp u jpg

^{26.05.2009. u 18:58 - pre 181 meseci}

Hvala, to je to.
Ceo program mi je inače mnogo kompleksniji, jer omogućava i spori i ubrzani pregled dnevnih, kao i slika iz bilo kojeg prošlog perioda. Za godinu dana slike su "teške" samo 2 GB, a ima ih svakog dana od nekoliko stotina, do nekoliko hiljada.
Za sada sam ostavio ovakav kod, Pic sam stavio kao nevidljiv, jer mi nije potrebna ta slika (desno, mala slika je "živa slika", a velika je konvertovana bmp u jpg, ali se ona menja, ako se koristi pregled arhive.
Ako je moguće, zamenio bih Pic sa nekom promenljivom, mada dobro to radi i ovako, i što je najvažnije, ne raste zauzetost memorije računara. Još jednom, hvala ti.

Code:

Private Sub Timer1_Timer()
Dim gdip As New cGdiPlus
    Pic.Picture = LoadPicture
    Pic.Picture = LoadPicture("D:\Kamera\Slika.bmp")
    gdip.PictureBoxToFile Pic, "D:\Kamera\Slika.jpg"
End Sub

_{[Ovu poruku je menjao Proko dana 26.05.2009. u 20:10 GMT+1]}

...neki drugi pogled na svet...

Prikačeni fajlovi

Kamera.jpg - 94.67k

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.231.*

+1 Profil

Re: Konverzija bmp u jpg

^{26.05.2009. u 23:51 - pre 181 meseci}

Može naravno, bilo koji PictureBox.

Odgovor na temu

petkochb
petkochb
Student
Beograd

Član broj: 218983
Poruke: 38
*.adsl-3.sezampro.yu.

Profil

Re: Konverzija bmp u jpg

^{12.06.2009. u 15:23 - pre 181 meseci}

Pozdrav. Ljudi ako je moguce da mi neko pomogne. Radi se o tome da sam ja hteo da koristim ovaj predlog da bih smanjio velicinu snimljene slike na racunar. Skinuo sam primer i uvrsto clasmodul u moj projekat, medjutim javlja se greska u deklaraciji "Dim tGuids() As CLSID ' Array of GUIDs for codecs". Javlja se greska "User-defined type not defined". Molim Vas za pomoc.

Trange Frange - ePijaca. Postavljajte Vaše oglase BESPLATNO
www.trangefrange.org

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.251.*

+1 Profil

Re: Konverzija bmp u jpg

^{14.06.2009. u 02:30 - pre 180 meseci}

Nisi dodao referencu na "gdi+.tlb" datoteku.

Project -> References -> Browse, pa izaberi putanju do datoteke.

Uradi to i biće sve ok.

Odgovor na temu

petkochb
petkochb
Student
Beograd

Član broj: 218983
Poruke: 38
*.adsl-a-2.sezampro.yu.

Profil

Re: Konverzija bmp u jpg

^{15.06.2009. u 11:27 - pre 180 meseci}

Hvala Stefanpn-e na odgovoru. To je resilo problem. Hvala jos jednom puno

Trange Frange - ePijaca. Postavljajte Vaše oglase BESPLATNO
www.trangefrange.org

Odgovor na temu

pura moca
pura moca

Član broj: 240171
Poruke: 4
93.87.191.*

Profil

Re: Konverzija bmp u jpg

^{17.11.2009. u 17:35 - pre 175 meseci}

Umesto boxa za sliku koristi promenljivu ovako:

Dim slika as stdPicture

slika.picture = LoadPicture("D:\Kamera\Slika.bmp")

Nadam se da me sećanje poslužilo, već dugo nemam instaliran Visual Studio.

On_Error_Resume

Odgovor na temu