Java转Delphi的工具类

最新推荐文章于 2021-03-12 23:59:38 发布
最新推荐文章于 2021-03-12 23:59:38 发布
阅读量4.6k 收藏 2
点赞数
分类专栏： JAVA 文章标签： delphi java newline string integer constructor
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xiakan008/article/details/7327491
版权


最近有个项目需要用到Java中间层和Delphi客户端，中间层和客户端之间的交互用JSON；

大家都知道Java世界里存在着各种各样的实体类，而Delphi端也需要这些实体类的代码，当然通过JNI也是可以访问JAVA代码的，但是这样无疑会带来项目复杂度，因此写了这么个转换工具类。

调用方法：ClassUtil.TransforEntiyToDelphi( ClassUtil.getModelClasses("com.nbport") );

com.nbport是包名，其会扫描包下所有被标记为@Entity的类

1.实现了Java实体类转为Delphi实体类的功能

2.实现了由SuperObject直接映射成为Delphi实体类的功能；

代码很垃圾。。。有空再重构下

package com.nbport.ctos.framework.util;

import java.beans.PropertyDescriptor;
import java.io.BufferedWriter;
import java.io.File;
import java.io.FileFilter;
import java.io.FileOutputStream;
import java.io.IOException;
import java.io.OutputStreamWriter;
import java.lang.reflect.Method;
import java.lang.reflect.ParameterizedType;
import java.net.JarURLConnection;
import java.net.URL;
import java.net.URLDecoder;
import java.util.Enumeration;
import java.util.Hashtable;
import java.util.LinkedHashSet;
import java.util.Map;
import java.util.Set;
import java.util.jar.JarEntry;
import java.util.jar.JarFile;

import javax.persistence.Entity;

import org.springframework.beans.BeanWrapper;
import org.springframework.beans.BeanWrapperImpl;

public class ClassUtil {

	private static Hashtable< Class<?>,Integer > useEntiy = new Hashtable< Class<?>,Integer >();
	
	private static final String NEWLINE = "\r\n";
	
