Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Адресс буффера / 25 сообщений из 51, страница 1 из 3
  1  все
16.10.2008, 18:02
    #35599100
Kallandor
Kallandor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
Доброго времени суток, уважаемые.

Подскажите пожалуйста как мне определить адрес буффера? Поясняю:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim ByteArr() As Byte
Dim tempstr$, i&, byte_address As Long

tempstr = "Просто строка для иллюстрации"
ReDim ByteArr(Len(tempstr) -  1 )
For i =  0  To UBound(ByteArr)
    ByteArr(i) = Asc(Mid(tempstr, i +  1 ,  1 ))
Next i

Собственно по коду понятно что массив ByteArr где-то расположен в памяти. Вопрос а как узнать адрес по которому в памяти расположен массив? М.Б. какую-нибудь API кто-нибудь помнит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2008, 18:34
    #35599179
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
Первый вопрос: для чего это потребовалось?
Второй вопрос: зачем вы смешиваете в одной строке устаревший и сегодняшний способы декларирования ваших переменных?

Для справки: посмотрите CopyMemory и VarPtr

Здесь пример:

http://www.tek-tips.com/viewthread.cfm?qid=1425974

Успехов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2008, 18:42
    #35599187
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
> Автор: Kallandor
> Доброго времени суток, уважаемые.
>
> Подскажите пожалуйста как мне определить адрес буффера? Поясняю:

Я не совсем понял при чем здесь вопрос и код приведенный для примера :-[

Но твой код можно слегка "оптимизировать":
Код: plaintext
1.
2.
3.
4.
Dim ByteArr() As Byte
Dim tempstr As String

tempstr = "Просто строка для иллюстрации"
 ByteArr = StrConv(tempstr, vbFromUnicode)



--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2008, 18:45
    #35599192
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
> Автор: Kallandor


Кстати! Почту получила?

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2008, 18:58
    #35599215
Kallandor
Kallandor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
VladConnПервый вопрос: для чего это потребовалось?
Второй вопрос: зачем вы смешиваете в одной строке устаревший и сегодняшний способы декларирования ваших переменных?

1. Потребовалось потому что надо определить адрес данных в памяти. Такая поставлена задача
2. Объявление по-старому и по-новому, это скорее всего вопрос привычки, т.е. я привыкла писать Dim temp_string$, а не Dim temp_string As String. Принципиальной разницы не вижу.

CopyMemory по-моему как раз и отвечает за копирование данных с указанного адреса. А мне нужно узнать адресс.

VarPtr, StrPtr - наверное это то что мне надо. Буду разбираться.

Игорь Горбонос
1. Код приведен просто для примера, ну то есть как узнать адрес именно такого байтового массива не более
2. Почту не проверяла. На днях пойду проверю :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2008, 19:08
    #35599237
Kallandor
Kallandor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
Вопрос: Почему tempstr и tempstr2 различаются?
Код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Dim ByteArr() As Byte, oByte() As Byte
Dim tempstr$, i&, byte_address As Long

tempstr = "Просто строка для иллюстрации"
ReDim ByteArr(Len(tempstr) -  1 )
For i =  0  To UBound(ByteArr)
    ByteArr(i) = Asc(Mid(tempstr, i +  1 ,  1 ))
Next i



StrPtr (tempstr)


CopyMemory Len(tempstr), ByVal StrPtr(tempstr),  4 
ReDim oByte( 0  To Len(tempstr) -  1 ) As Byte
CopyMemory oByte( 0 ), ByVal StrPtr(tempstr) +  4 , Len(tempstr)

Dim tempstr2$
tempstr2 = ""
For i =  0  To UBound(oByte)
    tempstr2 = tempstr2 + Chr(oByte(i))
Next i

'tempstr2 = ">AB>  AB@>:0  4;O"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2008, 19:45
    #35599282
Kallandor
Kallandor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
В общем с тем почему мне выдавало какую-то ерунду при копировании из памяти по указанному аддресу я разобралась. Если кому-нибудь будет интересно-поясняю. При конвертации не понимались русские буквы и строка разделена 0 символами, также строка получилась обрезанной из-за смещения, т.е. адрес на строку был ни разу не 32-разрядным.

Вопрос: Как сформировать 32-разрядный указатель?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim oByte() As Byte
Dim tempstr$, i&, byte_address As Long

tempstr = "english word"

CopyMemory Len(tempstr), ByVal StrPtr(tempstr),  0 
ReDim oByte( 0  To Len(tempstr) *  2  -  1 ) As Byte
CopyMemory oByte( 0 ), ByVal StrPtr(tempstr) +  0 , Len(tempstr) *  2 

Dim tempstr2$
tempstr2 = ""
For i =  0  To UBound(oByte)
    tempstr2 = tempstr2 + Chr(oByte(i))
Next i

'tempstr2 = "e n g l i s h   w o r d "

т.е. собственно чтобы вместо 0 было смещение 4, как для long ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2008, 21:09
    #35599385
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
Kallandor,
про русские буквы: надо учитывать, что кодировка Unicode в понимании Microsoft двухбайтовая.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
 Dim ByteArr() As Byte, oByte() As Byte
 Dim tempstr$, i&, byte_address As Long
 
 tempstr = "Просто строка для иллюстрации"
'Так делать нельзя, потому что надо использовать AscW(), которая вызовет
'переполнение при присвоениии байту, поскольку вернёт для кириллицы код,
'не умещающийся в байт.
' ReDim ByteArr(Len(tempstr) - 1)
' For i = 0 To UBound(ByteArr)
'     ByteArr(i) = Asc(Mid(tempstr, i + 1, 1)) 
' Next i
 
 'CopyMemory Len(tempstr), ByVal StrPtr(tempstr), 4 'Что это???? Нет, правда?
 ReDim oByte( 0  To Len(tempstr) *  2  -  1 ) As Byte
 CopyMemory oByte( 0 ), ByVal StrPtr(tempstr), Len(tempstr) *  2 
 
 Dim tempstr2$
 tempstr2 = ""
 For i =  0  To UBound(oByte) -  1  Step  2 
     tempstr2 = tempstr2 + ChrW(CInt(oByte(i +  1 )) *  256  + oByte(i))
 Next i

Право слово, ничего личного, я позитивен и лучусь благожелательностью , но не оставляет впечатление, что Вы
1) настойчиво ломитесь в открытую дверь
2) не читаете советских газет... тьфу, хорошие статьи, на которые Вам дали ссылки
3) пользуетесь терминологией в своём, отличном от общепринятого, смысле
4) считаете, что форумчане в контексте Ваших частных задач и Ваших способов их решения.

