Truy cập vào jar Java từ Delphi

Question

Có thư viện nhị phân Java jar với các lớp/hàm được mô tả làm cho một số thứ hữu ích (không có gì đặc biệt chỉ đơn giản là Java - không có JNI). Không có nguồn nào.

Có nhiệm vụ gọi các chức năng đó trực tiếp từ Delphi. Làm thế nào để làm điều đó?

P.S. Tôi không biết gì về Delphi, nhưng tôi biết rất nhiều về Java.

Answer 1

Không, bạn không thể di chuyển là JNI.

Một vài nguồn:

• Pacifiers series on using JNI from Delphi
• my Talking Java from Delphi talk tại EKON 11 conference
• các Delphi JNI questions on SO

Trừ khi bạn có quá nhiều thời gian trên bàn tay của bạn, trong đó bạn có thể giải nén JAR các tệp (chúng là các tệp ZIP), viết máy ảo Java của riêng bạn trong Delphi và đi từ đó ;-)

Answer 2

Tệp jar có chứa một lớp chính có thể được gọi từ dòng lệnh không? Nếu vấn đề được giải quyết thì Delphi có thể thực thi các thao tác dòng lệnh. Nếu không có lớp chính, bạn có thể tạo một lớp gọi tệp jar gốc.

Answer 3

Nếu bạn dịch ngược tệp nhị phân và tạo ra một loại nguồn java nguyên thủy, thì bạn có thể xem xét sử dụng Java to Pascal converter. Điều này có thể thực hiện được mà không gặp nhiều rắc rối kể từ khi bạn nói rằng JAR không có gì đặc biệt hoặc phức tạp.

Answer 4

Là giải pháp thay thế nhanh và đơn giản hơn với mức độ thấp, tốn thời gian và dễ bị lỗi JNI từ tùy chọn Delphi, bạn nên thử Java for Delphi.

Bạn sẽ làm việc với API hướng đối tượng, sẽ cần một phần mã khi so sánh với JNI và giải quyết vấn đề tích hợp Delphi/Java trong vài giờ thay vì ngày, tuần (hoặc tháng tùy thuộc vào việc sử dụng trường hợp).

Ví dụ, dưới đây là khai báo công khai của loại Delphi tương ứng với java.lang.String với một trích xuất mã cho thấy nó có thể được sử dụng như thế nào.

Đừng ngần ngại liên hệ với J4SOFT, sẽ rất sẵn lòng trợ giúp bạn.

Procedure Sample; 
var 
    AJavaString: Ijava_lang_String; 
    AValue: string; 
begin 
    AJavaString := Tjava_lang_String.Create('A value'); 
    AValue := AjavaString.ToString; 
    if AJavaString.StartsWith('A') then 
    ... 
end; 

... 
type 
    Tjava_lang_String = class(Tjava_lang_Object, Ijava_lang_String) 
    public 
    constructor Create; 
    constructor Create(p0: string); 
    constructor Create(p0: Ijava_lang_StringBuffer); 
    constructor Create(p0: Ijava_lang_StringBuilder); 
    constructor Create(p0: TjxByte1DArray); 
    constructor Create(p0: TjxByte1DArray; p1: Longint); 
    constructor Create(p0: TjxByte1DArray; p1: Longint; p2: Longint); 
    constructor Create(p0: TjxByte1DArray; p1: Longint; p2: Longint; p3: Longint); 
    constructor Create(p0: TjxByte1DArray; p1: Longint; p2: Longint; p3: string); 
    constructor Create(p0: TjxByte1DArray; p1: string); 
    constructor Create(p0: TjxChar1DArray); 
    constructor Create(p0: TjxChar1DArray; p1: Longint; p2: Longint); 
    constructor Create(p0: TjxInt1DArray; p1: Longint; p2: Longint); 
    function CharAt(p0: Longint): Char; 
    function CodePointAt(p0: Longint): Longint; 
    function CodePointBefore(p0: Longint): Longint; 
    function CodePointCount(p0: Longint; p1: Longint): Longint; 
    function CompareTo(p0: string): Longint; 
    function CompareToIgnoreCase(p0: string): Longint; 
    function Concat(p0: string): string; 
    function ContentEquals(p0: Ijava_lang_StringBuffer): Boolean; 
    class function CopyValueOf(p0: TjxChar1DArray): string; 
    class function CopyValueOf(p0: TjxChar1DArray; p1: Longint; p2: Longint): string; 
    function EndsWith(p0: string): Boolean; 
    function Equals(p0: Ijava_lang_Object): Boolean; reintroduce; 
    function EqualsIgnoreCase(p0: string): Boolean; 
    class function Format(p0: string; p1: Tjava_lang_Object1DArray): string; 
    function GetBytes: TjxByte1DArray; 
    procedure GetBytes(p0: Longint; p1: Longint; p2: TjxByte1DArray; p3: Longint); 
    function GetBytes(p0: string): TjxByte1DArray; 
    procedure GetChars(p0: Longint; p1: Longint; p2: TjxChar1DArray; p3: Longint); 
    function HashCode: Longint; 
    function IndexOf(p0: Longint): Longint; 
    function IndexOf(p0: Longint; p1: Longint): Longint; 
    function IndexOf(p0: string): Longint; 
    function IndexOf(p0: string; p1: Longint): Longint; 
    function Intern: string; 
    function IsEmpty: Boolean; 
    function LastIndexOf(p0: Longint): Longint; 
    function LastIndexOf(p0: Longint; p1: Longint): Longint; 
    function LastIndexOf(p0: string): Longint; 
    function LastIndexOf(p0: string; p1: Longint): Longint; 
    function Length_: Longint; 
    function Matches(p0: string): Boolean; 
    function OffsetByCodePoints(p0: Longint; p1: Longint): Longint; 
    function RegionMatches(p0: Longint; p1: string; p2: Longint; p3: Longint): Boolean; 
    function RegionMatches(p0: Boolean; p1: Longint; p2: string; p3: Longint; p4: Longint): Boolean; 
    function Replace(p0: Char; p1: Char): string; 
    function ReplaceAll(p0: string; p1: string): string; 
    function ReplaceFirst(p0: string; p1: string): string; 
    function Split(p0: string): TjxString1DArray; 
    function Split(p0: string; p1: Longint): TjxString1DArray; 
    function StartsWith(p0: string): Boolean; 
    function StartsWith(p0: string; p1: Longint): Boolean; 
    function Substring(p0: Longint): string; 
    function Substring(p0: Longint; p1: Longint): string; 
    function ToCharArray: TjxChar1DArray; 
    function ToLowerCase: string; 
    function ToString: string; 
    function ToUpperCase: string; 
    function Trim: string; 
    class function ValueOf(p0: Char): string; 
    class function ValueOf(p0: Double): string; 
    class function ValueOf(p0: Single): string; 
    class function ValueOf(p0: Longint): string; 
    class function ValueOf(p0: Int64): string; 
    class function ValueOf(p0: Ijava_lang_Object): string; 
    class function ValueOf(p0: Boolean): string; 
    class function ValueOf(p0: TjxChar1DArray): string; 
    class function ValueOf(p0: TjxChar1DArray; p1: Longint; p2: Longint): string; 
    property CASE_INSENSITIVE_ORDER; 
    end;