回答串口问题,大送分！300分，等着你来拿？(300分)

L

lylyly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-12

• #1

谁能向我提关于Async32构件，读写串口的例子,最好带上注释，以操纵
Modem为例；其它构件的例子也行，但必须附上构件；
直接用API操纵串口也行。
请赶快发邮件给我，等着救命？
liu--yu@yeah.net或jun_ly@21cn.com

 

W

whpjyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-15

• #2

我给你，你收好了。用的是附件啊！！

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-15

• #3

to whpjyj:能给我一份？

 

L

lylyly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-15

• #4

whpjyj我没有收到，再来一次好吗？

 

L

litte wing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-15

• #5

请给我一份,towing_tank@21cn.com

 

S

snakezou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-16

• #6

也请给我一份,snakezou@myrice.com

 

W

whpjyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-16

• #7

我在教育网，给myrice发信，太慢了。而且很有可能被打回来的。呵呵

 

L

lylyly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-18

• #8

whpjyj,你忘记给我发例子了。

 

C

czar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-03

• #9

你们到底还要不要？要得请跟帖

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-03

• #10

也请给我一份
tommm@371.net

 

Z

zht

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-03

• #11

lylyly:
你好，一下我各个子程序.
function closecommy(hfile:Thandle):byte;
begin
closehandle(hfile);//
end;
function writecommy(port:Thandle;data:byte):byte;
var
cbnumword;
writenumWord;
begin
cbnum:=1;
writenum:=0;
writefile(port,data,cbnum,writenum,lpoly);
end;

function readcommy(port:Thandle):byte;
var

rcbnumword;
readnum,lperrorsWord;
i:integer;
clear:boolean;
Coms:Tcomstat;
begin
Clear:=Clearcommerror(port,lpErrors,@Coms);
if Clear Then Begin
rcbNum:=Coms.cbInQue;
readfile(port,read_buffery,rcbnum,readnum,0);
{ uuiu.Lines[0]:='';
for i:=1 to rcbnum
do
begin
uuiu.Lines[0]:=uuiu.Lines[0]+' '+inttohex(read_buffer,2)
end;
result:=i; }
result:=rcbnum;
end;
end;


function inicommy(portchar):byte;


begin

hcomy:=createfile(port,generic_read or generic_write,0,nil,open_existing,
file_flag_overlapped,0);// 打 开 串 行 口
if hcomy=invalid_handle_value then
else
begin
setupcomm(hcomy,1024,1024); // 设 置 输 入， 输 出 缓 冲 区 皆 为1024 字 节

end;
getcommstate(hcomy,lpdcby); // 获 取 串 行 口 当 前 默 认 设 置

lpdcby.baudrate:=2400;
lpdcby.StopBits:=0;
lpdcby.ByteSize:=8;
lpdcby.Parity:=NOParity; // 偶 校 验
Setcommstate(hcomy,lpdcby);
//setcommMask(hcom,ev_rxchar);
// 指 定 串 行 口 事 件 为 接 收 到 字 符；

jcyj.yrcomm:=hcomy;
end;

 

Z

zht

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-04

• #12

lylyly:
你好，各个子程序.
function closecommy(hfile:Thandle):byte;
begin
closehandle(hfile);//
end;
function writecommy(port:Thandle;data:byte):byte;
var
cbnumword;
writenumWord;
begin
cbnum:=1;
writenum:=0;
writefile(port,data,cbnum,writenum,lpoly);
end;

function readcommy(port:Thandle):byte;
var

rcbnumword;
readnum,lperrorsWord;
i:integer;
clear:boolean;
Coms:Tcomstat;
begin
Clear:=Clearcommerror(port,lpErrors,@Coms);
if Clear Then Begin
rcbNum:=Coms.cbInQue;
readfile(port,read_buffery,rcbnum,readnum,0);
{ uuiu.Lines[0]:='';
for i:=1 to rcbnum
do
begin
uuiu.Lines[0]:=uuiu.Lines[0]+' '+inttohex(read_buffer,2)
end;
result:=i; }
result:=rcbnum;
end;
end;


function inicommy(portchar):byte;


begin

hcomy:=createfile(port,generic_read or generic_write,0,nil,open_existing,
file_flag_overlapped,0);// 打 开 串 行 口
if hcomy=invalid_handle_value then
else
begin
setupcomm(hcomy,1024,1024); // 设 置 输 入， 输 出 缓 冲 区 皆 为1024 字 节

end;
getcommstate(hcomy,lpdcby); // 获 取 串 行 口 当 前 默 认 设 置

lpdcby.baudrate:=2400;
lpdcby.StopBits:=0;
lpdcby.ByteSize:=8;
lpdcby.Parity:=NOParity; // 偶 校 验
Setcommstate(hcomy,lpdcby);
//setcommMask(hcom,ev_rxchar);
// 指 定 串 行 口 事 件 为 接 收 到 字 符；

jcyj.yrcomm:=hcomy;
end;

 

L

lylyly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #13

接受答案了.