TMemoryStream en Delphi 10.3.3

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:

---

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:

---

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!

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

Essayez à la place :

Code:

---

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

---

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

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

Citation:

---

Envoyé par blonde

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

Essayez à la place :

Code:

---

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

Pourquoi pas directement un LoadfromFile ?

Code:

---

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;

---

:alerte: non testé car bientôt en rendez-vous

Citation:

---

Envoyé par SergioMaster

Pourquoi pas directement un LoadfromFile ?

Code:

---

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;

---

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

Citation:

---

Envoyé par SergioMaster

Pourquoi pas directement un LoadfromFile ?

Code:

---

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;

---

:alerte: non testé car bientôt en rendez-vous

---

Y a plus d'erreur, ça marche bien

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

Citation:

---

Envoyé par 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( )

---

Tout marche bien Merci à tous

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.

Citation:

---

Envoyé par 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.

---

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.

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

Citation:

---

Envoyé par 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 :plusser: 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:

---

FDTable1.Open("UTILISATEURD")

---

au lieu de

Code:

---

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.