	public static void TransforEntiyToDelphi(Set<Class<?>> set)
			throws IOException, InstantiationException, IllegalAccessException {
		for (Class<?> c : set) {
			useEntiy.clear();
			String className = GetDClassName(c);
			File file = new File(GetDUintName(c)+".pas");
			BufferedWriter out = new BufferedWriter(new OutputStreamWriter(
					new FileOutputStream(file)));
			BeanWrapper bw = new BeanWrapperImpl(c.newInstance());
			PropertyDescriptor[] pds = bw.getPropertyDescriptors();
			StringBuffer privateFieldString = new StringBuffer();
			StringBuffer publicFieldString = new StringBuffer();
			StringBuffer propertyString = new StringBuffer();
			StringBuffer methodImpString = new StringBuffer();
			StringBuffer createFromJson = new StringBuffer();
			StringBuffer destroyString = new StringBuffer(); 
			publicFieldString.append("\t")
					.append("constructor Create; overload;").append(NEWLINE);
			publicFieldString
					.append("\t")
					.append("constructor Create(obj : ISuperObject); overload;")
					.append(NEWLINE);
			publicFieldString
					.append("\t")
					.append("destructor Destroy; overload;")
					.append(NEWLINE);
			
			publicFieldString.append("\t")
					.append("procedure CreateFromJSON(obj : ISuperObject);")
					.append(NEWLINE);
			
			methodImpString.append("constructor ").append(className)
					.append(".").append("Create").append(";").append(NEWLINE);
			methodImpString.append("begin").append(NEWLINE).append("\t")
					.append("inherited Create;").append(NEWLINE).append("end;")
					.append(NEWLINE);
			
			methodImpString.append("constructor ").append(className)
					.append(".").append("Create(obj : ISuperObject);").append(NEWLINE);
			methodImpString.append("begin").append(NEWLINE).append("\t")
					.append("inherited Create;").append(NEWLINE).append("\t")
					.append("CreateFromJSON(obj);").append(NEWLINE)
					.append("end;").append(NEWLINE);
			
			methodImpString.append(GetDestoryString(destroyString, c));
			
			createFromJson
					.append("procedure ").append(className).append(".")
					.append("CreateFromJSON(obj : ISuperObject);").append(NEWLINE);
			if(IsNeedVarArray(c)){
				createFromJson.append("var").append(NEWLINE).append("i : Integer;").append(NEWLINE)
					.append("jsonArray : TSuperArray;").append(NEWLINE);
			}
			createFromJson.append("begin").append(NEWLINE);
			for (PropertyDescriptor pd : pds) {
				Method readMethod = pd.getReadMethod();
				Method writeMethod = pd.getWriteMethod();
				if (readMethod != null && writeMethod != null) {
					String fieldName = pd.getDisplayName();
					String fixedName = "F"
							+ fieldName.substring(0, 1).toUpperCase()
							+ fieldName.substring(1);
					privateFieldString.append("\t").append(fixedName)
							.append(" : ")
							.append(JToD(pd.getPropertyType(),readMethod))
							.append(";").append(NEWLINE);

					publicFieldString
							.append("\t")
							.append("procedure " + writeMethod.getName())
							.append("(")
							.append("const Value : "
									+ JToD(writeMethod
											.getParameterTypes()[0],readMethod))
							.append(")").append(";").append(NEWLINE);

					publicFieldString.append("\t")
							.append("function " + readMethod.getName())
							.append("() : ").append(JToD(readMethod.getReturnType(),readMethod))
							.append(";").append(NEWLINE);

					propertyString.append("\t").append("property ")
							.append(fieldName.substring(0, 1).toUpperCase()+ fieldName.substring(1)).append(" : ")
							.append(JToD(pd.getPropertyType(),readMethod))
							.append(" read ").append(readMethod.getName())
							.append(" write ").append(writeMethod.getName())
							.append(";").append(NEWLINE);

					methodImpString
							.append("procedure ")
							.append(className)
							.append(".")
							.append(writeMethod.getName())
							.append("(")
							.append("const Value : "
									+ JToD(writeMethod
											.getParameterTypes()[0],readMethod))
							.append(")").append(";").append(NEWLINE);

					methodImpString.append("begin").append(NEWLINE).append("\t")
							.append(fixedName).append(" := Value;")
							.append(NEWLINE).append("end;").append(NEWLINE);

					methodImpString.append("function ").append(className)
							.append(".").append(readMethod.getName())
							.append("() : ").append(JToD(readMethod.getReturnType(),readMethod))
							.append(";").append(NEWLINE);

					methodImpString.append("begin").append(NEWLINE).append("\t")
							.append("Result := ").append(fixedName).append(";")
							.append(NEWLINE).append("end;").append(NEWLINE);
					
					GetJsonConvertString(createFromJson,fieldName,fixedName,pd);
				}
			}
			out.write("unit "+GetDUintName(c)+";");
			out.newLine();
			out.write("interface");
			out.newLine();
			out.write("uses");
			out.newLine();
			StringBuffer useUnit = new StringBuffer();
			for (Map.Entry<Class<?>,Integer> entry:useEntiy.entrySet()) {
				String unitName = GetDUintName(entry.getKey());
				if (unitName.compareToIgnoreCase(GetDUintName(c))!=0) {
					useUnit.append(unitName).append(",");
				}
			}
			out.write(useUnit.length()==0?"\tClasses,SysUtils,Contnrs,SuperObject;"
					:"\tClasses,SysUtils,Contnrs,SuperObject,"+useUnit.substring(0,useUnit.length()-1)+";");
			out.newLine();
			String typeDefine = GetTypeDefine(c);
			out.write(typeDefine.length()==0?"":"\ttype"+NEWLINE+typeDefine);
			out.newLine();
			out.write("\ttype");
			out.newLine();
			out.write("\t\t" + className + " = class(TObject)");
			out.newLine();
			out.write("private");
			out.newLine();
			out.write(privateFieldString.toString());
			out.newLine();
			out.write("public");
			out.newLine();
			out.write(publicFieldString.toString());
			out.newLine();
			out.write(propertyString.toString());
			out.newLine();
			out.write("end;");
			out.newLine();
			out.write("implementation");
			out.newLine();
			out.write(methodImpString.toString());
			out.write(createFromJson.append("end;").append(NEWLINE).toString());
			out.newLine();
			out.write("end.");
			out.newLine();
			out.flush();
			out.close();
		}
	}

