Delphi nach Java Konvertierung

Ispirer MnMTK ist das Tool für die Anwendungskonvertierung. Dieses Tool kann die Konvertierung von Delphi nach Java automatisch durchführen.

Während der Erarbeitung unser Tools berücksichtigen wir die Anforderungen der Kunden um die besseren Konvertierungsergebnisse zu erreichen. Unser technishes Team hat viele Erfahrung und immer findet die innovativen Lösungen zu den komplizierten Problemen.

Diese Demo zeigt, wie Ispirer MnMTK 2015 Delphi nach Java konvertieren kann.

Warum Ispirer MnMTK

• Hochqualifiziertes Team: unsere Experten haben viele Erfahrung in den Migrationsprojekten und können Migrationen auf jeden Schwierigkeitsgrad durchführen.
• Kundenorientierung: wir personalisieren das Tool gemäß der Anforderungen von den Kunden. Die Erweiterung des Tools nimmt 1-2 Tage in Anspruch;
• Online-Meeting: es gibt die Möglichkeit Online-Meetings zu vereinbaren, während dessen unser Team den Konvertierungsprozess Ihnen demonstrieren kann;
• Projektbezogene Preise: die Preise hängen von der Größe des Projektes ab; wir bieten eine Reihe von Optionen an, damit Sie am besten passende Option wählen können;
• Optimierte Konvertierung: nach der Konvertierung bekommen Sie den komplett funktionellen Code.

Bewertungsprozess

• Delphi nach Java Fragenbogen

Konvertierungsfunktionen

• Konvertierung der Delphi-Quellcode mit Business-Logik (* .pas) nach Java-Paketen mit Klassen

Delphi:

 
unit DemoCode;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, 
  Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Caption := 'Changed';
end;
 
end.
 

Java:

 
import java.awt.event.*;
 
public class DemoCode
{
   TForm1 Form1 = null;
   public DemoCode()
   {
         Form1 = new TForm1();
         Form1.setVisible(true);
         Form1.getButton1().addActionListener(new ActionListener()
         {
            @Override
            public void actionPerformed(ActionEvent event)
            {
               Button1Click(null);
            }
         });
   }
   public void Button1Click(Object Sender)
   {
      Form1.getButton1().setText("Changed");
   }
 
} 
 

Pas Konvertierung wird auf dem Initialisierungsformular basiert. Es hinfügt Hörer Tasten und Logik-Konvertierung. Konvertierte Java-Klasse hat Link auf die JFrame Form und initialisiert sich im Konstruktor. Ispirer MnMTK verwendet addActionListener Methoden mit anonymer Erstellung von Action um Event-Handler auf Schaltflächen hinzufügen und brauchte Methode überschrieben actionPerformed Methode zu rufen.

• Konvertierung von Delphi Forms (*.dfm) Files nach Java UI Frameworks (Swing, SWT, Java FX, etc.)

Delphi:

 
object Form1: TForm1
  Left = 0
  Top = 0
  Width = 554
  Height = 289
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 232
    Top = 128
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
end
 

Java:

 
import javax.swing.*;
 
public class TForm1 extends JFrame
{
   private static final long serialVersionUID = 1L;
   private JButton Button1 = null;
   public JButton getButton1()
   {
      return this.Button1;
   }
   public TForm1()
   {
         setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
         setBounds(0,0,593,305);
         setTitle("Form1");
         getContentPane().setLayout(null);
         initTForm1();
   }
   private void initTForm1()
   {
      this.Button1 = new JButton();
      //
      // Button1
      //
      this.Button1.setBounds(232,128,75,25);
      this.Button1.setText("Button1");
      getContentPane().add(this.Button1);
   }
}
 

Delphi		Java

DFM-Dateien bestehen aus verschiedenen Eigenschaften. Für diese Skripte Ispirer MnMTK erzeugt Java Ansichtsklassen. Delphi Formulare werden nach Java JFrame mit denselben Namen konvertiert. Ispirer MnMTK schafft Analoga von Delphi Elemente als Felder der Klasse mit Getter für alle. Eigenschaften der Form werden in der Klasse Konstruktor weitere Immobilien in init geschrieben ... () -Methode angegeben.

• Konvertierung von Delphi Data Access (BDE, ADO, etc.) nach Java Datenbank Access Frameworks (JDBC, Hibernate, Torque, etc.)

