C# Code in VB übersetzungsproblem (Event von DLL)

Laser5000 · 28. Januar 2016, 17:33

Hallo zusammen,
hab leider ein etwas komplizierteres Problem, aber vielleicht hat jemand einen Tipp.
Ich habe ein Beispielprogramm bekommen welches in C# geschrieben ist. Da ich C# nicht kann... täte ich mir zur Weiterentwicklung viel leichter wenn ich das in VB .NET umstricken kann. Komme aus der VB 6 Welt und versuche mich gerade in VB.NET. 95% klappt bereits aber bei diesem Teil hab ich ein Problem...

Hersteller DLL wird per Verweis eingebunden und stellt Hundegger.Messaging.MessageDistributorTypes.RemoteEvents zur Verfügung.

C# Version (funktioniert):

Spoiler anzeigen

Mein Versuch das in VB.NET zu machen:

Spoiler anzeigen

die AddHandler Zeile bringt den Fehler: "CreateJobFinishedEvent" ist kein Ereignis von "RemoteEventReceiver".

Lt. der Herstellerfirma Dokumentation sollte es aber ein Ereignis erzeugen... nur der Zugriff per VB ist mir wahrscheinlich nicht klar. CreateJobFinishedEvent erscheint im VB und in C# Objektkatalog als "Feld oder Variable" und nicht als Event. Aber warum geht die Funktion in C#?

Hat jemand von euch vielleicht eine Idee?

vg
Mathias

RodFromGermany · 28. Januar 2016, 17:41

Willkommen im Forum. :thumbup:

Laser5000 schrieb:

VB.NET-Quellcode

Private _remoteEventReceiver As RemoteEventReceiver

machst Du

VB.NET-Quellcode

Private WithEvents _remoteEventReceiver As RemoteEventReceiver

Fakiz · 28. Januar 2016, 17:46

Wie sieht denn die c# Methode OnCreateJobFinished aus? Ansonsten kannst du mal mit WithEvents Schlüßelwort versuchen.

Laser5000 · 28. Januar 2016, 17:50

Hi,

die WithEvents Idee hatte ich auch schon irgendwo entdeckt... nützt aber auch nichts.

Hier noch der OnCreateJobFinished Teil aus dem C#...

Spoiler anzeigen

RodFromGermany · 28. Januar 2016, 17:54

Laser5000 schrieb:

nützt aber auch nichts

Poste bitte den Tehlertext und die Zeile, in der er auftritt.

Laser5000 · 28. Januar 2016, 17:57

Quellcode

addHandler _remoteEventReceiver.CreateJobFinishedEvent, AddressOf OnCreateJobFinished

Fehlertext: "CreateJobFinishedEvent" ist kein Ereignis von "RemoteEventReceiver".

RodFromGermany · 28. Januar 2016, 18:00

Laser5000 schrieb:

CreateJobFinishedEvent

Steht da in C# irgendwo event ... CreateJobFinishedEvent ...?
Poste mal die komplette C#-Klasse.

Laser5000 · 28. Januar 2016, 18:03

Nein event... CreateJobFinishedEvent finde ich nicht...
hier die komplette ungekürzte Klasse:

Spoiler anzeigen

C#-Quellcode

