[GRX] Insérer une image

Version imprimable

21/04/2004, 19h31
the_guitariste

[GRX] Insérer une image

Voilà, j'aimerais sous la librairie GRX insérer une image, mais voila je ne trouve pas la commande nécessaire, alors je cherche si quelqu'un a déjà utilisé cette procédure ou sinon si quelqu'un la connais, faite le moi savoir et expliquez moi comment l'utiliser. Merci
22/04/2004, 14h03
Eric Sigoillot

Une petite recherche s'impose. :google2:

Site officiel de GRX :
http://grx.gnu.de

La partie te concernant plus précisément :
http://grx.gnu.de/grx246um.htm#jpeg

Alors oui, le code est en C. Mais avec et nom de la fonction et l'aide en ligne, tu devrais t'en sortir.

A+
22/04/2004, 17h12
the_guitariste

je te remercie de m'avoir fait cette recherche mais je l'avais bien sur faite avant car c'est sur ce site que je prend mes commandes au niveau de la librairie. ainsi je voudrais savoir comment je peut la faire marcher (en me proposant si possible un petit exemple car sur le site je n'ai rien compris), et aussi est-il possible que je puisse l'integrer dans mon code source ( qui je le rappel et en pascal) un code en C.
merci
22/04/2004, 22h10
Eric Sigoillot

Alors là moi je dis non.

Mais tu le fais exprès ? Je viens de télécharger la librairie GRX. Je regarde ce qu'il y a dedans...

grx246\pascal\imgview.pas

J'ai pas de lunettes, mais si j'en avais, je pourrais te les passer. Les exemples fournis avec GRX, ils sont faits pour être r-e-g-a-r-d-é-s.

Et en plus, ils sont compréhensibles ! Mince alors...

Si jamais tu as besoin de GRX 2.4.6 (à supposer que cet exemple ne soit pas avec la version que tu possèdes :? ), c'est là que ça se passe :

http://grx.gnu.de/download/grx246.tar.gz

A+ :evil:
23/04/2004, 10h45
the_guitariste

merci de me l'avoir donné car je n'ai pas ce fichier dans ma librairie grx, je ne le fais pas expres sinon je n'avais aucun interet a poster, je te remerci de m'avoir donné le lien

voila c'est bon j'ai pu créer moi-meme un programme qui me le fait, ca ma pris assez de temps, mais jen suis content, je vous le transmet donc

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.