Quelques unités et un programme pour FreePascal

Version imprimable

31/05/2014, 09h20
yamer

Quelques unités et un programme pour FreePascal
Bonjour,

Il y a quelque temps j'ai publié, sur mon site, quelques unités et un programme. Je n'avais pas fait d'annonce ici. Je répare.

Attention : le site est rédigé dans une langue qui ressemble vaguement à de l'anglais.

En vrac vous trouverez :
- data2pas : un programme pour convertir de données binaires ou du texte en constantes pascal
- CmdLine : une unité pour analyser les paramètres d'une ligne de commande
- GContnrs : un ensemble de conteneurs génériques
- UPasconf : une unité pour générer des programme imitant les scripts './configure'

Bonjour !

Citation:

Envoyé par yamer

Je n'avais pas fait d'annonce ici. Je répare.

C'est une bonne chose. :)

J'ai essayé le programme data2pas et je l'ai trouvé très intéressant.

Après avoir compilé le programme, j'ai fabriqué (d'après l'exemple proposé sur le site) ce fichier que j'ai nommé data.txt :

Code:

1
2
3
4
5
6
7
8
FILE 'data.inc';
BEGIN
 
  LazarusDescription : String = TEXT('lazdesc.txt');
 
  LazarusIcon : Array of Byte = DATA('lazarus16x16.png');
 
END;

J'ai placé dans le même dossier l'image PNG récupérée dans le répertoire de Lazarus, ainsi qu'un fichier lazdesc.txt contenant ceci :

Code:

Description de Lazarus

Ensuite j'ai fait glisser avec la souris le fichier data.txt sur data2pas.exe, et j'ai obtenu ce fichier data.inc :

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
const
  LazarusDescription = 'Description de Lazarus'#13#10;
 
  LazarusIcon : array [0..554] of Byte = (
    $89, $50, $4E, $47, $0D, $0A, $1A, $0A, $00, $00, $00, $0D, $49, $48, 
    $44, $52, $00, $00, $00, $10, $00, $00, $00, $10, $08, $06, $00, $00, 
    $00, $1F, $F3, $FF, $61, $00, $00, $00, $01, $73, $52, $47, $42, $00, 
    $AE, $CE, $1C, $E9, $00, $00, $00, $06, $62, $4B, $47, $44, $00, $FF, 
    $00, $FF, $00, $FF, $A0, $BD, $A7, $93, $00, $00, $00, $09, $70, $48, 
    $59, $73, $00, $00, $0B, $13, $00, $00, $0B, $13, $01, $00, $9A, $9C, 
    $18, $00, $00, $00, $07, $74, $49, $4D, $45, $07, $DC, $06, $14, $0F, 
    $1F, $36, $F0, $AF, $9F, $A6, $00, $00, $01, $AB, $49, $44, $41, $54, 
    $38, $CB, $95, $92, $41, $68, $13, $41, $14, $86, $BF, $D9, $6E, $EC, 
    $B1, $D0, $93, $57, $AF, $5E, $24, $22, $48, $68, $D1, $83, $30, $11, 
    $7B, $F5, $60, $4E, $1A, $C1, $A6, $EB, $A1, $88, $50, $09, $85, $F4, 
    $D0, $80, $2C, $22, $22, $8B, $68, $5B, $C1, $D6, $53, $2E, $B9, $28, 
    $49, $21, $0B, $A1, $45, $10, $1B, $5A, $10, $3C, $45, $BD, $E7, $92, 
    $43, $C1, $83, $D0, $E2, $CE, $F3, $B0, $DD, $71, $D3, $26, $D8, $FE, 
    $30, $CC, $CC, $9B, $FF, $CD, $9B, $7F, $DE, $AF, $18, $81, $4B, $D7, 
    $1E, $3C, $17, $D4, $5D, $47, $61, $32, $2E, $6B, $BB, $ED, $B5, $0A, 
    $A7, $C5, $54, $BE, $D4, $CC, $69, $4F, $BA, $BD, $48, $BA, $BD, $48, 
    $72, $DA, $93, $EB, $B7, $4A, $1F, $4E, $95, $7C, $FE, $E2, $9D, $89, 
    $74, $F2, $FF, $2E, $51, $47, $15, $5B, $46, $1C, $9D, $04, $4B, $8B, 
    $CF, $C8, $5E, $18, $67, $3C, $33, $66, $89, $3B, $3F, $7E, $B3, $FA, 
    $F4, $89, $DD, $3B, $CA, $84, $9F, $5B, $AB, $79, $35, $95, $2F, $B5, 
    $44, $D0, $EF, $36, $5E, $73, $16, $DC, $BF, $F7, $30, $52, $8A, $B6, 
    $0B, $20, $38, $00, $14, $66, $AE, $58, $C2, $D5, $1B, $B7, $79, $F4, 
    $B8, $0C, $C0, $CB, $17, $3E, $9D, $76, $DD, $9E, $D5, $9A, $7B, $08, 
    $CE, $98, $C2, $C4, $81, $9C, $F6, $24, $68, $F4, $A5, $DB, $8B, $24, 
    $9B, $CD, $8A, $48, $3C, $77, $7E, $1E, $C8, $FB, $AD, $FD, $81, $58, 
    $D0, $E8, $4B, $D0, $E8, $4B, $4E, $7B, $02, $E0, $02, $7C, $09, $DF, 
    $28, $40, $F4, $C6, $2B, $6A, $CD, $3D, $BC, $05, $1F, $80, $CE, $F7, 
    $5F, $B6, $AA, $B7, $E0, $53, $AC, $86, $F1, $0B, $82, $A5, $24, $E7, 
    $E8, $ED, $C7, $D0, $69, $D7, $2D, $19, $A0, $58, $0D, $07, $24, $A4, 
    $E1, $24, $12, $0A, $F3, $CB, $27, $0E, $D7, $2B, $9A, $F5, $8A, $3E, 
    $11, $2F, $CC, $2F, $63, $25, $C4, $2D, $04, $7D, $79, $92, $C3, $3F, 
    $C2, $F6, $B7, $FD, $B3, $18, $AE, $E5, $C6, $66, $30, $03, $C9, $C5, 
    $6A, $C8, $D7, $FA, $A2, $95, $91, $5E, $FF, $33, $90, $19, $6D, $A4, 
    $61, $72, $92, $CF, $3B, $6E, $A4, $A1, $C4, $A4, $AD, $E9, $91, $68, 
    $4E, $50, $2E, $97, $47, $77, $C1, $51, $26, $4C, $57, $AB, $05, $4B, 
    $9C, $73, $CD, $C7, $34, $C7, $F7, $7D, $B1, $12, $86, $61, $FA, $E6, 
    $5C, $23, $32, $6A, $06, $20, $E3, $CA, $DB, $4F, $9B, $2B, $B3, $C3, 
    $78, $7F, $01, $CE, $48, $DF, $B7, $D4, $C3, $75, $30, $00, $00, $00, 
    $00, $49, $45, $4E, $44, $AE, $42, $60, $82
  ); // LazarusIcon

