cekko82 (Normal User)
Newbie
Messaggi: 7
Iscritto: 28/06/2009
|
Ciao a tutti,
vorrei convertire un file esterno da pdf a tiff, senza aprire il file o visualizzare alcuna applicazione,
in parte ci sono riuscito richiamando questa sub ed impostando come stampante predefinita Microsoft Office Document Image Writer :
Public Sub StampaFile(ByVal Path As String)
Dim printp As New Process
printp.StartInfo.FileName = Path
printp.StartInfo.Verb = "Print"
printp.Start()
End Sub
In questo modo (utilizzando una stampante virtuale), mi apre ogni volta la finestra in cui devo specificare nome e destinazione del file tiff.
In pratica vorrei passare ad una sub come variabili il file di origine, il file di destinazione ed i relativi percorsi;
qualcuno sa darmi qualche indicazione per migliorare la soluzione che ho indicato?
Grazie anticipatamente,
ciao
Francesco
|
|
|
lorenzo (Normal User)
Guru
Messaggi: 1178
Iscritto: 15/04/2008
|
allora, io il problema l'ho risolto in questo modo usando due librerie esterne gratuite: GflAx e Ghostscript
il codice:
Codice sorgente - presumibilmente C# |
public static string PdfToPng(string nomeFile, string pathImg) { GflAx. GflAx image = new GflAxClass (); string saves; image.EpsDpi = 352; image.Page = 1; image.LoadBitmap(nomeFile); image.SaveFormat = GflAx.AX_SaveFormats.AX_PNG; saves = pathImg + @"\" + ListaFile.EstraiNomeFile(nomeFile) + "tmp.png"; image.SaveBitmap(saves); return saves; }
|
ListaFile è una mia classe ma il metodo estrae dal path il solo nome del file senza .pdf
poi faccio:
Codice sorgente - presumibilmente C# |
public static string PngToTiff(string nomeFile, string pathImg) { string saves = PdfToPng(nomeFile, pathImg); System.Drawing.Image bm = System.Drawing.Image.FromFile(saves); saves = pathImg + @"\" + ListaFile.EstraiNomeFile(nomeFile) + ".tiff"; bm.Save(saves, System.Drawing.Imaging.ImageFormat.Tiff); bm.Dispose(); return saves; }
|
mi funziona...anche se ho dovuto applicare dei filtri bianco-nero per diminuire la grandezza del file visto che altrimenti il fax impiegava parecchio tempo ad inviare il documento. Ultima modifica effettuata da lorenzo il 29/06/2009 alle 13:38 |
|
|
cekko82 (Normal User)
Newbie
Messaggi: 7
Iscritto: 28/06/2009
|
Ciao Lorenzo,
intanto grazie per la risposta,
nel pomeriggio provo a lavorarci su.
Piu' darti ti faccio sapere cosa sono riuscito a combinare!
Grazie
Ciao
|
|
|
cekko82 (Normal User)
Newbie
Messaggi: 7
Iscritto: 28/06/2009
|
Ciao Lorenzo,
mi sono imbattuto subito in un problema legato alle librerie.
Ho scaricato da http://www.xnview.com/en/download_gfl.html
la libreria di GflaAx, ho "installato" il file eseguibile (penso che abbia solamente creato una cartella in c:\program files\GflSDK\ecc.. con dentro tutte le risorse, tra cui GflAx.dll).
Utilizzo Visual Basic 2008 express edition e non riesco a capire come referenziare questa libreria all'interno del mio progetto.
Se provo dal Menu->Progetto->Nuovo riferimento-> sfoglia, mi da un errore quando seleziono il file GflAx.dll.
Come avrai intuito, sono proprio alle prime armi!!
Grazie
ciao
|
|
|
lorenzo (Normal User)
Guru
Messaggi: 1178
Iscritto: 15/04/2008
|
non preoccuparti, anche io all'inizio non trovavo il file giusto.
allora, come hai detto ti viene creata una cartella con dentro tutti i file.
da prompt dei comandi(start->esegui->cmd) posizionati con il comando cd nel percorso GflAx\Lib\std dela cartella che l'installazione ti ha creato
poi esegui il comando regsvr32 GflAx.dll
Dopo che ti viene data conferma, non aggiungere la dll manualmente e invece di fare sfoglia da visual studio vai nell'elenco dei componenti COM dove dovrebbe esserci GflAx se non ricordo male 
Ultima modifica effettuata da lorenzo il 01/07/2009 alle 9:36 |
|
|
cekko82 (Normal User)
Newbie
Messaggi: 7
Iscritto: 28/06/2009
|
Ciao Lorenzo,
Le tue idicazioni erano corrette, ma avendo io windows vista..ho incontrato qualche difficoltà con i permessi, comunque ho risolto il caricamento della di Gflax.dll in questo modo:
1) bisogna eseguire cmd.exe come amministratore,
C:\Windows\System32\cmd.exe->tasto destro con il mouse ed indicare "Esegui come Amministratore"
2) eseguire il comando "C:\Program Files\GflSDK\GflAx\Lib\std\regsvr32 GflAx.dll"
(il percorso in cui c'è la dll dipende da dove si scarica la cartella con i file)
Poi ho riscritto in vb il codice che hai postato, ma anche qui mi sono bloccato su image.LoadBitmap(nomeFile)
non accetta file con estensione pdf, ho questo errore:
"Eccezione first-chance di tipo 'System.Runtime.InteropServices.COMException'"
ho provato a passare un jpg, ma ho dovuto comunque assegnare alla variabile nomeFile tutto il percorso del file.
Effettivamente così non si blocca e mi salva il file .png
Per semplicità non ho crato una mia classe come hai fatto tu, ma ricavo il nome del file senza estesione con un espressione ed assegno il valore ad una variabiel nomeFile2.
Riporto il codice :
Public Function PdfToPng(ByVal nomeFile As String, ByVal pathImg As String)
Dim image As New GflAxClass()
Dim saves As String
Dim nomeFile2 As String
nomeFile2 = Mid(nomeFile, 1, (Len(nomeFile) - 4))
image.EpsDpi = 352
image.Page = 1
image.LoadBitmap(pathImg & "\" & nomeFile)
image.SaveFormat = GflAx.AX_SaveFormats.AX_PNG
saves = pathImg + "\" + nomeFile2 + "tmp.png"
image.SaveBitmap(saves)
Return saves
End Function
Hai qualche idea del motivo per cui non mi prende i file .pdf?
Ciao,grazie
|
|
|
lorenzo (Normal User)
Guru
Messaggi: 1178
Iscritto: 15/04/2008
|
hai installato ghostscript?
è la combinazione delle due librerie che permette la conversione, visto che ghostscript fa vedere i pdf come bitmap alla libreria
per installare ghostscript basta che fai andare l'eseguibile, non c'é bisogno di registrare librerie, fa tutto da solo
e non devi nemmeno referenziarla ne chiamarla nel codice, basta solo che sia installata sul pc
|
|
|
cekko82 (Normal User)
Newbie
Messaggi: 7
Iscritto: 28/06/2009
|
Ciao Lorenzo,
funziona!!
mi mancava l'installazione di ghostscrip t
Sto facendo delle prove e non capisco, perchè fai un doppio passaggio pdf->png->tiff ?
Ho provato usando la prima funzione a passarlgi il parametro
Codice sorgente - presumibilmente Plain Text |
image.SaveFormat = GflAx.AX_SaveFormats.AX_TIFF
|
e converte da pdf a tiff.
Mi converte solo la prima pagina del file .pdf, ho provato a modificare la proprietà .page, ma mi da errore, esiste un modo per estrare piu' pagine? esiste una proprietà per impostare il tipo di compressione del tiff?
Intanto posto per tutti il codice vb.net che ho scritto grazie a te:
Funzione per convertire da .pdf a .png
Codice sorgente - presumibilmente VB.NET |
Public Function PdfToPng(ByVal nomeFile As String, ByVal pathImg As String) Dim image As New GflAxClass() Dim saves As String Dim nomeFile2 As String Dim npages As Integer nomeFile2 = Mid(nomeFile, 1, (Len(nomeFile) - 4)) npages = image.NumberOfPages image.EpsDpi = 352 image.Page = 1 image.LoadBitmap(pathImg & "\" & nomeFile) npages = image.NumberOfPages image.SaveFormat = GflAx.AX_SaveFormats.AX_PNG 'AX_PNG saves = pathImg + "\" + nomeFile2 + "tmp.png" '"tmp.png" image.SaveBitmap(saves) Return saves End Function
|
Funzione per convertire da .png .tiff
Codice sorgente - presumibilmente VB.NET |
Public Function PngToTiff(ByVal nomeFile As String, ByVal pathImg As String) Dim bm As System.Drawing.Image Dim saves As String Dim nomeFile2 As String nomeFile2 = Mid(nomeFile, 1, (Len(nomeFile) - 4)) saves = PdfToPng(nomeFile, pathImg) bm = System.Drawing.Image.FromFile(saves) saves = pathImg + "\" + nomeFile2 + ".tiff" bm.Save(saves, System.Drawing.Imaging.ImageFormat.Tiff) bm.Dispose() Return saves End Function
|
Provo a guardare un po' meglio, magari riesco a farti una domanda piu' precisa,
per ora grazie mille Lorenzo.
 |
|
|
lorenzo (Normal User)
Guru
Messaggi: 1178
Iscritto: 15/04/2008
|
non ne sono sicuro, è passato del tempo, però mi sembra che la versione free di GflAx non permette di passare da pdf a tiff
non prenderlo per oro colato però dovrebbe essere per questo motivo
e poi:
image.EpsDpi = 352
sistemalo come vuoi tu
più è alto più tempo impiega a convertire
a me andava bene perché così risparmiavo tempo al fax, però si può anche abbassare
Ultima modifica effettuata da lorenzo il 01/07/2009 alle 20:00 |
|
|
