Hallo Therox_X,
In der Datei PqRemoteDemoExcel.rar die Du auf SkyDrive hochgeladen hast gibt es folgende Dateien:
Use PqRemoteOffice.dll for Office Products.txt
PqRemoteOffice.dll (die
Native C++ DLL die man aus .NET abrufen muss [1] oder
Calling an unmanaged dll from .NET (C#) [2])
PqRemoteDemoExcel.xlsm (Eine Excel Datei die VBA Makro enthält)
Laut der Datei equotip3_automationPackage_OI_E_2011.04.11.pdf : „PqRemoteOffice.dll
à
This dynamic link library contains exactly the same functions as PqRemote.dll. There is only a difference between the calling conventions used by Office and the calling conventions in C++ projects.“
Nach meiner Meinung gibt es zwei Wege die Automatisierung zu machen:
1)
Ein leichterer Weg, indem Du den existierende VBA Code aus PqRemoteDemoExcel.xlsm ein wenig umschreibst und nach der Sub MakeMeasurements(Handle
As Integer) die Zehn
Werten aus den Zellen in eine TextDatei speicherst.
2)
Ein mehr aufwändiger Weg, wo man mehrere Kenntnisse braucht (Marshalling ist ein komplexes Thema) ist der Weg indem Du ein VB.NET Projekt aus
Visual Studio verwendest und die Signaturen der Funktionen aus PqRemote.Dll herausfindest…das wäre dann der Fall von den obigen Links [1] und [2]
Ein möglicher Anhaltspunkt um die Signaturen in VB.NET zu bekommen ist die Datei PqRemote.h aus der Datei PqRemoteDemoDLL.rar. Diese
kannst Du z.B. dem
PInvoke Interop Assistant (hilfreich im Umgang mit nicht gemanagten DLLs. Er kann Dir einiges an Arbeit bei der Konvertierung von C-Funktionssignaturen zu verwalteten P/Invoke-Signaturen abnehmen.) auf der Registerkarte
SigImp Translate Snippet geben und Dir den VB.NET Code generieren lassen. Dieser muss dann noch angepasst werden und der Lauffaden der Anwendung kann man sich aus dem Excel VBA nachbasteln in VB.NET.
Zum lesen:
Marshalling zwischen verwaltetem und nicht verwaltetem Code und
Platform Invoke Data Types
Die einzige Funktion die ich ohne das Gerät testen kann:
Public Class Form1
<System.Runtime.InteropServices.DllImportAttribute("PqRemoteOffice.dll", EntryPoint:="PQ_CheckCompatibility")> _
Public Shared Function PQ_CheckCompatibility(ByVal mainVersion As UInt16, ByVal sideVersion As UInt16) As UInt32
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
' VBA Code
' Sub CheckVersion()
' Dim mainVersion As Integer
' Dim sideVersion As Integer
' mainVersion = 1
' sideVersion = 0
' x = PQ_CheckCompatibility(mainVersion, sideVersion)
' If (x <> 0) Then
' MsgBox("PQ_CheckCompatibility returned <> 0")
' Exit Sub
' End If
'End Sub
Dim mainVersion As UInt16
Dim sideVersion As UInt16
mainVersion = 1
sideVersion = 0
Dim x As UInt32
x = PQ_CheckCompatibility(mainVersion, sideVersion)
If x <> 0 Then
MsgBox("PQ_CheckCompatibility returned <> 0")
Else
MsgBox("PQ_CheckCompatibility returned 0")
End If
End Sub
End Class
Grüße,
Robert
