VB.NET ERR: 0x8007000B (Bad Image Format Exception)

Question

__declspec(dllexport) void __cdecl memcopy(void *pDst, const void *pSrc, unsigned int nSize) {    __asm { 
        mov esi, pSrc 
        mov edi, pDst 
        mov ecx, nSize $L1: 
        movq mm7, [esi] 
        add esi, 8 
        movq [edi], mm7 
        add edi, 8 
        dec ecx 
        jne $L1    }; } 

Это код из CopyBlit8x8.dll

Я успешно импортирован этот .dll в консольное приложение C++ и скопировать строку 'Hello World' из char * a, char * b. Затем повторил b, успешно показав «Hello World».

Тогда, поскольку это обычная программа копирования памяти, которая принимает два указателя для выполнения копии, я сделал это ниже;

Картина в основном говорит о ДОЛЖНОСТЬ ~ Bad Image Format Exception. Код Err: 0x8007000B.

Это общая ошибка с небольшой информацией, поскольку она применима к различным сценариям. Но, я могу смело предположить, что-то связано с указателями.

Что я хочу - это быстрый модуль ASM для выполнения копий общей памяти, но для изображений vb.NET.

Любые советы, переполнение стека!

Answer 1

A BadImageFormatException вызывается при попытке загрузить сборку или библиотеку dll, которая скомпилирована под другой битностью, чем приложение. Например, если вы попытаетесь загрузить 32-разрядную dll в 64-битном приложении (или наоборот).

Убедитесь, что dll скомпилирована в той же битте, что и приложение. Если приложение компилируются как AnyCPU то или заставить его быть x86 или x64, или компилировать две библиотеки DLL, используя каждую разрядность, а затем импортировать каждую функцию (но с разными названиями) и вызовите правильную после проверки Environment.Is64BitProcess property.

Это пример AnyCPU решения:

'32-bit dll 
<DllImport("CopyBlit8x8.dll")> _ 
Public Shared Function memcopy(<insert parameters here>) 
End Function 

'64-bit dll 
<DllImport("CopyBlit8x8_x64.dll")> _ 
Public Shared Function memcopy64(<insert parameters here>) 
End Function 

Public Sub DoStuff() 
    If Environment.Is64BitProcess = True Then 
     memcopy64(...) 'Call 64-bit dll 
    Else 
     memcopy(...) 'Call 32-bit dll 
    End If 
End Sub 

---

EDIT:

По словам Ханса Passant, инструкции ASM MMX не могут быть использованы в 64, так что мое решение выше не будет работать для вас. Однако я оставляю его там, потому что он работает для DLL, скомпилированных с использованием собственного кода C/C++.

Answer 2

Код: Выделить все

__declspec(dllexport) int __cdecl testApp(long *dst, long *src) 
{ 

    __asm { 
     mov eax, src 
     mov dst, eax 
    }; 

    return *dst; 
} 

Этот код выше рабочей операции копирования.

Код: Выделить все

Option Explicit On 
Imports System.Runtime.InteropServices 
Imports System.Text 
Imports wow64 

Public Class Form1 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 


     Dim bm As New Bitmap("1.png") 
     Dim bm2 As New Bitmap(640, 400) 

     Dim sb As New StringBuilder 
     sb.Append("Helo World.") 

     Dim src() As Byte = ASCIIEncoding.ASCII.GetBytes("Hello") 
     Dim dst() As Byte = ASCIIEncoding.ASCII.GetBytes("World") 

     Dim a As IntPtr = Marshal.AllocHGlobal(10) 
     Dim o As IntPtr = Marshal.AllocHGlobal(10) 
     Dim i() As Integer = {2, 1} 
     Marshal.Copy(i, 0, o, 2) 
     a = (wow64.movq.testApp(a, o)) 
     Button1.Text = ASCIIEncoding.ASCII.GetChars(src) 
     TextBox1.Text = Marshal.ReadIntPtr(a, 4).ToString 
     Marshal.FreeHGlobal(a) 
     'Marshal.FreeHGlobal(o) 


    End Sub 
End Class 
Namespace wow64 
    Public Class movq 

     <DllImport("D:\CopyBlit8x8.dll", CallingConvention:=CallingConvention.Cdecl)> Public Shared Sub memcopy(ByRef pDsc As StringBuilder, ByRef pSrc As StringBuilder, ByVal nSize As Integer) 

     End Sub 
     <DllImport("D:\CopyBlit8x8.dll", CallingConvention:=CallingConvention.Cdecl)> Public Shared Function myPuts(ByRef str As StringBuilder) As Integer 

     End Function 
     <DllImport("D:\CopyBlit8x8.dll", CallingConvention:=CallingConvention.Cdecl)> Public Shared Function testApp(ByRef i As Long, ByRef p As Long) As Integer 

     End Function 

    End Class 
End Namespace 

Этот код является операция копирования реализована в VB.NET.

Код: Выделить все

TextBox1.Text = Marshal.ReadIntPtr(a, 4).ToString 

Этот предводитель процедура использует приращения 4^для чтения через массив.

Простой, а?