Серый форум — AHK: бинарная строка

Re: AHK: бинарная строка

null@example.com (MandarinKa02) — Sat, 05 Aug 2017 18:39:42 +0000

teadrinker, уже ответили. А вообще мне все равно в какой, мне лишь бы пример показать, а дальше и сам разберусь. Спасибо.

Re: AHK: бинарная строка

null@example.com (MandarinKa02) — Sat, 05 Aug 2017 18:38:29 +0000

YMP, Спасибо!

Re: AHK: бинарная строка

null@example.com (YMP) — Sat, 05 Aug 2017 11:46:12 +0000


sText := "{hi}{im info:)}"
aSockets%i%_iPackets  := 1337
iLength := StrPut(sText, "CP0")
msgbox % iLength
VarSetCapacity(bText, iLength, 0)
StrPut(sText, &bText, "CP0")
VarSetCapacity(bData, 24 + iLength, 0)
NumPut(aSockets%i%_iPackets, bData, 0, "int64")
NumPut(1, bData, 8, "int64")
NumPut(iLength, bData, 16, "int64")

CopyBinData(&bText, &bData + 24, iLength)
Msgbox % NumGet(bData, 0, "int64") "`n" NumGet(bData, 8, "int64") "`n" NumGet(bData, 16, "int64") "`n" StrGet(&bData + 24, "CP0")
Msgbox End
Reload


CopyBinData(ptrSource, ptrDestination, iLength) {
    If iLength ;Only do it if there's anything to copy
        DllCall("RtlMoveMemory", "Ptr", ptrDestination, "Ptr", ptrSource, "UInt", iLength)
}

Re: AHK: бинарная строка

null@example.com (teadrinker) — Sat, 05 Aug 2017 11:24:19 +0000

А в какой кодировке вам нужно поместить строку?

AHK: бинарная строка

null@example.com (MandarinKa02) — Sat, 05 Aug 2017 09:15:43 +0000

Привет форум. Помогите пожалуйста с бинарной строкой. Не могу её впихнуть в bData с offset'oм 24.
Может не правильно перекодирую, точно не знаю.


sText := "{hi}{im info:)}"
aSockets%i%_iPackets  := 1337
iLength := StrPut(sText, &bText, "CP0")
msgbox % iLength
VarSetCapacity(bData, 24 + iLength, 0)
NumPut(aSockets%i%_iPackets, bData, 0, "int64")
NumPut(1, bData, 8, "int64")
NumPut(iLength, bData, 16, "int64")


CopyBinData(&bText, &bData + 24, iLength)
Msgbox % NumGet(bData, 0, "int64") "`n" NumGet(bData, 8, "int64") "`n" NumGet(bData, 16, "int64") "`n" StrGet(&bData, "UTF-16")
Msgbox End
Reload


CopyBinData(ptrSource, ptrDestination, iLength) {
	If iLength ;Only do it if there's anything to copy
		DllCall("RtlMoveMemory", "Ptr", ptrDestination, "Ptr", ptrSource, "UInt", iLength)
}