	private static boolean IsNeedVarArray(Class<?> c) throws InstantiationException, IllegalAccessException {
		BeanWrapper bw = new BeanWrapperImpl(c.newInstance());
		PropertyDescriptor[] pds = bw.getPropertyDescriptors();
		for (PropertyDescriptor pd:pds) {
			if(pd.getPropertyType().getSimpleName().compareToIgnoreCase("list")==0){
				Class<?> jClass = GetGenericTypeByGetMethod(pd.getReadMethod());
				if (IsEntiyClass(jClass)) {
					return true;
				}
			}
		}
		return false;
	}

	private static String GetTypeDefine(Class<?> c) throws InstantiationException, IllegalAccessException {
		BeanWrapper bw = new BeanWrapperImpl(c.newInstance());
		PropertyDescriptor[] pds = bw.getPropertyDescriptors();
		StringBuffer sb = new StringBuffer();
		for (PropertyDescriptor pd:pds) {
			if(pd.getPropertyType().getSimpleName().compareToIgnoreCase("list")==0){
				Class<?> jClass = GetGenericTypeByGetMethod(pd.getReadMethod());
				if (IsEntiyClass(jClass)) {
					sb.append("\t\t").append(GetDClassName(jClass)).append("Array = Array of ").append(GetDClassName(jClass)).append(";");
				}else {
					sb.append("\t\t").append(JToDBasic(jClass)).append("Array = Array of ").append(JToDBasic(jClass)).append(";");
				}
			}
		}
		return sb.toString();
	}

	public static Set<Class<?>> getModelClasses(String pack) {
		Set<Class<?>> set = getClasses(pack);
		Set<Class<?>> newSet = new LinkedHashSet<Class<?>>();
		for (Class<?> c : set) {
			if (IsEntiyClass(c)) {
				newSet.add(c);
			}
		}
		return newSet;
	}
	
	public static Set<Class<?>> getClasses(String pack) {
		// 第一个class类的集合
		Set<Class<?>> classes = new LinkedHashSet<Class<?>>();
		// 是否循环迭代
		boolean recursive = true;
		// 获取包的名字 并进行替换
		String packageName = pack;
		String packageDirName = packageName.replace('.', '/');
		// 定义一个枚举的集合 并进行循环来处理这个目录下的things
		Enumeration<URL> dirs;
		try {
			dirs = Thread.currentThread().getContextClassLoader()
					.getResources(packageDirName);
			// 循环迭代下去
			while (dirs.hasMoreElements()) {
				// 获取下一个元素
				URL url = dirs.nextElement();
				// 得到协议的名称
				String protocol = url.getProtocol();
				// 如果是以文件的形式保存在服务器上
				if ("file".equals(protocol)) {
					// 获取包的物理路径
					String filePath = URLDecoder.decode(url.getFile(), "UTF-8");
					// 以文件的方式扫描整个包下的文件 并添加到集合中
					findAndAddClassesInPackageByFile(packageName, filePath,
							recursive, classes);
				} else if ("jar".equals(protocol)) {
					// 如果是jar包文件
					// 定义一个JarFile
					JarFile jar;
					try {
						// 获取jar
						jar = ((JarURLConnection) url.openConnection())
								.getJarFile();
						// 从此jar包 得到一个枚举类
						Enumeration<JarEntry> entries = jar.entries();
						// 同样的进行循环迭代
						while (entries.hasMoreElements()) {
							// 获取jar里的一个实体 可以是目录 和一些jar包里的其他文件 如META-INF等文件
							JarEntry entry = entries.nextElement();
							String name = entry.getName();
							// 如果是以/开头的
							if (name.charAt(0) == '/') {
								// 获取后面的字符串
								name = name.substring(1);
							}
							// 如果前半部分和定义的包名相同
							if (name.startsWith(packageDirName)) {
								int idx = name.lastIndexOf('/');
								// 如果以"/"结尾 是一个包
								if (idx != -1) {
									// 获取包名 把"/"替换成"."
									packageName = name.substring(0, idx)
											.replace('/', '.');
								}
								// 如果可以迭代下去 并且是一个包
								if ((idx != -1) || recursive) {
									// 如果是一个.class文件 而且不是目录
									if (name.endsWith(".class")
											&& !entry.isDirectory()) {
										// 去掉后面的".class" 获取真正的类名
										String className = name.substring(
												packageName.length() + 1,
												name.length() - 6);
										try {
											// 添加到classes
											classes.add(Class
													.forName(packageName + '.'
															+ className));
										} catch (ClassNotFoundException e) {

										}
									}
								}
							}
						}
					} catch (IOException e) {
						// log.error("在扫描用户定义视图时从jar包获取文件出错");
						e.printStackTrace();
					}
				}
			}
		} catch (IOException e) {
			e.printStackTrace();
		}
		return classes;
	}

