Migrazione da Delphi a Java EE

Il tool Ispirer MnMTK esegue la conversione da Delphi a Java EE di varia complessità.

Questa presentazione demo dimostra come il tool Ispirer MnMTK converte applicazioni Delphi verso Java EE:

Questa presentazione demo dimostra come il tool Ispirer MnMTK esegue la conversione di un’applicazione da Delphi verso Java Spring Boot:

Perchè Ispirer MnMTK

Ispirer MnMTK può aiutarvi a convertire la vostra applicazione Delphi automaticamente. Scegliendo Ispirer MnMTK potete anche eliminare i rischi di conversione e ridurre notevolmente la quantità di sforzi interni necessari per la migrazione.

I nostri vantaggi principali:

• ll team esperto e qualificato: i tecnici d’Ispirer hanno grande esperienza in realizzazione di progetti di migrazione di varia complessità.
• Approccio orientato al cliente e Personalizzazione rapida: personalizziamo il nostro strumento di migrazione in modo che permetta di soddisfare pienamente le esigenze di business dei nostri clienti; aggiustamenti gratuiti durante 1-2 giorni lavorativi;
• Collaborazione pre-vendita: dimostriamo la conversione completa durante la fase di valutazione prima che prenderete la decisione finale.
• Buon prezzo: offriamo la politica di prezzatura flessibile;
• Conversione ottimizzata: il codice facilmente gestito senza il middleware di Ispirer usato dopo la conversione.

Valutazione

Valutazione ci aiuta ad estimare gli sforzi e i costi di migrazione. Per iniziare i discorsi di collaborazione e fare la valutazione approssimativa, si prega di riempire:

• Questionario per migrazione da Delphi a Java

Ispirer offre il processo di collaborazione onnicomprensivo per il vostro progetto di conversione di un'applicazione. Per saperne di più per favore andate alla pagina Modello di collaborazione per migrazione di applicazioni.

Caratteristiche di conversione

• Il tool Ispirer MnMTK converte il codice sorgente Delphi con la logica di business (*.pas) verso i classi Java.

Delphi:

 
unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, 
Graphics, Controls, Forms, Dialogs, StdCtrls;
 
type
  TForm4 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
implementation
 
{$R *.dfm}
 
procedure TForm4.Button1Click(Sender: TObject);
begin
  Edit1.Text := 
IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
end;
 
end.
 

Java:

 
import org.springframework.beans.factory.annotation.Autowired;
import org.springframework.stereotype.Controller;
import org.springframework.ui.Model;
import org.springframework.web.bind.annotation.RequestMapping;
import org.springframework.web.bind.annotation.RequestMethod;
import javax.servlet.http.HttpServletRequest;
import java.util.logging.Logger;
 
@Controller
public class Unit4
{
   Logger logger = Logger.getGlobal();
 
   @Autowired
   private TForm4 Form4 = null;
 
   @RequestMapping(value="/TForm4",method=RequestMethod.POST,
params="Button1")
   public String Button1Click(HttpServletRequest request, Model model)
   {
      this.setPageValues(request);
      this.Form4.setEdit1Text(String.valueOf(
         Integer.parseInt(this.Form4.getEdit1Text())+ 
         Integer.parseInt(this.Form4.getEdit2Text())));
      this.addModelAttributes(model);
      return "TForm4";
   }
      public void setPageValues(HttpServletRequest request)
   {
      this.Form4.setEdit1Text(request.getParameter("Edit1"));
      this.Form4.setEdit2Text(request.getParameter("Edit2"));
   }
   public void addModelAttributes(Model model)
   {
      model.addAttribute("Edit1Text",this.Form4.getEdit1Text());
      model.addAttribute("Edit2Text",this.Form4.getEdit2Text());
   }
}
 

• Converte i file Delphi Forms (*.dfm) verso JSP e classi Java.

Delphi:

 
object Form4: TForm4
  Left = 0
  Top = 0
  Caption = 'Form4'
  ClientHeight = 158
  ClientWidth = 201
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 107
    Width = 46
    Height = 13
    Caption = 'Summand'
  end
  object Button1: TButton
    Left = 24
    Top = 64
    Width = 153
    Height = 25
    Caption = 'Sum'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 24
    Top = 37
    Width = 153
    Height = 21
    TabOrder = 1
    Text = '0'
  end
  object Edit2: TEdit
    Left = 76
    Top = 104
    Width = 101
    Height = 21
    TabOrder = 2
    Text = '0'
  end
end
 

Java:

 
package com.ispirer.controller.demo.Logic;
 
import org.springframework.stereotype.Controller;
import org.springframework.ui.Model;
import org.springframework.web.bind.annotation.RequestMapping;
 
@Controller
public class TForm4
{
          private String Edit1Text = null;
          private String Edit2Text = null;
 
          public String getEdit1Text()
          {
                    return Edit1Text;
          }
 
          public void setEdit1Text(String edit1Text)
          {
                    Edit1Text = edit1Text;
          }
 
          public String getEdit2Text()
          {
                    return Edit2Text;
          }
 
