Есть таблица. Структура: кой-какая инфа и картинка. Инфа, ясное дело показывается в Browse, а картинка рядом.
Делаю это так:
IF Images.Photo
loc_File.loc_Blob &= (Images.Photo)
ELSE
loc_File.loc_Blob &= DbFiles.GetBlob(Images.Photo)
Images.Photo = MAVANYADDRESS(loc_File.loc_Blob)
END
IF loc_File.loc_Blob.Pos
DO SaveFile
if TheBitmap.LoadFromFile(Loc:SaveFilename)
ImageExViewer1.Bitmap.Assign(TheBitmap)
ImageExViewer1.ZoomToFit()
end
END
то есть через файл. Если файл небольшой, то терпимо, а если за сотку КБ, то тормоза.
Хотел сделать через ImageExBitmapClass.SaveToMemory и что-то не получается.Происходит это так.
ImgSize = loc_File.loc_Blob.Pos
ImgHandle = GlobalAlloc(0,ImgSize)
IF ImgHandle
ImgAddress = MAVANYADDRESS(loc_File.loc_Blob)
memcpy(ImgHandle,ImgAddress,ImgSize)
END
и на memcpy прога тихо сваливается.
ImageEx & MAV
Обсуждение MAV Direct ODBC
Модератор: Andrew™
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion и MAV который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion и MAV который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
gromov
Re: ImageEx & MAV
Не знаю как в ImageEx но если изображение в blob, то вставить в ?Image можно одной строкой текста ?Image{prop:imageblob} = Blob{prop:handle}.
seawolf
Re: ImageEx & MAV
а какая декларация memcpy ?
в твоём случае дожна быть:
в твоём случае дожна быть:
Код: Выделить всё
memcpy(UNSIGNED,UNSIGNED,UNSIGNED),UNSIGNED,RAW,PROC,NAME('_memcpy')
Andrew™
-
- Старожил
- Сообщения: 280
- Зарегистрирован: 11 Февраль 2009, 8:41
- Откуда: г. Анапа
- Поблагодарили: 3 раза
gromov
Перейти
- CW
- ↳ CLARION for Windows
- ↳ CLARION for Internet
- ↳ Clarion.NET
- Эксклюзив
- ↳ Приват
- CLARION и...
- ↳ Reports
- ↳ Железо
- ↳ Готовые программы, шаблоны, библиотеки...
- ↳ cJSON
- ↳ LibCurl
- ↳ MAV
- ↳ SQL, Oracle, ...
- ↳ Multi-программирование(Pascal/Delphi, и т.д.)
- ↳ WinDev
- DOS
- ↳ CLARION for DOS
- Разное
- ↳ Новости
- ↳ English
- ↳ Ресурсы
- ↳ Работа
- ↳ Обо всем ...
- ↳ Обсуждение этого Форума (типа, Гостевая книга)