Это я к тому, что не понял фраз "Вопрос: Как сформировать 32-разрядный указатель?" и "т.е. собственно чтобы вместо 0 было смещение 4, как для long ?"
И ещё я не понял, зачем эти фокусы вообще.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 11:27
    #35600331
Kallandor
Kallandor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
БенедиктKallandor,
про русские буквы: надо учитывать, что кодировка Unicode в понимании Microsoft двухбайтовая.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
 Dim ByteArr() As Byte, oByte() As Byte
 Dim tempstr$, i&, byte_address As Long
 
 tempstr = "Просто строка для иллюстрации"
'Так делать нельзя, потому что надо использовать AscW(), которая вызовет
'переполнение при присвоениии байту, поскольку вернёт для кириллицы код,
'не умещающийся в байт.
' ReDim ByteArr(Len(tempstr) - 1)
' For i = 0 To UBound(ByteArr)
'     ByteArr(i) = Asc(Mid(tempstr, i + 1, 1)) 
' Next i
 
 'CopyMemory Len(tempstr), ByVal StrPtr(tempstr),  4  'Что это???? Нет, правда?

Это я пыталась посмотреть что лежит в памяти по указанному мною адресу и надо чтобы обязательно смещение было 4
Бенедикт
Право слово, ничего личного, я позитивен и лучусь благожелательностью , но не оставляет впечатление, что Вы
1) настойчиво ломитесь в открытую дверь
2) не читаете советских газет... тьфу, хорошие статьи, на которые Вам дали ссылки
3) пользуетесь терминологией в своём, отличном от общепринятого, смысле
4) считаете, что форумчане в контексте Ваших частных задач и Ваших способов их решения.

