Manipulations Couple DBMemo/(Blob Postgresql)

Version imprimable

Bonjour à tous,
Je reviens de nouveau vers la communauté pour essayer de m'aider sur un problème que je n'arrive pas à résoudre ... non faute d'avoir parcouru de long en large les différents fils de discussion & FAQ sur les "BLOBS" et "DBMEMO" !!!
J'ai une forme avec des "edits" (no problémo avec ceux-ci :mouarf: ) surtout un "DBMemo"/"DBImage" (en fait plusieurs mais pour l'exposé je me cantonne à un seul)

Quand je veux sauvegarder dans la BD Postgresql (colonnes type : bytea)
je n'arrive pas à relire et je ne peux pas contrôler du même coup la sauvegarde :bug:

dbmInfo1 est un DBMemo lié à la colonne "Regles_Info1_Save1"

Code de la Base sous Postgresql :
Code:

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 -- Table: "TRegles" -- DROP TABLE "TRegles"; CREATE TABLE "TRegles" ( "Regles_ID" serial NOT NULL, "Regles_Intitule" character varying(20) NOT NULL, "Regles_Libelle" character varying(60), "Regles_Data1" integer NOT NULL, "Regles_Data2" integer, "Regles_Date1" character varying(10), "Regles_Date2" character varying(10), "Regles_Info1" bytea, "Regles_Info1_Save1" bytea, "Regles_Info1_Save2" bytea, "Regles_Info1_Save3" bytea, "Regles_Info1_Save4" bytea, "Regles_Info1_Save5" bytea, "Regles_Info2" bytea, "Regles_Info2_Save1" bytea, "Regles_Info2_Save2" bytea, "Regles_Info2_Save3" bytea, "Regles_Info2_Save4" bytea, "Regles_Info2_Save5" bytea, CONSTRAINT "pkRegles_ID" PRIMARY KEY ("Regles_ID" ) ) WITH ( OIDS=FALSE ); ALTER TABLE "TRegles" OWNER TO postgres; -- Index: "idx_Regles" -- DROP INDEX "idx_Regles"; CREATE UNIQUE INDEX "idx_Regles" ON "TRegles" USING btree ("Regles_Intitule" COLLATE pg_catalog."default" );
le code pour la sauvegarde :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 var AMemStream : TMemoryStream; with dtmMain,sqlqRegles do begin ParamByName('peReglInfo1').AsBlob := AnsiString(mRegles_Info1.Lines); ParamByName('peReglInfo2').AsBlob := AnsiString(mRegles_Info2.Lines); AMemStream:= tMemoryStream.Create; try dbmInfo1.Lines.SaveToStream(AMemStream); AMemStream.Seek(0, soFromBeginning); ParamByName('peRegles_Info1_Save1').LoadFromStream(AMemStream, ftMemo); ExecSQL; finally AMemStream.free; end; end;
le code de relecture :
Code:

1 2 3 4 5 6 7 8 with dtmMain.sqlqRegles, frm1Regle do begin mRegles_Info1.Text := FieldByName('Regles_Info1').AsString; mRegles_Info2.Text := FieldByName('Regles_Info2').AsString; dbmInfo1.Text := FieldByName('Regles_Info1_Save1').AsString; end;
voilà quelques jours où je tourne en rond sans échappatoire :marteau: j'espère trouver réponse et / ou conseil pour résoudre mon problème

En remerciant par avance.

Daniel

20/09/2013, 01h30
Nullosse

hello tengu,

moi avec une base postgresql ayant un champ de type text* tout est automatique . J'ai un tdbMemo relié à ce champ. Avec un tdbnavigator, j'arrive à écrire dans le champ de la base ce qu'il y a dans le tdbMemo et je relis bien ce que j'ai écrit. Aucun code supplémentaire.

Amicalement, nullosse

* In addition, PostgreSQL provides the text type, which stores strings of any length. Although the type text is not in the SQL standard, several other SQL database management systems have it as well.
21/09/2013, 05h25
tengu-karasu

Citation:

Envoyé par Nullosse

hello tengu,

moi avec une base postgresql ayant un champ de type text* tout est automatique . J'ai un tdbMemo relié à ce champ. Avec un tdbnavigator, j'arrive à écrire dans le champ de la base ce qu'il y a dans le tdbMemo et je relis bien ce que j'ai écrit. Aucun code supplémentaire.

Mais dans ma base ces champs me serviront à stocker indifféremment des images ou des chaînes ASCII.

Écriture :
Le principe est bien de transférer le contenu de la DBMemo vers un TmemoryStream, de charger le buffer du champ du DataSet à partir de la TMemoryStream puis d'enregistrer le tout à partir d'une Query

Lecture :
à partir de FieldByName('Colonne_Blob') comme TBlobField le charger dans une TMemoryStream puis le transférer vers le DBMemo

j'ai essayé et cela ne marche toujours pas. :pastaper:

Comment m'en sortir de ce mauvais pas :mur:

hello tengu,
je ne sais pas si cela va t'inspirer mais voici le code que j'utilise pour écrire une image dans un champ de type bytea d'une base postgresql :

Code:

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
var BlobStream: TStream;
  FileStream: TStream;
begin
  if SQLQuery1.Active then begin
     OpenDialog1.Filter :=
     'All image files (*.bmp,*.jpg,*.png,*.gif)|*.bmp;*.jpg;*.png;*.gif|' +
     'BMP files (*.bmp)|*.bmp|' +
     'JPEG files (*.jpg)|*.jpg|' +
     'PNG files (*.png)|*.png|' +
     'GIF files (*.gif)|*.gif';
    if OpenDialog1.Execute then begin
      begin
       if SQLQuery1.State <> dsEdit then
          SQLQuery1.Edit;
 
        try
          FileStream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
          try
            BlobStream := SQLQuery1.CreateBlobStream(
            SQLQuery1.FieldByName('Pict'), bmWrite);
            BlobStream.CopyFrom(FileStream, FileStream.Size);
            SQLQuery1.Post;
          finally
           FileStream.Free;
          end;
        finally
          BlobStream.Free;
        end;
      end;
    end;
  end;

Amicalement, nullosse

22/09/2013, 19h32
tengu-karasu

Après avoir adapté cela fonctionne Nickel-Chrome. :ccool: et surtout :merci: pour ta collaboration.

Daniel