| Вопрос: ADO Stream | Добавлено: 18.05.07 15:57 |
Автор вопроса:  LamerOnLine | ICQ: 334781088 |
|
Тупая проблема. Мне нужно передать в VB бинарные данные через Stream. Но при попытке записи бинарщины в Stream возникает исключение. Если писать текст - все ОК. Где-то я ошибся, но не пойму где. Код:
STDMETHODIMP Becrypt::GetKeyInfo(_Stream ** Key)
{ // TODO: Add your implementation code here char RetBuffer[80]; int BufferLen = 80; try { _StreamPtr OutStream(__uuidof(Stream)); OutStream->Open(vtMissing, adModeUnknown, adOpenStreamUnspecified, "", ""); OutStream->put_Type(adTypeBinary); cr_get_version_info((char*)RetBuffer, &BufferLen); _variant_t vData((const char *)RetBuffer); OutStream->Write(vData); *Key = OutStream.Detach(); } catch(...) { *Key = NULL; } return S_OK; } |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #1 | Добавлено: 18.05.07 23:16 |
| Исключение какое? Попытка убить RetBuffer? | ||
|
Номер ответа: 2 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 21.05.07 12:37 |
|
Да нет, по теме, при попытке записи в Stream.
Ладно, пошел пытаться записать в него через IStream. Обидно что в VB все работает. Видимо методы конвертации к варианту разные 
|
||
|
Номер ответа: 3 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #3 | Добавлено: 21.05.07 15:01 |
|
Ну да ладно, сделал через IStream. Придется снять вопрос
|
||
Страница: 1 |