千
千中元
Unregistered / Unconfirmed
GUEST, unregistred user!
我的天,本来是合作做毕业设计,可再过两天答辩了,
我的合伙人说没有做他应该做的那部分!!!!
其实就是把缓冲里的数据读到数据库里.
现在我不清楚char 是个什么数据类型了
,----老师说那是2进制的数,比如00111100,然后到数据库里的时候要转化成10进制。什么函数能把char转换成10进制？下面是读串口的代码。在timer的事件里：
procedure TForm1.Timer1Timer(Sender: TObject);
var
Clear:Boolean;
Coms:Tcomstat;
cbNum,ReadNumber,lpErrors
word;Read_Buffer:array[1..256]of char;
begin
Clear:=Clearcommerror(hcom,lpErrors,@Coms);
if Clear then
begin
cbNum:=Coms.cbInQue;
ReadFile(hCom,Read_Buffer,cbNum,ReadNumber,lpol);
//向数据库追加，数据的value 赋予一个变量，用append就可以了。
//这里调用一个追加到数据库的函数
purgecomm(hcom,PURGE_TXCLEAR);
purgecomm(hcom,PURGE_RXCLEAR);
end;
能给出向数据库追加另加100分
不过这次好像是老千比较大方的一次提问8=}
icq到别的地方可以“漫游”：）
char;