поле объекта OLE

Раздел посвящен программированию с использованием Power Basic.
Димитрий
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 26.01.2005 (Ср) 22:47
Откуда: Волгоград

поле объекта OLE

Сообщение Димитрий » 13.11.2012 (Вт) 13:06

Голову сломал. :cyclops:

В базе .mdb в поле объекта OLE находяться файлы картинок jpg. Необходимо сохранить отдельно на диск. В VB6 всё прозрачно:
Код: Выделить всё
Dim bytB() As Byte
Set rs = CreateObject("ADODB.Recordset")
rs.Open strSQL, strConn, 1, 1
Open strFullFileName For Binary Access Write As #1
       bytB = rs.Fields("Image").Value
       Put #1, , bytB
Close

В PB ни как не могу получить байтовый массив:
Код: Выделить всё
pRec.Open "SELECT * FROM ImgTab ", pCon, %adOpenKeyset, %adLockOptimistic, %adCmdText
DIM pRev AS VARIANT
DIM bytB() AS BYTE
OPEN strTempFile FOR BINARY ACCESS WRITE AS #1
        pRev = pRec.Collect("Image")
        pRev -> bytB()------------------------?
        PUT #1, , bytB
CLOSE #1

Прошу помощи :)

Димитрий
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 26.01.2005 (Ср) 22:47
Откуда: Волгоград

Re: поле объекта OLE

Сообщение Димитрий » 14.11.2012 (Ср) 8:44

Как всегда всё просто :D
http://www.jose.it-berater.org/smfforum/index.php?PHPSESSID=cbc0282d76362d8aa5f897f1325caa96&topic=4235.msg14742#msg14742
ссылка на пример извлечения bitmap из поля объекта OLE.
Не много урезал, поскольку у меня в поле двоичные данные.


Вернуться в Power Basic

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

    TopList