Discussion :

[adloufi]

Je veux insérer une image dans mon tp mais je n'arrive pas.
J'ai bien téléchargé les unités vbe..
Mais pas de résultat.

[Alcatîz]

Bonjour,

Parles-tu bien des unités Vbe2 réalisées par Eric Sigoillot (Hdd34) ?
http://pascail.developpez.com/utilitaires/

Peux-tu poster le code qui ne fonctionne pas ?

[adloufi]

oui c'est de ses uniter que je parle

[Alcatîz]

O.K. mais sans un peu de code, comment t'aider ?

[adloufi]

pour ces unite commen vbe les unite string ..monque danc j'ai n'est pas put meme pas les utiliser
don csi il ya un code d'inserer une image son ses unit je serait reconaison

[M.Dlb]

Wow ! Pourrais-tu s'il te plait faire un effort d'orthographe ?

Concernant le code source, il faut fouiller l'unité. Connaissant Hdd34, il a suffisamment commenté son code et donné des noms explicites à ses fonctions

[adloufi]

J'ai trouvé ce code dans une autre discussion mais l'image s'affiche mal et
je n'ai pas pu corriger l'erreur

[Alcatîz]

La procédure fonctionne si l'on enlève le code suivant de la boucle :

Code :

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

1
2
      for v := 3 downto (InfoHeader.biWidth mod 4) do
        BlockRead(bmp,Pixel,SizeOf(Pixel));

[adloufi]

je ne suis pas fort dans l'utilisation des unité donc si tu peux transformer cette unité en un simple programme je serait reconnaissan

[Alcatîz]

Il suffit de créer un programme, de déclarer l'unité ShowBmp dans la clause Uses et d'appeler la procédure pbmp.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program TestBmp;
 
Uses CRT, Graph, ShowBmp;
 
Var Mode, Pilote : Integer;
 
Begin
  Mode := Detect;
  Pilote := 0;
  InitGraph(Mode,Pilote,'C:\TP7\BGI');
  pbmp('C:\Temp\Exemple.bmp',5,5);   {Affiche l'image aux coordonnées (5,5)}
  repeat until KeyPressed;
  CloseGraph;
End.

[adloufi]

Une mauvaise image s'affiche, je ne peux méme pas distinguer ce que c'est
et, en plus, elle s'affiche et le programme arrête de s'exécuter.

[Alcatîz]

Est-ce bien une bitmap Windows 256 couleurs ? Car la procédure n'est prévue que pour ce format d'image. En tout cas, chez moi ça marche.

[droggo]

Hia,

Est-ce bien une bitmap Windows 256 couleurs ? Car la procédure n'est prévue que pour ce format d'image. En tout cas, chez moi ça marche.

Je ne crois pas, si j'en crois le titre du sujet : [TP] Insérer une image jpg

[adloufi]

c'est tu peut envoi ton units 'showbmp" pour que je l'utilise directement si possible

[Alcatîz]

Je ne crois pas, si j'en crois le titre du sujet : [TP] Insérer une image jpg

Sa procédure s'appelle bien ShowBmp et lit le format bitmap

c'est tu peut envoi ton units 'showbmp" pour que je l'utilise directement si possible

... mais c'est la tienne !
(dont il faut enlever la boucle notée plus haut).

Si tu essayes d'afficher un fichier jpg avec ça, je comprends que ça ne donne pas le résultat escompté...

[adloufi]

c'est toujour avec le bmp j'ailaisser tomber le jpg pour plus tard