Discussion :

[mehady]

Bonjour à tous, j'ai un petit souci avec l'utilisation du MemoryStream pour insérer une image bmp dans une table de ma base de données PostgreSQL 9.5
Voici la structure de la table

Code sql :

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

1
2
3
4
5
6
7
CREATE TABLE utilisateur."UTILISATEUR"
(
  "MOTPASS" character varying NOT NULL,
  "NOMUTI" character varying,
  "IMAGE" bytea,
  CONSTRAINT "UTILISATEUR_pkey" PRIMARY KEY ("MOTPASS")
);

Voici mon code

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
procedure TSIGNATAIRE.BitBtn1Click(Sender: TObject);
var IMG:TBitmap;
      MS:TMemoryStream;
begin
MS:=TMemoryStream.Create;
IMG:=TBitmap.Create;
IMG.CleanupInstance;
IMG.LoadFromFile('D:\SIGN.BMP');
IMG.SaveToStream(MS);
MS.position:=0;
 
FDTable1.Edit;
TBlobField(FDTable1.FieldByName('IMAGE')).LoadFromStream(MS);
FDTable1.Post;
end;

Mais à l'exécution un méssage d'erreur s'affiche <<Transtypage de classe incorrect>>, veuillez m'orienter sur la source de l'erreur.
Merci!

[blonde]

Je suppose que la ligne impliquée est celle du TBlobField

Essayez à la place :

Code :

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

1
2
 
FDTable1.FieldByName('IMAGE').LoadFromStream(MS,ftBlob)

ne pas oublier MS.position := 0 après l'appel.

[mehady]

D'accord je retoure à mon code rapidement pour la correction.

[mehady]

Je suppose que la ligne impliquée est celle du TBlobField

Essayez à la place :

Code :

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

1
2
 
FDTable1.FieldByName('IMAGE').LoadFromStream(MS,ftBlob)

ne pas oublier MS.position := 0 après l'appel.

Avec ça, le compilateur effiche <<Trop de paramètres originaux>>

[SergioMaster]

Pourquoi pas directement un LoadfromFile ?

Code :

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

1
2
3
4
5
6
7
 
procedure TSIGNATAIRE.BitBtn1Click(Sender: TObject);
begin
FDTable1.Edit;
TBlobField(FDTable1.FieldByName('IMAGE')).LoadFromFile('D:\SIGN.BMP');
FDTable1.Post;
end;

non testé car bientôt en rendez-vous

[blonde]

Pourquoi pas directement un LoadfromFile ?

Code :

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

1
2
3
4
5
6
7
 
procedure TSIGNATAIRE.BitBtn1Click(Sender: TObject);
begin
FDTable1.Edit;
TBlobField(FDTable1.FieldByName('IMAGE')).LoadFromFile('D:\SIGN.BMP');
FDTable1.Post;
end;

non testé car bientôt en rendez-vous

Mais oui, tu as raison. Hi hi, je n'avais même pas lu le début du code

[mehady]

Pourquoi pas directement un LoadfromFile ?

Code :

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

1
2
3
4
5
6
7
 
procedure TSIGNATAIRE.BitBtn1Click(Sender: TObject);
begin
FDTable1.Edit;
TBlobField(FDTable1.FieldByName('IMAGE')).LoadFromFile('D:\SIGN.BMP');
FDTable1.Post;
end;

non testé car bientôt en rendez-vous

Y a plus d'erreur, ça marche bien

[SergioMaster]

Donc, il s'agit d'un problème de définition de champ (ce code fonctionne parfaitement avec Firebird et SQLite)
comme il s'agit de PostGreSQL et Firedac il faut aller en chercher les spécificités et vérifier les paramètres de connexion
https://docwiki.embarcadero.com/RADS...eSQL_(FireDAC)
Regardez en particulier les options ExtendedMetatadata, OidAsBlob et unKnownFormat du FDConnection, testez en définissant les champs pour vérifier que le champ image est considéré comme un ftBlob
car ce qui ne semble pas être apprécié dans l'instyrcution est le transtypage TBlobField( )

