Miha Grčar

4 Comments »

1. 

   Milan said

   October 5, 2009 @ 17:35

   Hi.
   I do not know if you have time for this – but I try.
   I know only programming in Visual Basic 6 (or in VBA). I know a little how to declare dll in it, but as I know I should declare functions. For instance function ENSolveH from dll epanet2.dll like this:
   Declare Function ENsolveH Lib “C:\Program Files\Epanet2\epanet2.dll” () As Long
   But I do not know which are the functions or what I should call from SvmLightLib…
   Please just give me direction – maybe I find then.
   Thanks,
   Milan

   Reply
   • 

     Miha said

     October 5, 2009 @ 21:05

     Hi Milan!

     I prepared a code snippet that works in Visual Basic 2005 (with some minor modifications, it should also work in VBA). You will probably need to change the path to the DLL file. Note that this snippet doesn’t do anything useful – it just creates a short feature vector and gets its size back from the DLL. To see how to use these functions for some real action, please take a look at SvmLightLib1.0Src-1.zip\SvmLightLib\SvmLightLibDemo\SvmLightLibDemo.cs. It is in C# but should give you directions on how to use the library in VBA. If you get stuck, let me know

     *** Code snippet: ***

     Option Explicit On

     Module SvmLightLib

     Private Declare Function NewFeatureVector Lib “c:\svmlib\svmlightlib.dll” (ByVal feature_count As Integer, ByVal features As Integer(), ByVal weights As Single(), ByVal label As Double) As Integer
     Private Declare Sub DeleteFeatureVector Lib “c:\svmlib\svmlightlib.dll” (ByVal id As Integer)
     Private Declare Function GetFeatureVectorFeatureCount Lib “c:\svmlib\svmlightlib.dll” (ByVal feature_vector_id As Integer) As Integer
     Private Declare Function GetFeatureVectorFeature Lib “c:\svmlib\svmlightlib.dll” (ByVal feature_vector_id As Integer, ByVal feature_idx As Integer) As Integer
     Private Declare Function GetFeatureVectorWeight Lib “c:\svmlib\svmlightlib.dll” (ByVal feature_vector_id As Integer, ByVal feature_idx As Integer) As Single
     Private Declare Function GetFeatureVectorLabel Lib “c:\svmlib\svmlightlib.dll” (ByVal feature_vector_id As Integer) As Double
     Private Declare Sub SetFeatureVectorLabel Lib “c:\svmlib\svmlightlib.dll” (ByVal feature_vector_id As Integer, ByVal label As Double)
     Private Declare Function GetFeatureVectorClassifScoreCount Lib “c:\svmlib\svmlightlib.dll” (ByVal feature_vector_id As Integer) As Integer
     Private Declare Function GetFeatureVectorClassifScore Lib “c:\svmlib\svmlightlib.dll” (ByVal feature_vector_id As Integer, ByVal classif_score_idx As Integer) As Double

     Private Declare Sub _TrainModel Lib “c:\svmlib\svmlightlib.dll” (ByVal args As String)
     Private Declare Function TrainModel Lib “c:\svmlib\svmlightlib.dll” (ByVal args As String, ByVal feature_vector_count As Integer, ByVal feature_vectors As Integer()) As Integer
     Private Declare Sub SaveModel Lib “c:\svmlib\svmlightlib.dll” (ByVal model_id As Integer, ByVal file_name As String)
     Private Declare Function LoadModel Lib “c:\svmlib\svmlightlib.dll” (ByVal file_name As String) As Integer
     Private Declare Sub SaveModelBin Lib “c:\svmlib\svmlightlib.dll” (ByVal model_id As Integer, ByVal file_name As String)
     Private Declare Function LoadModelBin Lib “c:\svmlib\svmlightlib.dll” (ByVal file_name As String) As Integer
     Private Declare Sub _Classify Lib “c:\svmlib\svmlightlib.dll” (ByVal args As String)
     Private Declare Sub Classify Lib “c:\svmlib\svmlightlib.dll” (ByVal model_id As Integer, ByVal feature_vector_count As Integer, ByVal feature_vectors As Integer())
     Private Declare Sub DeleteModel Lib “c:\svmlib\svmlightlib.dll” (ByVal id As Integer)

     Private Declare Sub _TrainMulticlassModel Lib “c:\svmlib\svmlightlib.dll” (ByVal args As String)
     Private Declare Function TrainMulticlassModel Lib “c:\svmlib\svmlightlib.dll” (ByVal args As String, ByVal feature_vector_count As Integer, ByVal feature_vectors As Integer()) As Integer
     Private Declare Sub SaveMulticlassModel Lib “c:\svmlib\svmlightlib.dll” (ByVal model_id As Integer, ByVal file_name As String)
     Private Declare Function LoadMulticlassModel Lib “c:\svmlib\svmlightlib.dll” (ByVal file_name As String) As Integer
     Private Declare Sub SaveMulticlassModelBin Lib “c:\svmlib\svmlightlib.dll” (ByVal model_id As Integer, ByVal file_name As String)
     Private Declare Function LoadMulticlassModelBin Lib “c:\svmlib\svmlightlib.dll” (ByVal file_name As String) As Integer
     Private Declare Sub _MulticlassClassify Lib “c:\svmlib\svmlightlib.dll” (ByVal args As String)
     Private Declare Sub MulticlassClassify Lib “c:\svmlib\svmlightlib.dll” (ByVal model_id As Integer, ByVal feature_vector_count As Integer, ByVal feature_vectors As Integer())
     Private Declare Sub DeleteMulticlassModel Lib “c:\svmlib\svmlightlib.dll” (ByVal id As Integer)

     Sub Main()
     Dim id As Integer
     Dim features() As Integer = {1, 2, 3}
     Dim weights() As Single = {4, 5, 6}
     id = NewFeatureVector(3, features, weights, 0)
     Console.WriteLine(id) ‘ should say 1
     Console.WriteLine(GetFeatureVectorFeatureCount(id)) ‘ should say 3
     End Sub

     End Module

     Reply
     • 

       Milan said

       October 8, 2009 @ 11:57

       Hi Miha.
       I tried your snipet, but I must do some adjustments, because of VB6. For one function my code looks like this:

       Private Declare Function NewFeatureVector Lib “c:\svmlib\svmlightlib.dll” (ByVal featurecount As Integer, features() As Integer, weights() As Single, ByVal label As Double) As Integer

       Sub Main()
       Dim id As Integer
       Dim Features1(1 To 3) As Integer
       Dim Weights1(1 To 3) As Single

       ‘assigning some values to vectors above:
       For id = 1 To 3
       Features1(id) = id
       Weights1(id) = id + 3
       Next

       id = NewFeatureVector(3, Features1, Weights1, 0)

       End Sub

       It always say that are bad DLL calling conventions. Maybe it is because you had features and weights declared ByVal, but this is not possible in VB6 for arrays. I also tried declare this 2 variables as variant and then in Sub Main assign to this variant the same arrays as above. I also give dimensions of arrays from 0 to 2. But nothing works.
       If you have time look what could be wrong I would be happy.
       Thanks,
       Milan
2. 

   Miha said

   October 10, 2009 @ 18:35

   Hi Milan!

   I have recompiled the library to change the calling convention to stdcall and to remove dependencies to MFC DLLs. You can download the new DLL from here.

   The code snippet below now works in VB6. Note that I had to change all “Integer” to “Long”. You will have to do the same. Let me know if this works for you

   Private Declare Function NewFeatureVector Lib “e:\svmlightlib.dll” (ByVal featurecount As Long, features() As Long, weights() As Single, ByVal label As Double) As Long
   Private Declare Function GetFeatureVectorFeatureCount Lib “e:\svmlightlib.dll” (ByVal vecid As Long) As Long

   Sub Main()
   Dim id As Long
   Dim Features1(1 To 3) As Long
   Dim Weights1(1 To 3) As Single

   ‘assigning some values to vectors above:
   For id = 1 To 3
   Features1(id) = id
   Weights1(id) = id + 3
   Next

   id = NewFeatureVector(3, Features1, Weights1, 0)
   MsgBox (Str$(id)) ‘ should say 1

   MsgBox (Str$(GetFeatureVectorFeatureCount(id))) ‘ should say 3
   End Sub

   Reply

RSS feed for comments on this post

Leave a Comment