Insert Image as BLOb

[douglas06]

Do you know how to insert an image with blob field in asp? I have a code but I have an error, can you help me?

[ADezii]

I've attached a Demo that I created awhile ago that demonstrates how to Edit a specific Graphic Image stored as A BLOB in an OLE Object Field. The original Code is from Alan Warren which I modified to suit a specific User's needs. It also clearly illustrates multiple aspects of BLOB Storage, including: writing a Graphic File as a BLOB to an OLE Object Field, how to read an Image stored as a BLOB, how to Edit a BLOB Image, etc. Most of the relevant Code is contained within the Code Module behind frmInventory.

P.S. - You can also reference this Article that I wrote awhile ago. It generated a lot of interest with multiple Replies from very knowledgeable individuals. You should find it very interesting.
http://bytes.com/topic/access/insigh...blob-not-movie

[douglas06]

ADezii Will it serve me in sql?

[douglas06]

I have this code is asp and it gives me error in the log file

[douglas06]

f Request.TotalBytes > 0 Then
req_bytes = Request.BinaryRead(tot_bytes)
 'Parse POSTed request JSON
 'Parse POSTed request JSON
 reqArgsString = BytesToStr(req_bytes)
 reqArgsArray = Split(reqArgsString, "&")
 For i = 0 To UBound(reqArgsArray)
    reqArgsArray(i) = Split(reqArgsArray(i), "=")
 Next
 
 'Decode base64 image from JSON POST to BytesArray'
 'Decodificar la imagen base64 de JSON POST a Bytes Array'
 base64Encoded = URLDecode(reqArgsArray(1)(1))
 base64Decoded = decodeBase64(base64Encoded)
 'Response.Write base64Decoded
 '' GoTo Done
 
 
  'DB Connection Object
 'Set cn = Server.CreateObject("ADODB.Connection")
 'ConnStr="DRIVER=SQL Server;SERVER=161.196.101.140;UID=sa;PWD=P@ssw0rdsql;Database=ContinuumDB"
 'cn.Open ConnStr
 'Dim strQry 
 'strQry = "INSERT INTO GA_BLOB (""Blob_Segment"", ""Blob_Person_ID"") VALUES (?, ?)"
 
 ' strQry = "INSERT INTO GA_BLOB (""Blob_Person_ID"", ""Blob_Image_ID"", ""Blob_Segment_No"", ""Blob_Format"", ""Blob_Segment"") VALUES (?, ?)"'
 
 '"insert into GA_BLOB (Blob_Person_ID, Blob_Image_ID, Blob_Segment_No, Blob_Format, Blob_Segment) values ('" & Request.form("Blob_Person_ID") & "', '" 0 "','" 0 "','" 0 "', '" & Request.form("Blob_Segment") & "')"'
 
 'Dim cm As ADODB.Command
 'Set cm = New ADODB.Command
 'cm.ActiveConnection = cn
 'cm.CommandText = strQry
 'cm.Parameters.Append cm.CreateParameter("@Blob_Segment", adVarBinary, adParamInput, 100, base64Decoded) 'Leave this parameter first
 'cm.Parameters.Append cm.CreateParameter("@Blob_Person_ID", adInteger, adParamInput, , reqArgsArray(1)(1))
 'cm.CommandType = adCmdText
 'cm.Execute

[NeoPa]

I've split this hijack question into a new thread in the ASP forum as that's explained as the language used.

@Douglas.
Please be more careful when posting your questions and never add one to an existing thread. Always use the [CODE] tags when including code.

@ADezii.
When you see a hijack of an old thread it's far better to report it than to respond to it. In this case I suspect the question is not only a hijack but also posted in a thread from entirely the wrong forum.

Alternatively feel free to PM me if you see any issue.

[ADezii]

When you see a hijack of an old thread it's far better to report it than to respond to it. In this case I suspect the question is not only a hijack but also posted in a thread from entirely the wrong forum.

My apologies, missed both points (ASP + Hijack)! Wrongly focused in on the BLOB.

[NeoPa]

Don't worry about it :-) I doubt Douglas realised what he was doing either. It's not always easy to start in a new environment and get things right first time.

These are just pointers to help.

[douglas06]

A thousand apologies just comment seeing the possibility that some of you have the knowledge of what happens to me and could help me really apologize if I offended them I only look for a help to see if they know something of the code in which I am working.

[NeoPa]

We understand Douglas. We assumed you were innocently asking for help. Sometimes it's difficult to notice some of the other details when you're focused on your own problems.

BTW The thread's been moved to the ASP area now for you. Hopefully you'll get some interest, but often experts will see a thread which already has answers and move on. Also, the Access area is certainly the busiest on the site so I'm not sure how busy this one is nowadays. Even though I'm an administrator of the site as a whole my work is mainly in Access, which I know keeps quite busy.

Best of luck.