捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论：串口调试助手DELPHI SPCOMM v1.1
lusoja 39419 2010/1/14 10:29:29
谢谢你的分享！ 学习了！
dingchuan 38884 2009/10/26 15:44:17
我也想知道 XOnChar,XOffChar,XOnLimit,XOffLimit这几个属性 是什么意思啊
darkhorseguo 36569 2009/1/4 11:28:33
请问一下，这个SPCOMM是什么版本的呀。
james_hawkwang 27449 2006/12/7 11:07:34
DtrControl = DtrDisable  *
TxContinueOnXoff = False  *
Outx_XonXoffFlow = False  *
Inx_XonXoffFlow = False  *
RtsControl = RtsDisable  *
请问：
  我能测试出“Outx_XonXoffFlow = False  *”后，在接收数据时不会丢失0x11和0x13这两个数据(当XOnChar=#17,XOffChar=#19时)，我不知道剩下的修改是不是对“接收”数据起到作用？
因为不太理解这些属性到底控制着什么细节。希望xielihong和各位大虾来到时帮忙说明一下。
还有关于XOnChar,XOffChar,XOnLimit,XOffLimit这几个属性的是控制什么的，也想请xielihong和各位大虾说明一下(我在网上查了一些资料，好像是说“流”控制)。
xielihong 27053 2006/11/8 17:33:58
1.2 的版本我已经发布了，希望大家喜欢
xielihong 27014 2006/11/6 13:40:07
没必要开新贴吧，如果有大的更新的话，我会发上来的。
当更新到一定阶段后，再把1.2的发上来也不迟吧。
boysxw 27000 2006/11/5 22:34:15
感谢，串口代码的共享，
好哈利用
netfun2000 26938 2006/11/1 13:50:26
支持！希望把更新版本也UPLOAD上来。
xielihong 26888 2006/10/28 12:20:12
支持单行发送

procedure TFrmMain.Memo2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);  
var 
  LineNum: Longint;
begin
  if not btnSend.Enabled then 
    Exit;
  //快捷键 ALT + A   all    发送发送区中的所有内容
  if (Shift = [ssAlt]) and (key = Ord('A')) then
    btnSend.Click;
  // 快捷键 ALT + S   single    发送发送区中当前行的内容
  if (Shift = [ssAlt]) and (key = Ord('S')) then
  begin
    LineNum := SendMessage(Memo2.Handle, EM_LINEFROMCHAR, Memo2.SelStart, 0);
    if cbsendHex.Checked then
      SendString(HexStrToStr(Memo2.Lines[LineNum]))
    else
      SendString(Memo2.Lines[LineNum]);
  end;
  //快捷键 ALT + D      发送发送区中当前行的内容,并加上"回车换行"符
  if (Shift = [ssAlt]) and (key = Ord('D')) then
  begin
    LineNum := SendMessage(Memo2.Handle, EM_LINEFROMCHAR, Memo2.SelStart, 0);
    if cbsendHex.Checked then
      SendString(HexStrToStr(Memo2.Lines[LineNum] + #13#10))
    else
      SendString(Memo2.Lines[LineNum] + #13#10);
  end;
end;
xielihong 26887 2006/10/28 12:08:26
同时，将Comm1的属性修改如下，可以避免出现字节丢失现象(带星号的是要修改的)
object Comm1: TComm
    CommName = 'COM2'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrDisable  *
    DsrSensitivity = False
    TxContinueOnXoff = False  *
    Outx_XonXoffFlow = False  *
    Inx_XonXoffFlow = False  *
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsDisable  *
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = Comm1ReceiveData
    Left = 200
    Top = 152
  end
xielihong 26886 2006/10/28 12:06:30
目前我已经在1.2的版本中修复了一些错误，以及增加一些实用的功能。V1.1中的文件发送不能发送二进制文件，下面的可以
procedure TFrmMain.SendFile(const FileName: string);
var
  f: file;
  xfer: Integer;
  buf: PChar;
  BufSize: Integer;
  myFileSize: Integer;
const  
  CBUFSIZE = 1024;
begin
  if not btnSend.Enabled then 
    Exit;
  AssignFile(f, FileName);
  Reset(f, 1);

  myFileSize := FileSize(f);
  if myFileSize > CBUFSIZE then  
    BufSize := CBUFSIZE
  else  
    BufSize := myFileSize;

  GetMem(buf, BufSize);
  try
  {
  for xfer := 0 to BufSize-1 do
    buf[xfer] := #0;
  xfer := 0;
  }
    repeat
      BlockRead(f, buf^, BufSize, xfer);
      if xfer > 0 then
      begin
        Comm1.WriteCommData(buf, xfer);
        FTXNum := FTXNum + Cardinal(xfer);
        ShowTX;
      end;
    until xfer < BufSize;
  finally
    CloseFile(f);
  end;
end;
the_o 26876 2006/10/27 20:55:14
好东西,谢谢
dhz310 26765 2006/10/23 19:12:20
hoho
这东西好！拿回去研究研究，呵呵
感谢共享！！
xielihong 26755 2006/10/23 13:16:35
谢谢大家的支持，如果您在使用中发现有问题或对软件的功能上有建议，希望你能给我一个Email，我将不断改进软件，为大家提供更好的串口调试软件。我己提供了全部的源代码，如果你对软件有所改进的话，也希望您能给我一个Email。再次谢谢大家的支持。
zhlmxh 26749 2006/10/23 10:44:35
多谢了！
xj307 26742 2006/10/23 9:42:46
谢谢！
第一页 上一页 下一页 最后页 有 16 条纪录 共1页 1 - 16
 用户名：
 密　码：
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表