1. Если я вдруг оказалась хамкой - извините, вот что что, а хамить я точно не собиралась
2. читать то я читаю, только вот наверное до меня доходит не все что написано, или все но не с первого раза. Так что в этом вопросе я признаю свою туповатось
4. Ставить форумчан в контекст всей задачи считаю нецелесообразно. Потому как порой большая задача делится на мелкие подзадачи и ряд мелких подзадач уже решен, а одна какая-нибудь мелкая, зараза, ну никак не хочет решаться, и надо решить именно мелкую подзадачу

БенедиктЭто я к тому, что не понял фраз "Вопрос: Как сформировать 32-разрядный указатель?" и "т.е. собственно чтобы вместо 0 было смещение 4, как для long ?"
И ещё я не понял, зачем эти фокусы вообще.
Одним из входных параметров в функцию, описанную в сторонней dll, является указатель на буфер в котором помещенны данные полученные с помощью вызова MTEGetSnapshot. Собственно, данные из буфера MTEGetSnapshot помещены в базу. Потом я формирую байтовый массив из этих данных или строку из байтов (еще не поняла до конца что надо команде) и потом указатель на буффер хочу передать в команду MTESetSnapshot. Собственно коды:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
Private Declare Function DF_SetSnapshot& Lib "mtesrl.dll" _
    Alias "MTESetSnapshot" ( _
    ByVal Idx As Long, _
    ByRef Snapshot As Long, _
    ByRef Leng As Long, _
    ByVal ResultMsg As String)

'....

Sub SetSnapshot(Idx As Long, iId_Snapshot As Long)
Dim sErr$, tempstr$, TmpSnap() As String, iLen&, ErrorMsg As String, ByteSnapshot() As Byte, i&
Dim nErr As Long, iAdress As Long
Dim NullCharPos&

On Error GoTo SetSnapshot_Err

Cmd = "select DATA from SNAPSHOT where SNAPSHOT_ID='" + CStr(iId_Snapshot) + "'"

SQL_exec Cmd
If Result <>  0  Then
    Result =  1 
    Exit Sub
End If

tempstr = rs_SQL.Fields( 0 )
If Right(tempstr,  1 ) = Chr( 124 ) Then
    tempstr = Left(tempstr, Len(tempstr) -  1 )
End If

TmpSnap = Split(tempstr, Chr( 124 ))


ReDim ByteSnapshot(UBound(TmpSnap))

For i =  0  To UBound(TmpSnap)
    ByteSnapshot(i) = CByte(TmpSnap(i))
Next i

tempstr = Replace(tempstr, Chr( 124 ), "")
tempstr = StrConv(tempstr, vbFromUnicode)
'пока только пытаюсь понять что конкретно надо команде строка или массив, поэтому разные варианты
iAdress = StrPtr(tempstr) -  4 
iAdress = VarPtr(ByteSnapshot( 0 ))
iLen = Len(tempstr)
ErrorMsg = String$( 255 , vbNullChar)

nErr = DF_SetSnapshot(Idx, iAdress, iLen, ErrorMsg)

NullCharPos = InStr(ErrorMsg, vbNullChar)

If NullCharPos And nErr < MTE_OK Then
    PutErrorTextByIdx nErr
    Result =  1 
    Exit Sub
End If


Result =  0 
Exit Sub
SetSnapshot_Err:
    Result =  1 
    sErr = Err.Number & " " & Err.Source & " " & Err.Description
    PutError "SetSnapshot. " + sErr + " Ошибка при получении снапшота", , Logging
    Exit Sub
End Sub

