Announcement

Collapse
No announcement yet.

Mit Rave in WindowsForms drucken??

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Mit Rave in WindowsForms drucken??

    Welche Möglichkeit habe ich Rave-Berichte via WindowsForms aufzurufen?

  • #2
    Verpack deinen Report in eine DLL und ruf den per P-Invoke auf

    Comment


    • #3
      aktuell wird nur vcl und vcl.net unterstützt aber es geht in WinForm wie folgt jetzt schon:

      unit WinForm3;

      interface

      uses
      System.Drawing, System.Collections, System.ComponentModel,
      System.Windows.Forms, System.Data, Borland.Vcl.Classes,
      Nevrona.Rave.RpBase, Nevrona.Rave.RpSystem,
      Nevrona.Rave.RpDefine, Nevrona.Rave.RpRave, Nevrona.Rave.RpCon,
      Nevrona.Rave.RpRender, Nevrona.Rave.RpRenderPDF;

      type
      TWinForm3 = class(System.Windows.Forms.Form)
      {$REGION 'Designer Managed Code'}
      strict private
      /// <summary>
      /// Required designer variable.
      /// </summary>
      Components: System.ComponentModel.Container;
      Button1: System.Windows.Forms.Button;
      Button2: System.Windows.Forms.Button;
      /// <summary>
      /// Required method for Designer support - do not modify
      /// the contents of this method with the code editor.
      /// </summary>
      procedure InitializeComponent;
      procedure Button1_Click(sender: System.object; e: System.EventArgs);
      procedure Button2_Click(sender: System.object; e: System.EventArgs);
      procedure TWinForm3_Load(sender: System.object; e: System.EventArgs);
      {$ENDREGION}
      strict protected
      /// <summary>
      /// Clean up any resources being used.
      /// </summary>
      procedure Dispose(Disposing: Boolean); override;
      private
      RvProject: TRvProject;
      RvSystem: TRvSystem;
      RvRender: TRvRenderPDF;
      RvCustomConnection1: TRvCustomConnection;
      NDRStream: TMemoryStream;
      procedure RvCustomConnection1GetCols(Connection: TRvCustomConnection);
      procedure TestCC;
      TC1, TC2: TTableRvConnection;
      TD1, TD2: TTableData;

      { Private Declarations }
      public
      constructor Create;
      end;

      [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm3))]

      .....

      RvRender := TRvRenderPDF.Create(nil);
      RvSystem := TRvSystem.Create(nil);
      RvProject := TRvProject.Create(nil);

      .....

      Comment

      Working...
      X