Delphi 打开串口与关闭串口 procedure TForm1.btn1Click(Sender: TObject); begin cm1.CommName:=cbb1.Text; cm1.BaudRate:=strtoint(cbb2.Items[cbb2.ItemIndex]); case cbb3.ItemIndex of :cm1.ByteSize:=_5; :cm1.ByteSize:=_6; :cm1.ByteSize:=_7; :cm1.ByteSize:=_8; end; c

Delphi打开网址链接的几种方法1.使用shellapi打开系统中默认的浏览器              首先需在头部引用 shellapi单元即在uses中添加shellapi,这里我们需要知道有3个api函数可以运行可执行文件WinExec.ShellExecut和CreateProcess.             下面为 ShellExecute的标准用法             ShellExecute(Application.Handle, nil, 'http://www.bai

给出打开串口函数 int open_tty(char tty[]) { int fd; char tty_path[32]={0}; sprintf(tty_path,"/dev/%s",tty); fd=tty_open_port(tty_path); // PORT_SPEED是一个定义的宏,表示传输速率.数据位为8,无校验位,停止位为1 tty_set_opt(fd,PORT_SPEED,8,'N',1); return fd; } 该函数接受一个参数,表示你要打开的串口名称,如

imx6在qt中打开调试串口时,ui总是会卡死.调试串口已经被文件系统占用,而在qt的app中使用open函数却能够调用open函数,打开成功,造成ui卡死,并且调试串口也卡死.本文记录这个问题的解决方法. try { //查找/etc/inittab文件中,是否使用ttymxc0作为调试串口输出 //如果是,就抛出异常,不打开串口 ret = system("grep ttymxc0 /etc/inittab | grep -v \"#\""); if (ret

  版权声明:本文为博主原创文章,如需转载请注明出处及作者. 本文由小李专栏原创,转载需注明出处:[http://blog.csdn.net/softwave/article/details/8907599] 最近在做一个项目,要求使用Java对磅房的小磅数据进行读取,这就要求使用Java与串口进行通信.串口的Java代码已经开发完毕,但又不能总在生产现场调试程序,所以如何在自己的笔记本电脑上模拟串口数据就成了当务之急.托Google的福,找到了两个小工具:VSPD和串口调试助手.下面简单介绍一

通常使用下列函数来通过Win系统来对外围设备进行通信处理: 0. 前言 做串口方面的程序,使用CreateFile打开串口通信端口.在对串口操作之前,需要首先打开串口.使用C++进行串口编程,如果采用VS开发,则可以直接借助于串口通信控件来操作,其次,直接调用Windows的底层API函数来控制串口通信. 在Window 32bit 的操作系统上, 将串口(通信设备)作为文件来处理,所以串口的打开.关闭.读写所使用的API函数与文件操作一样.所以打开串口使用CreateFile函数,读写串口使用

udev的使用-minicom没有权限打开串口,更改 ttyUSB0 的权限 使用minicom打开串口会提示没有权限,必需要用 sudo,怎样更改串口设备的权限能够让普通用户读写呢? 事实上仅仅要更改udev的规则, ttyUSB0 的权限为666.就可以实现让普通用户可读写. 加入udev规则: /etc/udev/rules.d/50-usb-serial.rules KERNEL=="ttyUSB0", GROUP="uucp",MODE="066

通过编写串口助手工具学习MFC过程 因为以前也做过几次MFC的编程,每次都是项目完成时,MFC基本操作清楚了,但是过好长时间不再接触MFC的项目,再次做MFC的项目时,又要从头开始熟悉.这次通过做一个串口助手再次熟悉一下MFC,并做了一下记录,以便方便以后查阅.做的过程中多是遇到问题直接百度和谷歌搜索来的,所以很多都是不求甚解,知其然不知其所以然.另外做此工具只是为了熟悉了解,许多功能还没有完善!(开发工具VS2008) (二)通过"打开串口"按钮了解基本操作 需要什么控件直接从这个对

使用CreateFile打开串口(COM)号大于9时报错,GetLastError()的值为2. 解决方法: // 把串口名称由 "COMN" 改为 "\\.\COMN",N没有大小限制 const int len = 20; char newCommName[len + 1] = { 0 }; sprintf_s(newCommName, len, "\\\\.\\%s", chCommName); m_hComm = CreateFileA(

1. 现象 Windows上,串口存在但是打开串口号大于9的串口返回ERROR_FILE_NOT_FOUND,打开小于10的串口号却正常. 2. 解决 以10号串口为例:将错误示范COM10 改为 \\\\.\\COM10, 再调用CreateFile就正确了. 该方法适用打开所有串口. 3. 一个例子: 注意CreateFile的第一个参数: 错误调用: CreateFile(L"COM10", GENERIC_READ | GENERIC_WRITE, // read/write

在Delphi7.0中安装Spcomm串口通信控件的方法为:选择Delphi7.0的“Component”菜单,点击“Install Component...”菜单项,然后在弹出的Into existing package属性页中Unit file name输人框中选择SPCOMM.pas文件,单击两次 “OK”按钮后,就可以将Spcomm控件安装到Delphi7.0的System组件页上. 在Delphi 2007 File NEW  Package Dephi for Win32 Conto

  今天在打开一个Delphi窗体时报了这么一个错误: Corrupt Portfolio Stream 查了一下,主要是由于Delphi窗体的*.ddp文件损坏引起的. 解决方法: 删除.ddp 文件,重新打开窗体即可. 有时候还是不行,这个时候用记事本打开 那个.dfm文件,通常窗体都是以Text形式存储的,如果发现是二进制代码,那么八成窗体文件也坏了,这个时候删除这个窗体文件, 把 *.~dfm备份文件改名字成 *.dfm ,然后就可以了. 关于*.ddp file, Delphi Dia

最近在做一个测试串口读写回路的APK,jni代码部分遇到一个小小问题: fd = open(path_utf, O_RDWR);返回值是-1,要么就是权限问题,要么就是文件不存在所以需要打印错误信息,所以继续打LOG: if(fd == -1){ /*Throw an exception*/ LOGE("can not open serial port: %d,%s", baudrate, strerror(errno)); return NULL;}其中strerror为系统函数,e

//1.打开目录和打开txt文件 procedure TMainForm.bbtnOpenLoClick(Sender: TObject); var sLogName: string; begin sLogName := Pub_EXEPath + '\日志\' + FormatDateTime('yyyy-mm-dd',date())+'.txt'; if not FileExists(sLogName) then begin MessageBox(0, '今日无错误日志!', '提示', M

1. 通过iexplore.exe打开:ShellExecute(0, 'open', 'iexplore.exe', PChar('http://www.100xuekao.com'), '', SW_NORMAL); 2. 直接打开:  ShellExecute(0, 'open', 'http://www.cneexam.com/index.aspx', nil, nil,SW_SHOW);

用记事本打开*.dof文件, 把这行[Resource DLL Projects]及它的所属的内容删除就行了.

一.打开外部exe 1.use文件-SHELLAPI 2.ShellExecute(handle,'open','E:\test.exe','-s','',SW_SHOWNORMAL); 二.关闭外部exe 1.use文件-TLHelp32 2.新建两个函数 //查找正在运行的进程 function TForm1.FindTask(ExeFileName: string): Boolean;constPROCESS_TERMINATE=$0001;var ContinueLoop: BOOL;

procedure TfrmClientMain.SayAddr;var sbuf:array[1..7] of byte;begin sbuf[1]:=byte($35); sbuf[2]:=byte($A1); {命令号} sbuf[3]:=byte($00); sbuf[4]:=byte($00); sbuf[5]:=byte($00); sbuf[6]:=byte($00); sbuf[7]:=byte($58); senddata(sbuf);{调用发送函数}end; //发送方法pr

strFileName := FcxLV[nIndex].Items.Item[FcxLV[nIndex].ItemIndex].SubItems.Strings[0]; //路径  ShellExecute(0, nil, PChar('explorer.exe'),PChar('/e, ' + '/select,' + strFileName), nil, SW_NORMAL); http://blog.csdn.net/yanjiaye520/article/details/6803795

strFileName := FcxLV[nIndex].Items.Item[FcxLV[nIndex].ItemIndex].SubItems.Strings[0]; //路径  ShellExecute(0, nil, PChar('explorer.exe'),PChar('/e, ' + '/select,' + strFileName), nil, SW_NORMAL); http://blog.csdn.net/yanjiaye520/article/details/6803795