leggere file binarii (24 esima...)

[agenti]

è tanto che cerco di avere aiuto su questa domanda ma no ho risposte su infinità di forum...:

vorrei leggere i file da un db
il file è access campo blob...
richiamo il campo cosi:

[img]../sicilia_case/img/<%Response.BinaryWrite rec([/img] 

risultato pagina bianca...
la cosa assurda è che in un altro script funziona...

richiamando il file cosi'...
Response.ContentType = oRs(1)
Response.BinaryWrite oRs(2)

dove il recordset è settato=oRs

perfavore aiutatemi..

[agenti]

ho fatto un passo avanti...

inserendo il contentype in questo modo:

<%Response.ContentType = Rec("ContentType")
Response.BinaryWrite Rec("BinaryData")%>

il risultato è che legge il db ma non codifica le immagini... ovvero mi risponde a video:


ÿØÿàJFIF


HHÿí8Photoshop 3.08BIMCaptionù ISO-IS270-144P ImageSourcen ImageSourceAgricolo Agricoltura agricolturaAgrumeagrumialimentiAli mentoAlimento e bevandaAnatomia della piantaAranceAranciaarancioarticoli articoloassolato Benesserechiarorecibicibo Circostanza CircostanzeConcettiConcetti ed ideeConcetti positiviConcettoConcetto ed ideaConcetto positivo condizione condizioniCosaCosecoseCrescendo in sucrescerecrescita

premetto inoltre, che c'era un ciclo do while che bloccava la lettura dell'immagine...

ora ho filtrato il il db chiedendo un ID preciso...

[Baol74]

Allora. Per Prima cosa analizziamo la chiamata.
La tua chiamata sarà ad una pagina asp (in questo caso GetImage.asp?Id=1

[img]../sicilia_case/img/GetImage.asp?id=1[/img]

Questa sarà la pagina GetImage.asp

'Impostazione della connessione
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "........."
Conn.Open()

Set Rec = Conn.Execute("SELECT ContentType,BinaryData From Tabella where id = " & Request("ID"))

Response.ContentType = Rec("ContentType") 
Response.BinaryWrite Rec("BinaryData")
Rec.Close()
Set Rec = Nothing
Conn.Close()
Set Conn = Nothing
Response.End

Se non ti funziona, devi mettere

Response.BinaryWrite Rec("BinaryData").GetChunk(Rec("BinaryData").Actua lSize)

[agenti]

baol grazie della risposta...

ho fatto cmoem dici:

<%
Set rec = Server.CreateObject("ADODB.Recordset")
strSql="SELECT FileName, Type, BinaryData FROM annunci WHERE FileID= 46 "
rec.open strsql, conn, 3, 3
%>


e la chiamata

<tr>
		<td align="center" valign="top">
		


		<%Response.ContentType = Rec("Type")
		Response.BinaryWrite Rec("BinaryData").GetChunk(Rec("BinaryData").ActualSize)%></td>

purtroppo però non va .. dà sempre il codice non codificato..

[Baol74]

No, non hai fatto quello che ti ho detto. rileggi.

[agenti]

ho fatto cosi'

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../sicilia_case/db/db_sicilia.mdb")

Set Rec = Conn.Execute("SELECT * From annunci where valedal<=now()  and valeal>=now() and attiva=true")
If not rec.eof then
Do while not rec.eof
%>

<div class="table1">
<table border="1" width="100%" height="40" id="table1">
	<tr>
		<td width="95" align="center" valign="top" rowspan="2">
		<p align="left">
		<font face="Verdana" size="1"><%=rec("localita")%>(<%=rec("provincia")%>)

		</font>
		<font face="Verdana" size="1">
		<span style="text-transform: capitalize"><%=rec("tipologia")%></span>

		<%=rec("posti")%> posti letto

		<%=rec("camere")%> Camere

		<%=rec("operazione")%>

		DA €. 450</font></td>
		<td width="769" align="center" valign="top" rowspan="2">
		<p align="justify">
		<font face="Verdana" size="1" color="#808080"><%=rec("descrizione")%></font></td>
		<td align="center" valign="top">
		<p align="right">
		<%Response.ContentType = Rec("Type") 
		Response.BinaryWrite Rec("BinaryData").GetChunk(Rec("BinaryData").ActualSize)%>
		[img]../sicilia_case/img/tempirussi.jpg[/img]</td>
		<td align="center" valign="top">
		[img]../sicilia_case/img/tempirussi.jpg[/img]</td>
	</tr>
				
	<tr>
		<td align="center" valign="top">
		<p align="right">
		[img]../sicilia_case/img/tempirussi.jpg[/img]</td>
		<td align="center" valign="top">
		[img]../sicilia_case/img/tempirussi.jpg[/img]</td>
	</tr>
</table>
</div>



<%rec.movenext
loop

else
response. write "Nessuna casa trovata"
end if

Rec.Close()
Set Rec = Nothing
Conn.Close()
Set Conn = Nothing
Response.End%>

risultato pagina bianca...
anche con l'altro metodo.

[Baol74]

Al posto di
<%Response.ContentType = Rec("Type")
Response.BinaryWrite Rec("BinaryData").GetChunk(Rec("BinaryData").Actua lSize)%>

Devi mettere:

[img]../sicilia_case/img/GetImage.asp?id=1[/img]

Sarà GetImage.asp che restituirà l'immagine!

Hai capito?

[agenti]

inizio a capire...

vediamo:
creo la pagina getimage.asp...
ok??

sappiamo cosa contiene...

faccio la chiamata in questo modo:

[img]../sicilia_case/img/GetImage.asp?id=1[/img]

dove id è il campo id della tabella annunci, ad esempio

[img]../sicilia_case/img/GetImage.asp?id=rec([/img]

ora mi chiedo l'ultima cosa (spero)
ma la pagina Getimag.asp devo includerla utilizzzando un classico include???

quindi fare:

[img]../sicilia_case/img/<!--#include virtual=[/img]?id=rec("id_annuncio")>

oppure la metto nella dir principale e viene richiamata direttamente

lo so quest'ultima è una strana interpretazione.
MA credo sia meglio chiedere.

grazie ancora.

[Baol74]

ahahhaahahahahahhahahh!

La pagina la richiami così!!!!!!! e basta! Rieleggi quello che ti ho scritto!!!!!!!!!!!!!!

[img]../sicilia_case/img/GetImage.asp?id=1[/img]

[agenti]

ho solo chiesto...
non c'è motivo per essere preso in giro.

Come si dice ognuno ha il suo mestiere...
cerca di essere più umile.

grazie genio...