Discussion :

[heart100]

Bonjour;
je suis entrain de développer une application Delphi2010+Sql server 2008 , actuellement , je suis sur le point d’établir des rapports d'impressions , je veux savoir comment puis-je ?
créer , modifier, sauvgarder la Fast report , et la mettre sur un champ Blob sur SQL server ,pour qu'il soit traité par tout le monde sous reseau?
j'ai fait une tentative avec succés sur Access mais sur Sql server l'opération echoué:
1- pour la création:

Code delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  memStream:TMemoryStream;
begin
 
       try
         memStream:=TMemoryStream.Create;
         frxReport1.LoadFromFile(OpenDialog1.FileName);
         frxReport1.SaveToStream(memStream);
         memStream.Position:=0;
         dm.raport.Insert;
         dm.raportEtat.AsString:='ETAT';
         dm.raportBlob.LoadFromStream(memStream);
         dm.raport.Post;
       finally
         memStream.Free;
       end;
 
end;

pour la sauvegarde:

Code delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  memStream:TMemoryStream;
begin
  try
    memStream:=TMemoryStream.Create;
    dm.raportBLOB.SaveToStream(memStream);
    memStream.Position:=0;
    frxReport1.LoadFromStream(memStream);
    frxReport1.DesignReport();
  finally
    memStream.Free;
  end;
end;

[SergioMaster]

Bonjour,

à première vue je dirais que c'est bon mais cela dépend peut-être des composants utilisés pour le faire.

J'ai plus l'habitude d'utiliser des requêtes
exemple avec Firedac + Firebird

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
16
17
18
19
20
21
22
23
24
 
  // UPDATE OR INSERT
  // récupérer ID
  // FDGabaritFr3.SQL.Text
  // SELECT ID, DESCRIPTION, GABARIT, CLE FROM GABARITFR3 &where ORDER BY ID,CLE
 
   Datas.FDGabaritFr3.Active:=False;
   Datas.FDGabaritFr3.MacroByName('where').AsRaw:='WHERE CLE='+Quotedstr(edtCode.text);
   Datas.FDGabaritFr3.Active:=True;
   if Datas.FDGabaritFr3.FieldByName('ID').isNull
     then FDSavePDF.ParamByName('ID').Clear()
     else FDSavePDF.ParamByName('ID').asInteger:=Datas.FDGabaritFr3.FieldByName('ID').asInteger;
   Datas.FDGabaritFr3.Active:=False;
  // Modifier/Insérrer
  // FDSavePDF.SQL.Text
  // UPDATE OR INSERT INTO GABARITFR3 (ID, DESCRIPTION, GABARIT, CLE)
  //  VALUES (:ID,:DESCRIPTION,:GABARIT,:CLE) MATCHING (CLE)
   FDSavePDF.ParamByName('CLE').AsString:=edtCode.Text;
   FDSavePDF.ParamByName('DESCRIPTION').AsString:=edtDescription.Text;
   FDSavePDF.ParamByName('GABARIT').LoadFromStream(AStream,TFieldType.ftBlob);
   FDSavePDF.ExecSQL;
   // Actualiser liste
   Datas.FDGabaritFr3.MacroByName('where').Clear;
   Datas.FDGabaritFr3.Active:=True;

[heart100]

La solution tres simple :
1-Création

Code delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TJournal.Button2Click(Sender: TObject);
var
  memStream:TMemoryStream;
begin
 
       try
         memStream:=TMemoryStream.Create;
         frxReport1.LoadFromFile(OpenDialog1.FileName);
         frxReport1.SaveToStream(memStream);
         memStream.Position:=0;
         dm.raport.Insert;
         dm.raportEtat.AsString:='ETAT';
         dm.raportBlob.LoadFromStream(memStream);
         dm.raport.Post;
       finally
         memStream.Free;
       end;
 
end;

2-Modification/Sauvegarde:

Code delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TJournal.DBGrid2DblClick(Sender: TObject);
 
 
var template : TStream;
begin
template := dm.raport.CreateBlobStream(dm.raport.FieldByName('blob'), bmRead);
template.Position := 0;
try
frxReport1.LoadFromStream(template);
frxReport1.DesignReport;
finally
template.Free;
end;
end;