CodeSys中动态切换3D模型

需求

在前面的【CodeSys开发3d机械臂显示控件】中，我们已经实现了一个可以显示3d模型的控件。但是这个控件是和使用的3d模型绑定死的，在安装这个控件时就已经将模型文件于控件一起安装到codesys中。
假如我想在不同的工程中，对这个控件动态地指定不同的模型，该怎么实现？

研究

首先，不同的工程，把不同的模型文件包含进来是没问题的，因为codesys本身就支持导入文件资源到工程：


导入进来的文件也可以进行读、写、复制、删除等操作，【CODESYS开发教程10-文件读写（SysFile库）】。

然后，我们到PLC中的网页控件文件夹看看，路径为PlcLogic/visu：

前面创建3d控件时，我们提到获取模型文件的二进制数据是利用window.CDSWebVisuAccess.getBinaryFile这个函数来实现的，而这个函数会根据输入的原始的文件名去查找实际的文件名。那原始文件名和实际文件名的对应关系在哪里呢？
在这个application.nativeelements.json文件中
好。先总结一下我们掌握的信息：

1.可以将文件拷贝到PLC中
2.IEC代码可以实现对PlcLogic文件夹中的任意文件进行操作（读、写、删除、复制等）
3.在html控件中访问文件只能通过固定的接口进行。
4.html控件的原始文件名与实际文件名可查。

那么，基于以上事实，我们可以这样实现我们动态更换3D控件的模型：

1.控件使用一个默认模型，假设文件名为myRobot.glb
2.在IEC代码中，通过读取application.nativeelements.json文件的内容，查找myRobot.glb对应的是哪个文件，假设是myRobot123.glb。
3.在IEC代码中，将我们下载到PLC的，准备用来替换原来模型的新模型文件newRobot.glb，拷贝覆盖到原来的模型myRobot123.glb(注意保留myRobot123.glb这个名字，也就是内容覆盖，但是名字不变)。

这样，html控件在加载模型时，就会按照文件路径来加载数据，从而加载了新模型。
下面这个是经过测试的代码：
这个是函数代码。

FUNCTION ReplaceRobotModel : UDINT
VAR_INPUT
	modelFile : STRING(128);
END_VAR
VAR_OUTPUT
END_VAR
VAR
	hFile          : SysTypes.RTS_IEC_HANDLE;//句柄
    iecResult      : SysTypes.RTS_IEC_RESULT;//记录函数执行的结果
	udiSize		   : LWORD; //用来存储文件的大小
	udiRead        : __XWORD;
	
	configFileName : STRING(128) := 'visu/application.nativeelements.json';
	jsonText : STRING(65535) := '';
    startIndex, endIndex : INT;
    targetKey : STRING := 'zygeneralrobot.glb';
	
	targetValue : STRING(128);
	
	targetFile 	: STRING(128) := 'visu/';
	udiCopied   : __XWORD;
	cpResult : RTS_IEC_RESULT;
END_VAR
-------

// 文件的操作 https://blog.csdn.net/halps/article/details/128974489    
	targetValue := configFileName;
	
	hFile := SysFileOpen(szFile:=configFileName, am:=SYSFILE.AM_READ , pResult:=ADR(iecResult));
	
    IF hFile = RTS_INVALID_HANDLE    THEN 
		ReplaceRobotModel := -1;
		RETURN;
	END_IF
	
	 //hFile不是无效句柄，说明成功打开文件  
	//SysFileGetSize函数获取文件的大小，并将结果存储在udisize变量中
	udisize := SysFileGetSize(szFileName:=configFileName, pResult:=ADR(iecResult));
	
	//将文件中的内容读取到指定的缓冲区中。成功读取时，将返回udiRead表示实际读取的字节数，失败时将返回错误代码，并将错误状态存储在iecResult变量中。
	//pbyBuffer是用于存储读取内容的缓冲区
	//ulSize是要读取的字节数
 	//pResult: 这是指向结果的指针，用于接收操作的结果状态。
	udiRead := SysFileread(hFile:=hFile, pbyBuffer:=ADR(jsonText), ulSize:=udiSize, pResult:=ADR(iecResult));
	
	//关闭文件
    iecResult  := SysFileClose(hFile:=hFile);
	
	startIndex := strfindA(ADR(jsonText), ADR(targetKey), 0) + len(targetKey) + 4;  // 添加引号和冒号的长度
	endIndex :=  strfindA(ADR(jsonText), ADR('"'), startIndex) - 1; // 找到下一个引号的位置，减去1得到值的末尾
	IF startIndex > 0 AND endIndex > 0 THEN
	    strMidA(ADR(jsonText), 65535, endIndex - startIndex + 1, startIndex, ADR(targetValue), 255);
	END_IF;

	// 复制替换文件
	StrConcatA(ADR(targetValue), ADR(targetFile), 128);
	cpResult := SysFileCopy(targetFile, modelFile, ADR(udiCopied));
	ReplaceRobotModel := cpResult;
	RETURN;
		

调用。里面的’Application/robotArm.glb’就是新模型存放的位置。

PROGRAM READ_PRG
VAR
	modelFileReplaced : BOOL := FALSE;
	replaceFileResult : UDINT := -123;
END_VAR
------

IF modelFileReplaced = FALSE THEN
	modelFileReplaced  := TRUE;
	replaceFileResult := ReplaceRobotModel(modelFile:= 'Application/robotArm.glb');
END_IF

结果

一番操作后，成功了50%。
意思是：在通过浏览器访问（http://127.0.0.1:8080）PLC的界面时，3d控件中的模型的确是新的模型；但是在CodeSys的编程软件的Visualization页面，显示的还是旧的模型。
不知道为啥。无论在visu中覆盖什么文件，甚至把这个visu文件夹都删除掉，都影响不了Visualization页面。
这应该就说明了，这个Visualization页面，应该是有一个独立的文件夹，但是不知道在哪里。哪怕我用everything来搜关键文件，都没有搜到。
当我用不同的模型时，编译出来的Application.app、Application.core、Application.crc的大小并没有明显的变化，所以资源应该没有被直接编译进文件中。神奇，真相究竟藏在哪里？

之前试过将模型数据编码成base64字符串，然后将字符串变量发送给html控件的，成功了100%，但是，传输的时间太长，20M的模型都要几分钟，感觉鸡肋。有兴趣的可以看看这里：【CodeSys中将文件读取并进行base64编码后存放于string】

---

参考：
【CODESYS开发教程10-文件读写（SysFile库）】