|
分類:[VB6 以前]
こんにちは。
VB6からVC++6のDLLの呼出しについて教えてください。
下記最下部のCalc_Top部で「DLLが正しく呼び出せません」のエラーが出てしまいます。
呼出し上で何か問題なところがあるでしょうか？
ご回答宜しくお願い致します。
標準モジュール
Public Type Worm_Info
aModule As Double
aAturyokuKaku As Double
aSusumiKaku As Double
aHamotoChokkei As Double
aPitchCircular As Double
aOuterDiameter As Double
aMizoHaba As Double
aSaitanKyori As Double
aKuitigaiKaku As Double
aPts1(127) As Double '出力
aPts2(127) As Double '出力
aPoints_No As Long '出力
aBunkatuSuu As Long
aObjectKind As Long
End Type
Public Type Initial_Parameters
aMaxDevideNumber As Long
aCalc_Tolerance As Double
aShape_Base_Length As Double
aDebugMode As Boolean
End Type
Public Type Correction_Parameters
aCorrection_Kind_Flag As Long
aCorrection_A As Double
aCorrection_B As Double
aPoints_No As Long '出力
aPts1(256) As Double '出力
aPts2(256) As Double '出力
End Type
以下呼出し部(Textは設定済）
：
Dim nRet As Long
Dim nRet1 As Long
Dim nRet2 As Long
Dim ST_Worm_Info As Worm_Info
Dim ST_Initial_Parameters As Initial_Parameters
Dim ST_Dendum_Correction As Correction_Parameters
Dim ST_Addendum_Correction As Correction_Parameters
With ST_Worm_Info
.aModule = Text11
.aAturyokuKaku = Text12
.aSusumiKaku = Text13
.aHamotoChokkei = Text14
.aPitchCircular = Text15
.aOuterDiameter = Text16
.aMizoHaba = Text17
.aSaitanKyori = Text18
.aKuitigaiKaku = Text19
.aBunkatuSuu = Text20
.aObjectKind = Text21
End With
With ST_Initial_Parameters
.aMaxDevideNumber = Text22
.aCalc_Tolerance = Text23
.aShape_Base_Length = Text24
.aDebugMode = Text25
End With
With ST_Dendum_Correction
.aCorrection_Kind_Flag = 0
.aCorrection_A = Text26
.aCorrection_B = Text27
End With
With ST_Addendum_Correction
.aCorrection_Kind_Flag = 2
.aCorrection_A = Text28
.aCorrection_B = Text29
End With
nRet = Initial_Parameter_Setting(ST_Initial_Parameters)
nRet1 = Struct_Data_Setting(ST_Dendum_Correction, ST_Worm_Info, ST_Addendum_Correction)
nRet2 = Calc_Top() *******→ここでエラー**********
|