Discussion :

[Clorish]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ....)

[sjrd]

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 :

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
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 :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

MonBitmapEnChaine = ResultatProgrammeDeGeneration;

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

[Clorish]

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