Собственно это описание проблемы более подробно. Но все равно пока такой код выдает ошибку на этапе обращения к DF_SetSnapshot. То есть ErrorMsg заполнено ошибкой, присланной от ММВБ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 15:18
    #35601239
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
KallandorЭто я пыталась посмотреть что лежит в памяти по указанному мною адресу и надо чтобы обязательно смещение было 4А получилось вот что: создана автоматическая временная переменная, в которую помещён результат функции Len(). Затем в эту переменную функцией CopyMemory() занесены первые 4 байта (два символа) тела строки. Затем эта переменная автоматически уничтожилась.KallandorСобственно, данные из буфера MTEGetSnapshot помещены в базу.Хорошее решение. Не выложите базу (это .mdb?) (или дампов нескольких снэпшотов) вместе с кодом, помещавшим данные в базу, для того, чтобы было, что пощупать руками?KallandorПотом я формирую байтовый массив из этих данных или строку из байтов (еще не поняла до конца что надо команде) и потом указатель на буффер хочу передать в команду MTESetSnapshot.Может быть, стоит проверить на самом простом тесте: передать в MTESetSnapshot снэпшот, сохранённый в базе, без каких-либо изменений?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim ByteSnapshot() As Byte

On Error GoTo SetSnapshot_Err

Cmd = "select DATA from SNAPSHOT where SNAPSHOT_ID='" + CStr(iId_Snapshot) + "'"

SQL_exec Cmd
If Result <>  0  Then
    Result =  1 
    Exit Sub
End If

ByteSnapshot = rs_SQL.Fields( 0 ) 'кстати - DAO или ADO?

iAdress = VarPtr(ByteSnapshot( 0 ))
iLen = UBound(ByteSnapshot) +  1 
'и т. д.
Как изменения Вы хотите внести в снэпшот?

P.S. Под ломлением в открытую дверь я имел ввиду, что Вы пытаетесь сделать какую-то простую, и многократно сделанную вещь. Сами, набивая все шишки, и без оглядки на то, как это делали другие. Больно на это смотреть. Но - Ваше право. (Сам такой Мы все такие)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 15:57
    #35601375
Kallandor
Kallandor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
Бенедикт,

Один снапшот для примера я могу привести (посто на самом деле они все похожи, так как до второго снапшота я не могу дойти, к сожаленью). Пример:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 104 | 214 | 101 | 38 | 182 | 108 | 250 | 217 | 6 | 0 | 0 | 0 | 6 | 0 | 0 | 0 | 6 | 0 | 0 | 0 | 8 | 0 | 0 | 0 | 48 | 48 | 48 | 48 | 48 | 48 | 48 | 51 | 74 | 0 
| 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 0 | 0 | 0 | 83 | 69 | 84 | 84 | 76 | 69 | 67 | 79 | 68 | 69 | 83 | 0 | 159 | 225 | 255 | 255 | 5 | 0 | 0 | 0 | 10 
| 0 | 0 | 0 | 48 | 48 | 48 | 48 | 48 | 48 | 48 | 48 | 48 | 48 | 43 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 2 | 0 | 0 | 0 | 0 | 73 | 78 | 83 | 84 | 82 | 83 | 0 
| 159 | 225 | 255 | 255 | 4 | 0 | 0 | 0 | 8 | 0 | 0 | 0 | 48 | 48 | 48 | 48 | 48 | 55 | 57 | 51 | 19 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 0 | 0 | 0 
| 70 | 73 | 82 | 77 | 83 | 0 | 159 | 225 | 255 | 255 | 3 | 0 | 0 | 0 | 34 | 0 | 0 | 0 | 48 | 48 | 48 | 48 | 48 | 48 | 48 | 48 | 48 | 48 | 32 | 32 | 32 | 32 
| 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 40 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 2 | 0 | 0 
| 0 | 0 | 85 | 83 | 69 | 82 | 83 | 0 | 159 | 225 | 255 | 255 | 2 | 0 | 0 | 0 | 10 | 0 | 0 | 0 | 48 | 48 | 48 | 48 | 48 | 48 | 49 | 51 | 48 | 53 | 54 | 0 | 0 
| 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 2 | 0 | 0 | 0 | 0 | 84 | 82 | 65 | 68 | 69 | 83 | 0 | 159 | 225 | 255 | 255 | 1 | 0 | 0 | 0 | 35 | 0 | 0 | 0 | 48 | 48 | 48 
| 48 | 48 | 48 | 48 | 48 | 48 | 48 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 
| 32 | 32 | 33 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 2 | 0 | 0 | 0 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 32 | 0 | 83 | 69 | 67 | 85 | 82 | 73 | 84 | 73 
| 69 | 83 | 0 | 159 | 225 | 255 | 255 | 52 | 57 | 48 | 48 |

