1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
nMyStream est un entier système = Null
nEvfImage est un entier système = Null
nMyData est un entier sur 1 octet
nMyHandle est un entier système = Handle(FEN_test.IMG_LIVE)
nMyPicture est un entier = dDébutDessin(FEN_test.IMG_LIVE)
Temporisation(200,tempoTimer)
RetAPI = API(DllName,"EdsCreateMemoryStream", 0, &nMyStream)
Trace("MemoryStream "+RetAPI)
RetAPI = API(DllName,"EdsCreateEvfImageRef", nMyStream, &nEvfImage)
Trace("CeateEVF "+RetAPI)
RetAPI = API(DllName,"EdsDownloadEvfImage", cameraRef, nEvfImage)
Trace("Down "+RetAPI)
RetAPI = API(DllName,"EdsGetPointer", nMyStream, &nMyData)
Trace("GetPointer "+RetAPI)
Trace(nMyStream+"//"+nMyData)
RetAPI = API(DllName,"EdsGetPropertyData", nEvfImage,kEdsPropID_Evf_CoordinateSystem,0,Dimension(EVFSize), &EVFSize)
Trace("GetData "+RetAPI)
Trace("height "+EVFSize:height+" width "+EVFSize:width)
FEN_test.IMG_LIVE..Largeur = EVFSize:width
FEN_test.IMG_LIVE..Hauteur = EVFSize:height
dFinDessin(FEN_test.IMG_LIVE)
Trace(AppelDLL32("gdi32","BitBlt" , nMyPicture , 0 , 0 , EVFSize:width , EVFSize:height, nMyHandle , 0 , 0 , 0x00CC0020))
Trace(AppelDLL32("user32","ReleaseDC",nMyPicture,nMyHandle)) |
Partager