Бинарная картинка

[DirectXManiac]

Мне стыдно задавать такого рода вопросы, но уже несколько дней не могу понять в чем собственно дело... Итак имеется некая структура, в которой содержатся данные. Эти данные ничего общего не имеют в вопросов, кроме одного массива TextureData()
После сбора данных в это массив складываются цвета пикселей картинки:

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


For x = 0 to SizeX - 1
For y = 0 to SizeY - 1
TextureData(x,y) = Picture1.Point(x,y)
Next y
Next x


После чего идет сохранение... После сохранения некоторых данных сохраняю этот массив
Put #1,,TextureData()

Все работает, ничего не падает. Но после загрузки этого массива и отображения на том же PictureBox-е(в другом проекте) получается полная несурядица. Картинка загружается треугольниками(2мя) и они как будто перепутаны местами... Открыв файл я увидел это...
Открыл я его блокнотом и увидел диогональ из пробелов(которая при отображении делить картинку на 2 тр-ка черным цветом)

Насколько я понял загрузка не причем, может именно сохранение, почему? При сохранении только данных картинки проблема не уходит...
Естественно сначала делаю Redim перед загрузкой...

[HiSER]

Возможно загружаешь не в том порядке, в котором сохранил.

[alibek]

Покажи код сохранения.

[Mikle]

DirectXManiac
Диагональ из пробелов, скорее всего, из-за неверного размера массива, для картинки 800*600, массив должен быть Arr(799,599), потому, что от нуля.
Цикл Y должен быть внешним, картинка от этого не поменяется, но, если открывать блокнотом, будет выглядеть корректнее.

[DirectXManiac]

Весь код сохранения Put #1,,TextureData()
Все... Массив 255х255(картинка 256 на 256). С этим все верно...

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

        Put #1, , mat.Version
        Put #1, , mat.Params.numTextures
        Dim i As Long
        '//Ðèñóíêè
        For i = 0 To mat.Params.numTextures - 1
            Put #1, , mat.Params.Textures(i).Version
            Put #1, , mat.Params.Textures(i).Name
            Put #1, , mat.Params.Textures(i).SizeX
            Put #1, , mat.Params.Textures(i).SizeY
            Put #1, , mat.Params.Textures(i).TexturesData
        Next i
        For i = 0 To mat.Params.numTextures - 1
            Put #1, , mat.Params.Stages(i).ColorOP
            Put #1, , mat.Params.Stages(i).ColorArg1
            Put #1, , mat.Params.Stages(i).ColorArg2
        Next i
        Put #1, , mat.Params.UseAdditionalScript
        If mat.Params.UseAdditionalScript = 1 Then
            Put #1, , mat.Script.Script
        End If

Вот весь код сохранения. Код заполнения выше...
[Added]:
Mikle
Ты прав, спасибо за наводку, оказалось в дебрях кода действительно не правильно заданы границы массива, этого я не заметил. Всем спасибо!

[DirectXManiac]

Собственно вопрос другого рода, но т.к. тема не старая задам сюда... Если буду часто задавать вопросы надо будет переименовать тему
Итак вопрос относится все к тому же грандиозному проекту,но на этот раз строки. Итак пишу функци для получения строки из RichTextBox. Посылаю EM_GETLINE и получаю массив... Далее делаю
Line = Left$(StrConv(lBuffer,vbUnicode),LineLenght)
Но при таком подходе почему то криво передается русский текст... Т.е. он вообще не передается, а передаются какие то левые(ну ясно откуда они берутся) символы. Как правильно получить из этого массива строку? Или как подругому корректно и быстро получить содержимое нужной мне строки(по индексу) из RichTextBox-а?

[Atoman]

Вот у меня вроде всё нормально работает.

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

Public Function GetLineText(ByVal hWnd As Long, ByVal Line As Long) As String
Dim Buff As String, nLen As Long, Index As Long
  Index = SendMessage(hWnd, EM_LINEINDEX, Line - 1, ByVal 0&)
  If Index < 0 Or Line <= 0 Then Exit Function
  nLen = SendMessage(hWnd, EM_LINELENGTH, Index, ByVal 0&)
  Buff = Space(nLen + 1)
  Call SendMessage(hWnd, EM_GETLINE, Line - 1, ByVal Buff)
  GetLineText = Left(Buff, nLen)
End Function

[DirectXManiac]

Atoman
Покажи декларацию SendMessage. Дело в том что можно отправлять и юникодную команду

[Atoman]

Вот пожалуйсто.

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

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

[DirectXManiac]

Ага, понял "A" значит... Все равно не работает. Раньше возвращало какой то бред, а теперь "???"... Это меня убьет

[Atoman]

Вот посмотри, у меня тут всё равотает.

[DirectXManiac]

Atoman
Отдельно то все работает а вот в связке с rtf подсветкой нет Видимо контрол криво сделан, вообщем вопрос снят всем спасибо... Пишу сабж на .NET