problème après réinstallation[RESOLU]

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :

Message par Ar-S »

Supprime manuellement les clé dans le registre puis reinstalle au propre, y'a que ça dans certains cas.
Laulite
Messages : 26
Inscription : mer. 06/juin/2007 21:27
Contact :

Message par Laulite »

les exemples marchent impeccables. J'ai du modifier une librairie sans m'en rappeler, je vais chercher... En tout cas merci de votre aide..
Laulite
Messages : 26
Inscription : mer. 06/juin/2007 21:27
Contact :

Message par Laulite »

:) :) :)
Ca y est. J'ai isolé la librairie et les fonctions qui foutaient la zone. En fait, dans mon passage à la V4.10 beta2, j'ai du faire du ménage et enlever des initsprite() inutiles. Sauf qu'une fonction de mes librairies utilise un screenoutput(), et ça ne compile plus sous V4.02; Chose étonnante, ça compile sous V4.10... Voilà, voilà, et merci pour votre perspicacité,ça m'a permis de cerner l'erreur.
Voici le Code qui fout la zone, il ne compile pas sous V4.02 sans initsprite(), mais il compile sous V4.10 beta 2 sans initsprite()

Code : Tout sélectionner

Procedure TransfertEcranImage(NumImage.l,LargeurEcran.l,HauteurEcran.l)
 
  Protected ImageID.l
  Protected resultat.l
  resultat=0
  If IsImage(NumImage):FreeImage(NumImage):EndIf
  If CreateImage(NumImage,LargeurEcran,HauteurEcran)
    ImageID=ImageID(NumImage)
    If ImageID
      
      hdc=StartDrawing(ScreenOutput())
      If hdc
        bmp.BITMAP\bmWidth=LargeurEcran
        bmp\bmHeight=HauteurEcran
        bmp\bmPlanes=1
        bmp\bmBitsPixel=GetDeviceCaps_(hdc,#BITSPIXEL)
        bmp\bmBits=DrawingBuffer()
        bmp\bmWidthBytes=DrawingBufferPitch()
        hBmp=CreateBitmapIndirect_(bmp)
        StopDrawing()
        StartDrawing(ImageOutput(NumImage))
        DrawImage(hBmp,0,0)
        StopDrawing()
        DeleteObject_(hBmp)
        resultat=ImageID
      EndIf
    EndIf
  EndIf
  ProcedureReturn resultat
  
EndProcedure 
Répondre