用Delphi 实现串口通讯，常用的几种方法为：使用控件如MSCOMM和SPCOMM，使用API函数或者在Delphi 中调用其它串口通讯程序。利用API编写串口通信程序较为复杂，需要掌握大量通信知识，其优点是可实现的功能更强大，应用面更广泛，更适合于编写较为复杂 的低层次通信程序。相比较而言，利用SPComm控件则相对较简单，该控件具有丰富的与串口通信密切相关的属性及事件，提供了对串口的各种操作。
使用控件这一方法容易掌握，而SPCOMM支持多线程，所以SPCOMM控件的应用更加广泛。结合实例详细介绍SPCOMM的使用。
一．SPCOMM控件的安装
1．选择下拉菜单Component的第二项Install Component 。
图1
弹出图1所示的窗口,在Unit file name 处填写控件SPCOMM控件所在路径，其它可用默认值，点击OK按纽。
2．安装成功后，system控件面板中将出现一个红色控件COMM。现在使用COMM控件可以象Delphi自带控件一样使用。
二．SPCOMM的主要属性，方法和事件
1.属性
CommName：填写COM1,COM2…等串口的名字,在打开串口前，必须填写好此值。
BaudRate:设定波特率9600，4800等，根据实际需要来定，在串口打开后也可更改波特率，实际波特率随之更改。
ParityCheck：奇偶校验。
......
技术交流,DH讲解.
明天去坐火车,回家,今天就没有事做,本来在弄一个跨进程获取其他程序里面组件,如ListView,ListBox,Button等的信息,突然有个想法自己写个Timer,不用SetTimer函数,我们自己用个多线程也正好实现这个.反正前段时间多线程也弄得比较多,本来想单独讲讲的,现在就用个例子来说明吧.
写成一个控件:utTimer.pas
view source
< id="highlighter_394362_clipboard" title="copy to clipboard" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" width="16" height="16" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0" type="application/x-shockwave-flash">
print?
001
unit utTimer;
002
003
interface
004
uses
005
Windows,SysUtils,Classes;
006
007
type
008
THuangJackyTimerThread = class;
009
THuangJackyTimer = class(TComponent)
010
private
011
FTimeInterval:Integer;
012
FOnTimerDo:TNotifyEvent;
013
......
使用delphi多年,前些天忽然遇到不会string转pbyte,很是失落,此时对于编程基本功的重要性深有体会.这其中用到MOVE函数.
使用delphi多年,前些天忽然遇到不会string转pbyte,很是失落,此时对于编程基本功的重要性深有体会.这其中用到MOVE函数.
搞了好一会才搞明白其用法.所以想贴出来帮助需要帮助的人.
var
s:string;
ps:Pchar;
b:pbyte;
len:integer;
begin
s:=edit1.Text; //字符串
ps:=pchar(s); //转成pchar类型,
len:=length(s);//取字符串长度,占用多少字节
getmem(b,len);//申请内存,pchar,pbyte在使用前都必须要申请内存,因为他们是指针.
move(ps^,b^,len);//这里 ps^意思是pchar指向内存数据的第一个字节地址,B^是表示申请内存的第一个字节地址,这样就可以一个一个字节的移到b里去了.
memo1.Text:=pchar(b);//显示.
freemem(b);
end;
有些人遇到的困惑是为什么 move(s,b,len)不行呢?同样我也遇到这样的困惑.
看了一样move的函数源码才明白.
procedure ......
CTRL+SPACE 代码补全，很好用的(先改了输入法热键)
CTRL+SHIFT+C 编写申明或者补上函数
CTRL+SHIFT+↑(↓) 在过程、函数、事件内部, 可跳跃到相应的过程、函数、事件的定义（在INTERFACE和IMPLEMENTATION之间来回切换）
CTRL+SHIFT+G 插入GUID
CTRL+J (弹出DELPHI语句提示窗口，选择所需语句将自动完成一条语句)代码模板
CTRL+K+E(F) 标识符变小（大）写
CTRL+K+O(N) 选中的变小（大）写
CTRL+O+U 切换选择块的大小写
SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体
CTRL+SHIFT+I(U) 代码整块移动右移(左移)2个空格
ALT+鼠标左键 可以块选代码，用来删除对齐的重复代码非常有用
CTRL+E 快速选择(呵呵，试试吧，很好玩的)
在属性窗口按TAB键将光标移动到属性名区，键入属性名的开头字母可快速定位到该属性
F4 运行到光标处
F5 设置断点
F7 步进式调试同时追踪进入子过程
F8 步进式调试不进入子过程
F9 运行
CTRL+F9 编译
CTRL+B BUFFER LIST窗口
CTRL+F2 停止正在调试的程序
CTRL+F3 弹出CALL STACK窗口
CTRL+F5 添加览视变量
CTRL+F7 计算窗口
SHIFT+F8 调试时弹出CPU窗口
CTRL+BACKSPACE 后退删除一个词,直到遇 ......
指针用法的例子：
1 var
2 X, Y: Integer; // X and Y 整数类型
3 P: ^Integer; // P 指向整数类型的指针
4 begin
5 X :=17; // 给 X 赋值
6 P := @X; // 把 x的地址赋给p
7 Y := P^; // 取出p所指向的数值赋给y
8 end;
&n ......
TThread是一个抽象类,用于在delphi中创建线程。
创建一个TThread的子类对象即相当于创建一个线程。
当一个应用程序运行时，应用程序就被载入内存准备执行。此时，它成为包含一个或多个线程的进程。线程执行应用程序的部分内容，并由操作系统分配CPU时间。同一进程的所有线程共享同一地址空间，可以访问进程的全局变量。
线程通过以下工作改善应用的性能：
管理多通信设备的输入。
区分任务的优先级。优先级高的处理紧急的任务。优先级低的处理其他任务。
以下是使用线程的一些建议：
同时跟踪太多的线程消耗CPU时间。对单处理器系统，一个进程最多有16个线程。
当多个线程更新相同的资源时，应使线程同步以避免冲突。
大多数访问VCL对象和更新窗体的方法必须从主线程内部调用。
以下为创建和使用一个新线程的过程：
（1）单击File|New|Thread菜单项，创建一个TThread的子类。
（2）定义Create方法。
（3）通过插入线程执行时需要的代码定义Execute方法。
（4）将使用VCL组件的任何调用传递给Synchronize方法，以避免多线程冲突。
属性列表
FreeOnTerminate 线程终止� ......
最新文章 : delphi