Bonjour,
Je suis en WD20 J'ai une application qui prend des photos à partir d'un téléphone mobile et les remonte sur un site internet. Entre ces deux étapes je voudrais 'retailler' l'image pour limiter le volume du fichier.
La prise de photo ne pose pas de souci : VidéoCapture(ca_Photo, LC_Chemin, viCaptureImage)
Je charge ensuite le fichier obtenu dans un objet Image, j'effectue un DCopie et j'enregistre le résultat LO_Image = dChargeImage(LC_Image) SI ErreurDétectée ALORS Info(ErreurInfo(errMessage)) FIN x = dCopie(LO_Image, LO_Copie, 0, 0,LN_LargeurInitiale, LN_HauteurInitiale,0, 0, LN_HauteurSite, LN_LargeurSite) SI ErreurDétectée ALORS Info(ErreurInfo(errMessage)) FIN x = dSauveImageJPEG(LO_Copie, LC_Image2, 60) SI ErreurDétectée ALORS Info(ErreurInfo(errMessage)) FIN
Le boolean x est faux dès le dCopie. Par contre jamais je n'entre dans le test Si ErreurDetectee. Si quelqu'un a une idée je suis preneur Une seconde question : peut-on forcer le format de l'image à JPEG ? A lire la documentation je comprends que c'est le système d'exploitation qui le définit. Merci d'avance |