CopyMemory

[Конь]

Не знаю, по какой формулировке идти в поиск...

Код: Выделить всё

    Dim bInfo(2047) As Byte
    Dim i As Integer
   
    Open FileName For Binary As #1
   
    For i = 0 To 39
        Get #1, , bInfo
        CopyMemory tInfo(i), bInfo(0), 2048
    Next
   
    Close #1

При первом же CopyMemory вылетает программа... Причем иногда работает, а иногда вылетает... Помогите, пожалуйста, разобраться, я с этой функцией второй раз в жизни работаю
Здесь tInfo - аргумент функции, динамический массив пользовательского типа. Каждый элемент массива занимает в памяти ровно 2048 байтов... Передаю всегда функции массив Info(39).

P.S.: Мож там надо писать не 2048, а 2047, но это не влияет на результат. Вылетает.

[tyomitch]

Покажи код целиком.

[Конь]

Код: Выделить всё


Public Type CMLA2PDB_UserInfo
    NickName As String * 16 '0
    PlayerName As String * 16 '1
    Phone As String * 16 '2
    Age As Integer '3
    Level As Integer '4
    Class As String * 32 '5
    Helmet As String * 32 '6
    Upper As String * 32 '7
    Lower As String * 32 '8
    Gloves As String * 32 '9
    Boots As String * 32 '10
    LeftHand As String * 32 '11
    RightHand As String * 32 '12
    Head As String * 32 '13
    Necklare As String * 32 '14
    Earring1 As String * 32 '15
    Earring2 As String * 32 '16
    Ring1 As String * 32 '17
    Ring2 As String * 32 '18
    Future As String * 526 '19
End Type

Dim Info(39) As CMLA2PDB_UserInfo

Private Sub ReadDB(tInfo() As CMLA2PDB_UserInfo, DB As String)

    Dim bInfo(2047) As Byte
    Dim i As Integer
   
    Open DB For Binary As #1
   
    For i = 0 To 39
        Get #1, , bInfo
        CopyMemory tInfo(i), bInfo(0), 2048
    Next
   
    Close #1

End Sub

Делаю для друга игрушку для контроля игроков в линейке
Примитив. Такое ощущение, что я что-то где-то не так с массивами поступаю... Наверняка туплю и очень сильно

[keks-n]

Может, последнм параметром CopyMemory передавать Len(tInfo(i)), да и размерность байтового массива так задавать.
Это раз. Во вторых в файле строки что, в юникоде? Если нет, то читать надо непосредственно элемент структуры.

[Конь]

Ну нифига себе, работает

[Конь]

keks-n
"читать непосредственно элемент структуры" - это как? не въезжаю.

[Хакер]

Конь
Для чего читать по-элементно в массив, а потому копировать всё это в байтовый массив?

Не судьба прочитать всё сразу в байтовый массив?

Или данные в байтовом массиве должны иметь отчасти юникодный характер?

[Конь]

Хакер
И то правда... У меня мозги начали клинить после полугода отсутствия программирования

[Конь]

Что ему может не нравиться в строке

Код: Выделить всё

Len(tInfo(0)) * 40

?
Len(tInfo(0)) он четко возвращает - 1026. А на это выдает Overflow. Странно.

[Хакер]

40& вместо 40

[Конь]

А теперь снова вылетает
Строка CopyMemory bInfo(0), tInfo(0), Len(tInfo(0)) * 40&.
Я уже вообще под столом потихоньку засыпаю...

[Хакер]

Ещё раз: показывай весь код, с учётом деклараций.

[Конь]

Код: Выделить всё

Public Type CMLA2PDB_UserInfo
    NickName As String * 16 '0
    PlayerName As String * 16 '1
    Phone As String * 16 '2
    Age As Integer '3
    Level As Integer '4
    Class As String * 32 '5
    Helmet As String * 32 '6
    Upper As String * 32 '7
    Lower As String * 32 '8
    Gloves As String * 32 '9
    Boots As String * 32 '10
    LeftHand As String * 32 '11
    RightHand As String * 32 '12
    Head As String * 32 '13
    Necklare As String * 32 '14
    Earring1 As String * 32 '15
    Earring2 As String * 32 '16
    Ring1 As String * 32 '17
    Ring2 As String * 32 '18
    Future As String * 526 '19
End Type

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Public Info(39) As CMLA2PDB_UserInfo

Private Sub ReadDB(tInfo() As CMLA2PDB_UserInfo, DB As String)

    Dim bInfo(81919) As Byte
   
    Open DB For Binary As #1
   
    Get #1, , bInfo
    CopyMemory tInfo(0), bInfo(0), Len(tInfo(0)) * 40&
   
    Close #1

