Конференция VBStreets

**Eugenio** » 13.01.2005 (Чт) 20:15

Не знаю, чего еще копать и где смотреть. Видимо пробелы у меня там, где я и не подозревал - думаешь, что понимаешь правльно, а на деле..

**Eugenio** » 14.01.2005 (Пт) 12:23

Слушайте, не могу просто так это бросить. Прогу сдал без этих собственных форматов клипборда. Но,
может, хоть попытается кто объяснить, что же происходит:
Данные помещаются в буфер путем передачи строки Byval, с указанием её длины. В последнем примере длина=182.

Код: Выделить всё: EmptyClipboard hGlobal = GlobalAlloc(GMEM_MOVEABLE Or GMEM_DDESHARE, Len(StrData)) lpString = GlobalLock(hGlobal) CopyMemory lpString, ByVal StrData, Len(StrData) GlobalUnlock hGlobal SetClipboardData CF_FORMAT, hGlobal CloseClipboard GlobalFree hGlobal

Затем когда содержимое буфера считывается - его длина в байтах равна 1/2 от прежней длины, а то и меньше. И байты, из которых он состоит - это бред какой-то, к прежним они отношения не имеют. Что это за черт?

Клюк с зарегистрированными форматами или глюк в приведенном коде? Окиньте это "свежим" взглядом

**Konst_One** » 14.01.2005 (Пт) 12:54

может у тебя проблема в самих данных?

**GSerg** » 14.01.2005 (Пт) 13:46

Чё тут окидывать.

hGlobal = GlobalAlloc(GMEM_MOVEABLE Or GMEM_DDESHARE, Len(StrData)*2)
lpString = GlobalLock(hGlobal)
CopyMemory byval lpString, ByVal strptr(StrData), Len(StrData)*2
GlobalUnlock hGlobal

**Eugenio** » 14.01.2005 (Пт) 13:49

GSerg писал(а):Чё тут окидывать.

hGlobal = GlobalAlloc(GMEM_MOVEABLE Or GMEM_DDESHARE, Len(StrData)*2)
lpString = GlobalLock(hGlobal)
CopyMemory byval lpString, ByVal strptr(StrData), Len(StrData)*2
GlobalUnlock hGlobal

т.е.

Код: Выделить всё: Len(StrData)*2=LenB(StrData)

?
пробовал я это уже.
Результат=The same shit

**Eugenio** » 14.01.2005 (Пт) 13:50

Konst_One писал(а):может у тебя проблема в самих данных?

Я вот и задаю себе вопрос, что у меня туда попадает?

**GSerg** » 14.01.2005 (Пт) 13:53

Слюшай....
Раз у тебя данные строковые, ну не страдай фигнёй, юзай объект clipboard

**GSerg** » 14.01.2005 (Пт) 13:56

Eugenio писал(а):
Konst_One писал(а):может у тебя проблема в самих данных?

Я вот и задаю себе вопрос, что у меня туда попадает?

Туда попадает твоя строка...
Вопрос в том, как ты потом её читаешь.

**Eugenio** » 14.01.2005 (Пт) 14:10

GSerg писал(а):Туда попадает твоя строка...
Вопрос в том, как ты потом её читаешь.

Гляньте еще на код, достающий данные, я в нем уже ничего не могу подозрительного найти

. lstrlen возвращает не "половинную" длину данных в буфере, а столько сколько их там есть - используется её ANSI версия (я ради интересу вызвал unicode-версию - длина стала еще вполовину меньше, т.е. в четверть от начальной

). Это данных почему-то в половину меньше.

Код: Выделить всё: OpenClipboard ByVal 0 hStrPtr = GetClipboardData(CF_FORMAT) lpString = GlobalLock(hStrPtr) If lpString <> 0 Then lLength = lstrlen(lpString) If lLength > 0 Then sBuffer = Space$(lLength) CopyMemory StrPtr(sBuffer), lpString, lLength End If End If

Главное, данные нечитаемые.

**Eugenio** » 14.01.2005 (Пт) 14:14

GSerg писал(а):Слюшай....
Раз у тебя данные строковые, ну не страдай фигнёй, юзай объект clipboard

кто меня тут вопрошал "Ты программер или кто?"

.
Прога уже сдана (я ж говорил) - с объектом clipboard и строковыми данными

- и без некоторых удобств для юзера, соответственно

**GSerg** » 14.01.2005 (Пт) 14:15

Чел...
У тебя есть vbnullchar в строке?

**Eugenio** » 14.01.2005 (Пт) 14:18

Это же BStr, там и так 0 в конце. Или нет?
в середину - нет