using System;
using System.ComponentModel;
using System.Windows;
using System.Windows.Resources;
using System.Xml.Linq;
using Hundegger.Messaging.IPC;
using Hundegger.Messaging.MessageDistributorTypes.RemoteCommands;
using Hundegger.Messaging.MessageDistributorTypes.RemoteEvents;
namespace IpcExample
{
public class IpcManager : INotifyPropertyChanged
{
private RemoteCommandDistributor _remoteCommandDistributor;
private RemoteEventReceiver _remoteEventReceiver;
private const string CambiumId = "Cambium_Maschine";
public IpcManager()
{
JobName = "ExampleJob";
CreateJobSuccess = false;
Connected = false;
}
　
public void BootUp()
{
_remoteCommandDistributor = new RemoteCommandDistributor();
_remoteCommandDistributor.ConnectEvent += OnConnect;
_remoteCommandDistributor.DisConnectEvent += OnDisConnect;
SetupRemoteEventReceiver();
}
public void ShutDown()
{
_remoteCommandDistributor.ConnectEvent -= OnConnect;
_remoteCommandDistributor.DisConnectEvent -= OnDisConnect;
_remoteCommandDistributor.ClearConfiguredServices();
_remoteCommandDistributor.Dispose();
}
　
private void SetupRemoteEventReceiver()
{
_remoteEventReceiver = new RemoteEventReceiver();
_remoteEventReceiver.CreateJobFinishedEvent += OnCreateJobFinished;
_remoteEventReceiver.LoadNestingToJobFinishedEvent += OnLoadNestingToJobFinished;
_remoteEventReceiver.TransferNestingToCutlistFinishedEvent += OnTransferNestingToCutlistFinished;
_remoteEventReceiver.StartListening(null);
}
　
#region /// Connection
private bool _connected;
public bool Connected
{
get { return _connected; }
set
{
_connected = value;
OnPropertyChanged("Connected");
}
}
private string _connectionUri = "";
public string ConnectionUri
{
get { return _connectionUri; }
set
{
_connectionUri = value;
OnPropertyChanged("ConnectionUri");
}
}
private void OnConnect(object sender, ConnectionEventArgs connectionEventArgs)
{
// die hier gesetzten Properties werden über Databinding im User Interface angezeigt
Connected = true;
ConnectionUri = connectionEventArgs.Address.ToString();
}
private void OnDisConnect(object sender, ConnectionEventArgs connectionEventArgs)
{
// die hier gesetzten Properties werden über Databinding im User Interface angezeigt
Connected = false;
ConnectionUri = "";
}
　
　
#endregion
#region /// Create Job
private string _jobName;
public string JobName
{
get { return _jobName; }
set
{
_jobName = value;
OnPropertyChanged("JobName");
}
}
　
private const string JobKey = "E4DE7D0A-55A2-428F-BF91-B2523B5173E6";
　
private bool _createJobSuccess;
public bool CreateJobSuccess
{
get { return _createJobSuccess;}
set
{
_createJobSuccess = value;
OnPropertyChanged("CreateJobSuccess");
}
}
　
public void CreateJob()
{
CreateJobSuccess = false;
_remoteCommandDistributor.CreateJob(CambiumId, JobKey, JobName);
}
　
private void OnCreateJobFinished(string senderId, string jobKey, bool success, string incidents)
{
// hier könnte nach der senderId gefiltert werden
// diese Property wird per Databinding in einer Checkbox angezeigt
CreateJobSuccess = success;
}
#endregion // Create Job
　
#region /// LoadNesting
private bool _loadNestingSuccess;
public bool LoadNestingSuccess
{
get { return _loadNestingSuccess; }
set
{
_loadNestingSuccess = value;
OnPropertyChanged("LoadNestingSuccess");
}
}
private string _nestingKey;
　
public void LoadNesting()
{
LoadNestingSuccess = false;
// das Default-Nesting laden:
StreamResourceInfo resInfo = Application.GetResourceStream(new Uri("/IpcExample;component/DefaultNesting.xml", UriKind.Relative));
if (resInfo != null)
{
XDocument doc = XDocument.Load(resInfo.Stream);
string nestingSnippet = doc.Root.ToString();
_remoteCommandDistributor.LoadNestingToJob(CambiumId, JobKey, nestingSnippet);
}
}
private void OnLoadNestingToJobFinished(string senderId, string jobId, string nestingId, bool success, string incidents)
{
LoadNestingSuccess = success;
_nestingKey = success ? nestingId : null;
}
#endregion
#region // Transfer Nesting to Cultlist
private bool _transferNestingSuccess;
public bool TransferNestingSuccess
{
get { return _transferNestingSuccess;}
set
{
_transferNestingSuccess = value;
OnPropertyChanged("TransferNestingSuccess");
}
}
public void TransferNestingToCultlist()
{
_remoteCommandDistributor.TransferNestingToCutlist(CambiumId, JobKey, _nestingKey, 0, false);
}
　
private void OnTransferNestingToCutlistFinished(string senderId, string jobId, string productionElement, bool success, string incidents)
{
TransferNestingSuccess = success;
}
#endregion
　
　
　
#region /// implementation of INotifyPropertyChanged
public event PropertyChangedEventHandler PropertyChanged;
protected virtual void OnPropertyChanged(string propertyName)
{
var handler = PropertyChanged;
if (handler != null) handler(this, new PropertyChangedEventArgs(propertyName));
}
#endregion
}
}

