rt,
在线等............
在线等............
解决方案 »
- DBGridEh如何使用动态数据集
- 有没有能上下移记录的DBGRID控件?
- ExpressPrinting System高手请进!帮顶有份,不够另贴加分
- QReport问题,急待回答
- 我是DELPHI初学者,请问DELPHI7里怎么没有SAMPLE啊!~
- 如何在DBGridEh中设置某个CELL的字体?---忙晕头了,没心思自己找了,哪位告诉我?
- 奇怪!我在D6中用dxBar4.2做了一个窗体模板,用其继承一个新窗体后运行dxBar中的按钮都没了!
- 請再參與討論(我真的很痛苦,救救我吧).
- 局域网版的四国大战游戏
- 有DEPHI还需要分析建造数据结构吗?
- 求助“通过域名 怎样取其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;