Собственно это байтовый массив, через chr(124) - вертикальная палочка, я сплитую это в байтовый массив просто через Cbyte()
Пробовала посылать и ByRef сформированный массив - не выходит цветочек каменный

Как формирую массив байтов:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim in_byte() As String, out_byte() As Byte, i&
If Right(tempstr$,  1 ) = Chr( 124 ) Then
    tempstr = Left(tempstr, Len(tempstr$) -  1 )
End If

in_byte = Split(tempstr, Chr( 124 ))
ReDim out_byte(UBound(in_byte))

For i =  0  To UBound(in_byte)
    out_byte = CByte(in_byte(i))
Next i

Мне кажется, что это из-за различной адресной арифметики между с++ и vb. Так как сторонняя dll написана на с++. Также посоветовавшись с разработчиками dll я поняла что если я им буду передавать строку, то в бейсике она будет в формате unicode, а они ожидают asciiZ строку, поэтому наверное лучше передвать массив. Осталось понять как определить адрес этого массива :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 16:00
    #35601385
Kallandor
Kallandor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
Бенедикт,

Совсем забыла к SQL-серверу я коннекчусь через ADO. Снапшот никак не хочу преобразовывать, ну то есть осознанно менять какие-либо байты. Вот
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 16:14
    #35601428
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
> Автор: Kallandor
> Также посоветовавшись с разработчиками dll я поняла что если я им буду передавать
> строку, то в бейсике она будет в формате unicode, а они ожидают asciiZ строку, поэтому
> наверное лучше передвать массив.


А с чего ты взяла, что там будет юникод?

А как тогда работает этот код?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Declare Function FindWindow Lib "user32" Alias _
         "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _
         As String) As Long
....
' Get the hWnd of the target application
          ThWnd = FindWindow(vbNullString, "Target")
....
Здесь явно указана функция не использующая юникод. И все работает, без дополнительных
перетрубаций

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 16:18
    #35601443
Kallandor
Kallandor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
Игорь Горбонос,

Юникод там потому что когда я делала действия указанные в первом посте, только на примере строки, вытащенной из sql сервера, то возвращалась сторка с ноликом через символ. Вот. На основании этого я решила, что в бейсике по умолчанию юникод. Вот
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 16:20
    #35601446
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
BSTR пусть в c++ dll юзают и тебя и нас не мучают ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 16:27
    #35601460
Kallandor
Kallandor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
Konst_One,

это только мечты. Мне кажется сейчас они активно продвигают продажу уже сделанного продукта. И еще по-моему у них действует принцип - "Это не bug'а, это фича"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 16:28
    #35601463
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
грустно, тогда гуглите по проблеме передачи строк из бэйсика в C++ (BSTR->ansiiZ)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 16:34
    #35601471
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
> Автор: Konst_One
> грустно, тогда гуглите по проблеме передачи строк из бэйсика в C++ (BSTR->ansiiZ)
По моему Бенедикт уже давал
эту ссылку

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 16:35
    #35601473
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
невнимательно читал ветку, тогда автору надо все прочитать и сделать коррективы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 16:46
    #35601501
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
Strings and Byte Arrays
Of course, a byte array is just an array whose members have type byte, for instance:

Dim b(1 to 100) As Byte

To get a pointer to this byte array, we can use VarPtr:

Dim lpsz As Long
lpsz = VarPtr(b(1)) ' or rpiVarPtr(b(1))

