求助汽车电子或用过CVI编程的朋友

2万 · 2007-3-31 03:17

控制DTR和RTS的命令是什么？？？

上次汽车电子给我过，可是被熊猫干掉了~~~

谢谢~~~

2万 · 2007-4-1 03:54

郁闷~~~好长时间没见汽车电子的身影了~~~很是挂念~~~

今天看见汽车电子给菜农玩的网站也被人攻占了~~~

菜农的域名没了~~~

2万 · 2007-4-1 18:26

ComSetEscape
int ComSetEscape (int COMPort, int escapeCode);

Purpose
Directs a COM port to carry out an extended function such as clearing or setting the RTS signal line or setting the transceiver mode for RS-485. The serial device driver defines the extended functions.

Not all device drivers support all escape codes. ComSetEscape returns Unknown System Error (-1) when the device driver does not support a particular escape code.

Parameters
Input
Name Type Description
COMPort integer A number that indicates the COM port on which to operate.

This number is paired with deviceName, which represents the COM port, during the OpenComConfig function call.

Default Value: 1—COM1
Valid Range: 1—1,000
escapeCode integer The escape code of the extended function. Use the following values:

CLRDTR—Clears the DTR (data-terminal-ready) signal.

CLRRTS—Clears the RTS (request-to-send) signal.

GETMAXCOM—Returns the maximum COM port identifier the system supports. This value ranges from 0x00 to 0x7F, such that 0x00 corresponds to COM1, 0x01 to COM2, 0x02 to COM3, and so on.

SETDTR—Sends the DTR signal.

SETRTS—Sends the RTS signal.

SETXOFF—Causes the port to act as if it has received an XOFF character.

SETXON—Causes the port to act as if it has received an XON character.

You can use the following values only with the National Instruments RS-485 serial driver:

WIRE_4—Sets the transceiver to four-wire mode.

WIRE_2_ECHO—Sets the transceiver to two-wire DTR controlled with echo mode.

WIRE_2_CTRL—Sets the transceiver to two-wire DTR controlled without echo.

WIRE_2_AUTO—Sets the transceiver to two-wire auto TXRDY controlled mode.

Return Value
Name Type Description
result integer The result of this function call. This code is a negative value that specifies the type of error that occurred.

2万 · 2007-4-1 18:54

去年汽车电子给了我一些串口通的CVI6.0片段.
由于对6.0不太满意就放下了.

现在都8.0/8.1了,功能很强.

所以就准备放弃Delphi玩CVI了.

数据库/注册表等都已学会.就串口的DTR/RTS让我头晕~~~

这是我按例程改的,但都不行.所以只能求助了~~~
    //打开并配置串口
//    OpenComConfig (1, "", 38400, 0, 8, 1, 512, 512);
//    SetXMode (1, 0);
//    SetCTSMode (1, LWRS_HWHANDSHAKE_CTS_RTS_DTR);
//    SetCTSMode (1, LWRS_HWHANDSHAKE_CTS_RTS_DTR);
//    SetCTSMode (1, LWRS_HWHANDSHAKE_OFF);


//    ComSetEscape (1, 6);
//    ComSetEscape (1, 4);

//    ComSetEscape (1, 4);
//    ComSetEscape (1, 5);


//    ComSetEscape (1, SETRTS);
//    ComSetEscape (1, CLRRTS);
//    ComSetEscape (1, SETDTR);
//    ComSetEscape (1, CLRDTR);
//    ComSetEscape (1, CLRRTS | CLRDTR);


再次感谢!!!估计只能等汽车电子回归了~~~

2万 · 2007-4-1 19:02

2万 · 2007-4-1 19:06

汽车电子当时的程序被格式化了~~~惨痛呀~~~

我估计应该和SetCTSMode()等有关系.

2万 · 2007-4-1 20:44

就是用ComSetEscape();
估计昨晚是硬件问题.
再者就是变换DTR/RTS时,必须在打开串口时,否则蹦出错误.
晕~~~SPCOMM可没这个问题~~~

刚做CVI菜鸟,确实晕水~~~.