Delphi:

 
object Form1: TForm1
  Left = 0
  Top = 0
  Width = 554
  Height = 289
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 232
    Top = 128
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
end object Form2: TForm2
  Left = 0
  Top = 0
  Width = 156  
  Height = 198
  Caption = 'Test'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 32
    Top = 8
    Width = 81
    Height = 120
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'col1'
        Visible = True
      end>
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;
       User ID=sa;Data S' +
      'ource=MSSQL_VMDBSRV002_ETEST'
    Left = 24
    Top = 136
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select col1 from tab1_test')
    Left = 56
    Top = 136
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 88
    Top = 136
  end
end
 

Java:

 
import java.awt.*;
import java.sql.*;
import java.util.Vector;
import javax.swing.*;
import javax.swing.table.DefaultTableModel;
 
public class TForm2 extends JFrame
{
   private static final long serialVersionUID = 1L;
   private JTable DBGrid1 = null;
   private Connection ADOConnection1 = null;
   private PreparedStatement ADOQuery1 = null;
   private ResultSet DataSource1 = null;
   public JTable getDBGrid1()
   {
      return this.DBGrid1;
   }
   public Connection getADOConnection1()
   {
      return this.ADOConnection1;
   }
   public PreparedStatement getADOQuery1()
   {
      return this.ADOQuery1;
   }
   public ResultSet getDataSource1()
   {
      return this.DataSource1;
   }
   public TForm2()
   {
         setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
         setBounds(0,0,172,229);
         setTitle("Test");
         getContentPane().setLayout(null);
         initTForm2();
   }
   private void initTForm2()
   {
      DefaultTableModel DBGrid1TM = new DefaultTableModel();
      DBGrid1TM.addColumn("col1");
      this.DBGrid1 = new JTable(DBGrid1TM);
      JPanel DBGrid1Panel = new JPanel();
      DBGrid1Panel.setLayout(new BorderLayout());
      JScrollPane DBGrid1ScrollPane = new JScrollPane(this.DBGrid1);
      DBGrid1Panel.add(DBGrid1ScrollPane, BorderLayout.CENTER);
      DBGrid1Panel.setBounds (32, 8,81,120);
      getContentPane().add(DBGrid1Panel);
 
      try
      {
    Class.forName("com.microsoft.sqlserver.jdbc.SQLServerDriver");
    String connectionUrl = "jdbc:sqlserver://vmdbsrv002:1433;
    databaseName=etest;user=sa;password=Ispirer_1999;"; 
    DriverManager.setLoginTimeout(30); 
    this.ADOConnection1 = DriverManager.getConnection(connectionUrl);
      }
      catch (SQLException | ClassNotFoundException e)
      {
    e.printStackTrace();
      }
 
      try
      {
    this.ADOQuery1 = ADOConnection1.prepareStatement(
    "select col1 from tab1_test");
      }
      catch (SQLException e1)
      {
    e1.printStackTrace();
      }
 
      try
      {
         this.DataSource1 = ADOQuery1.executeQuery();
      }
      catch(SQLException e)
      {
         e.printStackTrace();
      }
 
      try
      {
    while(this.DataSource1.next())
        {
          Vector<Object> row = new Vector<Object>();
          for 
      (int i = 1; 
       i <= this.DataSource1.getMetaData().getColumnCount(); i++) 
          {  
              row.addElement(this.DataSource1.getObject(i));
          }
          DBGrid1TM.addRow(row);
        }
      }
      catch (SQLException e)
      {
    e.printStackTrace();
      }
   }
}
 

Delphi		Java

Es ist ein Beispiel der Ispirer MnMTK DBGrid Konvertierung mit Nutzung TADOConnection TADOQuery und TDataSource. Als ein Ergebnis erzeugt Ispirer MnMTK mit JTable gefüllte Java-Klasse aus Datenbank. Auch kann Ispirer MnMTK automatisch Hibernate, Torque XML-Zuordnungen nach Datenbanktabellen generieren.

• Konvertiert Delphi Packages (*.dpk) nach Java Packages mit Classen

Sie können Delphi-Quellcode Proben und die Ergebnisse der Konvertierung downloaden:

• Business Logik
• Daten Access mit Verwendung von JDBC Technology
• UI Logik nach Swing

Für weitere Informationen, kontaktieren Sie bitte uns.