ImageEx & MAV

[gromov]

Есть таблица. Структура: кой-какая инфа и картинка. Инфа, ясное дело показывается в 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 прога тихо сваливается.

[seawolf]

Не знаю как в ImageEx но если изображение в blob, то вставить в ?Image можно одной строкой текста ?Image{prop:imageblob} = Blob{prop:handle}.

[Andrew™]

а какая декларация memcpy ?

в твоём случае дожна быть:

Код: Выделить всё

memcpy(UNSIGNED,UNSIGNED,UNSIGNED),UNSIGNED,RAW,PROC,NAME('_memcpy')

[gromov]

Спасибо, Андрей.
Теперь имею "программа выполнила недопустимую операцию".

[gromov]

"Программа выполнила недопустимую операцию" это действительно лучше, чем ничего. Все получилось.
Андрей, еще раз спасибо.