RodFromGermany · 28. Januar 2016, 18:07

Laser5000 schrieb:

C#-Quellcode

public event PropertyChangedEventHandler PropertyChanged;

ganz unten.
Du musst zuerst alle Verweise, die im C#-Projekt drin sind, in das VB-Projekt einfügen.

Laser5000 · 28. Januar 2016, 18:25

Ok... hätte nicht gedacht der Teil auch dazu gehört...
habe ich so übersetzt:

Spoiler anzeigen

hier mal der ganze Code...

Spoiler anzeigen

VB.NET-Quellcode

Imports System
Imports System.ComponentModel
Imports System.Windows
Imports System.Windows.Resources
Imports System.Xml.Linq
Imports Hundegger.Messaging.IPC
Imports Hundegger.Messaging.MessageDistributorTypes.RemoteCommands
Imports Hundegger.Messaging.MessageDistributorTypes.RemoteEvents
　
Public Class Form1
Private _ipcManager As IpcManager
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
If _ipcManager.Connected Then _ipcManager.ShutDown()
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
_ipcManager = New IpcManager()
_ipcManager.BootUp()
DataContext = _ipcManager
End Sub
　
Private Sub ButtonCreateJob_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCreateJob.Click
If _ipcManager.Connected Then
_ipcManager.CreateJob()
End If
End Sub
Private Sub ButtonLoadNesting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLoadNesting.Click
If _ipcManager.Connected Then
_ipcManager.LoadNesting()
End If
End Sub
Private Sub ButtonTransferNesting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTransferNesting.Click
If _ipcManager.Connected Then
_ipcManager.TransferNestingToCultlist()
End If
End Sub
　
End Class
Public Class IpcManager
Implements INotifyPropertyChanged
Private _remoteCommandDistributor As RemoteCommandDistributor
Private _remoteEventReceiver As RemoteEventReceiver
　 Private Const CambiumId As String = "Cambium_Maschine"
Public Sub New()
JobName = "ExampleJob"
CreateJobSuccess = False
Connected = False
End Sub
Public Sub BootUp()
_remoteCommandDistributor = New RemoteCommandDistributor()
AddHandler _remoteCommandDistributor.ConnectEvent, AddressOf OnConnect
AddHandler _remoteCommandDistributor.DisConnectEvent, AddressOf OnDisConnect
SetupRemoteEventReceiver()
End Sub
Public Sub ShutDown()
RemoveHandler _remoteCommandDistributor.ConnectEvent, AddressOf OnConnect
RemoveHandler _remoteCommandDistributor.DisConnectEvent, AddressOf OnDisConnect
_remoteCommandDistributor.ClearConfiguredServices()
_remoteCommandDistributor.Dispose()
End Sub
Private Sub SetupRemoteEventReceiver()
_remoteEventReceiver = New RemoteEventReceiver()
AddHandler _remoteEventReceiver.CreateJobFinishedEvent, AddressOf OnCreateJobFinished
AddHandler _remoteEventReceiver.LoadNestingToJobFinishedEvent, AddressOf OnLoadNestingToJobFinished
AddHandler _remoteEventReceiver.TransferNestingToCutlistFinishedEvent, AddressOf OnTransferNestingToCutlistFinished
_remoteEventReceiver.StartListening(Nothing)
End Sub
#Region ""
Private _connected As Boolean
Public Property Connected() As Boolean
Get
Return _connected
End Get
Set(ByVal value As Boolean)
_connected = value
OnPropertyChanged("Connected")
End Set
End Property
Private _connectionUri As String = ""
Public Property ConnectionUri() As String
Get
Return _connectionUri
End Get
Set(ByVal value As String)
_connectionUri = value
OnPropertyChanged("ConnectionUri")
End Set
End Property
Private Sub OnConnect(ByVal sender As Object, ByVal connectionEventArgs As ConnectionEventArgs)
' die hier gesetzten Properties werden über Databinding im User Interface angezeigt
Form1.ConnectedCheckbox.Checked = True
Connected = True
ConnectionUri = connectionEventArgs.Address.ToString()
Form1.ConnectionLabel.Text = ConnectionUri
End Sub
Private Sub OnDisConnect(ByVal sender As Object, ByVal connectionEventArgs As ConnectionEventArgs)
' die hier gesetzten Properties werden über Databinding im User Interface angezeigt
Form1.ConnectedCheckbox.Checked = False
Connected = False
ConnectionUri = ""
Form1.ConnectionLabel.Text = ConnectionUri
　
End Sub
　
　
#End Region
#Region ""
Private _jobName As String
Public Property JobName() As String
Get
Return _jobName
End Get
Set(ByVal value As String)
_jobName = value
OnPropertyChanged("JobName")
End Set
End Property
　
Private Const JobKey As String = "E4DE7D0A-55A2-428F-BF91-B2523B5173E6"
　
Private _createJobSuccess As Boolean
Public Property CreateJobSuccess() As Boolean
Get
Return _createJobSuccess
End Get
Set(ByVal value As Boolean)
_createJobSuccess = value
OnPropertyChanged("CreateJobSuccess")
End Set
End Property
　
Public Sub CreateJob()
CreateJobSuccess = False
_remoteCommandDistributor.CreateJob(CambiumId, JobKey, JobName)
End Sub
　
Private Sub OnCreateJobFinished(ByVal senderId As String, ByVal jobKey As String, ByVal success As Boolean, ByVal incidents As String)
' hier könnte nach der senderId gefiltert werden
' diese Property wird per Databinding in einer Checkbox angezeigt
CreateJobSuccess = success
End Sub
#End Region
　
#Region ""
Private _loadNestingSuccess As Boolean
Public Property LoadNestingSuccess() As Boolean
Get
Return _loadNestingSuccess
End Get
Set(ByVal value As Boolean)
_loadNestingSuccess = value
OnPropertyChanged("LoadNestingSuccess")
End Set
End Property
Private _nestingKey As String
　
Public Sub LoadNesting()
LoadNestingSuccess = False
' das Default-Nesting laden:
Dim resInfo As StreamResourceInfo = Application.GetResourceStream(New Uri("/WindowsApplication2;component/DefaultNesting.xml", UriKind.Relative))
If resInfo IsNot Nothing Then
Dim doc As XDocument = XDocument.Load(resInfo.Stream)
Dim nestingSnippet As String = doc.Root.ToString()
_remoteCommandDistributor.LoadNestingToJob(CambiumId, JobKey, nestingSnippet)
End If
End Sub
Private Sub OnLoadNestingToJobFinished(ByVal senderId As String, ByVal jobId As String, ByVal nestingId As String, ByVal success As Boolean, ByVal incidents As String)
LoadNestingSuccess = success
_nestingKey = If(success, nestingId, Nothing)
End Sub
#End Region
#Region ""
Private _transferNestingSuccess As Boolean
Public Property TransferNestingSuccess() As Boolean
Get
Return _transferNestingSuccess
End Get
Set(ByVal value As Boolean)
_transferNestingSuccess = value
OnPropertyChanged("TransferNestingSuccess")
End Set
End Property
Public Sub TransferNestingToCultlist()
_remoteCommandDistributor.TransferNestingToCutlist(CambiumId, JobKey, _nestingKey, 0, False)
End Sub
Private Sub OnTransferNestingToCutlistFinished(ByVal senderId As String, ByVal jobId As String, ByVal productionElement As String, ByVal success As Boolean, ByVal incidents As String)
TransferNestingSuccess = success
End Sub
#End Region
#Region ""
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub OnPropertyChanged(propertyName As String)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
End Sub
#End Region
End Class

