Pomoc oko sacuvanja slike sa Common Dialogom

[ Srki_94 @ 08.06.2008. 15:13 ] @

Prvo da se predstavim

Cao!
Zovem se Srdjan ucenik sam sedmog razreda. Znam Visual Basic i sada ucim C++. Bio sam na takmicenju iz informatike osvojio sam 1. na opstinskom i 1. na regionalnom takmicenju sa jednom VB aplikacijom (Igra Fast And Furious)

E Sad Problem:

Kako da sacuvam, otvorim sliku sa Common Dialogom. Probao sam na istu foru kao sa sacuvanjem texta ali nece.
Pomoc je dobrodosla. Pravim neki program kao paint ali mnogo bolje.
Hvala.

[ Aleksandar Vasic @ 09.06.2008. 20:10 ] @

nije proveren kôd al bi trebalo da je ovako

Otvaranje:

Code:
DLG.CancelError = False
DLG.ShowOpen
Image1.Picture = LoadPicture(DLG.Filename)

gde ti je DLG ime common dialog-a, a Image1 je Image objekat.

e sad Save pretpostavljam da je ovako

Code:
DLG.CancelError = False
DLG.ShowSave
Call SavePicture(Image1.Picture, DLG.FileName)

ako sam te dobro ukapirao, u principu,ovde su ti najbitniji LoadPicture i SavePicture

[ Srki_94 @ 09.06.2008. 21:47 ] @

Hvala "jurim" ovaj kod vec poduze vreme. Ja sam koristio istu foru kao kad bi sacuvao tekst.
Okacicu program kad zavrsim. (ako je sporno obrisite ovu temu) Nece biti kao ACDS ali ce biti dobro

[ goranvuc @ 09.06.2008. 22:31 ] @

Citat:

Srki_94: Okacicu program kad zavrsim.

Ne moras ovde (molim te), imas u na ES forum "Windows aplikacije" i tamo posebnu temu za objavljivanje besplatnih programa, ako je bas

Citat:

Srki_94: Nece biti kao ACDS ali ce biti dobro

S obzirom na tvoje dosada prikazano umece bojim se da nisi bas objektivan prema svom buducem cedu od programa

[ LittleHacker93 @ 09.06.2008. 23:36 ] @

Haha...Da ti odmah kazem da se previse zanosis...

Citat:

Probao sam na istu foru kao sa sacuvanjem texta ali nece.

Kakve bre fore?U programiranju nema "fora"...

Heh, jos si ti mali...Imas puno da ucis...Nisi ni svestan kolko ne znas, a mislis da sve znas...
Jos jednom ti kazem, samo knjige i tutovi...

[ Aleksandar Vasic @ 10.06.2008. 08:32 ] @

@LittleHacker93 a ti si mi pa mnogo stariji?? Molim te bez suvisnih komentara

Gorane, moze i ovde ako ce da okaci source :)

[ goranvuc @ 10.06.2008. 09:00 ] @

Pa ne mora bas da kaci svoje rane radove. Od toga niko nece imati koristi - ni on, a ni mi. Ako je u kontekstu resavanja problema uvek sam za kacenje projekata (cak insistiram), ali ako je u fazonu "Vidite ljudi koji sam ja genije napravio sam posle 3 dana ucenja programiranja ACDSee alternativu!" onda bolje ne.

[ Aleksandar Vasic @ 10.06.2008. 09:05 ] @

ok, u pravu si, slazem se

[ LittleHacker93 @ 10.06.2008. 12:23 ] @

Izvinjavam se zbog uvredljivih komentara... :D

[ stefanpn @ 10.06.2008. 14:24 ] @

He, he, jako mi je simpaticna ova tema, pa rekoh samo da se javim da sam tu...

94, 93, 92... Dosle su generacije hitnih sluzbi...

_{[edit]Tek sad videh sta sam sve propustio... Bila je tu i neka svadja oko lavirinta...[/edit]}

_{[Ovu poruku je menjao stefanpn dana 10.06.2008. u 16:07 GMT+1]}

[ Srki_94 @ 10.06.2008. 19:25 ] @

Ljudi ! Ljudi Sta vam je? Haha Pa nisam ni planirao da stavim prog. Zaboravio sam da stavim smajl kad sam rek'o da nece biti ko Acds. Haha sta vam je kakav crni ACDS? Kod mi je trebao za taj program u kome mozete da crtate to vam dodje ko neka bedna verzija painta. Necu kaciti primer. Xaxa. Oce neko da pozove 911?

@ Hacker
Ma kakvi bre tutori? Xa xa. Np
Stvarno ti si mnogo stariji

[ Aleksandar Vasic @ 10.06.2008. 20:03 ] @

ajde uozbilji se

[ Srki_94 @ 10.06.2008. 22:19 ] @

Malo se salim. Necu da stavim program ako vi tako kazete. Uozbiljen sam.
Ovo pitanje je mozda offtopick ali mislim da nije.
Kako da ucitam zip fajl u program ( Ne mislim bukvalno nego samo da ga ucitam to dodje kao zip u exe) i da kad kliknem na dugme ono se iskopira. Znam da je ovo tesko cini mi se da sam video ovakvo pitanje ovde. Ako vec postoji onda obrisite poruku naci cu. Hvala

[ stefanpn @ 10.06.2008. 23:16 ] @

Otvoris fajl for binary i smestis ga byte po byte u array... :)

Nije tesko...

[ rgdrajko @ 11.06.2008. 02:28 ] @

@ Aleksandar Vasic

Samo da dopunim, zbog drugih clanova, ovaj je kod:

Code:
Option Explicit

Dim ImeFajlaSlike As String

Private Sub Command1_Click()
    On Error Resume Next
    CommonDialog1.DialogTitle = "Otvori"
    CommonDialog1.Filter = "Svi tipovi slika|*.bmp;*.gif;*.ico;*.jpg|BMP fajlovi (*.bmp)|*.bmp|GIF fajlovi (*.gif)|*.gif|ICO fajlovi (*.ico)|*.ico|JPG fajlovi (*.jpg)|*.jpg|"
    CommonDialog1.ShowOpen
    ImeFajlaSlike = CommonDialog1.FileName
    Picture1.Picture = LoadPicture(ImeFajlaSlike)
    Label1.Caption = ImeFajlaSlike
End Sub

Private Sub Command2_Click()
    On Error Resume Next
    CommonDialog1.DialogTitle = "Sacuvaj"
    CommonDialog1.Filter = "Bitmap fajl (*.bmp)|*.bmp|"
    CommonDialog1.ShowSave
    ImeFajlaSlike = CommonDialog1.FileName
    ImeFajlaSlike = Left(ImeFajlaSlike, InStrRev(ImeFajlaSlike, ".") - 1)
    ImeFajlaSlike = ImeFajlaSlike & ".bmp"
    SavePicture Picture1.Picture, ImeFajlaSlike
    Label1.Caption = ImeFajlaSlike
End Sub

[ Aleksandar Vasic @ 11.06.2008. 08:51 ] @

ok, to je vec doterivanje :)

[ Aleksandar Ružičić @ 11.06.2008. 11:03 ] @

@rajko: a sta ces ako je korisnik pritisnuo Cancel u dijalogu? tvoj kod ce da sacuva sliku i u tom slucaju...

pre CommonDialog1.ShowSave treba da dodas CommonDialog1.CancelError = True a posle ShowSave treba da ide linija If Err.Number = cdlCancel Then Exit Sub

takodje, nije mi jasno za sta ce ti ImeFajlaSlike promenljiva i Picture1 objekat je suvisan (jedino ako hoces da prikazes izabranu sliku)