Discussion :

[ChPr]

Bonjour à toutes et à tous,

Je suis un pur débutant en base de données.

J'utilise SqLite et j'ai cru comprendre que les instructions de gestion de cette base étaient les mêmes que pour SQL.

Dans les instructions qui suivent, si je remplace les ????? de la dernière instruction par une valeur numérique, il n'y a pas de problème.

Maintenant, je voudrais remplacer cette valeur numérique par une suite d'octets représentant par exemple les pixels d'une image. Je n'ai pas triouvé d'exemple sur le WEB. Qu'est-ce que j'écris à la place des ?????.

Merci de votre aide.

Pierre.

Code :

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

1
2
3
4
5
6
7
   SQLite3Connection.ExecuteDirect('CREATE TABLE tiles('+
                   ' x int,'+
                   ' y int,'+
                   ' z int,'+
                   ' image BLOB,'+
                   ' PRIMARY KEY (x, y, z));');
    SQLite3Connection.ExecuteDirect('INSERT INTO tiles VALUES (2, 3, 15,?????);

[e-ric]

Salut

En parcourant rapido les source du composant, je ne suis pas convaincu que cela soit faisable directement avec une composant TSQLite3Connection, des méthodes liées à la gestion des Blobs existent mais elles sont protégées et sans doute réservées à l'usage des composants d'accès.
Piste : employer un composant TSQLQuery et accéder aux méthodes suivantes du champ TBlobField :

Code :

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

1
2
3
4
5
 
    procedure LoadFromFile(const FileName: string);
    procedure LoadFromStream(Stream: TStream);
    procedure SaveToFile(const FileName: string);
    procedure SaveToStream(Stream: TStream);

Attention ces méthodes sont spécifiques aux objets TBlobField, il faut donc prendre des précautions :

Code :

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

1
2
 
   (SqlQuery1.FieldByName('Image') as TBlobField).LoadFromFile('C:\MonImage.jpg');

Pas le temps de donner une réponse plus détaillée, je file au boulot.

@+

[ChPr]

... Attention ces méthodes sont spécifiques aux objets TBlobField, il faut donc prendre des précautions :

Code :

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

1
2
 
   (SqlQuery1.FieldByName('Image') as TBlobField).LoadFromFile('C:\MonImage.jpg');

...

Merci e-ric pour cette réponse.

Comme je le disais dans mon premier post, je suis un débutant en base de données.

Insérant l'instruction ci-dessus dans mon programme, cela ne fonctionne pas car il ne connait pas le champ 'Image'. Je suppose qu'il faut référencer ce champs par d'autres informations ... tiles.image ??? Je ne sais quoi donner comme information.

Pour autant, j'ai essayé de charger directementun fichier en utilisant un TBlobField : ça plante. Voici ce que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
var
  BlobField: TBlobField;
begin
  BlobField:= TBlobField.Create(TComponent(Self));
  BlobField.SetFieldType(ftGraphic); // j'ai essayé avec divers ft..., ça plante tout pareil
  if OpenDialog.Execute then;
    BlobField.LoadFromFile(OpenDialog.FileName);

Ça plante au chargement du fichier avec le message suivant :

Code :

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

le projet ... a levé une exception de class "External SIGSEGV" at Address ...

Merci de votre aide.

Pierre

[SoftChris]

Je répond pas à la question car j'ai pas eu le temps d'y songer mais simplement je pense qu'il est pas très judicieux de sauvegarder des images dans une BDD et encore moins dans une base SQLITE. Il vaut mieux sauvegarder les images dans un dossier et inscrire uniquement dans la BDD le nom du fichier avec d'autres infos pourquoi pas comme la taille, etc... Lightroom par exemple fonctionne comme çà et utilise une base SQLITE...

[ChPr]

Je répond pas à la question car j'ai pas eu le temps d'y songer mais simplement je pense qu'il est pas très judicieux de sauvegarder des images dans une BDD et encore moins dans une base SQLITE....

Ce n'est peut-être pas judicieux, mais je dois m'adapter à de l'existant (OruxMaps) qui l'utilise.

Cordialement.

Pierre

[tourlourou]

Bonsoir,
Sans connaître les composants d'accès aux données, il me semble que tu dois avoir besoin d'un intermédiaire. D'ailleurs, http://www.freepascal.org/docs-html/...blobfield.html dit :

It should never be necessary to create an instance of TBlobField manually, a field of this class will be instantiated automatically for each BLOB field when a dataset is opened.

On peut donc pê utiliser un DataSet dans lequel il n'y aurait que la ligne insérée (sans son BLOB) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
SQLite3Connection.ExecuteDirect('CREATE TABLE tiles('+
                   ' x int,'+
                   ' y int,'+
                   ' z int,'+
                   ' image BLOB,'+
                   ' PRIMARY KEY (x, y, z));');
SQLite3Connection.ExecuteDirect('INSERT INTO tiles (x, y, z) VALUES (2, 3, 15)');
  // après l'insertion, sélection de la ligne dans un dataset
aDataSet.SQL := 'SELECT * FROM tiles WHERE rowid = last_insert_rowid'; // mais quel type de DataSet ???
  // puis interaction avec son champ BLOB
aDataSet.FieldByName('image') as TBlobField).LoadFromFile('C:\MonImage.jpg');