(Even though it doesn't seem so, the letters lpsz stand for long pointer to null-terminated string.) Note that the address of the first member of the array is the address of the array.

Remembering that an LPSTR is a pointer to a null-terminated character array, we should initialize the array to nulls:

For i = 1 To 100
b(i) = 0
Next

(It is true that VB does its own initialization, but it is not good programming practice to rely on this.)

Translating Between Byte Arrays and BSTRs
To copy a BSTR:

Dim s As String

to a byte array, we can proceed in a couple of different ways. For a strictly VB solution, we have:

s = "help"
Dim b(1 To 8) As Byte
For i = 1 To 8
b(i) = AscB(MidB(s, i))
Next

Another approach is:

s = "help"
Dim b(1 To 8) As Byte
CopyMemory b(1), ByVal StrPtr(s), LenB(s)

Note that (in both cases) we get:

104 0 101 0 108 0 112 0

showing that the bytes are reversed in each Unicode integer.

In the other direction, to copy a byte array into a BSTR, VB gives us some help. If b is a Unicode byte array, we can just write:

Dim t As String
t = b

For an ANSI byte array b, we write:

Dim t As String
t = StrConv(b, vbUnicode)

Note, however, that the StrConv function does not recognize a null terminator in the byte array--it will translate the entire array. Any nulls that are encountered in the array become embedded nulls in the BSTR.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 16:52
    #35601517
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
From BSTR to LPSTR
The function to convert a BSTR to an LPSTR is similar, but requires a translation from Unicode to ANSI first:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
Dim cnt as Long
Dim bArr() as Byte
Dim lpsz as Long

cnt=BSTRtoLPSTR("передаем эту строку в С++ dll", bArr, lpsz)

'это на выходе, что нужно сунуть в C++ dll
'bArr - массив
'lpsz - указатель на массив


Function BSTRtoLPSTR(sBSTR As String, b() As Byte, lpsz As Long) As Long
 
' Input: a nonempty BSTR string
' Input: **undimensioned** byte array b()
' Output: Fills byte array b() with ANSI char string
' Output: Fills lpsz with a pointer to b() array
' Returns byte count, not including terminating null
' Original BSTR is not affected
 
Dim cBytes As Long
Dim sABSTR As String
 
cBytes = LenB(sBSTR)
 
' ReDim array, with space for terminating null
ReDim b( 1  To cBytes +  2 ) As Byte
 
' Convert to ANSI
sABSTR = StrConv(sBSTR, vbFromUnicode)
 
' Point to BSTR char array
lpsz = StrPtr(sABSTR)
 
' Copy the array
CopyMemory b( 1 ), ByVal lpsz, cBytes +  2 
 
' Point lpsz to new array
lpsz = VarPtr(b( 1 ))
 
' Return byte count
BSTRtoLPSTR = cBytes
 
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 16:57
    #35601537
Kallandor
Kallandor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
Konst_One,

ага, я это тоже увидела. Только вот доходит до меня долго Тупенькая я

Когда делаю
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim ByteArr() As Byte, oByte() As Byte
Dim tempstr$, i&, byte_address As Long, iLen As Long, hArrMem As Long

tempstr = "english word"

iLen = BSTRtoLPSTR(tempstr, ByteArr, byte_address)

CopyMemory iLen, ByVal byte_address,  2 
ReDim oByte( 0  To iLen -  1 ) As Byte
CopyMemory oByte( 0 ), ByVal byte_address +  2 , iLen

Dim tempstr2$
tempstr2 = ""
For i =  0  To UBound(oByte)
    tempstr2 = tempstr2 + Chr(oByte(i))
Next i

В tempstr2 какая-то фигня
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 16:59
    #35601548
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
зачем вам tempstr2$

что вы хотите увидеть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 17:03
    #35601557
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
Код: plaintext
1.
cnt=BSTRtoLPSTR("передаем эту строку в С++ dll", bArr, lpsz)
nErr = DF_SetSnapshot(Idx, lpsz, cnt, ErrorMsg)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2008, 17:03
    #35601559
Kallandor
Kallandor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Адресс буффера
Konst_Oneзачем вам tempstr2$

что вы хотите увидеть?

"english word"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Адресс буффера / 25 сообщений из 51, страница 1 из 3
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 467ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161723]:
 0ms
get settings:
 8ms
get forum list:
 22ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 149ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 206ms
total:  467ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]