文件名称：delphi7开发的串口调试助手
文件大小：305KB
文件格式：RAR
更新时间：2012-11-25 08:00:59
源码串口
Function FileLenght(sFn:String):Integer; Var iFileHandle: Integer; begin {$I-} Result:=0; if not FileExists(sFn) then Exit; iFileHandle := FileOpen(sFn, fmOpenRead); try Result:=FileSeek(iFileHandle,0,2); finally FileClose(iFileHandle); end; end; procedure TFrmCommSetup.ShowText(s:String); Var n:WORD; d:Array[0..2048] of Char; p:Pchar; begin if mmHis.Items.Count >1000 then mmHis.Items.Delete(0); mmHis.Items.Add(s); mmHis.ItemIndex :=mmHis.Items.Count-1; edLine1.Text :=s; end;
【文件预览】：
串口调试软件源文件（delphi7版）
----uPublic.dcu(40KB)
----MyComm.exe(642KB)
----uComSet.dfm(4KB)
----uPublic.pas(35KB)
----uComSet.ddp(51B)
----COMM.INI(63B)
----MyComm.dof(2KB)
----MyComm.cfg(578B)
----MyComm.res(876B)
----通讯界面.jpg(47KB)
----uExerc1.dfm(3KB)
----uComSet.~ddp(51B)
----uComSet.~dfm(4KB)
----MyComm.dsk(6KB)
----uComSet.~pas(10KB)
----MyComm.dpr(284B)
----uComSet.pas(10KB)
----uExerc1.pas(2KB)