End Sub


Или уже правда пойти выспаться? )

[GSerg]

Код: Выделить всё

Public Type CMLA2PDB_UserInfo
    NickName As String * 16 '0
    PlayerName As String * 16 '1
    Phone As String * 16 '2
    Age As Integer '3
    Level As Integer '4
    Class As String * 32 '5
    Helmet As String * 32 '6
    Upper As String * 32 '7
    Lower As String * 32 '8
    Gloves As String * 32 '9
    Boots As String * 32 '10
    LeftHand As String * 32 '11
    RightHand As String * 32 '12
    Head As String * 32 '13
    Necklare As String * 32 '14
    Earring1 As String * 32 '15
    Earring2 As String * 32 '16
    Ring1 As String * 32 '17
    Ring2 As String * 32 '18
    Future As String * 526 '19
End Type

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Public Info(39) As CMLA2PDB_UserInfo

Private Sub ReadDB(tInfo() As CMLA2PDB_UserInfo, DB As String)

    Dim bInfo(81919) As Byte
   
    Open DB For Binary As #1
   
    Get #1, , bInfo
    CopyMemory tInfo(lbound(tInfo)), bInfo(lbound(bInfo)), Len(tInfo(0)) * (ubound(tInfo)-lbound(tInfo)+1)
   
    Close #1

End Sub

Это вообще, на будущее; но уверен ли ты, что *526, а не *256?

[Конь]

GSerg
Вылетает
С LBound и UBound не стоит заморачиваться, LBound - всегда 0, UBound - всегда 39...
526 там из-за того, чтоб округлить это все дело до 2048 байтов...

[GSerg]

но уверен ли ты, что *526, а не *256?

[Конь]

526 там из-за того, чтоб округлить это все дело до 2048 байтов...

[Хакер]

Ты вообще что-ли не понимаешь, что делаешь?

[Конь]

После твоего поста я начал понимать, что действительно ничего не понимаю...

[Конь]

Хакер
Дай, пожалуйста, наводящий вопрос относительно того, чего я не понимаю... А то я не понимаю, что именно я не понимаю...

[VB-constructor]

вобщем так:

Код: Выделить всё

Option Explicit


Public Type CMLA2PDB_UserInfo
    NickName As String * 16 '0
    PlayerName As String * 16 '1
    Phone As String * 16 '2
    Age As Integer '3
    Level As Integer '4
    Class As String * 32 '5
    Helmet As String * 32 '6
    Upper As String * 32 '7
    Lower As String * 32 '8
    Gloves As String * 32 '9
    Boots As String * 32 '10
    LeftHand As String * 32 '11
    RightHand As String * 32 '12
    Head As String * 32 '13
    Necklare As String * 32 '14
    Earring1 As String * 32 '15
    Earring2 As String * 32 '16
    Ring1 As String * 32 '17
    Ring2 As String * 32 '18
    Future As String * 526 '19
End Type

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, _
pSrc As Any, ByVal ByteLen As Long)


Public Sub ReadDB(tInfo() As CMLA2PDB_UserInfo)

    Dim bInfo(40) As CMLA2PDB_UserInfo
   
    Dim l_BINF As Long: l_BINF = Len(bInfo(0))
   
    CopyMemory ByVal VarPtr(bInfo(0)), ByVal VarPtr(tInfo(0)), l_BINF * 40
   
    MsgBox bInfo(0).Age 'проверяем

End Sub

и обращаемся примерно так:

Код: Выделить всё

Option Explicit
Dim m(40) As CMLA2PDB_UserInfo

Private Sub Command1_Click()
    m(0).Age = 40
    ReadDB m
End Sub


но почему при Dim l_BINF As Long: l_BINF = Len(bInfo(0)) * 40 - возникает ошибка для меня загадка

[tyomitch]

Известно почему: результат не влазит в Integer.

[VB-constructor]

так там ведь только Long , если бы Integer - все было бы проще

[tyomitch]

Код: Выделить всё

Debug.Print TypeName(Len(bInfo(0)))
Debug.Print TypeName(40)


[VB-constructor]

хм, и то верно

а я поверил и не проверил, что

Синтаксис

Len(string | varname)

Возвращает значение типа Long, содержащее число символов в строке или число байт, необходимое для размещения переменной. Из двух возможных аргументов должен быть указан один (и только один). Для определяемых пользователем типов (UDT) функция возвращает размер, который требуется для записи переменной в файл.

[keks-n]

Конь
Загнал бы эту инфу в класс, сделав функцию клонирования и не мучился. Тогда можно было бы сделать произвольную длинну строк. При необходимости сохранения - загонять всё в PropertyBag