真是没C++就太难了~~~,满天的全局变量---2.5个字:晕+水

    //打开并配置串口
    OpenComConfig (1, "", 38400, 0, 8, 1, 512, 512);
    SetXMode (1, 0);
    SetCTSMode (1, LWRS_HWHANDSHAKE_OFF);
    GetCtrlVal (panelHandle, PANEL_CHECKBOX_1, &val);
    if (val == 0) ComSetEscape (1, CLRDTR);
    else ComSetEscape (1, SETDTR);
    GetCtrlVal (panelHandle, PANEL_CHECKBOX_2, &val);
    if (val == 0) ComSetEscape (1, CLRRTS);
    else ComSetEscape (1, SETRTS);
    //给串口Com1安装指定的回调函数，当输入队列满50个字符时产生中断
    InstallComCallback (1, LWRS_RECEIVE, 50, 0, ComCallback, callbackdata);

2万 · 2007-4-1 21:17

ç¬¬1ä¸ªé—®é¢˜:  CVIé“¾æŽ¥ADOæ•°æ®åº“é—®é¢˜.
å·²è§£å†³~~ä¸é”™~~~ä¸è¿‡è¿˜æ˜¯åœ¨æ“ä½œè®°å½•å’Œå—æ®µæ—¶æ¯”delphiéº»çƒ¦å¾ˆå¤š~~~

    //å»ºç«‹æ•°æ®åº“è”æŽ¥ï¼Œå¹¶èŽ·å¾—è”æŽ¥å¥æŸ„
//    hdbc = DBConnect ("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\LabWindows\14\user.mdb;");
//    hdbc = DBConnect ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LabWindows\14\user.mdb;Persist Security Info=False");
    hdbc = DBConnect ("Provider=MSDASQL.1;Persist Security Info=False;Data Source=client");
//    hdbc = DBConnect ("DSN=client");
    DisplayPanel (panelHandle);
    RunUserInterface ();
    DiscardPanel (panelHandle);

    //å½“é€€å‡ºåº”ç”¨ç¨‹åºæ—¶ï¼Œå…³é—æ•°æ®åº“è¿žæŽ¥
    DBDisconnect (hdbc);

ç¬¬2ä¸ªé—®é¢˜: CVIè°ƒç”¨æŽ§åˆ¶å°ç¨‹åºå¹¶å–å…¶ç»“æžœé—®é¢˜
å¦‚CreateProcess().
åœ¨delphié‡Œæ˜¯è¿™æ ·çš„:
function TForm1.WinExecAndWait32(FileName: string; Visibility: Integer; var ShowString: string): Cardinal;
var
  sa: TSecurityAttributes;
  hReadPipe, hWritePipe: THandle;
  ret: BOOL;
