Discussion :

[PhilLU]

Salut,
Je n'arrive pas à ajouter des BMP dans un rapport Ravereport
Any tips???
Merci d'avance!!!
Bonne soirée,
PhilLu

[SergioMaster]

Premier tip : aller sur le bon forum forum
Second tip : Faire une recherche dans ce dernier une solution JPEG mais qui peut s'appliquer

mais surtout expliquer de que tu veux vraiment , car , après tout Rave traite relativement bien les BMP (d'ailleurs de base il n'accepte que des bmp comme image)

[PhilLU]

Merci pour ta réponse!
Les tuto expliquent comment ajouter des champs comme du texte ou des data d'une DB.
Après avoir "chipoté", j'ai réussi à insérer des BMP et à générer un PDF.
Il me reste une question:
J'ai à chaque fois l'écran de choix qui apparrait: imprimer, préview, sauver dans un fichier. Je souhaite générer un pdf sans ce pop-up et aussi nommer ce pdf en fonction d'une variable, pas avec un nom par défaut.
Et là dessus, je ne trouve rien.
Si tu as une idée?
THANKS!!!
PhilLu

[SergioMaster]

il suffit de rajouter un rvsytem et le lier au rvReport
ensuite , il suffit de modifier les options . Il me semble que j'ai déjà indiqué la marche a suivre sur ce forum mais je n'en suis pas sur, donc je met ici un exemple de code que j'utilise pour 1-produire un PDF et 2-l'envoyer par mail sans passer par le dialogue Rave

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
{*------------------------------------------------------------------------------
  EmailitClick
  @param Sender   ParameterDescription
  @return ResultDescription
------------------------------------------------------------------------------*}
procedure TAknowledge.EmailitClick(Sender: TObject);
var DestPdf : String;
    myAttachment : TIdAttachment;
begin
with Datas do
 begin
  RvSystem1.SystemSetups:=RvSystem1.SystemSetups - [ssAllowPrinterSetup,ssAllowSetup,ssAllowPreviewSetup];//ssAllowDestFile];
  RvSystem1.SystemOptions:=RvSystem1.SystemOptions + [soShowStatus];
  RvSystem1.SystemPrinter.Copies:=1;
  Rvsystem1.DefaultDest := rdfile;
  Rvsystem1.ReportDest := rdfile;
  Rvsystem1.RenderObject := rvrenderpdf1;
  DestPdf:=ExtractFilePath(ParamStr(0))+'PDF';
  SysUtils.Forcedirectories(DestPdf);
  RvSystem1.OutputFileName:=DestPdf+'\'+ZPReservation.FieldByName('NUMBER').asString+'.PDF';
  Rvsystem1.DoNativeOutput := False;
  Hotel.Active:=True;
  try
  Case AnsiIndexStr(ZPReservation.FieldByName('STATE').asString, ['U', 'C']) of
    0 : ExecReport('Aknowledge');
    1 : ExecReport('Aknowledge');
  end;
   rvProject1.Execute;
  finally
   rvProject1.Close;
   Hotel.Active:=false;
   RvSystem1.SystemSetups:=RvSystem1.SystemSetups + [ssAllowPrinterSetup,ssAllowSetup,ssAllowPreviewSetup,ssAllowDestFile];
   RvSystem1.SystemOptions:=RvSystem1.SystemOptions - [soShowStatus];
   rvSystem1.ReportDest:=rdPreview;
   Rvsystem1.DefaultDest := rdPreview;
  end;
 end;
/// Send Mail
IdMessage1.Clear; //Clear header and body
IdMessage1.From.Text :=MailFrom.Text; //sender email
IdMessage1.ReplyTo.EMailAddresses:=MailFrom.Text; //Reply To address
IdMessage1.Recipients.EMailAddresses:=Mailto.Text; // recipient address
iDMEssage1.CCList.EMailAddresses:=MailCC.Text;   // Adresses Copies
IdMessage1.Date:=Now; // Date
IdMessage1.Subject:='Inle ViewPoint - Booking Confirmation' ; // subject
IdMessage1.Priority:=mpNormal; //Priorité du message
myAttachment := TIdAttachment.Create(idMessage1.MessageParts,Datas.RvSystem1.OutputFileName);
myAttachment.ContentType := 'application/pdf';
myAttachment.ContentDisposition := 'attachment';
myAttachment.FileName := ExtractFileName(datas.RvSystem1.OutputFileName);
IdMessage1.Body.Assign(Memo1.Lines); //Corps du message
try
 try
   idSMTP1.Connect(2000);
   idSMTP1.Send(idMessage1);
   except on E:Exception do
     begin
      EmailStatus.Lines.Insert(0, 'ERROR: ' + E.Message);
      MessageDlg('E-mail unsent', mtError, [mbOK], 0);
     end;
    end;
finally
    if idSMTP1.Connected then idSMTP1.Disconnect;
end;
end;

tu devrais y trouver ton bonheur