Ciao a tutti!!!
Sono nuova di questo forum ..
Ho letto la domanda di giuliano68 e vorrei chiedervi al più presto un aiuto, dal momento che anch'io sono bloccata da ormai parecchi giorni su questo problema..
in pratica devo creare una tabella utilizzando fpdf ed al suo interno inserirvi dinamicamente .. da database.. un'immagine.. il metodo pdf.row rs("nomeimmagine") non funziona e tantomeno il pdf.image...
Qualcuno ha una soluzione a questo problema x favore???
Grazie 1000 in anticipo!!!!
Ehm...la cosa non è così immediata.Originariamente inviato da strawberry_1984
Ciao a tutti!!!
Sono nuova di questo forum ..
Ho letto la domanda di giuliano68 e vorrei chiedervi al più presto un aiuto, dal momento che anch'io sono bloccata da ormai parecchi giorni su questo problema..
in pratica devo creare una tabella utilizzando fpdf ed al suo interno inserirvi dinamicamente .. da database.. un'immagine.. il metodo pdf.row rs("nomeimmagine") non funziona e tantomeno il pdf.image...
Qualcuno ha una soluzione a questo problema x favore???
Grazie 1000 in anticipo!!!!
Hai un db a disposizione? Se sì basta che crei una tabella di questo tipo
Dove nel campo desc_nome_file metti il path completo dell'immagine (magari caricata con l'upload di Baol) e negli altri campi, se pensi ti possano servire queste informazioni, le coordinatre dell'immagine da inserire e la pagina dova va inseritaCODI_PUBB NOT NULL NUMBER(9)
DESC_NOME_FILE NOT NULL VARCHAR2(50)
NUME_PAGE NUMBER(3)
NUME_ALTE_IMAG NUMBER(4)
NUME_LUNG_IMAG NUMBER(4)
NUME_POSI_ORIZ NUMBER(4)
Poi nel file asp che richiama la libreria fpdf, fai semplicemente così (evito la parte dove puoi decidere la pagina da inserire...se ti serve dimmelo)
Come vedi il path dove risiedono le immagini, lo puoi anche mettere fisso (tanto non lo dovresti mai cambiare).SQLpubb = "SELECT * " _
& "FROM TABELLA where CODI_BOLL_RISU ="&vn_codibollavvi&" and nume_page="& numepage
Set rspubb = cnnSearch.Execute(SQLpubb)
if not rspubb.EOF then
pdf.SetY(Y)
pdf.SetX(X)
P=0
P=X + cint("0"&rspubb("NUME_POSI_ORIZ"))
l=0
l=0+cint("0"&rspubb("NUME_LUNG_IMAG"))
a=0
a=0+cint("0"&rspubb("NUME_ALTE_IMAG"))
pdf.Image "pubblicita/file/"&rspubb("DESC_NOME_FILE")&".jpg", P, Y, l, a, "JPG"
Ma se ti serve rendi parametrico anche questo.
Spero ti possa essere stato utile.
ps. se non hai un db, devi trovare il modo di leggere la dir dove risiedono i file...ma questo non so come si fa
Ciao!
Innanzitutto grazie x l'aiuto ... purtroppo xò mi viene ancora errore...
Allora ti posto qui di seguito il codice con le modifiche apportate seguendo le tue istruzioni...
-----------------------------------------------
set rspubb = Server.CreateObject("ADODB.Recordset")
SQLpubb = "SELECT * FROM TAB_PDF "'where NUME_PAGE NUMBER="& numepage
'CODI_BOLL_RISU ="&vn_codibollavvi&" and
Set rspubb = cn.Execute(SQLpubb)
if not rspubb.EOF then
pdf.SetY(Y)
pdf.SetX(X)
P=0
P=X + cint("0"&rspubb("NUME_POSI_ORIZ"))
l=0
l=0+cint("0"&rspubb("NUME_LUNG_IMAG"))
a=0
a=0+cint("0"&rspubb("NUME_ALTE_IMAG"))
pdf.Image "C:\"&rspubb("DESC_NOME_FILE")&".jpg", P, Y, l, a, "JPG"
'
end if
-------------------------------------------------
tieni presente che la variabile cn arriva da una connessione a db fatta con un include nel file che richiama la libreria del db x il pdf...
eccola:
Poi ti chiedo ... nel db io ho chiamato i campi come dici tu... l'unica cosa che non mi è chiara sono i tipi e le parentesi di fianco al nome di ciascun campo... puoi spiegarmi x favore?
Infine lanciando la pagina pdf viene fuori...
-----------------
Il parametro Path del metodo MapPath contiene un carattere non valido.
/progetto/fpdf/includes/images.asp, line 33
--------------------
Questa della linea 33 è un problema che ho sentito ritorna a molti nel forum...
Hai una soluzione??? Grazie ancora!! Ciaoo
Che db hai? Io uso Oracle e quelle sono le definizioni dei campi della tabella. In altri db dovrebbe essere più o meno così, ma non ti so dire di più.Originariamente inviato da strawberry_1984
Ciao!
Innanzitutto grazie x l'aiuto ... purtroppo xò mi viene ancora errore...
Allora ti posto qui di seguito il codice con le modifiche apportate seguendo le tue istruzioni...
-----------------------------------------------
set rspubb = Server.CreateObject("ADODB.Recordset")
SQLpubb = "SELECT * FROM TAB_PDF "'where NUME_PAGE NUMBER="& numepage
'CODI_BOLL_RISU ="&vn_codibollavvi&" and
Set rspubb = cn.Execute(SQLpubb)
if not rspubb.EOF then
pdf.SetY(Y)
pdf.SetX(X)
P=0
P=X + cint("0"&rspubb("NUME_POSI_ORIZ"))
l=0
l=0+cint("0"&rspubb("NUME_LUNG_IMAG"))
a=0
a=0+cint("0"&rspubb("NUME_ALTE_IMAG"))
pdf.Image "C:\"&rspubb("DESC_NOME_FILE")&".jpg", P, Y, l, a, "JPG"
'
end if
-------------------------------------------------
tieni presente che la variabile cn arriva da una connessione a db fatta con un include nel file che richiama la libreria del db x il pdf...
eccola:
Poi ti chiedo ... nel db io ho chiamato i campi come dici tu... l'unica cosa che non mi è chiara sono i tipi e le parentesi di fianco al nome di ciascun campo... puoi spiegarmi x favore?
Infine lanciando la pagina pdf viene fuori...
-----------------
Il parametro Path del metodo MapPath contiene un carattere non valido.
/progetto/fpdf/includes/images.asp, line 33
--------------------
Questa della linea 33 è un problema che ho sentito ritorna a molti nel forum...
Hai una soluzione??? Grazie ancora!! Ciaoo
Per quello che riguarda la linea 33 del codice della images.asp, potresti inviare il codice (o parte di questo) indicando qual'è la linea 33?
Avevo visto male...
Qualche considerazione in più
Hai provato ad inserire il path come nel mio primo esempio?
ovvero
Inoltre non serve inserire "C:" e lo slash deve (se sei su Windows) essere "/" e non "\"pdf.Image "pubblicita/file/"&rspubb("DESC_NOME_FILE")&".jpg", P, Y, l, a, "JPG"
Probabilmente basta invertire solo lo slash
Fammi sapere se ora va ok?
Aggiungo ancora che il file fpdf.asp deve essere nella stessa dir del file che lo richiama.
Ti ringrazio molto ma non va ancora...
--------------------------------------------
Impossibile aprire il file.
/progetto/fpdf/includes/images.asp, line 33
-------------------------------------------
che è sempre il medesimo errore che trovo con tutte le soluzioni provate....
ti posto qui di seguito il testo del file incluso in fpdf cartella Include .....
-----------------------------------------------
function cImage(){
this.Buffer;
this.width=-1;
this.height=-1;
this.mime="";
this.channels;
this.bits;
this.size=-1;
this.extension;
this.id;
this.Open=function Open(pFileName){
this.FileName = pFileName
this.Buffer=Server.CreateObject("ADODB.Stream");
this.Buffer.CharSet ="ISO-8859-1";
this.Buffer.Type = 2
this.Buffer.Open()
//Response.Write(Server.MapPath(pFileName));Response .End;
this.Buffer.LoadFromFile(Server.MapPath(pFileName) ); -----> LINEA 33
this.Buffer.Position = 0
this.size=this.Buffer.Size;
this.extension = pFileName.substring(pFileName.lastIndexOf(".")+1). toLowerCase();
this.mime = this.GetMimeType(this.extension);
switch(this.mime){
case "image/jpeg":this._parseJpeg();
}
}
this.GetMimeType=function GetMimeType(ext){
switch(ext){
case "jpg":
case "jpeg":
return "image/jpeg";
case "png":
return "image/png";
}
}
function toAscii(code){
//debug(code)
switch(code){
case 8364: code=128;break;
case 8218: code=130;break;
case 402: code=131;break;
case 8222: code=132;break;
case 8230: code=133;break;
case 8224: code=134;break;
case 8225: code=135;break;
case 710: code=136;break;
case 8240: code=137;break;
case 352: code=138;break;
case 8249: code=139;break;
case 338: code=140;break;
case 381: code=142;break;
case 8216: code=145;break;
case 8217: code=146;break;
case 8220: code=147;break;
case 8221: code=148;break;
case 8226: code=149;break;
case 8211: code=150;break;
case 8212: code=151;break;
case 732: code=152;break;
case 8482: code=153;break;
case 353: code=154;break;
case 8250: code=155;break;
case 339: code=156;break;
case 382: code=158;break;
case 376: code=159;break;
default:
Response.Write("Error ascii code : " + code);
Response.End
}
return code;
}
this.Read=function Read(nB,radix){
var res=""
if (arguments.length<2){radix=16;}
else if (radix=="string"){return this.Buffer.ReadText(nB);}
for(i=1;i<=nB;i++){
ch = this.Buffer.ReadText(1).charCodeAt(0)
if (ch>255)ch=toAscii(ch)
ch = ch.toString(16)
if (ch.length==1)ch = "0" + ch
res += ch
}
if (radix!=16){
res = res.toString(radix);
if (radix==10){res = parseInt(res,16)}
else if (radix==2){
if (res.length!=nB*8){
s = "";for (i=0;i<nB*8-res.length;i++){s+="0"}
res = s + res;
}
}
}
return res;
}
--------------------------------------------------------------------------------
prova a guardarlo... poi magari mi fai sapere qlcs....
il mio db è ACCESS e i x i campi basta enominarli....
poi ci sono anke le varie opzioni.. cmq in genere si gestiscono con il nome campo...
ho provato anke a cambiare gli slash ma nulla da fare :master:
la cartella fpdf è dentro alla cartella del mio sito simulato da IIS ed il pdf lo produceva, anke quando ho usato l'extension table, solo quando ho provato ad inserire img ha dato questo tipo di problemi.
Thanks!!
La libreria che mi hai inviato è la stessa che ho io.
Il problema quindi sta da un'altra parte.
Prova ad inviarmi il codice asp che la richiama. Anche solo la parte che inserisce l'immagine.
Una cosa però.
Tu indichi
Ma non dovrebbe essere/progetto/fpdf/includes/images.asp
Ovvero senza slash iniziale?progetto/fpdf/includes/images.asp
E poi scusa. Sei su Windows o su Linux? Credo sul primo e allora gli "/" devono essere "\"
Comunque posta il codice asp dove crei il pdf e vediamo.
ECCO IL MIO CODICE COMPLETO DELLA PAG PDF...
-----------------------------------------------
<%@language=vbscript %>
<%option explicit%>
<%
Dim i,pdf,immagini,Y,X,P,a,l
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.LoadModels("TestModels") ' il nome del modello è specificato senza estensione.
pdf.LoadExtension("table")
pdf.AddPage()'L'inizio è impostato nell'angolo in alto a sinistra e la posizione corrente è impostata a 1cm dai margini. ( Per impostare i margini vedere SetMargins() )
pdf.Table.Border.Width = 0.1
pdf.Table.Border.Color="00008B"
pdf.Table.Fill.Color="C9C8C0"
pdf.Table.TextAlign = "R"
pdf.SetLeftMargin(15) 'imposta il margine sinistro della pagina
pdf.SetColumns 90,90',30,40
pdf.SetFont "Arial","B",10
pdf.Row "Colonna 1","Colonna 2"
pdf.SetFont "Arial","",10
'pdf.FileName = img
Dim fine,partenza, nuovo_testo, immagine, img, numepage, SQLpubb, rspubb
'fine=false
'partenza=1
for i=1 to 4
pdf.row "ciao"
next
'if numepage <> pdf.pageNO() then
' numepage=pdf.pageNO()
set rspubb = Server.CreateObject("ADODB.Recordset")
SQLpubb = "SELECT * FROM TAB_PDF "'where NUME_PAGE NUMBER="& numepage
'CODI_BOLL_RISU ="&vn_codibollavvi&" and
Set rspubb = cn.Execute(SQLpubb)
if not rspubb.EOF then
pdf.SetY(Y)
pdf.SetX(X)
P=0
P=X + cint("0"&rspubb("NUME_POSI_ORIZ"))
l=0
l=0+cint("0"&rspubb("NUME_LUNG_IMAG"))
a=0
a=0+cint("0"&rspubb("NUME_ALTE_IMAG"))
pdf.Image "img/"&rspubb("DESC_NOME_FILE")&".jpg", P, Y, l, a, "JPG"
'
end if
'end if
pdf.Close()
pdf.Output()
%>
--------------------------------------------
PROVA A VEDERE.... POI MI DICI QLCS...
IO INTANTOI RIPROVO CN I TUOI SUGGERIMENTI
GRAZIE!!
Permessi di invio
Rispondi quotando