[mehady]

Donc, il s'agit d'un problème de définition de champ (ce code fonctionne parfaitement avec Firebird et SQLite)
comme il s'agit de PostGreSQL et Firedac il faut aller en chercher les spécificités et vérifier les paramètres de connexion
https://docwiki.embarcadero.com/RADS...eSQL_(FireDAC)
Regardez en particulier les options ExtendedMetatadata, OidAsBlob et unKnownFormat du FDConnection, testez en définissant les champs pour vérifier que le champ image est considéré comme un ftBlob
car ce qui ne semble pas être apprécié dans l'instyrcution est le transtypage TBlobField( )

Tout marche bien Merci à tous

[popo]

Moi ce qui me chagrine le plus, c'est cette ligne : CONSTRAINT "UTILISATEUR_pkey" PRIMARY KEY ("MOTPASS").

Un mot de passe ne doit JAMAIS constituer la clé primaire d'un utilisateur.
Ne serait-ce parce qu'un mot de passe ne permet pas de distinguer de manière unique un utilisateur (puisque par définition, il peut changer).
Ajoute à cela le fait que ça interdit que deux utilisateurs possèdent le même mot de passe.

[mehady]

Moi ce qui me chagrine le plus, c'est cette ligne : CONSTRAINT "UTILISATEUR_pkey" PRIMARY KEY ("MOTPASS").

Un mot de passe ne doit JAMAIS constituer la clé primaire d'un utilisateur.
Ne serait-ce parce qu'un mot de passe ne permet pas de distinguer de manière unique un utilisateur (puisque par définition, il peut changer).
Ajoute à cela le fait que ça interdit que deux utilisateurs possèdent le même mot de passe.

Bonjour Mr popo!
Suis vraiment d'accord avec vous, votre logique, elle est parfaite selon les règles des méthodes d'analyse! Merci à vous.

[SergioMaster]

Bonjour,

c'est très bien d'indiquer que c'est résolu et de souligner que la structure pouvait être mal ficelée, mais après vos modifications de post on n'est plus sur de la solution.
Je présume qu'il s'agissait bien d'un problème lié au FDConnection indiqué post #8 et que l'erreur était donc liée aux options citées.
Il eut donc été mieux de le post qui a mis sur la voie de la correction et nous indiquer quelles étaient les erreurs trouvées qui, une fois corrigées, ont résolu le problème afin que d'autres puissent s'y référer.

De plus, je changerai le titre, pour passer de "TMemoryStream en Delphi 10.3.3" à "PostGresSQL, mettre à jour un Blob image" parce que le TMemoryStream était complètement inutile

[mehady]

Bonjour,

c'est très bien d'indiquer que c'est résolu et de souligner que la structure pouvait être mal ficelée, mais après vos modifications de post on n'est plus sur de la solution.
Je présume qu'il s'agissait bien d'un problème lié au FDConnection indiqué post #8 et que l'erreur était donc liée aux options citées.
Il eut donc été mieux de le post qui a mis sur la voie de la correction et nous indiquer quelles étaient les erreurs trouvées qui, une fois corrigées, ont résolu le problème afin que d'autres puissent s'y référer.

De plus, je changerai le titre, pour passer de "TMemoryStream en Delphi 10.3.3" à "PostGresSQL, mettre à jour un Blob image" parce que le TMemoryStream était complètement inutile

En fait l'erreur de trouvait au niveau de l'instruction d'ouverture de ladite table

Code :

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

FDTable1.Open("UTILISATEURD")

au lieu de

Code :

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

FDTable1.Open('utilisateur."UTILISATEURD"')

, nom table précédé du nom du schéma, voilà ce que j'ai corrigé en me basant sur vos recommandations.