 07-02-2008, 13:48
|
JoeBussell
Joined on 06-17-2008
Eugene, OR
Posts 31
|
Re: need an ActiveX wrapper that provides basic types for returns
|
  
|
|
|
I am not intending to write a programming tool. I find the implication in your message a bit alarming. My firm has been a paying customer for another project, and I am using a legitimate development license to explore solutions to a particular programming problem.
What I am trying to do is interface Lead with a crippled programming language to provide a customer with a useful service. To achieve this I need the library to provide a very basic interface. The only return types I can process are: int, byte, word, long, dword, float, and double (plus I can memory map some things, but its real ugly). Things are generally working nicely (events, adding annotations, etc), but I need to have the points from the annotation. Although having a complete singleton interface would be real cool, I will be content with getting the (x,y) pair out of the lists that I get from AnnGetPointX and AnnGetPointY.
I am hopeful that I can get assistance. Would Lead be willing to sell me the interface wrapper? Heck, I'll even write the VB translation code for the bits I need: (want it in c?)
' still would like to add bounds checking on hObj and the index fields.
Public Function annGetStartY(hObj As Long) As Variant
Dim annPointY As Variant
annPointY = LEAD1.AnnGetPointY(hObject)
annGetStartY = annPointY(0)
End Function
Public Function annGetEndY(hObj As Long) As Double
Dim annPointY As Variant
annPointY = LEAD1.AnnGetPointY(hObject)
annGetEndY = annPointY(1)
End Function
Public Function annGetStartX(hObj As Long) As Double
Dim annPointX As Variant
annPointX = LEAD1.AnnGetPointX(hObject)
annGetStartX = annPointX(0)
End Function
Public Function annGetEndX(hObj As Long) As Double
Dim annPointX As Variant
annPointX = LEAD1.AnnGetPointX(hObject)
annGetEndX = annPointX(1)
End Function
Public Function annGetPointYById(hObj As Long, n As Integer) As Double
Dim annPointY As Variant
annPointY = LEAD1.AnnGetPointY(hObject)
annGetPointYById = annPointY(n)
End Function
Public Function annGetPointXById(hObj As Long, n As Integer) As Double
Dim annPointX As Variant
annPointX = LEAD1.AnnGetPointX(hObject)
annGetPointXById = annPointX(n)
End Function
|
|
|
|
|
Report
|
|
|
|