张志峰的博客

水滴石川,积少成多。

导航

随笔分类 -  Delphi 串口,并口

摘要:var S:String; P:PChar; B:array of Byte;begin S:='Hello'; SetLength(B,Length(S)+1); P:=PChar(S); CopyMemory(B,P,Length(S)+1); ShowMessage(Char(B[0]));e 阅读全文

posted @ 2016-05-18 15:01 ╰★张志峰★╮ 阅读(3628) 评论(0) 推荐(0)

摘要:整形不能超过256 b:=Byte(StrToInt(n)); var s: string; b: Byte; begin s := Edit1.Text; b := Byte(StrToInt(s)); end; 阅读全文

posted @ 2016-05-18 13:40 ╰★张志峰★╮ 阅读(1580) 评论(0) 推荐(0)

摘要:FillChar(aryTest[Low(aryTest)], Length(aryTest) * SizeOf(aryTest[Low(aryTest)]), 0); 阅读全文

posted @ 2016-05-17 17:39 ╰★张志峰★╮ 阅读(1027) 评论(0) 推荐(0)

摘要:有4个字节类型的值,用移位或逻辑运算符怎么合成一个整数?比如 $FFEEDDCC。高$FF$EE$DD$CC低 阅读全文

posted @ 2016-05-17 16:07 ╰★张志峰★╮ 阅读(2784) 评论(0) 推荐(0)

摘要:var s:string; len:Integer; AData:TBytes; begin s:=IntToHex(149259,6);//返回6位字符串 len := length(s) div 2; Setlength(AData,len); HextoBin(pchar(s),@AData[ 阅读全文

posted @ 2016-05-17 16:05 ╰★张志峰★╮ 阅读(790) 评论(0) 推荐(0)

摘要:@:取址运算符; var int:integer; p:^integer; new(P); int:=24; p:=@int; dispose(P); ^:指针的引用解析操作符; var pint:^integer; new(pint); showmessage(inttohex(integer(@ 阅读全文

posted @ 2016-05-17 15:10 ╰★张志峰★╮ 阅读(459) 评论(0) 推荐(0)

摘要:概述: ^: 指针 @: 取址 #: 十进制符 $: 十六进制符 @:取址运算符; var int:integer; p:^integer; begin new(P); int:=24; p:=@int; dispose(P); end; ^:指针的引用解析操作符; var pint:^intege 阅读全文

posted @ 2016-05-17 15:09 ╰★张志峰★╮ 阅读(585) 评论(0) 推荐(0)

摘要:inttohexfrom delphi help:Returns the hex representation of an integer.UnitSysUtilsCategorynumeric formatting routinesDelphi syntax:function IntToHex(V 阅读全文

posted @ 2016-05-11 13:21 ╰★张志峰★╮ 阅读(743) 评论(0) 推荐(0)

摘要://串口接收数据procedure TfrmClientMain.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word);var i:integer; ss,ffnn:string; rbuf:array of b 阅读全文

posted @ 2016-05-10 16:13 ╰★张志峰★╮ 阅读(1801) 评论(0) 推荐(0)

摘要:delphi 中 $是什么意思? 比如:$41 $5A 意识是26个字母, 可以用$来表示? $在delphi 中还可以怎么用?1.表示16进制,$41就是65,第一个字母的ASCII值 procedure TfrmClientMain.SayAddr;var sbuf:array[1..7] of 阅读全文

posted @ 2016-05-10 16:06 ╰★张志峰★╮ 阅读(459) 评论(0) 推荐(0)

摘要:异或,英文为exclusive OR,或缩写成xor 异或(xor)是一个数学运算符。它应用于逻辑运算。异或的数学符号为“⊕”,计算机符号为“xor”。其运算法则为: a⊕b = (¬a ∧ b) ∨ (a ∧¬b) 如果a、b两个值不相同,则异或结果为1。如果a、b两个值相同,异或结果为0。 异或 阅读全文

posted @ 2016-05-10 15:36 ╰★张志峰★╮ 阅读(642) 评论(0) 推荐(0)

摘要:平时都用的8N1的模式,这次使用了校验位,因此串口的初始化工作需要改变 #ifdef RT_USING_UART2 USART_InitStructure.USART_BaudRate = 9600; USART_InitStructure.USART_WordLength = USART_Word 阅读全文

posted @ 2016-05-10 15:24 ╰★张志峰★╮ 阅读(438) 评论(0) 推荐(0)

摘要:针对串口通信,关于设置数据位长度对通信的影响,如图: 在串口数据通信中,会看到串口参数设置。其中“数据位”设置,共有四档选项,分别是8、7、6、5。那么改变这个参数会对数据的传输有什么影响呢? 我来做个试验,通过示波器观察通信过程,能够分析结果如下: 例如数据位设置为5。那么就相当于规定了每个传输字 阅读全文

posted @ 2016-05-10 15:02 ╰★张志峰★╮ 阅读(597) 评论(0) 推荐(0)

摘要:在这里Val和iif都是你所用的数据库中的函数在delphi中Val是一个将字符串转换为数字的函数,Val(S; var V; var Code: Integer)第一个参数是要转换的字符串,第二个参数存放转换后的数字,可以是整数或浮点数,第三个参数存放出错的字符索引值,例如:Var V, Code 阅读全文

posted @ 2016-05-10 14:01 ╰★张志峰★╮ 阅读(1380) 评论(0) 推荐(0)

摘要:procedure TfrmClientMain.SayAddr;var sbuf:array[1..7] of byte;begin sbuf[1]:=byte($35); sbuf[2]:=byte($A1); {命令号} sbuf[3]:=byte($00); sbuf[4]:=byte($0 阅读全文

posted @ 2016-05-04 10:11 ╰★张志峰★╮ 阅读(624) 评论(0) 推荐(0)

摘要:版权声明:本文为博主原创文章,如需转载请注明出处及作者。 版权声明:本文为博主原创文章,如需转载请注明出处及作者。 本文由小李专栏原创,转载需注明出处:【http://blog.csdn.net/softwave/article/details/8907599】 最近在做一个项目,要求使用Java对 阅读全文

posted @ 2016-04-01 14:07 ╰★张志峰★╮ 阅读(2927) 评论(0) 推荐(0)

摘要:Delphi 利用TComm组件 Spcomm 实现串行通信 Delphi 利用TComm组件 Spcomm 实现串行通信 Delphi 利用TComm组件 Spcomm 实现串行通信 摘要:利用Delphi开发工业控制系统软件成为越来越多的开发人员的选择,而串口通信是这个过程中必须解决的问题之一。 阅读全文

posted @ 2016-04-01 13:51 ╰★张志峰★╮ 阅读(3055) 评论(0) 推荐(0)

摘要:1、先准备好串口控件SPCOMM,例如把它放在F盘的工具安装文件夹下,等一下加载时需要用到。 2、打开delphi7软件。 3、按下上面的Component>Install Component...的按钮,显示下面窗口。 4、按下右上面的Browse...的按钮,显示下面窗口,按照前面提示的路径去找 阅读全文

posted @ 2016-04-01 10:32 ╰★张志峰★╮ 阅读(1193) 评论(0) 推荐(0)

摘要:作者 关劲松 delphi 开发中有些时候需要停留片刻,等待界面输入,或异步操作完成,如果使用sleep函数的话,整个程序都会停顿,界面还会出现冻结的情况。因此需要自行编写一个delay函数,以毫秒为单位控制等待时间。 函数功能:GetTickCount返回(retrieve)从操作系统启动到现在所 阅读全文

posted @ 2016-03-01 10:35 ╰★张志峰★╮ 阅读(1011) 评论(0) 推荐(0)