[Type] alternative a "array of byte"

Ce message est la suite de mon autre post :
http://www.developpez.net/forums/viewtopic.php?t=370241
mais je le poste dans un nouveau thread car le theme est independant.
Je precise l'url pour ceux qui souhaiterais en savoir plus sur le pourquoi du comment ;) (et faciliter les aides)

Donc suite a ce probleme, je cherche un type qui me permetrais de pouvoir stocker une valeur binaire de taille quelconque genre 50 octets minimum...

Code:

---

1 2 3

Var v : LeTypeQueJeCherche; V: = $1F1F1F13172224221E241C1E1F1EFFDB004301050505070607;

---

Actuelement la solution apportee est u array of byte mais la syntawue :

Code:

---

1 2 3 4

const v : Array of byte = ($1F, $1F, $1F, $13, $17, $22, $24, $22, $1E, $24, $1C, $1E, $1F, $1E, $FF, $DB, $00, $43, $01, $05, $05, $05, $07, $06, $07);

---

est un longue et fasitieuse (meme a l'aide d'un logiciel externe de generation du code).

Passer par un array de Int64 arrangerais un peu la chose mais bon ... ne pourrais ton pas faire mieux ? ;) (genre le type string qui est un array of char ....)

Maintenant que tu parles des string, l'idée me vient : c'est très simple à faire en fait.
Voici le code de la fonction de ton programme de génération externe. Elle prend en paramètre le nom du fichier à inclure et renvoie la chaîne à placer dans le code de ton programme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

function GetFileAsConst(FileName : TFileName) : string; var FileStream, StringStream : TStream; begin FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone); try StringStream := TStringStream.Create(''); try StringStream.CopyFrom(FileStream, 0); Result := StrToStrRepres(TStringStream(StringStream).DataString); finally StringStream.Free; end; finally FileStream.Free; end; end;

---

Tu noteras que cette fonction utilise la routine StrToStrRepres qui provient de mon unité SjrdExtra. Si tu ne veux pas installer le package SJRDUnits rien que pour ça, voici le code de cette fonction :

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

function StrToStrRepres(Str : string; ExcludedChars : TSetOfChars = []) : string; var I : integer; begin if Str = '' then Result := '''''' else begin I := 1; Result := ''; ExcludedChars := ExcludedChars + [#0..#31]; while I <= Length(Str) do begin if Str[I] in ExcludedChars then begin Result := Result+'#'+IntToStr(Byte(Str[I])); inc(I); end else begin Result := Result+''''; while (I <= Length(Str)) and (not (Str[I] in ExcludedChars)) do begin if Str[I] = '''' then Result := Result + '''''' else Result := Result + Str[I]; inc(I); end; Result := Result+''''; end; end; end; end;

---

Tu peux coller le résultat directement dans le code source de ton vrai programme, de cette façon :

Code:

---

MonBitmapEnChaine = ResultatProgrammeDeGeneration;

---

Après tu l'utilise exactement comme tu utilisais le tableau, mis à part qu'il faut remplacer TailleFichier par Length(MonBitmapEnChaine).

Oki je regarderais ca en detail.

Faut pas oublier que je suis en "dur" donc j'essayerais d'en extraires les APis principales pour creer une fonction du style "StrToStream"

MErci a toi ;)
J'ai encore un peu de mal avec la gestion binaire ;)