Snapshot and thumnail of web page
Techniques
This category is aimed to help programmers in order to find and share helpfull techniques, source code and more stuff.
Techniques / Web tools : DypsWebCapture : Capture thumbnail of an URL and store it in database
Documentation: DypsWebCapture object reference <
Previous Page
- Step 1 : Create the database
First we going to create an Access database, called thumbsBase.mdb .
Add a table named : Files.
Then we will have to add 3 fields to this table :
- Fieldname : FileName, Data type : Text
- Fieldname : FileData, Data type : Objet OLE (Image)
- Fieldname : Description, Data type : Text
- Step 2 : Capture the URL to image and store it in database
For this second step, we will write a script in order to capture a remote URL as image with this following script:
<% Set Snap=server.CreateObject("DypsWebCapture.Snapshot") 'Launch a virtual browser window with the dimension :800x600 Snap.pageHeight =600 Snap.pageWidth = 800 'Specify the width and height of the image thumnail Snap.thumbHeight = 130 Snap.thumbWidth = 170 'Grab the web page snapshot on the fly! 'and save it as jpg image 'Be sure to have write permission on the local folder 'for IUSR_YourNameMachine account! Dim out out = Snap.GetImageBytes ("http://dypso.free.fr","*.jpg") 'Clean memory Set Snap = Nothing ' Connection string Dim connStr connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" connStr = connStr & Server.MapPath("thumbsBase.mdb") ' Recordset object Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Files", connStr, 2, 2 ' Adding data rs.AddNew rs("FileName") = "dypso.jpg" rs("FileData").AppendChunk out rs("Description") = "A thumbnail of Dypso BackOffice" rs.Update rs.Close Set rs = Nothing Response.Write "File was saved..." %>
That's all the image is now stored in database as binary content !
Here is the final result in database :
Documentation: DypsWebCapture object reference <
Previous Page