- 博客(9)
- 资源 (7)
- 问答 (2)
- 收藏
- 关注
原创 车联网简单总结
什么是T-BOX他就是TelematicsBox(中文意思远程通信盒子,总结的意思车载网络远程通信盒子),是装在车内的一个通信部件。管理平台各端交互、日志、故障报警、基础数据、历史数据、通信协议、OTA、授权、网络安全、任务管理、远程监控、版本和账户等。业务端车辆远程控制、车辆状态查询、客户关系管理、道路救援、售后服务、精准小时。HMI人机交互,人通过点击屏幕实现交互,语音实现交互,手势交互,人脸交互。1.车联网的主要组成管理平台、应用终端、第三方系统。车端T-BOX、HMI、HU。...
2022-07-25 22:16:52
1006
1
转载 delphi实现自适应的方法
一、根据新的分辨率自动重画表单及控件 先在表单单元的Interface部分定义两个常量,表示设计时的屏幕的宽度和高度(以像素为 单位)。在表单的Create事件中先判断当前分辨率是否与设计分辨率相同,如果不同,调用表 单的SCALE过程重新能调整表单中控件的宽度和高度。ConstOrignwidth=1800;Orignheight=600; proced
2017-11-23 15:55:56
1983
原创 delphi控件实现圆角的方法
procedure RoundControl(Control: TWinControl;arc1:Integer;arc2:Integer);var R: TRect; Rgn: HRGN;begin with Control do begin R := Control.ClientRect; Rgn := CreateRoundRectRgn(
2017-11-22 12:29:09
2249
原创 delphi解析json数据的方法
delphi7解析json数据1. 定义一个(TsuperArray的变量) aSuperArray: TSuperArray;(需要引入Ticketservice)2.定义vjson:ISuperObject;(引入Tsuperobject)3.vJson:=so(s1);将json数据加载到vjson中4.第一层key值直接获取 asuperarray:=vjson['Resu
2017-11-02 17:13:24
13613
转载 delphi一行一行的读取txt文本的数据
var Form1: TForm1; mylist:TStringlist; i,a:integer;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);begin if a begin button1.Caption:='下一行';
2017-10-26 10:51:30
2490
原创 delphi将字符串写入txt文本,每次写入,末尾自动加换行符,不会清空之前的数据
var astr: string; sList: TStrings; path: string;begin sList := TStringList.Create; path :='E:\servercs\openbrake_machine.txt'; try if not DirectoryExists(ExtractFileP
2017-10-26 10:39:51
3101
原创 delphi多线程例子 采用createThread创建多线程
一、才用createThread创建多线程,需要先声明一个多线程句柄(全局的)如:hThread:THandle;二、声明了一个多相处句柄之后,还需要先写一个函数,在创建多线程是用来掉用的函数。三、使用createThread创建多线程,hThread:=createThread(nil, 0, @MyThreadFun1, nil, CREATE_SUSPENDED, ID);这里线程创
2017-09-14 10:24:55
2471
转载 delphi 多线程详解及其详解例子
在了解多线程之前我们先了解一下进程和线程的关系一个程序至少有一个主进程,一个进程至少有一个线程。为了保证线程的安全性请大家看看下面介绍 Delphi多线程同步的一些处理方案大家可以参考:http://www.cr173.com/html/16747_1.html主线程又程为UI线程。进程和线程的主要差别在于它们是不同的操作系统资源管理方式。进程有独立的地址空间,一个
2017-09-14 09:46:50
1511
原创 delphi调用java的api接口
提交的数据中包含中文,需要进行URL编码:function UrlEncode(const ASrc: string): string;const UnsafeChars = '*#%var i: Integer;begin Result := ''; {Do not Localize} for i := 1 to Length(ASrc) do
2017-09-05 15:11:15
2488
delphi7的包含数据库读取图片,调用接口,消息队列,调用摄像头,接口编写,打印报表和设计报表等功能模块
2018-06-12
神思sdk开发文档(自己通过开发整理)
2017-09-19
最近使用delphi遇到两个问题
2018-05-05
mysql存储过程的out参数的问题
2018-03-02
TA创建的收藏夹 TA关注的收藏夹
TA关注的人