| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/10/28 10:43:26 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 有那位好心人，能给点资料或例子吗？ 谢谢了。 ---------------------------------------------- it's me |
|||||
| 作者： |
|
2003/10/28 12:45:06 | ||||
| 1楼： | 我顶 ---------------------------------------------- it's me |
|||||
| 作者： |
|
2003/10/28 13:39:09 | ||||
| 2楼： | Cport.带Demo ---------------------------------------------- 
|
|||||
| 作者： |
|
2003/10/28 13:41:01 | ||||
| 3楼： | 就是这个。。。。。。。。。.rar
|
|||||
| 作者： |
|
2003/10/28 14:03:53 | ||||
| 4楼： | 谢谢，给点学习资料可以吗？ ---------------------------------------------- it's me |
|||||
| 作者： |
|
2003/10/28 16:23:56 | ||||
| 5楼： | 我顶 ---------------------------------------------- it's me |
|||||
| 作者： |
|
2003/10/28 17:45:05 | ||||
| 6楼： | GOOD GOODS ---------------------------------------------- http://www.gaiwei.com |
|||||
| 作者： |
|
2003/10/29 8:43:18 | ||||
| 7楼： | 我还顶 ---------------------------------------------- it's me |
|||||
| 作者： |
|
2003/10/29 9:03:23 | ||||
| 8楼： | const WaitSecond = 3;//最长等侍时间 function SendData(ComPort: TComPort;LEDInfo,FrmCTRL,Data: String): Integer; var Str: String; w:word; begin .... //这里去掉些无关的 ComPort. ClearBuffer(True,True); ComPort. WriteStr(GetCheckString(Data)); Str := ReadComPort(ComPort); if (str=') or (Str[1] <> #$F1) then //读取协议中定义的应答 begin if str=' then result := 255 else Result := ord(Str[1]); end; end; function ReadComPort(ComPort: TComPort): String; var dTimeCount: DWORD; iCount: integer; Str: string; begin Result := '; dTimeCount := GetTickCount; repeat iCount := ComPort. ReadStr(Str, maxword); if iCount >= 1 then Break; Application.ProcessMessages; until ((GetTickCount - dTimeCount) div 1000) > WaitSecond; Result := Str; end; function GetCheck(Str:string): Byte; //求累加和 var ii,icheck: integer; begin icheck := 0; for ii := 1 to Length(Str) do icheck := ord(Str[ii]) +icheck; Result := lo(icheck); end; function GetCheckString(Str: String): String; begin Result := Str + char(GetCheck(Str)); end; ----------------------------------------------
|
|||||
| 作者： |
|
2003/10/29 10:45:04 | ||||
| 9楼： | 学习！ ----------------------------------------------  
|
|||||
| 作者： |
|
2003/10/29 13:00:25 | ||||
| 10楼： | 谢谢了，兄弟。 ---------------------------------------------- it's me |
|||||
| 信息 |
| 登陆以后才能回复 |
