[TP]Inserer des jpeg en pascal

Version imprimable

28/04/2004, 17h08
Dolnaise

[TP]Inserer des jpeg en pascal

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
28/04/2004, 17h13
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+

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:

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.

28/04/2004, 18h29
M.Dlb

:boulet:

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...
28/04/2004, 18h45
the_guitariste

non attend, :furieux: , 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.
29/04/2004, 13h38
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
29/04/2004, 14h21
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+
29/04/2004, 15h08
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 :x )
29/04/2004, 22h41
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
02/05/2004, 14h14
Dolnaise

Merci

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

Merci a+
14/05/2004, 23h25
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. :roll:

A+