Speicher das BrokenImage und check die Gr�sse... Stimmt die? Wahrscheinlich nicht... Doppelte Gr�sse? Ein Byte zuviel? Falls sie stimmen sollte, oder nur wenige bytes zuviel sind, dann finde mit einem hexeditor raus, ob die bytes vorne oder hinten an der datei zuviel sind... Was sind das f�r bytes? Schreibst Du Leerzeichen o.�. Vorne hinten oder vorne dran?
CLaudius > -----Original Message----- > From: Michael Schmidt [mailto:[EMAIL PROTECTED]] > Sent: Donnerstag, 27. Juni 2002 14:19 > To: AspGerman Kaffeehaus > Subject: [aspdecoffeehouse] base64.encode / decode und SQL-Daten > > > 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/aspdecoffee house.asp | [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
