Falcon 2.0 et exemple en VB

1 613 vues
Accéder directement au premier message non lu

DaGGeR

non lue,
24 oct. 2011, 13:00:2924/10/2011
à domotique-EIB
Bonjour,

Quelqu'un aurai un bout de code pour se connecter sur le bus via le
driver Falcon en utilisant la passerelle N148/22 ( donc en KNXnet/
IP ) ?

J'ai télécharger la dernière version de Falcon, mais je n'arrive pas a
comprendre comment la connexion se fait .

Merci d'avance

Christophe Bruchez

non lue,
24 oct. 2011, 13:28:3924/10/2011
à domoti...@googlegroups.com
Salut,

J'avais essayé mais malheureusement pas réussi !!!

Je suis aussi intéressé.

Christophe

-----Message d'origine-----
De : domoti...@googlegroups.com [mailto:domoti...@googlegroups.com]
De la part de DaGGeR
Envoyé : lundi 24 octobre 2011 19:00
À : domotique-EIB
Objet : Falcon 2.0 et exemple en VB

DaGGeR

non lue,
27 oct. 2011, 12:38:3827/10/2011
à domotique-EIB
Personne ?

Sniff .

J'ai réussi à avancer un tout petit petit peu .
La connexion au module N148/22 s'établi, ... en knxnet/ip.
Mais impossible d'ouvrir la connexion au groupdata pour lire ou
ecrire .

J'ai un message "Erreur automation Bibliothèque non inscrite
"


Personne n'a eu cette erreur en utilisant la librairie en port COM ou
USB ( ou knxnet/ip ) ???

DaGGeR

non lue,
12 nov. 2011, 11:35:4812/11/2011
à domotique-EIB
Les news ...

Le fonctionnement est maintenant opérationnel.

J'arrive à logguer le bus, et a interpréter les données qui passent
dessus.

Comment marche l'appli :
- J'ai fait un export d'ETS pour avoir tous les groupes, et les
descriptions ( cela m'évite d'avoir à tout retaper, et aussi d'avoir
les mêmes infos des 2 cotés.
- J'ai modifié ce fichier pour y inclure les DPT
- L'appli se lance, et récupère toutes les données de ce fichier, et
les rangent dans un tableau
- A partir de là, dès qu'un évènement passe sur le bus, l'appli va
chercher dans ce tableau la description, et insère la valeur reçue en
Hex
- Pour l'instant, je ne gère que les DPT 1, 3, 6, 9, 10, 11 et 20 ( la
majorité des données )
- Donc avec la valeur en Hex, je suis capable de sortir la valeur
utilisable
- Je suis capable d'allumer/éteindre (ouvrir/fermer ), faire varier
l'éclairage, afficher/commander un mode de chauffage, afficher une
température ou luminosité , etc

Il me reste à enregistrer les valeurs dans une BdD ( rien de
compliqué ), et faire la partie graphique de l'appli
A partir de la BdD, une page web en php fera l'affaire pour un accès
extérieur .
Il faut que je teste sur un PC vierge d'ETS, car pour le moment, les
tests n'ont pas été lancés.
> > Merci d'avance- Masquer le texte des messages précédents -
>
> - Afficher le texte des messages précédents -

marc.assin

non lue,
12 nov. 2011, 11:49:4412/11/2011
à domotique-EIB
On 12 nov, 17:35, DaGGeR <dagger...@gmail.com> wrote:
> Le fonctionnement est maintenant opérationnel.

CHAPEAU !

Anthony PENHARD

non lue,
14 nov. 2011, 03:25:4314/11/2011
à domoti...@googlegroups.com
Beau boulot
mettras-tu as dispo ton travail sur un projet de développement par exemple ?

je serais curieux de voir comment ça marche ...

merci d'avance
@+
Anthony

Anthony PENHARD

non lue,
14 nov. 2011, 03:32:4014/11/2011
à domoti...@googlegroups.com
Salut,

je me permet de te contacter directement

pour la partie "graphique" je pense qu'il doit être possible de "connecter" knxweb si cela t'intéresse pour essayer tout du moins dans un premier temps

@+
Anthony.

