Discussion :

[Papy214]

Bonjour les gens

J'ai une table avec une colonne BLOB SUB_TYPE 0 et je cherche une syntaxe SQL (si ça existe) pour convertir le contenu en varchar.
Le "CAST" simple déclenche une erreur à la compilation puor cause de conversion impossible.

Code :

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

cast(photos.photo) as varchar

Est-ce qu'il y a une façon de faire ça svp ?

Papy !

[SergioMaster]

Bonjour,

ben déjà ton code pêche !

Code :

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

1
2
 
cast(photos.photo  AS varchar(2024) ) as photo

je doit avouer ne pas avoir essayé, le(s) problème(s) que tu risques de rencontrer
- string truncation si la taille du varchar n'est pas assez importante (je n'ai pas la taille max d'un varchar en tête le matin de bonne heure)
- perte de donnée si un /00 se trouve dans le mémo
[Edit] pour éviter ce deuxième point , l'utilisation d'un CHAR à la place d'un VARCHAR pourrait fonctionner

en admettant que par exemple tu ne veuilles que récupérer l'entête de la photo l'utilisation de la fonction [URL="http://www.firebirdsql.org/refdocs/langrefupd21-intfunc-substring.html"][SUBSTRING (à consulter c'est peut être le bon choix plutôt qu'un CAST)/URL] s’avérera utile

[Ph. B.]

Bonjour,

Est-ce qu'il y a une façon de faire ça svp ?

En créant une UDF qui permettrait d'éviter et/ou de contourner les bizarerries évoquées par SergioMaster...

[Papy214]

... Que mon "code pêche", ça, j'en avais bien conscience

Pour la taille je pensais effectivement mettre un max mais sans être sur que ça passe à chaque fois.

En fait, j'ai 2 tables.
La première contient les données d'une ligne de traitement sous la forme Clé/Nom/Valeur.
La seconde contient de 0 à 4 photos pour chaque ligne Clé/Index/Photo.
J'utilise cette base dans un programme écrit en Delphi.
La première solution consiste à récupérer les les données, puis dans un second temps, les photos que je transcris en chaîne grâce aux fonctions fournies par les composants UIB.
La seconde consistait à faire 2 select avec un union pour récupérer le tout en une seule requête. C'est pour ça que je cherchais une solution de ce coté là.

Les UDF sous Firebird, jamais fait encore. D'ailleurs, les UDF standards, ça s'installe comment avec un Firebird embeded dans Flamerobin par exemple ?

Sinon, pour mon problème, je resterai temporairement à 2 requêtes pour ne pas retarder le projet.

[SergioMaster]

Bonjour,

La question reste : pourquoi vouloir transformer des datas images en data 'string' ?
un Blob (image ou pas) se charge très facilement dans un Stream , il doit même y avoir une FAQ Delphi à ce sujet

[Papy214]

pourquoi du binaire ? euhh ... bonne question

La base est utilisée en locale (embeded).
Les données de l'image sont destinées à être envoyées ensuite à un service web sous forme de chaîne encodée en base64 (il y a peut-être d'autres solutions mais le boss a dit de faire comme ça).
Je les stocke comme ça dans la base. Comme je suis pas trop doué avec firebird, j'ai créé une colonne de type blob sans me poser trop de question.
Mais la question de Sergio m'a poussé à aller voir un peu plus loin que le bout de mon nez.
Je viens de voir qu'il y a un type string pour les blob.
Si j'utilise ce type de blob, est-ce que ça va résoudre mon problème ?

[SergioMaster]

Je crois que je commence à comprendre l'objectif . Mais je ne crois pas par contre que récupérer l'image en chaine de caractères soit la solution pour encoder l'image en 64 bits . A mon avis il faut récupérer le blob normalement dans un stream et encoder ce dernier (ou alors encoder directement dans la SGBD)
par contre le comment , je n'en ai pas la moindre idée en cet instant
La question se résumerai plutôt à comment encoder une image en 64bits. et comme en ce moment mon PC est en train de me lâcher (enfin son ventilo) je suis out of order

[Papy214]

Le système fonctionne bien dans l'ensemble, si ce n'est que la chaîne encodée est plus volumineuse que le binaire.
Je verrai les améliorations dans le futur.

Quand au pc qui lâche, mon conseil: lui servir un grand gin tonic glacé

[SergioMaster]

Quand au pc qui lâche, mon conseil: lui servir un grand gin tonic glacé

le gin arrive dans un délai de 7 jours la glace est déjà au congélo
et actuellement je travaille sur un pc de 'substitution' et la chose n'est pas facile (7 ans d'environnements à refaire)

n'empêche , je serais bien intéressé par la manière d'encoder en 64bits (j'ai vu des moyens de le faire par Internet mais aucune méthode écrite ou ne serait-ce que décrite, peut être la faute a un écran plus petit pour mes recherches)

[Papy214]

Voici les différents codes que j'utilise

Version Firemonkey

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
{$REGION 'Conversion d''un bmp en string et inversement'}
 
function BitmapToBase64(ABitmap: Fmx.Types.TBitmap): AnsiString;
var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    ABitmap.SaveToStream(Stream);
    Result := Soap.EncdDecd.EncodeBase64(Stream.Memory, Stream.Size);
  finally
    Stream.Free;
  end;
end;
 
function Base64ToBitmap(const S: AnsiString): Fmx.Types.TBitmap;
var
  Stream: TMemoryStream;
  V: TArray<System.Byte>;
begin
  V := Soap.EncdDecd.DecodeBase64(S);
  Stream := TMemoryStream.Create;
  Stream.Write(@V[0], Length(V));
  Result := Fmx.Types.TBitmap.Create(200, 200);
  try
    Result.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;
 
function BitmapToBase64Image(Bitmap: Fmx.Types.TBitmap; const Extension: string)
  : AnsiString;
var
  S: TMemoryStream;
begin
  S := TMemoryStream.Create;
  with TBitmapCodecManager.Create do
  begin
    SaveToStream(S, Bitmap, Extension);
    Free;
  end;
  Result := Soap.EncdDecd.EncodeBase64(S.Memory, S.Size);
  S.Free;
end;
 
function BitmapToBase64JPG(Bitmap: Fmx.Types.TBitmap): AnsiString;
begin
  Result := BitmapToBase64Image(Bitmap, 'jpg');
end;
 
function BitmapToBase64PNG(Bitmap: Fmx.Types.TBitmap): AnsiString;
begin
  Result := BitmapToBase64Image(Bitmap, 'png');
end;
 
{$ENDREGION}

VCL

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
 
{$REGION 'Converstion d''une chaîne en png'}
 
function Base64ToPNG(const S: AnsiString): TPNGImage;
var
  Stream: TMemoryStream;
  V: TArray<System.Byte>;
begin
  V      := EncdDecd.DecodeBase64(S);
  Stream := TMemoryStream.Create;
  Stream.Write(@V[0], Length(V));
  Stream.Seek(0, 0);
  result := TPNGImage.Create;
  try
    result.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;
 
{$ENDREGION}