请教,谁知道prodave6.2 与S300仿真的时候,为什么db_read_ex6可以读取DB块的数据,但是写db_write_ex6不能写数据到DB块中,报错误D241。用VB 测试的,代码如下:
Private Sub Command1_Click()
Dim dbblock As Long
Dim dbtype As Byte
Dim dbstart As Integer
Dim dbamount As Long
Dim dbbufferlen As Long
'Dim dbbuffer(1023) As Byte
Dim dbbuffer(6) As Byte
Dim k As Integer
'dbbufferlen = 1024
dbbufferlen = 7
dbblock = Text1(0).Text
dbstart = Text1(1).Text
dbamount = Text1(2).Text
Select Case Combo1.Text
Case "Byte"
dbtype = 2
Case "Word"
dbtype = 4
Case "Dword"
dbtype = 6
End Select
If dbtype = 2 Then
k = dbamount
ElseIf dbtype = 4 Then
k = dbamount * 2
ElseIf dbtype = 6 Then
k = dbamount * 4
End If
Dim i As Integer
'For i = 0 To k - 1
'dbbuffer(i) = StrConv(Text2(i).Text, vbFromUnicode)
'Next i
For i = 0 To 5
dbbuffer(i) = i + 1
Next i
Text2(0).Text = dbbuffer(0)
Text2(1).Text = dbbuffer(1)
Text2(2).Text = dbbuffer(2)
Text2(3).Text = dbbuffer(3)
Text2(4).Text = dbbuffer(4)
Text2(5).Text = dbbuffer(5)
Dim ret As Long
ret = db_write_ex6(dbblock, dbtype, dbstart, dbamount, dbbufferlen, dbbuffer(0))
Text2(6).Text = Hex(ret)
If ret = 0 Then
MsgBox "写入成功。"
Else
MsgBox "写入失败。"
End If
End Sub
qq:523421893,求交流和帮助!谢谢。。。