WDForge.org - Forums

Re: LoadPicture avec un Activex (AddFlow, PolarDraw...)

Sujet: Re: LoadPicture avec un Activex (AddFlow, PolarDraw...)
par Aurelia sur 18/12/2006 16:54:51

Bonjour,

Merci pour la réponse. Ce dont j'ai vraiment besoin c'est l'équivalent Windev de LoadPicture de VB.
Quel que soit l'activex, on retrouve tout le temps cette fonction. J'ai trouvé une traduction de cette fonction ( reproduite ci-dessous) dans ce forum mais elle n'a pas fonctionné.

Merci pour votre aide!

A+
Aurélia

////////////////////////////////////////////////////
PROCEDURE LoadPicture(strFileName est une chaîne)

TGUID est une structure
Data1 est un entier sur 4 octets
Data2 est un entier sur 2 octets
Data3 est un entier sur 2 octets
Data4 est un tableau fixe de 8 entiers sur 1 octets
FIN

szURLorPath est une chaîne
punkCaller est un entier sur 4 octets
dwReserved est un entier sur 4 octets
clrReserved est un entier sur 4 octets
oPicture est un objet Automation dynamique
IID est un TGUID

szURLorPath = 0
punkCaller = 0
dwReserved = 0

oPicture = Null
IID:Data1 = 2079852928
IID:Data2 = 48946
IID:Data3 = 4122
IID:Data4[1] = 139
IID:Data4[2] = 187
IID:Data4[3] = 0
IID:Data4[4] = 170
IID:Data4[5] = 0
IID:Data4[6] = 48
IID:Data4[7] = 12
IID:Data4[8] = 171

szURLorPath = strFileName+Caract(0)
API("oleaut32.dll","OleLoadPicturePath",szURLorPath , punkCaller , dwReserved , &clrReserved , &IID , &oPicture )
RENVOYER oPicture