Discussion :

[khabith2006]

Salut à tous
J’ai voulu insérer en mode graphique une image Bitmap en utilisant la procédure putimage dont la syntaxe est la suivante putimage(x, y, var pitmap, bitblt)
Il parait que le troisième paramètre qui est sans type qui devrait avoir l'image à afficher, bon je n'ai pas su comment le faire y a t-il quelqu’un qui pourra m'aider et je serrais très reconnaissant.
Merci

[Alcatîz]

Bonjour et bienvenue !

Un exemple se trouve dans l'aide en ligne de Turbo Pascal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses Graph;
 
var
  Gd, Gm: Integer;
  P: Pointer;
  Size: Word;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  Bar(0, 0, GetMaxX, GetMaxY);
  Size := ImageSize(10, 20, 30, 40);
  GetMem(P, Size);   { Allocate memory on heap }
  GetImage(10, 20, 30, 40, P^);
  Readln;
  ClearDevice;
  PutImage(100, 100, P^, NormalPut);
  Readln;
  CloseGraph;
end.

[khabith2006]

Salut
L'exemple de l'aide de pascal n'affiche pas une image à partir d'un fichier image mais plutôt en captant une une zonne écran à l'aide de la procédure getimage, pour mon probleme je veux afficher une image enregistré sur mon disque sous le format bmp ou jpg ou autre.
merci