Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Convertire File Immagini

Salve a tutti
avrei un piccolo ma grande problema
Scannerizzo una foto con il componente ImgScan e la visualizzo in un
controllo ImgEdit
Siccome ImgScan supporta 3 tipi di formati (Tiff,Awd,BMP) nessuno
compatibile con il controllo Picture
come posso risolvere questo problema di incompatibilità di formato??
Sto impazzendo!!
bye Roberto

compatibile con il controllo Picture
??? Neanche il BMP??? Ne sei convinto???


 wrote in message
3961eeb0...@100.0.57.0...


Sicurissimo


 wrote in message 8jssu1$j54$1...@nslave2.tin.it...


 wrote in message
8jstrp$s8k$1...@stargate1.inet.it...


scusami SkyRunner, ma sul sito microsoft non ho trovato niente di simile, se
mi puoi indirizzare tu...


 bye Roberto
se l'imgedit ha un hwnd, probabilmente ce la fai con bitblt a copiare tutto
su un picture normale e poi a salvarla in bmp, se era questo che volevi.
seno', scusami se non ho capito.
per l'uso di bitblt, uno dei vari siti sull'api (nel primo trovi una guida
(exe) free, scaricabile e molto pratica:
http://www.allapi.net
http://www.vbgreatone.8m.com/vb/api.htm
http://www.vb-world.net
http://members.xoom.it/cesarerizzi
http://skyscraper.fortunecity.com/transmission/45/api
http://www.vbapi.com
ciao, a.

 wrote in message 38483...@news.megasys.it...


pal ho trovato la funzione sui siti da te linkati
ho fatto questa piccola funzione ma....
Private Sub Form_Load()
  Dim retval As Long
  retval = BitBlt(picbox2.hDC, 0, 0, 16, 32, picbox1.hDC, 45,50, SRCCOPY)
  End Sub
retval restituisce 1, ma nella picbox2 non si vede l'immagine caricata nella
propiretà picture della picbox1
Ho capito bene come funziona la "funzione"?


 > >


   retval = BitBlt(picbox2.hDC, 0, 0, 16, 32, picbox1.hDC, 45,50, SRCCOPY)
ho l'impressione che in questo modo tu copi -- non dal px in alto a sx ma da
quello a 45,50 del picbox1 (che suppongo sia l'imgedit) -- un'immagine di
16*32 pixel
forse, prima di chiamare bitblt, puoi provare (ricontrolla, sto scrivendo al
volo):
'chiamo picDA quello da cui copiare e picA quello in cui copiare
picA.width = picDA.width
picA.height=picDA.height
retval = BitBlt(picA.hdc, 0, 0, picDA.width, picDA.heitgh, picDA.hDC, 0,0,
SRCCOPY)
o meglio:
dim daW as integer, daH as integer
daW = picDA.width : daH = picDA.height
with picA
    .width = daW : .height = daH
    retval = BitBlt(.hdc, 0, 0, daW, daH, picDA.hDC, 0,0, SRCCOPY)
end with
nb - metti i picbox con border = none/nessuno, seno' fregano se non sbaglio
4 px.
nb2 - falla partire con un command: se l'immagine fosse grossa, nel
form_load ti si inchioda.
spero ti serva,
ciao, a.
ps - comunque e' strano che neanche il bmp venga riconosciuto. puoi salvarne
uno piccoletto da imgedit e mandarmelo a:
andrea....@tin.it
pps - se l'immagine non e' enorme, forse puoi anche mandarla in clipboard
con setdata e poi incollarla in paint o in un altro prg grafico. ma se e'
grossa ti inchioda, oltre che cosi' devi per forza usare un programma
esterno.

grazie e scusa di aver tagliato il msg
comunque l'oggetto ImgEdit non porta la proprietà hDC
Il problema l'ho risolto in questo modo:
  dopo scannerizzato faccio aprire il prog PAINT di Win e l'utente deve fare
salva con nome.. scegliendo un altro formato.
Se mi puoi seguire su quest'altro discorso:
  faccio partire la scannerizzazione e in fase di progettazione mi appare il
prg che scannerizza
Faccio l'exe del mio prg e questa finestra non appare più.
Come mai?
bye Roberto

 salva con nome.. scegliendo un altro formato.
Io non ho Paint: a me che cosa direbbe il tuo programma?
Se avessi l'ActiveX che stai usando ti potrei dire come si fanno ad ottenere, in
ogni caso, hWnd e hDc della finestra. Se č free potresti dirmi dove lo si trova?
Potrei saperti aiutare

 Potrei saperti aiutare
finora nel thread davo per scontato che fossero i controlli wang/kodak, di
serie con windows (chi aveva preso le prime ed. di win95 poteva riceverne
gratis il cd). questo e' win98 prima ed.:
c:\windows>dir img*.* /s /oe
imgview  chm        64.270  15/05/98  20.01 imgview.chm
imgtasks chm       111.216  15/05/98  20.01 imgtasks.chm
imghelp  cnt           109  15/05/98  20.01 imghelp.cnt
imgocxd  cnt         5.090  15/05/98  20.01 imgocxd.cnt
imghelp  hlp        84.420  15/05/98  20.01 imghelp.hlp
imgocxd  hlp       335.861  15/05/98  20.01 imgocxd.hlp
         6 file        600.966 byte
directory di c:\windows\system
imgshl   dll        32.768  28/05/98  21.27 imgshl.dll
imgcmn   dll        73.728  28/05/98  21.27 imgcmn.dll
imgutil  dll        35.520  29/11/99   0.00 imgutil.dll
imgedit  ocx       337.408  15/05/98  20.01 imgedit.ocx
imgthumb ocx       117.760  15/05/98  20.01 imgthumb.ocx
imgadmin ocx       108.032  15/05/98  20.01 imgadmin.ocx
imgscan  ocx       123.904  15/05/98  20.01 imgscan.ocx
         7 file        829.120 byte
non e' quello ?
ciao, a.

 serie con windows
Quelli invece hanno reso l'anima al creatore nel giro di quindici minuti

 ha scritto

l'angelo sterminatore...


beh, Paint fa cagare. L'ho sostituito al volo con il Corel Photopaint che davano
di serie con il mio computer, pur lasciando le immagini associate con Paint Shop
Pro, che purtroppo registra un solo tipo di file, e come mime type piazza un
improbabile image/tiff: in pratica Winny mi usava il controllo Kodak come plugin
predefinito di Explorer per TUTTE le immagini, incluse JPEG e GIF che detto
controllo non sa gestire! inutile dire che rabbia e frustrazione fecero sě che
Imaging perisse di lě a poco