SendMessage и строковый параметр

[Naked]

отправляю окну Call SendMessage(hwnd, 666, 0, ByVal "hello")

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

Function WindowProc(ByVal hwnd As Long, ByVal message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Select Case message
      case 666
         lparam - выводит цифры
         WindowProc = CallWindowProc(mWndProcOrg, hwnd, message, wParam, lParam)

      case else
         WindowProc = CallWindowProc(mWndProcOrg, hwnd, message, wParam, lParam)
   end select
end function


как мне получить этот самый "hello", в обработчике событий?

[GSerg]

buf=string$(lstrlen(lparam),0)
copymemory byval buf, byval lparam, len(buf)

[tyomitch]

buf=string$(lstrlen(lparam),0)
copymemory byval buf, byval lparam, len(buf)

Либо вместо этих двух строк -- одну:

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

buf = SysAllocString(lParam)

[GSerg]

А точно lparam будет указывать на юникодовую строку?

Parameter

sz

A zero-terminated string to copy. The sz parameter must be a Unicode string in 32-bit applications, and an ANSI string in 16-bit applications. The argument sz may be NULL.

[tyomitch]

Какая разница? Лишь бы \0 в конце был двухбайтным.

[GSerg]

Дык вот именно...

[tyomitch]

Для любителей однобайтных кодировок есть SysAllocStringByteLen, имеющая то преимущество перед твоим кодом, что не нужно сначала забивать строку мусором (=работает быстрее).

[Naked]

Благодарю

[Naked]

с этим вы мне помогли за что и благодарю вас, но возник исчо один вопрос

посылаем сообщение Call SendMessage(hwnd, 777, param1, param2)
как получить значения param1 и param2

примером послужит Call SendMessage(hwnd, WM_GETTEXT, param1, param2)

[tyomitch]

что значит "получить"? они сами тебе в оконную процедуру приходят.

[Naked]

ну допустим отправил я окну Call SendMessage(hwnd, 666, Len("hello"), ByVal "hello")

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

Dim Perem

Function WindowProc(ByVal hwnd As Long, ByVal message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Select Case message
      case 666
         Dim buf As String
         buf = String$(wParam, 0)
         Call CopyMemory(ByVal buf, ByVal lParam, wParam)
         Perem = buf 'запомнили в переменной "hello"
         WindowProc = CallWindowProc(mWndProcOrg, hwnd, message, wParam, lParam)
 
      case 777
         чего тут писать

         WindowProc = CallWindowProc(mWndProcOrg, hwnd, message, wParam, lParam)

      case else
         WindowProc = CallWindowProc(mWndProcOrg, hwnd, message, wParam, lParam)
   end select
end function


а теперь, каким образом выдрать это самое "hello" отправляя окну Call SendMessage(hwnd, 777, длина строки, строка)
msgbox строка

или я чего-то не догоняю

[tyomitch]

Видимо, не догоняешь.
Выше я уже писал о SysAllocStringByteLen.
Чем она не подошла-то?

[Naked]

tyomitch примером не поможешь?

[tyomitch]

вместо

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

         Dim buf As String
         buf = String$(wParam, 0)
         Call CopyMemory(ByVal buf, ByVal lParam, wParam)
         Perem = buf 'запомнили в переменной "hello"


--одна строчка:

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

         Perem = SysAllocStringByteLen(ByVal lParam, wParam)


[Naked]

я предполагал, что ты так напишешь
это не то, что я хотел.

нужен такой принцип работы

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

Const WM_SETTEXT = &HC
Const WM_GETTEXT = &HD
Const WM_GETTEXTLENGTH = &HE

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim nText As String
Dim nLen As Long

Private Sub Command1_Click()
    SendMessage hwnd, WM_SETTEXT, 0, ByVal "hello"
End Sub

Private Sub Command2_Click()
    nLen = SendMessage(hwnd, WM_GETTEXTLENGTH, 0, 0)
    nText = String(nLen + 1, Chr$(0))
    SendMessage hwnd, WM_GETTEXT, nLen + 1, ByVal nText
    MsgBox nText 'получили hello
End Sub


а в моем случае нужно

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

Private Sub Command1_Click()
    Call SendMessage(hwnd, 666, Len("hello"), ByVal "hello")
End Sub

Private Sub Command2_Click()
    nlen = 5
    SendMessage hwnd, 777, nlen, ByVal nText
    MsgBox nText 'как мне получить hello ?
End Sub


надеюсь теперь понятно объяснил

[tyomitch]

теперь понятнее.

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

CopyMemory ByVal lParam, ByVal "Hello", wParam


[Naked]

tyomitch спасибо