	public static void findAndAddClassesInPackageByFile(String packageName,
			String packagePath, final boolean recursive, Set<Class<?>> classes) {
		// 获取此包的目录 建立一个File
		File dir = new File(packagePath);
		// 如果不存在或者 也不是目录就直接返回
		if (!dir.exists() || !dir.isDirectory()) {
			// log.warn("用户定义包名 " + packageName + " 下没有任何文件");
			return;
		}
		// 如果存在 就获取包下的所有文件 包括目录
		File[] dirfiles = dir.listFiles(new FileFilter() {
			// 自定义过滤规则 如果可以循环(包含子目录) 或则是以.class结尾的文件(编译好的java类文件)
			public boolean accept(File file) {
				return (recursive && file.isDirectory())
						|| (file.getName().endsWith(".class"));
			}
		});
		// 循环所有文件
		for (File file : dirfiles) {
			// 如果是目录 则继续扫描
			if (file.isDirectory()) {
				findAndAddClassesInPackageByFile(
						packageName + "." + file.getName(),
						file.getAbsolutePath(), recursive, classes);
			} else {
				// 如果是java类文件 去掉后面的.class 只留下类名
				String className = file.getName().substring(0,
						file.getName().length() - 6);
				try {
					classes.add(Thread.currentThread().getContextClassLoader()
							.loadClass(packageName + '.' + className));
				} catch (ClassNotFoundException e) {

				}
			}
		}
	}
	
	private static String GetDestoryString(StringBuffer sb,Class<?> jClass) throws InstantiationException, IllegalAccessException {
		BeanWrapper bw = new BeanWrapperImpl(jClass.newInstance());
		PropertyDescriptor[] pds = bw.getPropertyDescriptors();
		sb.append("destructor ").append(GetDClassName(jClass)).append(".Destroy;").append(NEWLINE);
		sb.append("var i:Integer;").append(NEWLINE);
		sb.append("begin").append(NEWLINE);
		sb.append("\t").append("inherited Destroy;").append(NEWLINE);
		for (PropertyDescriptor pd:pds) {
			Class<?> c = pd.getPropertyType();
			String fieldName = pd.getDisplayName();
			String fixedName = "F"
					+ fieldName.substring(0, 1).toUpperCase()
					+ fieldName.substring(1);
			if (c.getSimpleName().compareToIgnoreCase("list") == 0) {
				Class<?> gClass = GetGenericTypeByGetMethod(pd.getReadMethod());
				if (IsEntiyClass(gClass)) {
					sb.append("\t").append("for i:=0 to Length("+fixedName+")-1 do").append(NEWLINE);
					sb.append("\tbegin").append(NEWLINE);
					sb.append("\t\t").append(fixedName).append("[i].").append("Destroy;").append(NEWLINE);
					sb.append("\tend;").append(NEWLINE);
				}
			}else{
				if(IsEntiyClass(c)){
					sb.append("\t").append(fixedName).append(".Destroy;").append(NEWLINE);
				}
			}
		}
		return sb.append("end;").append(NEWLINE).toString();
	}
	
	private static String JToDBasic(Class<?> jClass) {
		if (jClass==null) {
			return "TObject";
		}
		if (IsEntiyClass(jClass)) {
			useEntiy.put(jClass, 1);
		}
		if (jClass.getSimpleName().compareToIgnoreCase("int") == 0
			|| jClass.getSimpleName().compareToIgnoreCase("long") == 0
			|| jClass.getSimpleName().compareToIgnoreCase("integer")==0) {
				return "Integer";
		}else if (jClass.getSimpleName().compareToIgnoreCase("double") == 0
				|| jClass.getSimpleName().compareToIgnoreCase("float") == 0) {
			return "Double";
		} else if (jClass.getSimpleName().compareToIgnoreCase("boolean") == 0) {
			return "Boolean";
		} else if (jClass.getSimpleName().compareToIgnoreCase("string") == 0
				|| jClass.getSimpleName().compareToIgnoreCase("date") == 0) {
			return "String";
		}
		return jClass.getSimpleName();
	}
	
