Discussion :

[Dolnaise]

Salut

je voudrai inserer des jpeg dans un prog pascal et j'ai un petit problème, c'est que les info que je trouve c'est pour des prog en turbo pascal ou en C donc ca ne m'aide pas vraiment.
Donc si quelqu'un ici peut m'aider ce serait coolos

merci d'avance

[M.Dlb]

Quel compilateur utilises-tu ?

Il existe l'excellente unité de HDD34 : VBE2, disponible au téléchargement ici : http://hdd34.developpez.com

a+

[the_guitariste]

j'ai pu integrer des images bmp sous pascal (moi jutilise GPC) avec GRX, donc je met ici le code que j'ai pu créer, il marche parfaitement.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
program bmp;
 
uses GRX;
 
var BmpWidth, BmpHeight,fenetre : integer;
var grc,grcscreen,null2 : grcontextptr;
var null1 : MemPtr;
 
procedure Charger_Bmp(s : string);
    var f : file of byte;
    var color : array[1..4] of byte;
    var x,y,z : integer;
begin
    grcscreen:=grscreencontext;
    assign(f,s);
    reset(f);
    seek(f,18);
    read(f,color[1],color[2],color[3],color[4]);
    BmpWidth:=color[1]+color[2]*256+color[3]*65536+color[4]*16777216;
    z:=(BmpWidth mod 4);
    read(f,color[1],color[2],color[3],color[4]);
    BmpHeight:=color[1]+color[2]*256+color[3]*65536+color[4]*16777216;
    grc:=grcreatecontext(BmpWidth,BmpHeight,null1,null2);
    grsetcontext(grc);
    seek(f,54);
    for y:=BmpHeight downto 1 do begin
        for x:=1 to BmpWidth do begin
            read(f,color[1],color[2],color[3]);
            grplot(x,y,gralloccolor(color[3],color[2],color[1]));
        end;
        for x:=1 to z do read(f,color[4]);
    end;
    grsetcontext(grcscreen);
end;
 
procedure Afficher_Bmp(x0,y0 : integer);
begin
    grbitblt(grcscreen,x0,y0,grc,0,0,BmpWidth-1,BmpHeight-1,GrWRITE);
end;
 
begin
 
    fenetre:=grsetmode(24,800,600,32,0,0);
    Charger_Bmp('test.bmp');
    Afficher_Bmp(0,0);
    grkeyread;
 
end.

[M.Dlb]

C'est dingue, tu postes un code que tu as déjà posté 30 secondes plus tôt, et en plus tu réponds à coté car on demande des jpeg, pas des bmp...

[the_guitariste]

non attend, , si j'ai poster pour les bmp c'est que j'ai mes raisons. D'un coté pour les jpeg, il faut étudier la compression du fichier, chose que je ne sais pas faire, et aussi, si on veut intégrer une image, elle peut etre de n'importe quel format (desfois l'essentiel c'est qu'on y mette une image). je l'ai reposté car l'autre sujet portait sur l'integration d'une image et donc j'ai repondu au sujet ce qui l'a mis en résolu, sinon pour celui la c'est juste une sorte d'échapatoire et non une solution.

[Dolnaise]

Euh en fait pour le bmp on a trouver mais le prob c'est qu'on a besoin d'un rafraichessment de l'image et avec la methode d'affichage pixel par pixel c'est beaucoup trop long

pour ce qui est du compilateur on utilise gpc, en fait on a pas le choix

[M.Dlb]

L'algorithme pour le jpeg est unique, car c'est un algorithme extrêmement complexe, donc c'est inutile d'essayer de le décoder... Si on veut utiliser des jpeg, il faut soit utiliser une unité qui les gère (VBE2), soit implémenter l'algorithme donné.
Pour l'affichage des photos, comment veux-tu ne pas les afficher pixel par pixel ?? Y'a pas d'autre manière...

a+

[the_guitariste]

en ce qui concerne les bmp, avec le programme que j'ai pu faire, il affiche assez rapidement l'image, j'en avait fait un autre et c vrai que c'était encore plus long, par contre pour les jpeg il faut deja definir la compression du fichier et ainsi pouvoir afficher l'image, mais le soucis reste dans la compression du fichier, c'est assez complexe de la faire

(pour info, Dolnaise, j'utilise aussi le compilateur gpc car je n'ai pas vraiment le choix aussi, ils me l'ont imposés )

[charly]

Deja , si le probleme vien de la lenteur de rafraichissement de l'image alors la compression n'a rien a faire ladedans , elle ne changera rien .
Pour otpimisé le rafraichissement d'une image je conseil de dessiner dans une autre page virtuel et de basculer
C'est beaucoup plus efficace , pour plus d'"information , les cours de cyberzoïde aborde le sujet , sinon , l'unité VBE2 de Hdd34 simplifie encor ...
Bon courage

[Dolnaise]

On a trouvé une solution grosso modo comme la dernière proposition. Excepter quelques petits bug à corriger.

Merci a+

[Eric Sigoillot]

Essai de précisier, ce serait sympa pour les futurs visiteurs.

En ce qui concerne GPC, la librairie GRX permet aussi de charger les images Jpeg.
Et pour cela, il faut ouvrir l'exemple grx246\pascal\jpgtest.pas

Allez ! Et on va télécharger la dernière version de GRX... n-ième édition.



A+