scalare immagini in visual basic

[gioele78]

Ciao a tutti,

sto sviluppando un database in access e ho bisogno di scalare delle foto (cioè diminuire la dimesione del file) prima di salvarle nel database.
Qualcuno è così gentile da mettermi sulla strada buona?

grazie,
gioele

[MItaly]

Versione di VB?

[gioele78]

ciao, grazie della risposta.
La versione è Visual Basic 6.0 (access 2003)

[oregon]

Originariamente inviato da gioele78
ciao, grazie della risposta.
La versione è Visual Basic 6.0 (access 2003)

Visual Basic 6 e' una cosa ... Access 2003 (VBA) e' un'altra cosa ... deciditi ...

[gioele78]

mah, non saprei.
io ho access 2003.

Ma se all'interno del database vado all' editor VB e clicco su "informazioni"
leggo "Microsoft Visual Basic 6.0. Copyright 1987-1999 Microsoft Corp."

[oregon]

Semmai leggi

Microsoft Visual Basic 6.3

e sotto

VBA ...

[gioele78]

leggo esattamente quello che ho scritto.
Se vuoi posso mettere un screen shot, ma spero che ti fidi

Comunque in basso c'è scritto:
VBA: Retail 6.4.8869 Form3: 11.0.5601

[oregon]

Originariamente inviato da gioele78
leggo esattamente quello che ho scritto.

Se vuoi posso mettere un screen shot, ma spero che ti fidi

Comunque in basso c'è scritto:
VBA: Retail 6.4.8869 Form3: 11.0.5601

Non e' una questione di fiducia, ma di sapere esattamente di quale prodotto parliamo per poter rispondere correttamente ...

Quindi confermi che e' la versione 6.0. e non la 6.3. ... ?

[gioele78]

si confermo. Un aiuto sarebbe una mano santa.

Per ora le foto vengono copiate in un cartella (con FileCopy) e nella tabella viene salvato solo il percorso. Le foto devono essere scalate perchè il Db conterrà probabilmente alcune centinaia di foto, e il tutto dovrà essere spedito via email o caricato on line da qualche parte. Insomma, il tutto deve avere dimensioni ragionevoli ed essere maneggevole.

Eventualmente sarebbe meglio salvarle direttamente nel DB come OLE Object?

[gioele78]

nessuno ha un'idea?
questo è il codice che ho finora.
L'immaginr viene selezionata e copiata in un'altra cartella con un altro nome. Titolo e percorso vengono salvati nel database. Non si potrebbe scalare l'immagine dopo averla copiata?
(tbFile è il percorso del file)

Private Sub buttonSavePicture_Click()
On Error GoTo Err_buttonSavePicture_Click

Dim strSQL As String
Dim vCount As Integer
Dim pictureID As Integer
Dim SourceFile As String
Dim DestinationFile As String


If IsNull(tbFile) Or tbFile = "" Then
MsgBox "Please browse and select a valid file to open.", vbCritical, "Invalid File"
Else

pictureID = DLookup("max([id])", "[picture]")
strSQL = " INSERT INTO picture ( control_id, path, title) VALUES (" & Me.txtID & ", '" & Me.tbFile & "' , '" & Me.txtPictureTitle & "' ); "

DoCmd.RunSQL strSQL

SourceFile = Me!tbFile
DestinationFile = "C:\DATApicture\" & pictureID & ".jpg"
FileCopy SourceFile, DestinationFile
tbFile = Null
txtPictureTitle = Null
DoCmd.Requery "lstPicture3"
End If


Exit_buttonSavePicture_Click:
Exit Sub

Err_buttonSavePicture_Click:
MsgBox Err.Description
Resume Exit_buttonSavePicture_Click

End Sub