Delphi : Sauvegarder un Record vers un BLOB Oracle

:tagcode:

Tu n'as pas founi grand chose !
Veux-tu faire un Append/Post ?
Veux-tu faire un SQL ?

Voici un code ORACLE que j'utilise en production sur un ORACLE 11g
Je me base sur la fonction fourni ci-dessous pour l'exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  Stream: TMemoryStream;
  MonInfo : TInfoRecord;
begin
  Stream := TMemoryStream.Create();
  try 
    Stream.WriteBuffer(..., ...); 
 
    //ton record est complexe, il faut créer un format de structure 
    //soit purement binaire 
    //soit un XML (implique de convertir ton Bitmap en Base64 comme le fait le Delphi dans une DFM)
    //soit une sérialisation par TComponent, en utilisant un ancêtre classe TComponent au lieu de record, tu pourrais conserver tes données sur la forme d'un fragment de DFM
 
 
    TAutomateLogistiqueBusinessEngine.TreatStreamFile(System.Math.RandomRange(1, MaxInt), Stream);
  finally
    Stream.Free();
  end;
end;

Lors d'une erreur, je sauvegarde le fichier planté dans la DB, 35 fichiers en 5 mois sur 100 000 échangés en total
Ce n'est pas une fonction très souvent lancée donc j'ignore ses performances !
TSliteDBQuery c'est un composant perso qui encapsule ADO, ODAC, DBX, je te laisse adapter selon ta bibliothèque

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
//------------------------------------------------------------------------------
procedure TAutomateLogistiqueBusinessEngine.TreatStreamFile(AFileID: Integer; AStream: TStream);
const
  INSERT_BLOB_STREAM =
    ' INSERT INTO T_SCS_FILE_BLOB(SCSF_N_FILE_ID, SCSFB_PB_FILESTREAM) VALUES(:pFileID, :pStream) ' ;
var
  Query: TSliteDBQuery;
begin
  try
    Query := TSliteDBQuery.Create(DBConnection);
    try
      Query.SQLText := INSERT_BLOB_STREAM;
      Query.OraQuery.ParamByName('pFileID').Value := AFileID;
      Query.OraQuery.ParamByName('pStream').LoadFromStream(AStream, ftBlob);
      Query.ExecSQL();
    finally
      Query.Free();
    end;
  except
    on E: Exception do
    begin
      {$IFDEF DEBUG}
      raise EAutomateLogistiqueBusinessEngineError.CreateFmt(ERR_SQL_ERROR, [E.Message, E.ClassName()]); // Pseudo-Assert Exception !
      {$ENDIF DEBUG}
    end;
  end;
end;