使用 Web 浏览器控件从 URL 缩放图像

Question

我在尝试在 MS Access 表单中获取 Web 浏览器控件以正确显示来自 URL 的图像时遇到问题。

我正在使用 .navigate (strImagePath) 将图像放入 WebBrowser1。这很好用。图片是 jpg，我有完整的路径和图片文件名。

问题是图像以 100% 的比例显示，大于浏览器的大小。我可以使用缩放 (OLECMDID_OPTICAL_ZOOM) 来缩放图像，但这只有在我知道图像大小的情况下才有效，我无法获得正确的缩放系数。

理想情况下，我希望图像适合窗口，而无需确定图像大小。

这是不可能的，另一种选择是确定图像大小，然后设置适当的缩放。我还没有想出一种方法来确定图像大小而不将其保存在本地。这将是一个很大的开销，并且会给表单显示添加不可接受的延迟，特别是在浏览记录时。这里有什么理想吗？

谢谢

Answer 1

我能够在 Thomas 的代码之后运行它。

有最终代码。

Public Function DisplayImage(ctlImageControl As Control, strImagePath As Variant) As String
On Error GoTo Err_DisplayImage

Dim strResult As String
Dim intHeight As Integer
Dim intWidth As Integer
Dim intHeightZoom As Integer
Dim intWidthZoom As Integer
Dim intPageZoom As Integer

With ctlImageControl
    If strImagePath = "" Then
        .Visible = False
        strResult = "No image name specified."
    Else
        .Visible = True
        .Navigate (strImagePath)
    
        Do While .Object.Busy Or .Object.ReadyState <> 4 'wait to imaged loaded
            DoEvents
        Loop
        intHeight = .Document.images(0).clientHeight
        intWidth = .Document.images(0).clientWidth
        intHeightZoom = CLng(21600) / intHeight
        intWidthZoom = CLng(43200) / intWidth
        If intHeightZoom < intWidthZoom Then
            intPageZoom = intHeightZoom
        Else
            intPageZoom = intWidthZoom
        End If
        .Object.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, _
        CLng(intPageZoom), vbNull

        strResult = "success"
   End If
End With

Exit_DisplayImage:
    DisplayImage = strResult
    Exit Function

Err_DisplayImage:
    Select Case Err.Number
        Case 2220       ' Can't find the picture.
            ctlImageControl.Visible = False
            strResult = "Can't find image in the specified name."
            Resume Exit_DisplayImage:
        Case Else       ' Some other error.
            MsgBox Err.Number & " " & Err.Description
            strResult = "An error occurred displaying image."
            Resume Exit_DisplayImage:
    End Select
End Function

函数被调用

    Me!txtFaceResults = DisplayImage(Me!WebBrowser1, strFullImageName)

虽然可以将图像缩放到统一大小，但缩放仍然关闭。但是将图像加载到 ActiveX Web Browser 对象的一般过程是有效的。读取图像大小并计算缩放因子，然后应用缩放。等待图片加载很重要，否则您将收到错误或之前加载的图片的大小。

我无法像 Thomas 那样使用 HtmlImg 类型，所以我单独获取了元素。我在 Mozilla 上使用了以下文档： https://developer.mozilla.org/en-US/docs/Web/API/Element 查看可用的元素。

Answer 2

如果您只加载了图像，以下代码将为您获取该图像的宽度和高度。

Dim img As HtmlImg
Set img = Me.WebBrowser1.Document.images(0)
Debug.Print img.naturalHeight, img.naturalWidth

但是，我无法计算出正确的缩放系数，也无法将可变缩放系数传递给 ExecWB-方法 - 无论我使用哪种数据类型，我总是遇到运行时错误（恒定值有效)。

另外，至少在我的测试中，图像显示有（白色）边框，这也会影响缩放系数。无论如何，宽度和高度正是我正在玩的测试图像的尺寸。