seb5167

non lue,
15 nov. 2011, 17:21:2015/11/2011
à domoti...@googlegroups.com
De mon coté, j'ai réussi à me connecter éteindre et allumer une lumière. Par contre je n'ai pas réussi à exporter les données ETS dans VB.

pourrais tu mettre ton projet VB en partage, je suis très interressé.

A+

DaGGeR

non lue,
16 nov. 2011, 13:36:2416/11/2011
à domotique-EIB

Suite à plusieurs demandes, je viens de rajouter dans la section
fichier une page sur l'appli
https://sites.google.com/site/domotiqueeib/dagger/falcon-vb6

Je prends tout les commentaires, remarques, améliorations. ( sachant
que, comme je l'ai dis à certains, je ne suis pas programmeur ... )
Bon DL

Guillaume SCHILL

non lue,
17 nov. 2011, 14:34:1617/11/2011
à domoti...@googlegroups.com
Bonjour,

Merci pour ce code. Malheureusement, même après l'installation de Falcon, j'ai une erreur de composant : etecctrl.ocx introuvable. Quelqu'un sait de quoi il s'agit ?

Merci d'avance

DaGGeR

non lue,
19 nov. 2011, 07:25:1719/11/2011
à domotique-EIB
Pour moi il se trouve sous :
C:\Program Files\Fichiers communs\EIBA sc\eteC\

j'ai enregistré toutes les DLL falcon en utilsant la commande
'regsvr32' ( quand j'avais le défaut "Erreur automation
Bibliothèque non inscrite" ( voir plus haut ))

airliner

non lue,
23 déc. 2011, 19:43:3323/12/2011
à domotique-EIB
Bonjour,

J'ai regardé ton VB mais ca ne m'a pas éclairé.
J'essaye de faire un simple script VBS pour ouvrir et fermer mes
volets à certaines heures.

Impossible d'instancier les objets
J'ai le même problème en ASP et en essayant de faire fonctionner le
script html livré avec Falcon.
J'ai aussi essayé de referencer les dll (regsvr32) comme indiqué plus
bas, mais en vain.

As tu un exemple en vbs?
Qu'est ce qui cloche ?

Merci d'avance.


On 16 nov, 19:36, DaGGeR <dagger...@gmail.com> wrote:
> Suite à plusieurs demandes, je viens de rajouter dans la section
> fichier une page sur l'applihttps://sites.google.com/site/domotiqueeib/dagger/falcon-vb6

DaGGeR

non lue,
6 janv. 2012, 13:55:4406/01/2012
à domotique-EIB
Je viens de rajouter dans la partie fichier un imprim écran de la
version actuelle.

J'ai essayer d'installer l'appli sur un PC fraichement installé de
XP , avec le driver falcon 2.0 ==> impossible de faire marcher
Essai en installant ETS3, impossible de lancer ETS et l'appli !!!
Falcon a rencontré une erreur et doit fermer.

Essai en installant ETS4 sur un autre PC. Ok, ... fonctionnement du
premier coup de l'appli.

Il doit y avoir une astuce pour installer falcon 2.0 .

infos : enregistrement dans une bdd, et graphique de température OK

marc.assin

non lue,
6 janv. 2012, 14:29:5206/01/2012
à domotique-EIB
On 6 jan, 19:55, DaGGeR <dagger...@gmail.com> wrote:
> Il doit y avoir une astuce pour installer falcon 2.0 .

https://sites.google.com/site/domotiqueeib/les-pages-du-sanglier/probleme-ets3-est-bloque

ludo.M

non lue,
14 janv. 2012, 14:48:3814/01/2012
à domoti...@googlegroups.com
Bonsoir, voici quelques bouts de code que j'ai pu trouver sur le net , je ne sais pas si ca pourrais en aider d'autre que DaGGer
Il y a du C et VB
Bye
qFalconV121.doc
VbFalcon01.zip
VcFalcon01.zip
VcFalcon02.zip

Amilcar

non lue,
21 janv. 2012, 12:22:3821/01/2012
à domotique-EIB
Bonjour tout le monde,

J'ai mis au point une petite application VBNET, utilisant, FALCON 2.0,

Le principe est simple,
L'activité du bus EIB est enregistrée sur une base de données MSSQL
Server EXPRESS Edition, (version gratuite), nom de la table KNX_LOG.
Ce code VB lit (cycliquement) une autre table SQL (KNX_EXT_CMD) et
envoi les commandes vers le bus KNX.

puis j'ai développé aussi une application web pour iphone, ou autre
smartphone, qui permet le contrôle de tous les participants KNX
via une page web (qui alimente la table KNX_EXT_CMD) et lit les états
de ces derniers via la table KNX_LOG.

Le résultat est excellent , pas de latence.
l'application complete me permet de contrôler le BUS KNX ( 58
participants au total, variateurs, thermostats, E/S ....) en plus
d'une station meteo non KNX (WS2300) et 6 cameras IP.


Partie du code :

/
*********************************************************************************************/
Imports System
Imports System.IO
Imports System.Threading
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms

Public Class Form1
Public Const FalconLicKey As String = "Demo"
Private m_sConnectionParameter As String
Private m_sGuid As String
Public WithEvents GroupDataObj As EIBA.Interop.Falcon.GroupData
Dim EtatConn As Integer
Dim NLI As Long
Dim NbMin As Long
Dim PasdeRequette As Int16


Public Function OpenFalconConnectionManager() As Boolean

Dim ptrConnectionManager As
EIBA.Interop.Falcon.IConnectionManager
ptrConnectionManager = New
EIBA.Interop.Falcon.ConnectionManagerClass
Dim pfcConnection As EIBA.Interop.Falcon.FalconConnection
Dim bSuccess As Boolean
bSuccess = False
pfcConnection = ptrConnectionManager.Item("FT12")
m_sGuid = ptrConnectionManager.Item("FT12").guidEdi.ToString
'm_sGuid = ptrConnectionManager.Item("Serial PEI16 -
COM1").guidEdi.ToString
'm_sGuid = pfcConnection.guidEdi.ToString

If pfcConnection.Parameters <> "" Then
m_sConnectionParameter = pfcConnection.Parameters
End If
bSuccess = True
Return bSuccess
End Function

Private Sub GroupDataObj_GroupDataConfirmationRead(ByVal
GroupAddress As Integer, ByVal RoutingCnt As Integer, ByVal Prio As
EIBA.Interop.Falcon.Priority, ByVal [Error] As Boolean, ByVal Data As
Object) Handles GroupDataObj.GroupDataConfirmationRead
Call Enr_Log(GroupAddress, RoutingCnt, Prio, Data)
End Sub

Private Sub GroupDataObj_GroupDataConfirmationResponse(ByVal
GroupAddress As Integer, ByVal RoutingCnt As Integer, ByVal Prio As
EIBA.Interop.Falcon.Priority, ByVal [Error] As Boolean, ByVal Data As
Object) Handles GroupDataObj.GroupDataConfirmationResponse
call Enr_Log(GroupAddress,RoutingCnt,Prio,Data)
End Sub

Private Sub GroupDataObj_GroupDataConfirmationWrite(ByVal
GroupAddress As Integer, ByVal RoutingCnt As Integer, ByVal Prio As
EIBA.Interop.Falcon.Priority, ByVal [Error] As Boolean, ByVal Data As
Object) Handles GroupDataObj.GroupDataConfirmationWrite
call Enr_Log(GroupAddress,RoutingCnt,Prio,Data)
End Sub

Private Sub GroupDataObj_GroupDataIndicationRead(ByVal
GroupAddress As Integer, ByVal RoutingCnt As Integer, ByVal Prio As
EIBA.Interop.Falcon.Priority, ByVal Data As Object) Handles
GroupDataObj.GroupDataIndicationRead
call Enr_Log(GroupAddress,RoutingCnt,Prio,Data)
End Sub

Private Sub GroupDataObj_GroupDataIndicationResponse(ByVal
GroupAddress As Integer, ByVal RoutingCnt As Integer, ByVal Prio As
EIBA.Interop.Falcon.Priority, ByVal Data As Object) Handles
GroupDataObj.GroupDataIndicationResponse
call Enr_Log(GroupAddress,RoutingCnt,Prio,Data)
End Sub

Private Sub GroupDataObj_GroupDataIndicationWrite(ByVal
GroupAddress As Integer, ByVal RoutingCnt As Integer, ByVal Prio As
EIBA.Interop.Falcon.Priority, ByVal Data As Object) Handles
GroupDataObj.GroupDataIndicationWrite
Call Enr_Log(GroupAddress, RoutingCnt, Prio, Data)
End Sub


Private Sub Read_Cmd()
Dim myc As SqlConnection = New
System.Data.SqlClient.SqlConnection("user
id=xxxxx;password=xxxxx;server=DOMOTIQUE
\SQLEXPRESS;Trusted_Connection=yes;database=KNX_Amilcar")
Dim Groupe As String
Dim Valeur As String
myc.Open()
NLI = 0
Groupe = ""
Valeur = ""
If PasdeRequette = 0 Then
On Error GoTo BR
Dim sqlComm As New SqlCommand("SELECT top 1 * from
KNX_EXT_CMD with(nolock) where isnull(Exec_Status,0)=0 order by NLI",
myc)
Dim r As SqlDataReader = sqlComm.ExecuteReader()
While r.Read()
Groupe = r("Groupe")
Valeur = r("Valeur")
NLI = r("NLI")
End While
r.Close()
br:
If NLI <> 0 Then
If Len(Valeur) >= 4 Then
GroupDataObj.Write(Groupe,
EIBA.Interop.Falcon.Priority.PriorityDefault, 6, False, Valeur)
Else
GroupDataObj.Write(Groupe,
EIBA.Interop.Falcon.Priority.PriorityDefault, 6, True, Valeur)
End If
Dim cmd1 As SqlCommand = New SqlCommand("update
KNX_EXT_CMD set Exec_Status=1 where NLI=" + Str(NLI), myc)
cmd1.ExecuteNonQuery()
cmd1.Dispose()
End If
End If
myc.Close()
myc.Dispose()

End Sub

Private Sub Enr_Log(ByVal GroupAddress As Integer, ByVal
RoutingCnt As Integer, ByVal Prio As EIBA.Interop.Falcon.Priority,
ByVal Data As Object)

Dim ChData As String = ""
Dim ChGr As String
Dim i As Integer

If (IsArray(Data)) Then
For i = LBound(Data) To UBound(Data)
ChData = ChData + IIf(Len(Hex(Data(i))) < 2, "0" +
Hex(Data(i)), Hex(Data(i)))
Next i
Else
ChData = ChData + CStr(Data)
End If


ChGr = Str(Math.Floor(GroupAddress / 1024)) + "/" +
Str(Math.Floor((GroupAddress Mod 2048) / 256)) + "/" +
Str((GroupAddress Mod 256))

PasdeRequette = 1
Dim myc As SqlConnection = New
System.Data.SqlClient.SqlConnection("user
id=xxxx;password=xxxxx;server=DOMOTIQUE
\SQLEXPRESS;Trusted_Connection=yes;database=KNX_Amilcar")
myc.Open()
Dim cmd1 As SqlCommand = New SqlCommand("insert into
KNX_LOG(N_Groupe,Valeur) values (" + Str(GroupAddress) + ",'" + ChData
+ "')", myc)
cmd1.ExecuteNonQuery()
cmd1.Dispose()
myc.Close()
myc.Dispose()
PasdeRequette = 0

End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosingEventArgs) Handles
Me.FormClosing
GroupDataObj = Nothing
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Dim ClassCreatorObject As EIBA.Interop.Falcon.ClassCreator
Dim ConnectionObj As EIBA.Interop.Falcon.ConnectionObject

If OpenFalconConnectionManager() = False Then
Return
End If
Dim devOpenErr As EIBA.Interop.Falcon.DeviceOpenError
ClassCreatorObject = New EIBA.Interop.Falcon.ClassCreatorClass
ConnectionObj =
ClassCreatorObject.CreateInstanceLic("Falcon.ConnectionObject.1",
EIBA.Interop.Falcon.tagCLSCTX.CLSCTX_LOCAL_SERVER, "", FalconLicKey)
GroupDataObj = New EIBA.Interop.Falcon.ConfirmedGroupDataClass
ConnectionObj.Mode =
EIBA.Interop.Falcon.ConnectionMode.ConnectionModeRemoteConnectionless

Dim objPara As Object
objPara = m_sConnectionParameter
devOpenErr = ConnectionObj.Open2("{" + m_sGuid + "}", objPara)
GroupDataObj.Connection = ConnectionObj
Timer1.Enabled = True
Timer2.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Timer1.Stop()
Read_Cmd()
Timer1.Enabled = 500
Timer1.Start()
End Sub

/
*********************************************************************************************/



J'espère que ceci vous aidera à mettre en oeuvre la Biblo Falcon 2.0,
qui constitue à mon avis une excellente alternative à EIBD/KNXweb
pour l'environnement Windows.
Un seule PC, permet de tout faire ( Surveillance , serveur web,
serveur VPN, log KNX, log Météo .... )

Amilcar

Harry Roy

non lue,
10 oct. 2012, 03:20:0210/10/2012
à domoti...@googlegroups.com
Hello,
 
Thankyou, I have been able to read and write to group addresses but I need help writing a simple group monitor.
Do you have a further example?
 
Regards
Harry Roy

seb5167

non lue,
14 déc. 2012, 13:06:3614/12/2012
à domoti...@googlegroups.com

Est ce l'un d'entre vous aurez un projet complet en VB net pour aider un peu et prendre exemple? Je me suis arrêté au VB6 il y a bien des années :D

Amilcar pourrais tu partager ton projet complet?

Merci.

seb5167

non lue,
21 déc. 2012, 12:48:5321/12/2012
à domoti...@googlegroups.com
up :D

seb5167

non lue,
6 mai 2013, 11:18:4606/05/2013
à domoti...@googlegroups.com
Harry,

can you share the complete VBnet project. It will help me to go ahead.

Thanks.

Harry Roy

non lue,
6 mai 2013, 15:05:5106/05/2013
à domoti...@googlegroups.com
Hi,

I will dig it out tomorrow morning.


Harry
--
 
---
Vous recevez ce message, car vous êtes abonné au groupe Google Groupes domotique-EIB.
Pour vous désabonner de ce groupe et ne plus recevoir d'e-mails le concernant, envoyez un e-mail à l'adresse domotique-ei...@googlegroups.com.
Pour plus d'options, visitez le site https://groups.google.com/groups/opt_out .
 
 


--
Век живи́ — век учи́сь

Андре́й Харриевич Рой

Harry Roy

non lue,
7 mai 2013, 01:48:3507/05/2013
à domoti...@googlegroups.com
Hi again,

Here is something that might help.
I have not had time to look at writing a bus monitor, if you do it please return the favour and send me the project.

If you have any further questions I will try and answer them.


Harry


2013/5/6 seb5167 <brun...@hotmail.com>
Harry,

can you share the complete VBnet project. It will help me to go ahead.

Thanks.

--
 
---
Vous recevez ce message, car vous êtes abonné au groupe Google Groupes domotique-EIB.
Pour vous désabonner de ce groupe et ne plus recevoir d'e-mails le concernant, envoyez un e-mail à l'adresse domotique-ei...@googlegroups.com.
Pour plus d'options, visitez le site https://groups.google.com/groups/opt_out .
 
 
FalconSwitch.7z

seb5167

non lue,
5 août 2013, 10:30:5705/08/2013
à domoti...@googlegroups.com

Thanks Harry for the example.

There aree many errors when opening the project (syntax error, variable not declared....)
I use Visual studio 2008, which one you use?



Harry Roy

non lue,
5 août 2013, 13:46:1605/08/2013
à domoti...@googlegroups.com
Hi,

I used 2010.
--
 
---
Vous recevez ce message, car vous êtes abonné au groupe Google Groupes domotique-EIB.
Pour vous désabonner de ce groupe et ne plus recevoir d'e-mails le concernant, envoyez un e-mail à l'adresse domotique-ei...@googlegroups.com.
Pour plus d'options, visitez le site https://groups.google.com/groups/opt_out .
 
 

sondab...@gmail.com

non lue,
5 août 2013, 13:15:1305/08/2013
à domoti...@googlegroups.com

------Message d'origine------
De: Harry Roy
Expéditeur: domoti...@googlegroups.com
À: domoti...@googlegroups.com
Répondre à: domoti...@googlegroups.com
Objet: Re: Falcon 2.0 et exemple en VB
Envoyé: 5 août 2013 19:46
Envoyé via le BlackBerry® Internet Service de Tunisiana

seb5167

non lue,
5 août 2013, 17:43:3505/08/2013
à domoti...@googlegroups.com,sondab...@gmail.com
I have installed 2010 and...it's ok, no more errors. Great ! 

A basic question, where set up ip and port of gateway. I looked for "port", address, 192, ,...but no way.

Thanks for your help

Harry Roy

non lue,
6 août 2013, 04:47:3506/08/2013
à domoti...@googlegroups.com
Hi,

To use an IP connection you just use a different Device open command.

        DeviceOpen = Connection.Open2("{13BEC8E3-969D-4604-83F4-5EBF418E54F6}", "=Name='ABB IP-Router IPRS';IpAddr='192.168.10.222';Port='3671';NAT='off'")
        DeviceOpen = Connection.Open2("{1C5936C7-157A-4BE5-80B0-32D349A095B6}", "=Name='IP Router N146';IpAddr='224.0.23.12';Port='3671'")

The first one is if you can multicast.
The second is Tunneling.


Harry



2013/8/5 seb5167 <brun...@hotmail.com>
I have installed 2010 and...it's ok, no more errors. Great ! 

A basic question, where set up ip and port of gateway. I looked for "port", address, 192, ,...but no way.

Thanks for your help

--
 
---
Vous recevez ce message, car vous êtes abonné au groupe Google Groupes domotique-EIB.
Pour vous désabonner de ce groupe et ne plus recevoir d'e-mails le concernant, envoyez un e-mail à l'adresse domotique-ei...@googlegroups.com.
Pour plus d'options, visitez le site https://groups.google.com/groups/opt_out .
 
 

seb5167

non lue,
6 août 2013, 13:41:2906/08/2013
à domoti...@googlegroups.com
Harry, I replied you privately.


Harry Roy

non lue,
6 août 2013, 14:02:2706/08/2013
à domoti...@googlegroups.com
Hi, 

I won't be able to help you until Thursday as I am not near any of my computers.


On Tuesday, August 6, 2013, seb5167 wrote:
Harry, I replied you privately.


--
 
---
Vous recevez ce message, car vous êtes abonné au groupe Google Groupes domotique-EIB.
Pour vous désabonner de ce groupe et ne plus recevoir d'e-mails le concernant, envoyez un e-mail à l'adresse domotique-ei...@googlegroups.com.
Pour plus d'options, visitez le site https://groups.google.com/groups/opt_out .
 
 

Harry Roy

non lue,
8 août 2013, 02:27:3408/08/2013
à domoti...@googlegroups.com
    Private Sub grbTec7WestSide_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim Connection As EIBA.Interop.Falcon.ConnectionObject
        Dim EdiMan As EIBA.Interop.Falcon.EdiManager
        Dim DeviceOpen As Integer
        Dim EdiGuid As String

        GroupData = New EIBA.Interop.Falcon.GroupData
        Connection = New EIBA.Interop.Falcon.ConnectionObject
        EdiMan = New EIBA.Interop.Falcon.EdiManager

        Connection.Mode = EIBA.Interop.Falcon.ConnectionMode.ConnectionModeRemoteConnectionless
        EdiGuid = EdiMan.GetStandardEdiGuid(EIBA.Interop.Falcon.PortNumber.PortNumberCom1, EIBA.Interop.Falcon.EdiType.EdiTypeBcu1xPei16x9600)

        DeviceOpen = Connection.Open2("{13BEC8E3-969D-4604-83F4-5EBF418E54F6}", "=Name='KNX / IP-Router REG-K';IpAddr='10.141.72.24';Port='3671';NAT='off'")
        'DeviceOpen = Connection.Open2("{1C5936C7-157A-4BE5-80B0-32D349A095B6}", "=Name='ABB IP-Router IPR/S';IpAddr='224.0.23.12';Port='3671'")
        'DeviceOpen = Connection.Open2("{1C5936C7-157A-4BE5-80B0-32D349A095B6}", "=Name='KNX / IP-Router REG-K';IpAddr='224.0.23.12';Port='3671'")

        If (DeviceOpen = DeviceOpenErrorNoError) Then
            GroupData.Connection = Connection
            Connected = True
            'MessageBox.Show("Connected")
        Else
            Connected = False
            GroupData = Nothing
        End If
    End Sub



2013/8/6 seb5167 <brun...@hotmail.com>
Harry, I replied you privately.

--
 
---
Vous recevez ce message, car vous êtes abonné au groupe Google Groupes domotique-EIB.
Pour vous désabonner de ce groupe et ne plus recevoir d'e-mails le concernant, envoyez un e-mail à l'adresse domotique-ei...@googlegroups.com.
Pour plus d'options, visitez le site https://groups.google.com/groups/opt_out .
 
 

seb5167

non lue,
8 août 2013, 17:40:5308/08/2013
à domoti...@googlegroups.com
So I copy your code and change 
DeviceOpen = Connection.Open2("{1C5936C7-157A-4BE5-80B0-32D349A095B6}", "=Name='IP Router N148';IpAddr='192.168.0.49';Port='3671'")
(I don't know if name parameter is relevant but...)

I have an exception:
System.Runtime.InteropServices.COMException on falcon.exe
Is it related to your question?:
Did it solve the problem?

With the code below, there is no message box 
If (DeviceOpen = DeviceOpenErrorNoError) Then
            GroupData.Connection = Connection
            Connected = True
            MessageBox.Show("Connected")
        Else
            Connected = False
            GroupData = Nothing
            MessageBox.Show("not Connected")
        End If


Harry Roy

non lue,
9 août 2013, 01:57:5409/08/2013
à domoti...@googlegroups.com
I use falcon 2
Have you put falcon references in visual studio?
--
 
---
Vous recevez ce message, car vous êtes abonné au groupe Google Groupes domotique-EIB.
Pour vous désabonner de ce groupe et ne plus recevoir d'e-mails le concernant, envoyez un e-mail à l'adresse domotique-ei...@googlegroups.com.
Pour plus d'options, visitez le site https://groups.google.com/groups/opt_out .
 
 
Le message a été supprimé

seb5167

non lue,
11 août 2013, 18:48:4311/08/2013
à domoti...@googlegroups.com


Falcon 1 was referenced. I installed Falcon 4 on a other PC and copy falcon directorybut without success. I tried to install ETS4 on the first machine without success.

I will install on a ETS4 and VS2010 on a VM to test, I keep you inform.

seb5167

non lue,
19 août 2013, 13:48:5019/08/2013
à domoti...@googlegroups.com
Hi,

I have installed on a VM EST4, falcon 2.0 and VS2010.

It's better but I still have an exception on Exception from HRESULT: 0xC0042A10 by the com object about
DeviceOpen = Connection.Open2("{1C5936C7-157A-4BE5-80B0-32D349A095B6}", "=Name='N148';IpAddr='192.168.0.49';Port='3671'")

Falcon 2.0 type library, falconinterfaces 2.0 type library ans also EIBA.interop.Falcon 2.0.5184.4346 are referanced.

Do you have an idea?

Harry Roy

non lue,
20 août 2013, 03:08:4120/08/2013
à domoti...@googlegroups.com
Hi, 
Sorry it looks ok.
--
 
---
Vous recevez ce message, car vous êtes abonné au groupe Google Groupes domotique-EIB.
Pour vous désabonner de ce groupe et ne plus recevoir d'e-mails le concernant, envoyez un e-mail à l'adresse domotique-ei...@googlegroups.com.
Pour plus d'options, visitez le site https://groups.google.com/groups/opt_out .
Répondre à tous
Répondre à l'auteur
Transférer
0 nouveau message