ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Адресс буффера
25 сообщений из 51, страница 1 из 3
  1  все
Адресс буффера
    #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:02
| Ответить | Цитировать | Написать  
Адресс буффера
    #35599179
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Первый вопрос: для чего это потребовалось?
Второй вопрос: зачем вы смешиваете в одной строке устаревший и сегодняшний способы декларирования ваших переменных?

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

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

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

Успехов
...
Рейтинг: 0 / 0
16.10.2008, 18:34
| Ответить | Цитировать | Написать  
Адресс буффера
    #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:42
| Ответить | Цитировать | Написать  
Адресс буффера
    #35599192
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Kallandor


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

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

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

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

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

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

Игорь Горбонос
1. Код приведен просто для примера, ну то есть как узнать адрес именно такого байтового массива не более
2. Почту не проверяла. На днях пойду проверю :)
...
Рейтинг: 0 / 0
16.10.2008, 18:58
| Ответить | Цитировать | Написать  
Адресс буффера
    #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:08
| Ответить | Цитировать | Написать  
Адресс буффера
    #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, 19:45
| Ответить | Цитировать | Написать  
Адресс буффера
    #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
16.10.2008, 21:09
| Ответить | Цитировать | Написать  
Адресс буффера
    #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, 11:27
| Ответить | Цитировать | Написать  
Адресс буффера
    #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:18
| Ответить | Цитировать | Написать  
Адресс буффера
    #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, 15:57
| Ответить | Цитировать | Написать  
Адресс буффера
    #35601385
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
Бенедикт,

Совсем забыла к SQL-серверу я коннекчусь через ADO. Снапшот никак не хочу преобразовывать, ну то есть осознанно менять какие-либо байты. Вот
...
Рейтинг: 0 / 0
17.10.2008, 16:00
| Ответить | Цитировать | Написать  
Адресс буффера
    #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:14
| Ответить | Цитировать | Написать  
Адресс буффера
    #35601443
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
Игорь Горбонос,

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

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

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

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
17.10.2008, 16:34
| Ответить | Цитировать | Написать  
Адресс буффера
    #35601473
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
невнимательно читал ветку, тогда автору надо все прочитать и сделать коррективы
...
Рейтинг: 0 / 0
17.10.2008, 16:35
| Ответить | Цитировать | Написать  
Адресс буффера
    #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:46
| Ответить | Цитировать | Написать  
Адресс буффера
    #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:52
| Ответить | Цитировать | Написать  
Адресс буффера
    #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:57
| Ответить | Цитировать | Написать  
Адресс буффера
    #35601548
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
зачем вам tempstr2$

что вы хотите увидеть?
...
Рейтинг: 0 / 0
17.10.2008, 16:59
| Ответить | Цитировать | Написать  
Адресс буффера
    #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
17.10.2008, 17:03
| Ответить | Цитировать | Написать  
25 сообщений из 51, страница 1 из 3
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Адресс буффера
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=177&tid=2161723]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 35ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 66ms
get tp. blocked users:
 2ms
others: 189ms
total:  330ms
созд. / загр.: 330ms
x
x
Закрыть


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