Probleme déclaration fonction...

Version imprimable

Salut ;)

Bon j'ai honte de poser un sujet pour ca mais je m'en sort pas..

J'utilise une fonction ResizeJPG (utilisant un Tbitmap et des TJpegImage)

Or la compilation bloque sur la ligne:

Code:

procedure ResizeJpeg(srcJpeg, destJpeg: TJpegImage; const MaxSize: integer);

avec comme message :

[Error] Unit1.pas(42): Unsatisfied forward or external declaration: 'TForm1.ResizeJpeg'

J'ai pourtant bien mis Jpeg dans les uses :/

Merci beaucoup pour votre coup de main :D

Mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,shellapi, ExtCtrls, Buttons, Menus, FileCtrl, ShlObj,
  FonctionsChaine, ExtDlgs, jpeg;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    lbl_et3_specifiez: TLabel;
    OpenDialog1: TOpenDialog;
    cmd_et3_parcourir: TButton;
    lblet1_parcourir: TLabel;
    txt_et1_parcourir: TEdit;
    cmd_et1_parcourir: TButton;
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    Ouvriruneimage1: TMenuItem;
    Enregistrerlimageredimensionne1: TMenuItem;
    Fermerlimage1: TMenuItem;
    Quitter1: TMenuItem;
    Aide1: TMenuItem;
    lbl_et2_dim: TLabel;
    lbl_et2_logo: TLabel;
    radio_logo1: TRadioButton;
    radio_logo2: TRadioButton;
    list_et2_dim: TComboBox;
    Image2: TImage;
    Image3: TImage;
    Image5: TImage;
    SavePictureDialog1: TSavePictureDialog;
    Image4: TImage;
    procedure FormCreate(Sender: TObject);
    procedure TraiteMessage(var Msg: TMsg; var Handled: Boolean);
    procedure DessineIcone(NomDuFichier:string);
    procedure cmd_et3_parcourirClick(Sender: TObject);
    procedure cmd_et1_parcourirClick(Sender: TObject);
    procedure ResizeJpeg(srcJpeg, destJpeg: TJpegImage; const MaxSize: integer);
    function type_img_OK(NomDuFichierStr:string): boolean;

30/01/2006, 19h14
Pedro

Salut :D
ça ne vient pas des uses mais plutot de ton implementation ;) Donne-nous le code de l'implémentation de cette procédure :D

Salut ;)

Merci de ta réponse :)

Voici la procédure :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
procedure ResizeJpeg(srcJpeg, destJpeg: TJpegImage; const MaxSize: integer);
var 
  Bitmap: TBitmap; 
  Ratio: double; 
begin 
  {Si l'image est vide ou la largeur est nulle, sortir} 
  if (srcJpeg.Empty) or (MaxSize <= 0) then
    Exit;
 
    { Création d'un TBitmap le temps de redimensionner l'image }
    Bitmap := TBitmap.Create;
    try 
      { Détermination du cadrage Vertical ou horizontal} 
      Ratio := srcJpeg.Height / srcJpeg.Width; 
      if Ratio > 1 then 
        //Cadrage vertical
        Bitmap.Width := Round(MaxSize / Ratio)
      else
        //cadrage horizontal
        Bitmap.Width := MaxSize;
      Bitmap.Height := Round(Bitmap.Width * Ratio); 
      //Copie de l'image avec redimensionnement sur le canvas du TBitmap 
      Bitmap.Canvas.StretchDraw(Bitmap.Canvas.ClipRect, srcJpeg); 
      {Il ne reste plus qu'à copier l'image redimensionnée dan le Jpeg 
à retourner} 
      destJpeg.Assign(Bitmap); 
    finally 
      Bitmap.Free;                   //désallocation memoire
    end; 
end;

ps:Quand je fais Ctrl + clique sur JPEG (ca me fait normalement rentré dans le .pas de ce que je clique) il me dit:
Unable to locate jpeg.pas

Serais ce lié a mon erreur?

Bonne ap ;)

30/01/2006, 19h34
Pedro
Salut :D
C'est pas
Code:

1 2 procedure ResizeJpeg(srcJpeg, destJpeg: TJpegImage; const MaxSize: integer);
mais
Code:

1 2 procedure TForm1.ResizeJpeg(srcJpeg, destJpeg: TJpegImage; const MaxSize: integer);
Car tel que tu l'as déclaré, ResizeJpeg est un membre de TForm1 ;)
D'ailleurs, il faudrait que tu la mette dans une section (par exemple, public ou private) mais pas là où tu l'as mise ;)
Quand tu déclares une méthode comme ça, mets le curseur dessus et fait: Ctrl+Shift+C et Delphi fait tout pour toi ;)
30/01/2006, 19h50
bixi

Merci Enormément..

Je cherchait plus compliqué.. je ne m'y ferais pas prendre 2 fois :)

A bientot !
30/01/2006, 19h52
Pedro

Mais avec plaisir :D
N'oublie pas le chtit :resolu: ;)