Sorry fuer das falsche Subject;-)
Ich habe folgendes Script, um ein JPEG base64-codiert in ein
Datenbank-TEXT-Field einzutragen:
sub binaerInput()
thisFilePath="h:\Inetpub\wwwroot\viperOrginal\images\xwo00001.jpg"
dim adod, rs
Set adod = Server.CreateObject("ADODB.Connection")
set base64 = Server.CreateObject("Base64Lib.Base64")
Set stm = Server.CreateObject("ADODB.Stream")
stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile thisFilePath
adod.Open meineDB, usr, pw
adod.execute "declare @pageptr varbinary(16) select
@pageptr=textptr(uebersicht) from bilder where eintragsnr=4 writetext
bilder.uebersicht @pageptr '"&base64.Encode(stm.read)&"'"
stm.close
set stm=nothing
set base64 = nothing
adod.close
set rs=nothing
set adod=nothing
end sub
Klappt wunderbar, das eintragen des base64-kodierten JPEGs. Ich moechte es
jetzt auslesen mittels einer eigenen ASP (wird aufgerufen mit <img
src=""meineASP.asp?einnr=4"">)
Set adoD = Server.CreateObject("adoDB.Connection")
adod.Open meineDB, usr, pw
set RS = server.createObject("adoDB.Recordset")
sqlSelect = "select top 1 uebersicht from bilder where
eintragsnr='"&request.Querystring("einnr")&"'"
RS.open sqlSelect, adoD
if not (RS.eof and RS.bof) then
Response.clear
Response.ContentType = "image/jpeg"
set myObj = RS("uebersicht")
set base64=Server.createObject("Base64Lib.Base64")
Response.BinaryWrite base64.decode(myObj.GetChunk(myObj.ActualSize))
set base64 = nothing
end if
RS.close
adoD.close
Ich hoffe, jetzt alles geschrieben zu haben, Rueckfragen beantworte ich
gern ;-)
Klappt nicht, d.h. es wird zwar im Browser geladen, aber als brokenImage
angezeigt :-(
Ich muss base64 verwenden, da wir das Feld unter anderem auch vom Mac via
Applescript fuellen und wir dort keinen BinaerDatenTyp uebergeben koennen.
Hat irgendjemand soetwas schon versucht?
Warum klappt es nicht?
CU
Schmiddl
http://www.drhirn.com/42
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
