Loadpicture給出運行時錯誤481：無效的圖片

我有一個項目，從SQL Server複製varbinary（max）圖像數據到msaccess的ole對象，當我試圖將圖像綁定到VB6的圖像控制它給運行時錯誤481：無效的圖片，也試圖保存這些msaccess圖像，他們得到良好保存，但當我試圖加載這些圖像在圖像控制他們給出同樣的錯誤，以下是我的代碼和附加是我的圖像文件Loadpicture給出運行時錯誤481：無效的圖片

Private Sub Form_Load() 
Image1.Picture = LoadPicture("f:\tttt111.jpeg") 
End Sub

以下是URL下載圖像 https://wetransfer.com/downloads/e2d4a91143507b3522bdd6632d69aa8b20161214051703/ae44f7

來源

2016-12-13 Amandeep

如果它是一個真正的JPEG格式圖像，你可能只是寫錯了磁盤並損壞它。 – Bob77

這是因爲您使用的是PNG文件，但VB6不支持該文件。支持的格式是位圖，圖標，光標，圖元文件，JPEG和GIF。 More info here...

嘗試將圖像轉換爲JPEG，它會起作用。

來源

2016-12-13 18:23:11 Kidus

實際上圖像是jpeg，但是當我上傳到stackoverflow時，他們將擴展名更改爲png，您可以使用以下url下載圖像。 https://wetransfer.com/downloads/e2d4a91143507b3522bdd6632d69aa8b20161214051703/ae44f7 – Amandeep

@Amandeep這是一個帶有JPEG擴展名的PNG文件。您可以通過在這裏上傳您的文件來檢查自己http://www.checkfiletype.com/ – Kidus

我們已經有很長一段時間了WIA 2.0了。這裏通過讀取文件字節來模擬數據庫數據：

Option Explicit 
' 
'Reference to: Microsoft Windows Image Acquisition Library v2.0 
' 

Private Sub Form_Load() 
    Dim F As Integer 
    Dim Bytes() As Byte 

    'Get data into Byte array: 
    F = FreeFile(0) 
    Open "oBSkm.png" For Binary Access Read As #F 
     ReDim Bytes(LOF(F) - 1) 
    Get #F, , Bytes 
    Close #F 

    With New WIA.Vector 
     .BinaryData = Bytes 
     Image1.Picture = .Picture 
    End With 

    With New WIA.ImageFile 
     .LoadFile "oBSkm.png" 
     Image2.Picture = .FileData.Picture 
    End With 
End Sub

預安裝爲Windows Vista及更高版本的一部分。曾作爲SDK提供，包含文檔和redist版本，可安裝到Windows XP SP1或更高版本中，但不再由Microsoft提供。你打盹，你輸了。

來源

2016-12-14 01:43:15 Bob77

實際上它的一個jpeg圖像不是PNG，您可以使用以下網址下載圖像 - https://wetransfer.com/downloads/e2d4a91143507b3522bdd6632d69aa8b20161214051703/ae44f7 – Amandeep

相同的代碼也適用於JPEG。 – Bob77

Loadpicture給出運行時錯誤481：無效的圖片

回答

相關問題