	private static String JToD(Class<?> jClass,Method method) {
		if (jClass==null||method==null) {
			return "TObject";
		}
		if (IsEntiyClass(jClass)) {
			useEntiy.put(jClass, 1);
			return GetDClassName(jClass);
		}
		if (jClass.getSimpleName().compareToIgnoreCase("int") == 0
			|| jClass.getSimpleName().compareToIgnoreCase("long") == 0
			|| jClass.getSimpleName().compareToIgnoreCase("integer")==0) {
			return "Integer";
		}else if (jClass.getSimpleName().compareToIgnoreCase("double") == 0
				|| jClass.getSimpleName().compareToIgnoreCase("float") == 0) {
			return "Double";
		} else if (jClass.getSimpleName().compareToIgnoreCase("boolean") == 0) {
			return "Boolean";
		} else if (jClass.getSimpleName().compareToIgnoreCase("string") == 0
				|| jClass.getSimpleName().compareToIgnoreCase("date") == 0) {
			return "String";
		} else if (jClass.getSimpleName().compareToIgnoreCase("list") == 0) {
			Class<?> genericType = GetGenericTypeByGetMethod(method);
			if (IsEntiyClass(genericType)) {
				useEntiy.put(genericType, 1);
				return GetDClassName(genericType)+"Array";
			}else {
				return JToDBasic(genericType)+"Array";
			}
		}
		return jClass.getSimpleName();
	}

	public static Class<?> GetGenericTypeByGetMethod(Method method){ 
		ParameterizedType pt= (ParameterizedType)method.getGenericReturnType(); 
		if (pt!=null&&pt.getActualTypeArguments()!=null&&pt.getActualTypeArguments().length>0) {
			return (Class<?>)pt.getActualTypeArguments()[0];
		}
		return null; 
	}
	
	private static boolean IsEntiyClass(Class<?> jClass){
		return (jClass!=null&&jClass.getAnnotation(Entity.class)!=null);
	}
	
	private static String GetDUintName(Class<?> jClass) {
		return "U"+jClass.getSimpleName()+"Obj";
	}
	
	private static String GetDClassName(Class<?> jClass){
		return "T" + jClass.getSimpleName();
	}
	
	private static void GetJsonConvertString(StringBuffer sb,String fieldName,String fixedName,PropertyDescriptor pd){
		Class<?> jClass = pd.getPropertyType();
		sb.append("if obj['").append(fieldName).append("']").append("<>nil then").append(NEWLINE);
		sb.append("begin").append(NEWLINE);
		if (jClass.getSimpleName().compareToIgnoreCase("int") == 0
			|| jClass.getSimpleName().compareToIgnoreCase("long") == 0
			|| jClass.getSimpleName().compareToIgnoreCase("integer")==0) {
			sb.append("\t").append(fixedName).append(" := ").append("obj['").append(fieldName).append("']").append(".AsInteger();").append(NEWLINE);
		}else if (jClass.getSimpleName().compareToIgnoreCase("double") == 0
				|| jClass.getSimpleName().compareToIgnoreCase("float") == 0) {
			sb.append("\t").append(fixedName).append(" := ").append("obj['").append(fieldName).append("']").append(".AsDouble();").append(NEWLINE);
		}else if (jClass.getSimpleName().compareToIgnoreCase("boolean") == 0) {
			sb.append("\t").append(fixedName).append(" := ").append("obj['").append(fieldName).append("']").append(".AsBoolean();").append(NEWLINE);
		} else if (jClass.getSimpleName().compareToIgnoreCase("string") == 0
				|| jClass.getSimpleName().compareToIgnoreCase("date") == 0) {
			sb.append("\t").append(fixedName).append(" := ").append("obj['").append(fieldName).append("']").append(".AsString();").append(NEWLINE);
		} else if (jClass.getSimpleName().compareToIgnoreCase("list") == 0) {
			Class<?> genericType = GetGenericTypeByGetMethod(pd.getReadMethod());
			sb.append("\t").append("jsonArray := obj['").append(fieldName).append("']").append(".AsArray();").append(NEWLINE);
			sb.append("\t").append("setLength(").append(fixedName).append(",jsonArray.Length);").append(NEWLINE);
			sb.append("\t").append("for i:=0 to jsonArray.Length-1 do").append(NEWLINE);
			sb.append("\t").append("begin").append(NEWLINE);
			if (IsEntiyClass(genericType)){
				sb.append("\t\t").append(fixedName).append("[i] := ").append(GetDClassName(genericType))
					.append(".Create(").append("jsonArray.O[i]").append(");").append(NEWLINE);
			}else {
				sb.append("\t\t").append(fixedName).append("[i] := ").append("jsonArray.")
					.append(GetJsonBasicString(genericType)).append("[i]").append(");").append(NEWLINE);
			}
			sb.append("\tend;").append(NEWLINE);
		}else if(IsEntiyClass(jClass)){
			sb.append("\t").append(fixedName).append(" := ").append(GetDClassName(jClass)).append(".Create(").append("obj['"+fieldName+"']);").append(NEWLINE);
		}
		sb.append("end;").append(NEWLINE);
		return;
	}

