Blue
Red
Green
Orange
Voilet
Slate
Dark

SPCOMM的使用(重赏300)(300分)

W

wujun

Unregistered / Unconfirmed
GUEST, unregistred user!
我也很想学习,请E-mail 我一份关于SPComm编程的程序,谢谢
wu_jun@yeah.net
 
S

shaowg

Unregistered / Unconfirmed
GUEST, unregistred user!
我也需要SPCOMM的例程及有关串口通讯的例程,同时,不知各位大侠中有谁知道485
通讯接口的编程,能否给我发个例程。
 
S

stocker

Unregistered / Unconfirmed
GUEST, unregistred user!
我也很想学习,请E-mail 我一份关于SPComm编程的程序,谢谢
strongest@990.net
 
C

Cai Jie

Unregistered / Unconfirmed
GUEST, unregistred user!
转帖,希望有用

SPCOMM RS-232多线程控件例子:现时DELPHI上有很多串行口控件,SPCOMM控件有Data Bits、Parity、 Stop Bits 等配置,支持 Read/Write 时序控制 (Timing control)、 ReadIntervalTimeout、 WriteIntervalTimout 等 ,支持 DTR/DSR, RTS/CTS 硬件流程控置及 Xon/Xoff 软件流程控置,是目前比较完善的控件。 以下是一个用RS-232进行数据接收、显示的例子。必须将RS232的通信参数设置好才能正确接收数据。(Data Bits,Parity,Stop Bits,COM口参数)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, SPComm;
type
TForm1 = class(TForm)
Comm1: TComm;
Memo1: TMemo;
procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
s: string;
begin
SetLength(S, BufferLength); //接收RS232的数据并显示Memo1上。
Move(Buffer^, PChar(S)^, BufferLength);
Memo1.Lines.Add(S);
Memo1.Invalidate;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Comm1.startcomm;//创建窗体时,将comm1控件打开。
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
comm1.StopComm;//关闭窗体时,将comm1控件关闭。
end;
end.
 
C

Cai Jie

Unregistered / Unconfirmed
GUEST, unregistred user!
忘记回车了,sorry :)
 
P

pcw

Unregistered / Unconfirmed
GUEST, unregistred user!
谁有开发单片机(收发数据)实例?请E-mail给我一份及spcomm.comdrv32实例.
送500分,谢谢!
pcw88@263.net
 

刘光涛

Unregistered / Unconfirmed
GUEST, unregistred user!
首先要给单片机发控制信息,需要的是二进制吗,但同学说计算机上是ASCII码,怎么
转换。能不能哪位大侠给发一个例子。学习一下。另外接受的是不是二进制码。谢谢!
 
G

g622

Unregistered / Unconfirmed
GUEST, unregistred user!
pcw:
只有单片机(收发数据)实例可以吗?
 
T

thermometer

Unregistered / Unconfirmed
GUEST, unregistred user!
我也想知道用spcomm给单片机发控制信息(单一的二或十六进制数,不是ASCII字符串)的方法,能不能哪位大侠给发一个例子。学习一下。
如果Delphi提供什么转化方法也请告诉我,小弟刚刚学习Delphi,可能问题有点
傻,还望高手们能指点一二。
万分感谢!!
E_mail:wudijing@263.net


 
D

DannyGao

Unregistered / Unconfirmed
GUEST, unregistred user!
各位不要再讨论什么ASC码和BINARY码了,一个ASC码相当是一个Byte。可以用Ord
和Chr函数再Char类型和Byte类型之间进行转换。串口发送和接收的都是ASC码的
串---String,同时也是一个BINARY码的串。从本质上讲ASC码和BINARY码没有什么
区别。所以串口读写ASC码串同时也是BINARY码串。

另外我分析过常用的Comm类的原代码,发现SPCOMM构造得并不好。而TComPort
是一个构造的比较好的类,我用其做的通讯程序相当稳定,而且原程序也很好读。

ComPort:http://www2.arnes.si/~sopecrni
 
T

topboy

Unregistered / Unconfirmed
GUEST, unregistred user!
我也想学,可以给我一份么?
 
S

samecaoyh

Unregistered / Unconfirmed
GUEST, unregistred user!
倾听赐教.
Email:samecaoyh@sina.com
 
4

4.13

Unregistered / Unconfirmed
GUEST, unregistred user!
>另外我分析过常用的Comm类的原代码,发现SPCOMM构造得并不好。而TComPort
>是一个构造的比较好的类,我用其做的通讯程序相当稳定,而且原程序也很好读。
可能从oo的角度spcomm的构造是不如Tcomport好,
spcomm的源程序可能也没tcomport的好读,
不过我个人认为,
spcomm是用delphi编写的充分体现了windows消息驱动和Windows下overlapped I/O事件的特点,
从与windows的紧密性、程序的稳定性和程序的精巧性的来说,
spcomm比tcomport要强一些,
(我只看了tcomport的V2.5)
 
E

Emperor

Unregistered / Unconfirmed
GUEST, unregistred user!
嗯...果然是道難題^___^
 
D

DannyGao

Unregistered / Unconfirmed
GUEST, unregistred user!
4.13请注意!我估计你是看错了。因为TComPort现在的版本是2.1。而2.5是
2000.2.10日才问世。TComPort的基本设计思路和SPComm一致,只是构造地好一些。
TComPort也充分体现了windows消息驱动和Windows下overlapped I/O事件的特点。
 
L

lop

Unregistered / Unconfirmed
GUEST, unregistred user!
4.13,DannyGao:
现正用SPCOMM写一个MODEM传送软件,遇到的问题多多,想换一个控件试一下,
在"深度历险"下载的TComport是2.01版的,你们有2.10或2.5版的TComPort控件的
话可以给一个我吗?
E_mail: losdg@163.net
 
C

cute

Unregistered / Unconfirmed
GUEST, unregistred user!
我同意DannyGao的讲法,我最近也用了TComPort控件写一个
PC机和单片机8051作串行通讯例子,很好用。见意大家都转用
TComPort.不过我的是2.10版,DannyGao,你有2.5版吗?有的
话可以给我一份吗?
Email:kevin@zhjnc.edu.cn
 
X

xx123

Unregistered / Unconfirmed
GUEST, unregistred user!
请教Cai Jie,使用SPComm读写串口应怎样设置RS232的参数?能否Email一份例程给我,谢谢。
xx123@cmmail.com
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
918
DelphiTeacher的专栏
D
顶部 底部