Home
dbPix
Download
Order
Testimonials
Support
Tutorials
Samples
KnowledgeBase
Links
Revision History
Documentation
Search
Contact
Site Map

Graph: dbPix image storage vs OLE Embedding and Linking in Microsoft Access


DBPix Sample Source Code: rptXMLHTTP
Back to sample
Option Compare Database
Option Explicit

Dim XMLHTTP As Object

Private Sub Report_Open(Cancel As Integer)
    ' Create the XMLHTTP Object
    On Error GoTo ErrHandler:
    Set XMLHTTP = CreateObject("Msxml2.XMLHTTP")
    Exit Sub

ErrHandler:
    MsgBox "Cound not create XMLHTTP Object"
    Resume Next
End Sub

Private Sub Report_Close()
    ' Destroy the XMLHTTP Object
    Set XMLHTTP = Nothing
End Sub

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    UpdateImage
End Sub

Private Sub UpdateImage()
    On Error Resume Next

    ' Clear the DBPix Control
    DBPixCtrl.ImageViewBlob Null

    ' Check the XMLHTTP object was created
    If XMLHTTP Is Nothing Then Exit Sub

    ' Check for valid URL
    If Len(Nz(Me!url, "")) > 0 Then
        With XMLHTTP
            ' Fetch the image and wait for completion
            .Open "GET", Me!url, False
            .setRequestHeader "CONTENT-TYPE", "image/jpeg"
            .send
            If .readyState > 1 Then
                Do Until .readyState = 4
                    DoEvents
                Loop
            End If
        End With

        ' If status = OK display the image
        If XMLHTTP.status = 200 Then
            DBPixCtrl.ImageViewBlob (XMLHTTP.responseBody)
        End If
    End If
End Sub
Back to sample