//  strBuff: array[0..255] of Char;
  strBuff: array[0..4095] of Char;
  lngBytesread: DWORD;
  WorkDir: String;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(sa, Sizeof(sa), #0);
  sa.nLength := Sizeof(sa);
  sa.bInheritHandle := True;
  sa.lpSecurityDescriptor := nil;
  CreatePipe(hReadPipe, hWritePipe, @sa, 0);

  WorkDir := ExtractFileDir(Application.ExeName);
  FillChar(StartupInfo, Sizeof(StartupInfo), #0);
  StartupInfo.cb := Sizeof(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
  StartupInfo.wShowWindow := Visibility;

  StartupInfo.hStdOutput := hWritePipe;
  StartupInfo.hStdError := hWritePipe;

  if not CreateProcess(
    nil,
    PChar(FileName),               { pointer to command line string }
    @sa,                           { pointer to process security attributes }
    @sa,                           { pointer to thread security attributes }
    True,                          { handle inheritance flag }
//    CREATE_NEW_CONSOLE or          { creation flags }
    NORMAL_PRIORITY_CLASS,
    nil,                           { pointer to new environment block }
    PChar(WorkDir),                { pointer to current directory name, PChar}
    StartupInfo,                   { pointer to STARTUPINFO }
    ProcessInfo)                   { pointer to PROCESS_INF }
    then
  begin
    Result := INFINITE {-1};
  end
  else
  begin
    ret := CloseHandle(hWritePipe);
    ShowString := ';
    while ret do
    begin
      FillChar(strBuff, Sizeof(strBuff), #0);
      ret := ReadFile(hReadPipe, strBuff, 256, lngBytesread, nil);
      ShowString := ShowString + strBuff;
    end;

    Application.ProcessMessages;
    WaitforSingleObject(ProcessInfo.hProcess, INFINITE);//
    GetExitCodeProcess(ProcessInfo.hProcess, Result);
    CloseHandle(ProcessInfo.hProcess);  { to prevent memory leaks }
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(hReadPipe);
  end;
end;

if WinExecAndWait32(str, ShowModeSele, buff) = 0 then
  Memo1.Lines.Add(buff);

è¿™æ ·å³å¯æ”¶åˆ°è¿›ç¨‹FileName(EXEæ–‡ä»¶)åœ¨DOSç•Œé¢çš„æ˜¾ç¤ºç»“æžœ.

ä¸‹å›¾å°±æ˜¯Keilåº”ç”¨CreateProcess()å›žæ˜¾çš„æˆåŠŸä¾‹å,æˆ‘ç”¨ä»¥ä¸Šç¨‹åºä¹Ÿè°ƒé€šäº†.
æ°´æ½é‡Œåº”è¯¥æœ‰å¸–å›¾.

å…ˆåœ¨æ¤æ„Ÿè°¢äº†~~~

2万 · 2007-4-2 19:55

取控制台的结果还真的没整过，记得cvi里面有定向标准输出的函数，叫什么SetStdioPort，有时间研究一下!
另外你的delphi看着真让人头疼...看不懂

1万 · 2007-4-3 00:43

2万 · 2007-4-3 19:00

王紫豪先生，收菜农做弟子吧~~~家教费用如何收？？？

厉害~~~可以正式拜您为CVI老师吗？？？

哈哈~~~
相关链接:http://www.cpubbs.com/forum/viewthread.php?tid=2134&extra=page%3D1

2万 · 2007-4-3 20:37

强烈支持老大付出那么多,写这些东东!!!

只看该作者 · 2007-4-4 23:42

2万 · 2007-4-5 02:09

相关链接:http://www.**/blog/hotpower/20557/message.aspx

2万 · 2007-4-5 12:23

可能还有几种吧~~~不过一种就足够了~~~

记着不要用它搞"熊猫"呀~~~

相关链接:http://www.**/blog/hotpower/20689/message.aspx

2万 · 2007-4-12 23:45

相关链接:http://www.**/blog/hotpower/21752/message.aspx

只看该作者 · 2007-4-13 13:04

2万 · 2007-4-17 21:20

1万 · 2007-4-17 22:12

有空我也玩玩，向你讨教。

2万 · 2007-4-17 22:22

有时间QQ???(换号了)

求助汽车电子或用过CVI编程的朋友

相关下载

相关帖子

自己半夜顶一下~~~

re:

谢谢~~~ComSetEscape我试过不行~~~

呵呵，CVI倒是玩的比较熟，就是DTR没用过。。不好意思

倒塌了~~~要想搞定LPCARM必须过DTR/RTS~~~

哈哈~~~搞定了~~~

æƒ³è¯·æ•™çŽ‹ç´«è±ªåŒå¿—1ä¸ªCVIçš„é—®é¢˜(åŽŸä¸º2ä¸ªé—®é¢˜)

hotpower大叔

蛮好看的，有空我也来玩玩.

哈哈~~~终于找到老师了~~~

hotpower老大谦虚了,我还想败你为师呢!!

顶一下两位高手!

倒塌了~~~我才刚刚上路~~~

晕菜了~~~一下搞了6种~~~

终于倒塌了CVI之ADO~~~一阵晕沉~~~

俺也回次帖吧

汽车电子看我这个学生能否毕业~~~

好，你竟然搞到数据库工具了

倒塌了~~~SQL Toolkit有bug,这是用纯种的ADO做的~~~

核心会员奖章

技术导师奖章

十世金身

坚毅之洋流

永恒之光奖章

七世轮回

无冕之王奖章

沉静之湖泊

以坛为家

技术奇才奖章

谢谢~ComSetEscape我试过不行~

倒塌了~要想搞定LPCARM必须过DTR/RTS~

哈哈~搞定了~

æƒ³è¯·æ•™çŽ‹ç´«è±ªåŒå¿—1ä¸ªCVIçš„é—®é¢˜(åŽŸä¸º2ä¸ªé—®é¢˜)

哈哈~终于找到老师了~

倒塌了~我才刚刚上路~

晕菜了~一下搞了6种~

终于倒塌了CVI之ADO~一阵晕沉~

倒塌了~SQL Toolkit有bug,这是用纯种的ADO做的~