谁有spcomm控件关于远程通讯的例子，不胜感激？(在线等候) (50分)

E

erjia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #1

谁有spcomm控件关于远程通讯的例子，不胜感激？

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #2

我有，给个邮箱

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #3

哦，是远程通信？我的例子是串口的

 

S

sarny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #4

我也要这个例子，给你分好了。

 

C

cmtan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #5

cmtan@tju.edu.cn

谢谢！

 

C

chll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #6

var
fcomm: TFCOMM;
viewstring:string;
i:integer;
rbuf,sbuf:array[16] of byte;
//打开串口
procedure TFCOMM.FormShow(Sender: TObject);
begin
comm1.StartComm;
end;
//关闭串口
procedure TFCOMM.FormClose(Sender: TObject; var Action: TCloseAction);
begin
comm1.StopComm;
end;
//自定义发送数据过程
procedure senddata;
var
i:integer;
commflg:boolean;
begin
viewstring:=‘’ ;
commflg:=true;
for i:=1 to 6 do
begin
if not fcomm.comm1.writecommdata(@sbuf,1) then
begin
commflg:=false;
break;
end;
//发送时字节间的延时
sleep(2);
viewstring:=viewstring＋ inttohex(sbuf,2)＋‘’ ; end;
viewstring:=‘发送’＋ viewstring;
fcomm.memo1.lines.add(viewstring);
fcomm.memo1.lines.add(‘’ );
if not commflg then messagedlg(‘发送失败 !’ ,mterror,[mbyes],0);
end;
//发送按钮的点击事件
procedure TFCOMM.Btn_sendClick(Sender: TObject);
begin
sbuf[1]:=byte(＄ f0); //帧头
sbuf[2]:=byte(＄ 01); //命令号
sbuf[3]:=byte(＄ ff);
sbuf[4]:=byte(＄ ff);
sbuf[5]:=byte(＄ 01);
sbuf[6]:=byte(＄ f0); //帧尾
senddata;//调用发送函数
end;
//接收过程
procedure TFCOMM.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);
var
i:integer;
begin
viewstring:=‘’ ;
move(buffer^,pchar(@rbuf^),bufferlength);
for i:=1 to bufferlength do
viewstring:=viewstring＋ inttohex(rbuf,2)＋‘’ ;
viewstring:=‘接收’＋ viewstring;
memo1.lines.add(viewstring);
memo1.lines.add(‘’ );
end;

 

S

sarny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #7

to chll
我运行你的发送数据子程序段，不知为何数据就是发送不出去，也就是说根本就运行不到语句break

 

B

BJ_QQ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #8

你问的是远程拨号，线上载波传输数据吧？

不采用TCP/IP,直接对串口操作？

关注：）

 

狄

狄克

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #9

能给我发一份吗? g1206@yeah.net
谢谢！

 

T

TigerDing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #10

TO lcl_003:
我也要,谢谢.TigerDing@163.com

 

W

wjl_my

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-16

• #11

能给我发一份吗？谢谢
wjl_my@163.net

 

T

tolancslin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #12

to lcl_003
能给我一份吗？
tolancs@seu.edu.cn

 

A

access_xie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #13

up

 

B

bonwood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #14

最好给我一份。bonmu@mail.baili.net
谢谢！！！