	private static Object GetJsonBasicString(Class<?> jClass) {
		if (jClass.getSimpleName().compareToIgnoreCase("int") == 0
			|| jClass.getSimpleName().compareToIgnoreCase("long") == 0
			|| jClass.getSimpleName().compareToIgnoreCase("integer")==0) {
				return "I";
			}else if (jClass.getSimpleName().compareToIgnoreCase("double") == 0
					|| jClass.getSimpleName().compareToIgnoreCase("float") == 0) {
				return "D";
			}else if (jClass.getSimpleName().compareToIgnoreCase("boolean") == 0) {
				return "B";
			} else if (jClass.getSimpleName().compareToIgnoreCase("string") == 0
					|| jClass.getSimpleName().compareToIgnoreCase("date") == 0) {
				return "S";
			}
		return "S";
	}
}


BT六眼飞鱼
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
delphi转java_从DELPHI到JAVA转换
weixin_42150745的博客
02-13 477
1．字符串处理DELPHIvar s :string;s := s + 'a string';JAVA(普通用法)String s = new String();s += 'a string';由于String对象不可修改，导致对String对象赋值会有一个StringBuffer对象产生并销毁，一个新的String对象被产生。在大字符串处理和循环处理时，性能极差。----参见《JAVA字符串处理...
Delphi调用Java类和包源代码
04-14
5. **调用Java类和包**：在Delphi的JNI函数中，可以使用`FindClass`来获取Java类的引用，然后通过`GetMethodID`和`CallVoidMethod`等函数来调用Java类的方法。如果需要访问Java包，可以按`...
Java2Pas（Java代码转换成Delphi代码）
07-20
Java2Pas是命令行工具，可以将Java代码（.java）转换成Delphi代码(.pas文件)
JAVA JAR 转DELPHI源码 PAS
10-24
非常使用的java2pas工具。而且还赠送JAVA转JAR，再送XE7加载JAR测试源码。
delphi与java_Delphi XE8中Delphi和JAVA数据类型对应关系！
weixin_42176612的博客
02-15 253
Delphi XE8中Delphi和JAVA数据类型对应关系所在单元文件：Androidapi.JNI.JavaTypes对应关系：JObject = interface;//java.lang.ObjectJInputStream = interface;//java.io.InputStreamJByteArrayInputStream = interface;//java.io.ByteAr...
JarOrClass2Pas(Java代码转Delphi)
07-20
将Java的Jar包和Class文件转换成Delphi的Pas文件，可视化界面工具
delphi转java,将Java代码转换为delphi的问题
weixin_39539684的博客
02-15 123
I have a method that must return a generic interface. Have tried to make the method in delphi. But are unsure on how it should be written? Is there anyone who can help me?Here's an example I've made i...
xZXIngQRCode.rar_Java转delphi_delphi_delphi zxing_whether5yf_xZXI
07-14
在Delphi代码中，我们需要将Java的接口和类映射为Delphi的记录类型和类，并适配相应的方法调用。 4. **Delphi的图像处理** Delphi没有内置的图像处理库能直接与ZXing相媲美，因此我们需要自行处理图像数据。在Java...
DELPHI 7 调用 JAVA 接口
07-03
Delphi 7是一款历史悠久且功能强大的Windows应用程序开发工具，而Java则是一种广泛应用于服务器端和跨平台开发的编程语言。本文将深入探讨如何在Delphi 7中调用Java接口，实现两者之间的数据传递和结果返回。 首先...
DELPHI 11调用JAVA 接口
07-03
Delphi 11作为一款强大的Windows桌面应用程序开发工具，有时需要与Java环境进行交互，这通常涉及到跨语言调用接口。本篇将详细介绍如何在Delphi 11中调用Java接口，并传递参数及接收返回结果。 1. **JNI（Java ...
JAVA的JAR或Class生成Delphi的Native Bridge File工具
11-23
JAVA的JAR或Class生成Delphi的Native Bridge File工具。 工具来源：QQ群：①FireMonkey[移动开发]
JarOrClass2Pas_FlyingWang 工具
03-06
使用JarOrClass2Pas_FlyingWang工具，讲JAR文件转换成Delphi的原生桥接文件， 这是一个窗口程序，界面友好，是一个QQ群的牛人“老猫”开发。 因为JarOrClass2Pas_FlyingWang操作简单，推荐优先使用。下面是用JarOrClass2Pas_FlyingWang根据JAR文件生成Delphi的原生桥接文件情况：
Java转Pas文件官方工具（delphi的Pas文件）
04-14
Java转Pas文件官方工具（delphi的Pas文件），请大家参考一下！
DELPHI XE7 JAVA 转换工具java to PAS
03-06
简便方法搞定第三方SDK的Jar包 在DELPHI XE 环境下的引入，生成原生桥接文件（NativeBridge File） 所谓“原生桥接文件”，即JAR文件的定义文件，说明了存在JAR库文件里的类、类型、函数等，相当于Windows系统下的dll文件和hpp文件，原生桥接文件只是进行说明定义，具体的实现功能代码仍然在JAR文件里。 如何生成原生桥接文件？EMB给出的方法是用Java2OP.exe工具，这是一个命令行程序，使用方法详见： http://docwiki.embarcadero.com/RADStudio/XE7/en/Java2OP.exe,_the_Native_Bridge_File_Generator_for_Android
JarOrClass2Pas_FlyingWang V1.0.2015.1213 附赠 java 转 Jar
01-08
Delphi必备工具。使用JarOrClass2Pas_FlyingWang工具，讲JAR文件转换成Delphi的原生桥接文件， 这是一个窗口程序，界面友好，是一个QQ群的牛人“老猫”开发。 因为JarOrClass2Pas_FlyingWang操作简单，推荐优先使用。下面是用JarOrClass2Pas_FlyingWang根据JAR文件生成Delphi的原生桥接文件。
delphi与java 类型转换_JAVA基本数据类型与其他语言数据类型之间的转换方法
weixin_39532352的博客
02-15 180
今天笔试中java题： (1) public static void main (String []args) { Integer a = new Integer(1); Integer b = new Integer(1); int c = 1; Integer e = 1; System.out.println("a==b:"+(a==b)); System.out.println("a...
java韩国_java2delphi 刚在一个韩国网站看到的(100分)
weixin_29787613的博客
02-20 434
java2delphi글쓴이: 파란산타날짜: 07-06-29 20:54 조회: 968 트랙백주소java2delphi.20070629.zip (104.2K), down : 53, 2007-06-29 20:54:49http://www.codeway.co.kr/board/bbs/board.php?bo_table=Delphi_PDS&wr_id=...
Delphi异或算法转换为java实现
weixin_30600503的博客
08-01 218
#Delphi运算符转JAVA#【转AscII码】ord()→int(char)；【右移】shr→>>;【左移】shl→<<;【自增】inc(i)→i++ 一、Delphi异或算法实现 function YiHuoEncrypt(Str:String):String;//字符加密函數 這是用的一個異或加密 var i,j:Integer; con...
delphi to java,JAVA转换成DELPHI
weixin_35747299的博客
03-12 205
在线等JAVA转换成DELPHIStringmd5key=newString(key.getKeyContent(),charset);returnnewString(Base64.encodeBase64(DigestUtils.md5((content+md5key).getBytes(charset))),charset);------解决方案--------------...
delphi可以调用java接口
最新发布
07-12
JNI允许我们在Delphi应用程序中使用Java类和接口，通过这种方式，我们可以与Java平台进行交互。 要调用Java接口，我们首先需要将Java代码编译为Java类文件，并使用Java编译器生成带有C风格函数原型的动态链接库...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值