To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=43535
Issue #:|43535
Summary:|crash due to a DLL function badly declared
Component:|api
Version:|OOo 1.1.4
Platform:|PC
URL:|
OS/Version:|Windows 2000
Status:|UNCONFIRMED
Status whiteboard:|
Keywords:|
Resolution:|
Issue type:|DEFECT
Priority:|P3
Subcomponent:|code
Assigned to:|sw
Reported by:|audirac
------- Additional comments from [EMAIL PROTECTED] Fri Feb 25 03:15:02 -0800
2005 -------
Hello,
I use a functions of a DLL. When the type is badly declared, openoffice crashes.
--------------------
Module which works:
Option Explicit
' The DLL function is properly declared with the type "Long"
Declare Function ibdev_nocrash Lib "Gpib-32.dll" Alias "ibdev" (ByVal bdid As
Long, ByVal pad As Long, ByVal sad As Long, ByVal tmo As Long, ByVal eot As
Long, ByVal eos As Long) As Long
Sub No_Crash()
Dim SFQ As Long
Dim Const AddSFQ As Long = 8 'IEEE address SFQ
SFQ = ibdev_nocrash(0, AddSFQ, 0, 13, 1, 0)
End Sub
--------------------
Module which gives rise to crash:
Option Explicit
' The DLL function is badly declared with the type "String" instead of "Long"
Declare Function ibdev_crash Lib "Gpib-32.dll" Alias "ibdev" (ByVal bdid As
Long, ByVal pad As Long, ByVal sad As Long, ByVal tmo As Long, ByVal eot As
Long, ByVal eos As Long) As String
Sub Crash()
Dim SFQ As String
Dim Const AddSFQ As Long = 8 'IEEE address SFQ
SFQ = ibdev_crash(0, AddSFQ, 0, 13, 1, 0)
End Sub
I try to attach a test file (.sxc) and the appropriate DLL.
Cheers!
Guillaume Audirac
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
