Есть таблица. Структура: кой-какая инфа и картинка. Инфа, ясное дело показывается в 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
Модератор: Andrew™
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion и MAV который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion и MAV который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Re: ImageEx & MAV
Не знаю как в ImageEx но если изображение в blob, то вставить в ?Image можно одной строкой текста ?Image{prop:imageblob} = Blob{prop:handle}.
Re: ImageEx & MAV
а какая декларация memcpy ?
в твоём случае дожна быть:
в твоём случае дожна быть:
Код: Выделить всё
memcpy(UNSIGNED,UNSIGNED,UNSIGNED),UNSIGNED,RAW,PROC,NAME('_memcpy')