[TP] Affichage d'une image

Version imprimable

07/05/2007, 18h06
khabith2006

[TP] Affichage d'une image

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

Bonjour et bienvenue !

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

Code:

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.

;)

07/05/2007, 23h22
khabith2006

image

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
13/05/2007, 09h18
Alcatîz

Les unités Vbe2 et Vbe2Ext d'Eric Sigoillot peuvent t'intéresser :

http://pascail.developpez.com/utilitaires/?unite=vbe2
http://pascail.developpez.com/utilit...?unite=vbe2ext
14/05/2007, 20h53
mario52

bonjour

merci mais Vbe2Ext ne compile pas , il manque "JpegDApi.tpu"

:salut:
14/05/2007, 21h17
Alcatîz

Mince, en effet, et Eric Sigoillot n'est plus là pour la fournir. :(

Ca compile si l'on supprime la directive

Code:

{$DEFINE JPEG}

mais le format JPEG n'est pas supporté.
16/05/2007, 21h01
mario52

Bonjour

OK ça fonctionne , merci

mais en attendant je vais continuer de travailler sur le mien (uniquement BMP)
qui peut afficher aussi sur écran Hercules, l'ancien NB bien sûr :D

:salut: