滴答丶滴答-CSDN博客

原创车联网简单总结

什么是T-BOX他就是TelematicsBox（中文意思远程通信盒子，总结的意思车载网络远程通信盒子），是装在车内的一个通信部件。管理平台各端交互、日志、故障报警、基础数据、历史数据、通信协议、OTA、授权、网络安全、任务管理、远程监控、版本和账户等。业务端车辆远程控制、车辆状态查询、客户关系管理、道路救援、售后服务、精准小时。HMI人机交互，人通过点击屏幕实现交互，语音实现交互，手势交互，人脸交互。1.车联网的主要组成管理平台、应用终端、第三方系统。车端T-BOX、HMI、HU。...

2022-07-25 22:16:52 1081

转载 delphi实现自适应的方法

一、根据新的分辨率自动重画表单及控件　　先在表单单元的Interface部分定义两个常量，表示设计时的屏幕的宽度和高度（以像素为单位）。在表单的Create事件中先判断当前分辨率是否与设计分辨率相同，如果不同，调用表单的SCALE过程重新能调整表单中控件的宽度和高度。ConstOrignwidth=1800;Orignheight=600; proced

2017-11-23 15:55:56 2065

原创 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 2385

原创 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 13791

转载 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 2580

原创 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 3203

原创 delphi多线程例子采用createThread创建多线程

一、才用createThread创建多线程，需要先声明一个多线程句柄（全局的）如：hThread：THandle；二、声明了一个多相处句柄之后，还需要先写一个函数，在创建多线程是用来掉用的函数。三、使用createThread创建多线程，hThread：=createThread(nil, 0, @MyThreadFun1, nil, CREATE_SUSPENDED, ID);这里线程创

2017-09-14 10:24:55 2590

转载 delphi 多线程详解及其详解例子

在了解多线程之前我们先了解一下进程和线程的关系一个程序至少有一个主进程,一个进程至少有一个线程。为了保证线程的安全性请大家看看下面介绍 Delphi多线程同步的一些处理方案大家可以参考:http://www.cr173.com/html/16747_1.html主线程又程为UI线程。进程和线程的主要差别在于它们是不同的操作系统资源管理方式。进程有独立的地址空间，一个

2017-09-14 09:46:50 1607

原创 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 2592