Re: How to link the image files on internet?

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Thanks a lot!
But, sometimes, when the image is not available on the internet, a "404 file
not found" html file will be download and saved as JPG. Error occur when
displaying such incorrect JPG.

How can I know the downloaded file is JPG, but not the "404" html file?

Regards,
Eddy

"Jörg Ackermann" wrote:

> Hi,
>
> Jörg Ackermann:
>
> > There is no possibility to show pictures in a
> > form or in browser without downloading it to
> > local machine.
>
> A short way should be to use MSXML:
>
> ---------Module basDownload--------------------
> Option Compare Database
> Option Explicit
>
> Private Declare Function GetTempPath Lib "kernel32" _
> Alias "GetTempPathA" ( _
> ByVal nBufferLength As Long, _
> ByVal lpBuffer As String) _
> As Long
>
> Private Declare Function GetTempFileName Lib "kernel32" _
> Alias "GetTempFileNameA" ( _
> ByVal lpszPath As String, _
> ByVal lpPrefixString As String, _
> ByVal wUnique As Long, _
> ByVal lpTempFileName As String) _
> As Long
>
> Private Const MAX_PATH = 255
>
> Public Function DownloadPicture(ByVal strURL As String) As String
>
> Dim xmlhttp As Object
> Dim oStream As Object
> Dim strTmp As String
>
> On Error GoTo Err_DownloadPicture
>
> Set xmlhttp = CreateObject("Msxml2.XMLHTTP")
> With xmlhttp
> .Open "GET", strURL, False
> .setRequestHeader "CONTENT-TYPE", "image/jpeg"
> .send
> Do Until .readyState = 4
> DoEvents
> Loop
> End With
>
> strTmp = GetTmpFileName(Right(strURL, 3))
>
> Set oStream = CreateObject("ADODB.Stream")
> With oStream
> .Mode = 3 'adModeReadWrite
> '.Charset = "iso-8859-1"
> .Type = 1 'adTypeBinary
> .Open
> .Write (xmlhttp.responseBody)
> .SaveToFile strTmp
> End With
>
> Set oStream = Nothing
> Set xmlhttp = Nothing
>
> If Dir(strTmp) <> "" Then
> If FileLen(strTmp) > 0 Then
> DownloadPicture = strTmp
> End If
> End If
>
> Exit_DownloadPicture:
> Exit Function
> Err_DownloadPicture:
> MsgBox Err.Description
> Resume Exit_DownloadPicture
> End Function
>
> Private Function GetTmpFileName(sSuffix As String) As String
>
> Dim strPath As String, _
> strFolder As String
> Dim lngResult As Long
>
> strFolder = String(MAX_PATH, 0)
> lngResult = GetTempPath(MAX_PATH, strFolder)
> strFolder = Left$(strFolder, InStr(1, strFolder, Chr$(0)) - 1)
>
> strPath = String(MAX_PATH, 0)
> lngResult = GetTempFileName(strFolder, "PIC", 0, strPath)
> strPath = Left$(strPath, InStr(1, strPath, Chr$(0)) - 1)
> GetTmpFileName = Replace(strPath, ".tmp", "." & sSuffix)
>
> End Function
>
> ---------Module basDownload--------------------
>
> In a form with a textbox(txtURL), a picturebox(picFoto) and a
> comandbutton(cmdGo) you can do:
>
> Private Sub cmdGo_Click()
> Me!picFoto.Picture = DownloadPicture(Me!txtURL)
> End Sub
>
> Acki
>
>
.

Relevant Pages

  • Re: DOM manipulation crashes with IPersistStreamInit
    ... Public Function GetHTMLDocument_WebRequest(ByVal sURL As String) As ... Dim oResponse As WebResponse ... 'Request the HTML file and read the response into a string ... And SUCCESS!! ...
    (microsoft.public.inetsdk.programming.webbrowser_ctl)
  • Re: How to download a file from the internet using inet control
    ... 'Download an URL to a local file without caching. ... Public Function DownloadURL2FileNoCache(ByRef sSourceUrl As String, ... Dim BufferAs Byte ... Dim lNumberOfBytesRead As Long ...
    (microsoft.public.vb.general.discussion)
  • Re: How to download a file from the internet using inet control
    ... :> 'Download an URL to a local file without caching. ... :> Public Function DownloadURL2FileNoCache(ByRef sSourceUrl As String, ... :> Dim hOpenUrl As Long ... :> Public Function DownloadURL2Memory(ByRef sSourceUrl As String, ...
    (microsoft.public.vb.general.discussion)
  • RE: Download a .csv file from a website
    ... have a url to the csv download which is handy (and you can still plug in the ... Dim sStockName As String ... Dim oXMLHTTP As Object, i As Long, vFF As Long, oRespAs Byte ...
    (microsoft.public.excel.programming)
  • Re: Help with Function - converting a double num into a hh:mm:ss format
    ... I needed this to figure out how seconds it took to download X bits ... > Function CalculateDownloadTimeAs String ... > Dim d As Double ... >> with the Excel file and typed it in. ...
    (microsoft.public.dotnet.framework.aspnet)