rt,
在线等............
在线等............
解决方案 »
- 请教:TRect 记录类型定义
- 流文件
- 实现ini文件自加密, 谁能给个例子?
- 用IE打开www.126.com后,用内存查看器查看用内存为14M多
- 怎样知道用户修改了数据?是关于ADO的、
- 没有编程基础的能直接学习Delphi吗
- 静态方法与Class procedure
- 请问如何在Delphi中使得用mainmenu制作的菜单项menuitem可控制字体,颜色和大小等?
- 请问如何屏蔽Delphi中TWebBrowser的滑动条???
- 怎样返回sql函数的结果??
- 求助“通过域名 怎样取其IP地址”
- &&&&&&&那位老大有用Spcomm传文件的源码,给一份,多谢,立即给分,再谢&&&&&&&&&&&&
var
i:Integer;
recvstr,Codestr:String; //串口接收到的字符串
recvbuf:array[1..65536] of Char; //Com信息缓存
begin
recvstr:='';
move(buffer^,pchar(@recvbuf)^,bufferlength);
for i:=1 to bufferlength do
Case recvbuf[i] of
#10,#13,#32..#127:recvstr:=recvstr+recvbuf[i];
end;
recvstr:=Trim(recvstr);
end;
procedure tform1.write;
var
buff:array[0..1024] of char;
begin
try
repeat
BlockRead(SourceF,Buff,sizeof(Buff),NRead); --读文件
comm1.writedata(@buff[0],NRead); //--发送
Until(NRead=0);
finally
closefile(SourceF);
closeFIle(EndF);
end;
end;