Bizarrement, quand j'ai essayé de réaliser la même opération avec un batch, cela n'a pas fonctionné.

Je ne me souviens pas d'avoir vu sur le site une liste des types de données supportées.

Une dernière chose (même si c'est un peu hors-sujet), comment utilises-tu le tableau d'octets obtenu à partir de l'image ?

En tout cas merci pour cette contribution. :ccool:

31/05/2014, 13h15
yamer
Citation:

Envoyé par Roland Chastain

Bizarrement, quand j'ai essayé de réaliser la même opération avec un batch, cela n'a pas fonctionné.

Probablement parce que tu n'as pas du mettre l'exécutable dans un dossier listé dans ta variable d'environnement PATH.

Citation:

Envoyé par Roland Chastain

Je ne me souviens pas d'avoir vu sur le site une liste des types de données supportées.

Ils y sont mais c'est récent : http://yann.merignac.free.fr/data2pas.html#constants

En clair ça donne :
- string
- array of char
- array of byte
- compressed string
- compressed array of char
- compressed array of byte
Citation:

Envoyé par Roland Chastain

Une dernière chose (même si c'est un peu hors-sujet), comment utilises-tu le tableau d'octets obtenu à partir de l'image ?

Ça dépend fortement de la bibliothèque gaphique que tu utilises. J'ai choisi un png juste parce que c'est un exemple de données binaires.

Avec lazarus ça doit pouvoir se faire comme ça :
1. Créer un TPortableNetworkGraphic
2. Créer TBytesStream pour lire le tableau
3. Utiliser la méthode LoadFromStream du TPortableNetworkGraphic
31/05/2014, 13h38
Roland Chastain

Merci pour ta réponse.

Citation:

Envoyé par yamer

Probablement parce que tu n'as pas du mettre l'exécutable dans un dossier listé dans ta variable d'environnement PATH.

Effectivement, je viens de faire un nouvel essai, et ça fonctionne. Manifestement je ne m'y étais pas pris comme il faut.
01/06/2014, 18h46
Alcatîz

Bonjour,

C'est une super idée de partager tes codes sources avec la communauté. :ccool:
Nous avons une plateforme développée exprès pour héberger et partager les codes sources : http://pascal.developpez.com/telecha...80/Free-Pascal

;)