RodFromGermany · 28. Januar 2016, 18:40

Laser5000 schrieb:

hier mal der ganze Code...

Editiere bitte Deine Beiträge (Plural) und pach den Code in einen Spoiler.
Code markieren und auf Spoiler drücken.

Dann machen wir weiter.

Laser5000 · 28. Januar 2016, 18:49

Hast recht... wird langsam unübersichtlich

Jetzt hab ich auch die Spoiler Funktion gelernt.

Wenn du Ambitionen hast dir das intensiver anzusehen könnte ich dir die DLL zukommen lassen wenn du willst?

RodFromGermany · 29. Januar 2016, 07:20

Laser5000 schrieb:

die DLL

ist für Framework 4.5.2 compiliert, da kann ich mit meinem 4.5.1 als Hauptprogramm nix machen. Sorry.

Laser5000 · 29. Januar 2016, 13:18

Sch..... ade... aber trotzdem danke.

Ich versuchs mal beim Hersteller ob die jemand haben für VB.NET... ist ja wohl ein großer Glaubenskrieg zwischen C# und VB....

Fakiz · 29. Januar 2016, 14:56

Wo harkt es denn noch?

Laser5000 · 29. Januar 2016, 17:47

Hi,
hakt immernoch an den vom Hersteller lt. Doku in der DLL vorhandenen Events... z.b. CreateJobFinishedEvent
Meiner Meinung sind das keine richtigen Events... Auszug aus dem Objektkatalog:

