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