"Syntex error" avec un function :(

[celtic88]

Slt tout le monde



quelqu'un peut me dir pourquoi je reçois cette error : "Syntex error"

Code : Tout sélectionner

Structure Resourceinfo
  *Bufferfile
  Filesize.i
EndStructure


Define Superimage.Resourceinfo

Procedure _GetResource(hGetModuleHandle,Resinfo.Resourceinfo,ResName.s)
  Protected FindRs=FindResource_(hGetModuleHandle,ResName,10)
  Resinfo\Filesize=SizeofResource_(hGetModuleHandle,FindRs)
  Protected LoadRs=LoadResource_(hGetModuleHandle,FindRs)
  *Resinfo\Bufferfile=LockResource_(LoadRs)
EndProcedure

[falsam]

Bonjour et bienvenu Celtic.

de cette maniere peut être ?

Code : Tout sélectionner

Structure Resourceinfo
  *Bufferfile
  Filesize.i
EndStructure


Define Superimage.Resourceinfo

Procedure _GetResource(hGetModuleHandle, *Resinfo.Resourceinfo,ResName.s)
  Protected FindRs=FindResource_(hGetModuleHandle,ResName,10)
  *Resinfo\Filesize=SizeofResource_(hGetModuleHandle,FindRs)
  Protected LoadRs=LoadResource_(hGetModuleHandle,FindRs)
  *Resinfo\Bufferfile=LockResource_(LoadRs)
EndProcedure

Tuto sur les structures dans lequel il est indiqué comment passer une structure dans une procédure.

[nico]

Oui, tu ne peux pas mettre de variable structurée dans les fonctions, il faut que ce soit des pointeurs, d'où la modification de Falsam: Resinfo.Resourceinfo par *Resinfo.Resourceinfo.

Donc il faudra pour ce paramètre de la fonction passer une adresse.

[celtic88]

et ca marche , merci bcp pour ton aide comme tu vois je suis debutant dans cette merrveilleux langage je tien a féliciter son createur <3

[celtic88]

je vais utiliser ce code comme ça esque j ai pas tort

Code : Tout sélectionner

Structure Resourceinfo
  *Bufferfile
  Filesize.i
EndStructure

Define MasuperImage.Resourceinfo

Procedure _GetResource(hGetModuleHandle,*Resinfo.Resourceinfo,ResName.s)
  Protected FindRs=FindResource_(hGetModuleHandle,ResName,10)
  *Resinfo\Filesize=SizeofResource_(hGetModuleHandle,FindRs)
  Protected LoadRs=LoadResource_(hGetModuleHandle,FindRs)
  *Resinfo\Bufferfile=LockResource_(LoadRs)
EndProcedure

Define GetModuleHandle=GetModuleHandle_(0)
_GetResource(GetModuleHandle,MasuperImage,"IMAGEBIN")

Define Opf=OpenFile(#PB_Any,"MasuperImage.jpg")
WriteData(Opf,*MasuperImage\Bufferfile,MasuperImage\Filesize)
CloseFile(Opf)

[falsam]

e vais utiliser ce code comme ça esque j ai pas tort

je ne connais pas ton code complet. Mais je pense tu as tord.

Au moins une raison :

Code : Tout sélectionner

WriteData(Opf, *MasuperImage\Bufferfile,MasuperImage\Filesize)

Comment tu initialises MasuperImage\Filesize ?

[celtic88]

e vais utiliser ce code comme ça esque j ai pas tort

je ne connais pas ton code complet. Mais je pense tu as tord.

Au moins une raison :

Code : Tout sélectionner

WriteData(Opf, *MasuperImage\Bufferfile,MasuperImage\Filesize)

Comment tu initialises MasuperImage\Filesize ?

ollla ,,,,je suis un peu perdue la! ase ta un documentation pour cela ? est désolée pour mon francais

[celtic88]

wa333, please any help !

[celtic88]

@falsam merci l amie pour ton aide j ai trouve la solution en re lisant "Pointeurs et accès mémoire" ,,,en fait il faux passer l adresse de la variable structureriser a la function

Structure Resourceinfo
*Bufferfile
Filesize.i
EndStructure

Define MasuperImage.Resourceinfo

Procedure _GetResource(hGetModuleHandle,*Resinfo.Resourceinfo,ResName.s)
Protected FindRs=FindResource_(hGetModuleHandle,ResName,10)
*Resinfo\Filesize=SizeofResource_(hGetModuleHandle,FindRs)
Protected LoadRs=LoadResource_(hGetModuleHandle,FindRs)
*Resinfo\Bufferfile=LockResource_(LoadRs)
EndProcedure

Define GetModuleHandle=GetModuleHandle_(0)
_GetResource(GetModuleHandle,@MasuperImage,"IMAGEBIN")

Define Opf=OpenFile(#PB_Any,"MasuperImage.jpg")
WriteData(Opf,MasuperImage\Bufferfile,MasuperImage\Filesize)
CloseFile(Opf)

[celtic88]

mai la "MasuperImage\Bufferfile" est variable type point pour quoi on ne peut pas ajouter l "*" en tete ,,,aa

[celtic88]

en meme temps, si la structure ne sert qu'a cette procedure
autant l'inclure dedans

Code : Tout sélectionner

Procedure _GetResource(hGetModuleHandle,ResName.s)
	Structure Resourceinfo
		Bufferfile.i
		Filesize.i
	EndStructure
	Resinfo.Resourceinfo
	Protected FindRs
	Protected LoadRs
	FindRs=FindResource_(hGetModuleHandle,ResName,10)
	Resinfo\Filesize.i=SizeofResource_(hGetModuleHandle,FindRs)
	LoadRs=LoadResource_(hGetModuleHandle,FindRs)
	Resinfo\Bufferfile=LockResource_(LoadRs)
EndProcedure

; 

; Epb

est comment puis je savoirs le point et le size de mon resource pour l utiliser apres?

[falsam]

@celtic88: Where do you come from ?

[celtic88]

est comment puis je savoirs le point et le size de mon resource pour l utiliser apres?

SHARED !!

Code : Tout sélectionner

Procedure _GetResource(hGetModuleHandle,ResName.s)

   Structure Resourceinfo
      Bufferfile.i
      Filesize.i
   EndStructure
   Shared Resinfo.Resourceinfo
   Protected FindRs
   Protected LoadRs
   FindRs=FindResource_(hGetModuleHandle,ResName,10)
   Resinfo\Filesize.i=SizeofResource_(hGetModuleHandle,FindRs)
   LoadRs=LoadResource_(hGetModuleHandle,FindRs)
   Resinfo\Bufferfile=LockResource_(LoadRs)
   
   ; je vais mettre une valeur bidon dans la structure , histoire de montrer que ça transmet bien dehors de la procedure grace a Shared
   Resinfo\Filesize.i=888
  
EndProcedure


; appel de la procedure
 _GetResource(88,"toto")
 
 debug "ho miracle .... ça marche !!  la valeur est" + str(Resinfo\Filesize.i)

calldebugger

ah tree bien !mai c est pas l ideal sa, imagine ci je veut obtenir plusieurs fichiers par ex:

Structure Resourceinfo
*Bufferfile
Filesize.i
EndStructure

Define MasuperImage.Resourceinfo
Define MasuperImageTow.Resourceinfo
Define MasuperImageTre.Resourceinfo

Procedure _GetResource(hGetModuleHandle,*Resinfo.Resourceinfo,ResName.s)
Protected FindRs=FindResource_(hGetModuleHandle,ResName,10)
*Resinfo\Filesize=SizeofResource_(hGetModuleHandle,FindRs)
Protected LoadRs=LoadResource_(hGetModuleHandle,FindRs)
*Resinfo\Bufferfile=LockResource_(LoadRs)
EndProcedure

Define GetModuleHandle=GetModuleHandle_(0)
_GetResource(GetModuleHandle,@MasuperImage,"IMAGEBIN")
Define GetModuleHandle=GetModuleHandle_(0)
_GetResource(GetModuleHandle,@MasuperImageTow,"IMAGEBIN2")
Define GetModuleHandle=GetModuleHandle_(0)
_GetResource(GetModuleHandle,@MasuperImageTre,"IMAGEBIN3")

Define Opf=OpenFile(#PB_Any,"MasuperImage.jpg")
WriteData(Opf,MasuperImage\Bufferfile,MasuperImage\Filesize)
CloseFile(Opf)

;;;;;

[celtic88]

@celtic88: Where do you come from ?

algeria

[falsam]

algeria

Ok merci

please any help !

est désolée pour mon francais

If you prefer to speak English, there is a forum in English.
http://www.purebasic.fr/english/index.php