          public void setEdit2Text(String edit2Text)
          {
                    Edit2Text = edit2Text;
          }
 
          @RequestMapping(value = "/TForm4")
          public String FormCreate(Model model)
          {
                    this.Edit1Text = "0";
                    model.addAttribute("Edit1Text",this.Edit1Text);
                    this.Edit2Text = "0";
                    model.addAttribute("Edit2Text",this.Edit2Text);
                    return “TForm4";
          }
}
 

JSP:

 
<%@taglib prefix="c" 
uri="http://java.sun.com/jsp/jstl/core"%>
<%@taglib prefix="form" 
uri="http://www.springframework.org/tags/form"%>
<%@taglib prefix="mvc" 
uri="http://www.springframework.org/tags/form"%>
<%@page contentType="text/html;charset=UTF-8" language="java"%>
<html>
   <head>
      <title>Form4</title>
      <link rel="stylesheet" type="text/css" 
href="<c:url value="/resources/css/style.css"/>" />
   </head>
   <body>
      <div class="layout">
         <div class="left">
         </div>
         <div class="content">
            <form:form method="post">
               <label 
style="left:24px;top:107px;width:46px;height:13px;">Summand</label>
               <input type="submit" name="Button1" value="Sum" 
style="left:24px;top:64px; width:153px;height:25px;"/>
               <input type="text" name="Edit1" value="${Edit1Text}" 
style="left:24px;top:37px; width:153px;height:21px;"/>
               <input type="text" name="Edit2" value="${Edit2Text}" 
style="left:76px;top:104px; width:101px;height:21px;"/>
            </form:form>
         </div>
         <div class="right">
         </div>
      </div>
   </body>
</html>
 

Delphi		Java

• Converte Delphi Data Access (BDE, ADO, eсc.) verso Java Database Access Frameworks (JDBC, Hibernate, Torque, ecc.)

Delphi:

 
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.sql.*;
import org.springframework.stereotype.Controller;
import org.springframework.ui.Model;
import org.springframework.web.bind.annotation.RequestMapping;
import util.TDBGrid;
 
@Controller
public class TForm2
{
   private TDBGrid DBGrid1 = null;
   private static String[] connectionString=
{"jdbc:odbc:MSSQL_VMDBSRV002_ETEST","sa","" };
   public static Connection ADOConnection1()
   {
      try
      {
         return DriverManager.getConnection(
connectionString[0],
connectionString[1],
connectionString[2]);
      }
      catch(SQLException e)
      {
         e.printStackTrace();
      }
      return null;
   }
   private PreparedStatement ADOQuery1 = null;
   private String ADOQuery1_SQL_Strings = 
"select col1 from tab2_test";
   private ResultSet DataSource1 = null;
   public void setADOQuery1(PreparedStatement ADOQuery1)
   {
      this.ADOQuery1 = ADOQuery1;
   }
   public PreparedStatement getADOQuery1()
   {
      return this.ADOQuery1;
   }
   public void setADOQuery1_SQL_Strings(String ADOQuery1_SQL_Strings)
   {
      this.ADOQuery1_SQL_Strings = ADOQuery1_SQL_Strings;
   }
   public String getADOQuery1_SQL_Strings()
   {
      return this.ADOQuery1_SQL_Strings;
   }
   public void setDataSource1(ResultSet DataSource1)
   {
      this.DataSource1 = DataSource1;
   }
   public ResultSet getDataSource1()
   {
      return this.DataSource1;
   }
   public void initDBGrid1(Model model)
   {
      this.DBGrid1 = new TDBGrid(this.DataSource1,new String[] 
      { "col1" });
      this.DBGrid1.initDBGridModel();
      model.addAttribute("DBGrid1",this.DBGrid1.getDBGridModel());
      model.addAttribute("DBGrid1ColWidth",new Integer[] { 100 });
   }
   @RequestMapping(value = "/TForm2")
   public String FormCreate(Model model)
   {
      try
      {
         this.ADOQuery1 = 
ADOConnection1().prepareStatement(getADOQuery1_SQL_Strings(),
ResultSet.TYPE_SCROLL_SENSITIVE,ResultSet.CONCUR_UPDATABLE);
      }
      catch(SQLException e)
      {
         e.printStackTrace();
      }
      try
      {
         this.DataSource1 = this.ADOQuery1.executeQuery();
      }
      catch(SQLException e)
      {
         e.printStackTrace();
      }
      initDBGrid1(model);
      return "TForm2";
   }
}
 

Delphi		Java

Questo è un esempio della conversione DBGrid con l'uso di ADOConnection, TADOQuery e TDataSource. Ispirer MnMTK genera classe Java JTable riempita dal database. Inoltre, Ispirer MnMTK può generare Hibernate automaticamente, mappe XML Torque secondo le tabelle del database.

• Converte i pacchetti Delphi (*.dpk) verso i pacchetti Java con classi

Potete scaricare gli esempi di codice sorgente Delphi ed i risultati della conversione:

• Logica di business
• Data Access utilizzando la tecnologia JDBC
• UI Logic a Swing

Per ulteriori informazioni si prega di contattarci.