**GSerg** » 14.01.2005 (Пт) 14:19

Я не спрашиваю, что там в конце. Я спрашиваю, что там в середине

**Eugenio** » 14.01.2005 (Пт) 14:22

GSerg писал(а):Я не спрашиваю, что там в конце. Я спрашиваю, что там в середине

Я как раз и подумал - не про середину ли ты

нету там ничего

**GSerg** » 14.01.2005 (Пт) 14:24

Как copymemory объявил?

**Eugenio** » 14.01.2005 (Пт) 14:27

GSerg писал(а):Как copymemory объявил?

типа, конечно.

Код: Выделить всё: Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ (ByVal Destination As Long, Source As Any, ByVal Length As Long)

**GSerg** » 14.01.2005 (Пт) 14:33

Собственно, я и не сомневался...

CopyMemory StrPtr(sBuffer), byval lpString, lLength

**Eugenio** » 14.01.2005 (Пт) 14:56

черт, там вот чего не хватало:

Код: Выделить всё: sBuffer = StrConv(sBuffer, vbUnicode)

и вот из-за этого я вам мозги компостировал..

GSerg, у меня мегапробел, я не понял:
что дает ByVal при вызове, если функция декларирована с ByVal?
инвертирует что-ли всё?

**GSerg** » 14.01.2005 (Пт) 14:58

Нет.
У тебя нет Byval на втором аргументе. Поэтому при чтении туда передаётся не указатель, а указатель на указатель.

**Eugenio** » 14.01.2005 (Пт) 15:05

GSerg писал(а):Нет.
У тебя нет Byval на втором аргументе. Поэтому при чтении туда передаётся не указатель, а указатель на указатель.

Слава тебе, форум.
Прикол: как только ты запросил объявление функции, оно мне не понравилось - я по-быстрому вставил ByVal, а до этого - как не видел..

(вот и спрашивал, зачем ByVal+ByVal)
А потом и про StrConv сообразил.

СПАСИБО! ПОЙДУ НА БАЛКОН, КРИКНУ "СЛАВА GSERG!"
Ох, и надоело собственное головотяпство :lol:

**Konst_One** » 14.01.2005 (Пт) 15:11

на счет Unicode я тебе сказал еще 2-е страницы назад

**Eugenio** » 14.01.2005 (Пт) 15:11

Хай живе регистрированнi форматi! :lol:

**Eugenio** » 14.01.2005 (Пт) 15:13

Konst_One писал(а):на счет Unicode я тебе сказал еще 2-е страницы назад

Я тогда же и ответил. Ты мне предлагал строку в ANSI ковертить перед вставкой (да еще проверять на Unicode) - а строки в VB и так в Unicode и автоматом пребразовываются при передаче в API-функции.

**GSerg** » 14.01.2005 (Пт) 15:15

А то, что показывал я, сохраняет вообще без конвертации...

**Eugenio** » 14.01.2005 (Пт) 15:19

GSerg писал(а):А то, что показывал я, сохраняет вообще без конвертации...

Не соображу, это что было?

**GSerg** » 14.01.2005 (Пт) 15:23

http://bbs.vbstreets.ru/viewtopic.php?p=85691#85691

**Eugenio** » 14.01.2005 (Пт) 15:30

а-а.
Ну, я с LenB поюзал вариант.
Главная-то моя проблема с моим непревзойденным искусством писать Declare и потом их юзать через ж :lol:

**GSerg** » 14.01.2005 (Пт) 15:34

Умение приходит со времением

Потом будешь вообще все параметры объявлять byref as any. Максимальная гибкость при вызове

**Eugenio** » 14.01.2005 (Пт) 15:55

А что, я уже пробовал, когда работы не мог добиться..
уже не помню от какой API-шки

Это тоже не помогло, потому что дело было в версии, а не аргументах

**Eugenio** » 14.01.2005 (Пт) 16:13

Да! Еще вопрос хочется задать.
Примеры из МСДН с использованием CopyMemory для копирования из строки в массива упорно не работают,
причем, независимо от типа аргументов при объявлении CopyMemory

Я чего-то не догоняю, видно, опять.. Хотелось бы понять.
Вот пример:

Код: Выделить всё: sBSTR = "How do you do?" cBytes = LenB(sBSTR) ' ReDim array, with space for terminating null ReDim b(1 To cBytes + 2) As Byte ' Point to BSTR char array lpwsz = StrPtr(sBSTR) ' Copy the array CopyMemory b(1), ByVal lpwsz, cBytes + 2 ' Point lpsz to new array lpwsz = VarPtr(b(1))

Конференция VBStreets

SetClipboardData

Кто сейчас на конференции