"Syntex error" avec un function :(

[celtic88]

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

yeah, oky thannk for your suggiration but :

mon anglais est pire que mon français alor j ai choisi le moins pire !

[nico]

J'ai testé ce code et il fonctionne, il faut penser a tester les retours des fonctions.

Code : Tout sélectionner

Structure Resourceinfo
  *Bufferfile
  Filesize.l
EndStructure

Procedure.l _GetResource(hGetModuleHandle,*Resinfo.Resourceinfo,ResName.s)
  Protected FindRs.i
  Protected LoadRs.i
  
  FindRs=FindResource_(hGetModuleHandle,ResName,10)
  If FindRs = 0
    ProcedureReturn -1
  EndIf
  
  *Resinfo\Filesize=SizeofResource_(hGetModuleHandle,FindRs)
  If *Resinfo\Filesize = 0
    ProcedureReturn -2
  EndIf
  
  LoadRs=LoadResource_(hGetModuleHandle,FindRs)
  If LoadRs = 0
    ProcedureReturn -3
  EndIf
  
  *Resinfo\Bufferfile=LockResource_(LoadRs)
  If *Resinfo\Bufferfile = 0
    ProcedureReturn -4
  EndIf
  
  ProcedureReturn 1
EndProcedure

Define.i GetModuleHandle=GetModuleHandle_(0)
Define.Resourceinfo MasuperImage
Define.l Ret = 0
Define.i Opf

Ret = _GetResource(GetModuleHandle,@MasuperImage,"IMAGEBIN")
If Ret > 0
  Opf=OpenFile(#PB_Any,"C:\Users\Nico\Pictures\MasuperImage.gif")
  If Opf
    WriteData(Opf,MasuperImage\Bufferfile,MasuperImage\Filesize)
    CloseFile(Opf)
    Ret = 1
  Else
    MessageRequester("Error", "Impossible d'ouvrir ou de créer le fichier!")
  EndIf
Else 
  MessageRequester("Error code", Str(Ret))
EndIf

[celtic88]

@Spock ,lol ,oui ta raison peut etre qu il faut me ecrire l explication en plusieur langue pour puis je comprendre , est desoler pour mais queistion un peut bete ,,,,,,

[celtic88]

ohhh, nico tes fooor merci pour l aide

[celtic88]

et pour la gestion des error on utilise

Code : Tout sélectionner

GetLastError_()

https://msdn.microsoft.com/en-us/librar ... s.85).aspx

[falsam]

wa333, please any help !

ça m'intrique !! Qui est wa333 ?