Public CreateJobFinishedEvent As System.Action(Of String, String, Boolean, String)
Element von Hundegger.Messaging.MessageDistributorTypes.RemoteEvents.RemoteEventReceiver

in der C# Variante wird beim Auslösen von diesem "Event" der DLL die Sub CreateJobFinished aufgerufen. Wie verklickere ich das VB.NET?

shad · 29. Januar 2016, 17:59

Hi, schreib mal _remoteEventReceiver.CreateJobFinishedEvent = AddressOf OnCreateJobFinished.
Action(...) ist kein Event sondern nur ein Delegate, also AddHandler klappt da nicht.

Laser5000 · 29. Januar 2016, 18:05

Ich brech ab! Es läuft!!!!!!!! :thumbsup:

Seh schon ich muss noch viel lernen... ab schon viel versucht aber auf das bin ich noch nicht gekommen!

Vielen Dank euch allen!

Fakiz · 29. Januar 2016, 18:07

Das ist auch kein Event, das ist meiner Meinung nach nur unglücklich bennant. Guck dir mal System.Action<t1, t2, t3, t4> an.

RodFromGermany · 29. Januar 2016, 19:30

Laser5000 schrieb:

Es läuft!!!!!!!!

Jou.
Die DLL hat ne kleine Hacke, wenn die weg ist, compiliert es sofort.

C# Code in VB übersetzungsproblem (Event von DLL)

C# Code in VB übersetzungsproblem (Event von DLL)

C#-Quellcode

VB.NET-Quellcode

Laser5000 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

C#-Quellcode

Laser5000 schrieb:

Quellcode

Laser5000 schrieb:

C#-Quellcode

Laser5000 schrieb:

C#-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Laser5000 schrieb:

Laser5000 schrieb:

Laser5000 schrieb:

Benutzer online 1

Ähnliche Themen

4 Benutzer haben hier geschrieben