delphi SPCOMM的一些用法注意】的更多相关文章

  使用串口SPCOMM接收数据的时候0x11和0x13无法接受,从时间间隔上看来可以接收,但是无法显示.网上查错误得: ------------------------------------------------------------------------ OutX_XonXOffFlow/InX_XonXoffFlow:这个属性是指进行发送/接收时的软件握手标志,两个握手信号之间的数据被认为是通讯数据,收到握手信号后,通讯就中止了. FOutx_XonXoffFlow := True…
转自:http://blog.csdn.net/haiou327/article/details/6666124 delphi中nil的用法 和C++中的NULL一样的意思,指空值,它和0值不一样--   nil就是空指针--    指针表示的就是内存的一个地址--(数据存放位置)--    nil就表示空地址--     例如:   说对一个TImage中的图片进行清空:    Image1.Picture:=nil;      对象也是指针,如上的Image1就是一个对象指针--     当…
Delphi中ClientDataSet的用法小结 TClientDataSet控件继承自TDataSet,其数据存储文件格式扩展名为 .cds,是基于文件型数据存储和操作的控件.该控件封装了对数据进行操作处理的接口和功能,而本身并不依赖上述几种数据库驱动程序,基本上能满足单机"瘦"数据库应用程序的需要. 一.TClientDataSet的基本属性和方法介绍 1.FieldDefs: 字段定义列表属性 开发者可通过单击属性编辑器中该属性编辑按钮,或在该控件上单击右键选择弹出菜单中的&q…
这篇文章主要介绍了delphi字符串分隔函数用法,通过自定义函数SeparateTerms2实现将字符串分割后存入字符串列表的功能,具有一定的实用价值,需要的朋友可以参考下 本文实例讲述了delphi字符串分隔函数用法.分享给大家供大家参考.具体实现方法如下: 该实例可实现根据字符串Separator的表示将字符串s分隔为若干个字符串,存入rs字符串列表中,具体代码如下 procedure SeparateTerms2(s:string;Separator:string;var rs:TStri…
在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…
  使用串口SPCOMM接收数据的时候0x11和0x13无法接受,从时间间隔上看来可以接收,但是无法显示.网上查错误得: ------------------------------------------------------------------------ OutX_XonXOffFlow/InX_XonXoffFlow:这个属性是指进行发送/接收时的软件握手标志,两个握手信号之间的数据被认为是通讯数据,收到握手信号后,通讯就中止了. FOutx_XonXoffFlow := True…
if not Assigned(Modeless) then Assigned()什么意思! assigned 是用来判断某一指针(pointer)或过程引用是否为nil(空),如果为空则返回假(false). 用法示例(防止窗体被实例化多次): unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type…
WebBrowser1.GoHome; //到浏览器默认主页 WebBrowser1.Refresh; //刷新 WebBrowser1.GoBack; //后退 WebBrowser1.GoForward; //前进 WebBrowser1.Navigate('...'); //打开指定页面 WebBrowser1.Navigate('about:blank'); //打开空页面 //打开空页面, 并写入... WebBrowser1.Navigate('about:<head><ti…
SPCOMM 接收数据不完整!该如何解决   SPCOMM 接收数据不完整!我作了一个 读取地磅数据的程序,是用spcomm接收的! 总共有五台地磅,其他4台地磅数据读取都正常.但是有一台接收数据的时候,总是接收不到完整的数据,基本上小于100的数据都读不到,比如:地磅上显示1234,但是接收到的数据是12.  地磅上显示60,接收不到数据. 有时地磅上什么东西都没有,但是显示接收到 5 . 这个地磅用原来硬件供应商提供的程序可以正常工作.用我写的程序,偶尔也能正常读到数据(用程序测试了半天,有…
原型         function   paramstr(i:index):string         对于任何application paramstr(0)都默认代表的是应用程序的绝对路径.那么有paramstr(0),就肯定有paramstr(1),paramstr(2)...了.它们的值又是什么了?我试了下取出的是空值,又不能赋值.        delphi帮助中说Returns a specified parameter from the command-line.从命令行中返回…
因客户需求,对客户的指纹机与公司产品进行集成,需要对指纹机做接口的二次开发,郁闷的是产商只提供了VB和C的DEMO示例,没有Delphi的,公司没有VB,C的环境,不能打开这二种语言的示例,因为本公司搭环境特麻烦,加上之前做过类似的开发,所以也懒得去搭环境了,按照以前的开发经验写了个DEMO进行测试,一路进行得很顺利,但到了下载用户指纹和上传用户指纹数据时卡住了,因为下载用户指纹时,用于获取指纹数据传入到接口函数中的参数类型是OleVariant类型的,返回后变成了 Variant array…
MessageBox对话框 输入控件的   ImeName属性把输入法去掉就默认为英文输入了 MessageBox对话框是比较常用的一个信息对话框,其不仅能够定义显示的信息内容.信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对话框信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对框. 1.函数原型及参数 function MessageBox(hWnd: HWND; Text, Caption: PChar; Type: Word): Integer…
MessageBox对话框 输入控件的   ImeName属性把输入法去掉就默认为英文输入了 MessageBox对话框是比较常用的一个信息对话框,其不仅能够定义显示的信息内容.信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对话框信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对框. 1.函数原型及参数 function MessageBox(hWnd: HWND; Text, Caption: PChar; Type: Word): Integer…
原型                function   paramstr(i:index):string        对于任何application paramstr(0)都默认代表的是应用程序的绝对路径.那么有paramstr(0),就肯定有paramstr(1),paramstr(2)...了.它们的值又是什么了?我试了下取出的是空值,又不能赋值.        delphi帮助中说Returns a specified parameter from the command-line.从…
Help里的解释 function Locate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean; KeyFields: is a string containing a semicolon-delimited list of field names on which to search. KeyValues: is a variant array containing th…
Delphi在数据库操作是非常好用的,delphi把ADO一些方法属性都集成了,以下是我的一些总结:*******************************通过sql的存储过程来实现:添加With ADOQuery1 dobeginClose;SQL.Clear;SQL.Add(' Insert Into Table1(Field1,Field2)')SQL.Add(' Values(10,20)');ExecSQL;end; 修改With ADOQuery1 dobeginClose;S…
为了提高应用程序的性能,可以用inline声明一个函数过过程,对于声明为inline的过程,编译器在编译时,会取代正常的过程调用方式,取而代之是直接把这个函数的编译代码拿过来生成到调用该过程的地方,有多处调用一个函数,都直接在调用处插入函数的编译代码,这样的弊端,会生成较大的EXE文件. 声明的方法: procedure MyFunc(x:integer):string;inline 有多种情况的函数或过程是不支持inline的: 后绑定的方法,如virtual,dynamic,message方…
procedure Assert(expr : Boolean [; const msg: string]); 用法:   Assert(表达式,[显示信息]); 如果为假, assert会产生一个EAssertionFailed异常,显示信息为: Debugger Exception Notification Project  Project2.exe raised exception  class EAssertionFailed with Message'AAA (C:/Users/tan…
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { P…
function GetFlag(a: string): Integer;var I: Integer;begin Result := 0; for I := 0 to 3 - 1 do begin if a = '0' then Result := Result or 1 else Result := Result or 2; end;end; procedure TForm1.Button1Click(Sender: TObject);var I: Integer;begin I := Ge…
1.设置图片如下: 设置默认值: if Trim(FQuery.fieldByName('cPersonCategory').AsString) = '' then begin CNode.Values[PersoncPersonCategory.ItemIndex] := '07'; end else begin CNode.Values[PersoncPersonCategory.ItemIndex] := Trim(FQuery.fieldByName('cPersonCategory')…
转自:http://blog.163.com/wll_009/blog/static/1173731172009102452632968/ 这几个都跟选区有关的,就是选中一串字符串,选中的会变蓝色SelText 返回或设置包含当前所选择文本的字符串:如果没有字符被选中,则为零长度字符串 (""). selstart就是选区的第一个字符sellength就是选中的长度seltext就是选中的字符了,就是这串字符串变蓝色.比如:文本框text1.text="1234567890&…
是,右键菜单控件,和特定的窗体控件的popmenu属性关联就可以了 添加一个popupmenu控件,双击该控件,在弹出的界面中设置好name以及caption属性,点击事件的做法就跟button一样了.最后选择需要有右键选择菜单的控件,popupmenu属性指向对应popupmenu,搞定...…
Com口函数 自动获取Com口,函数列表 procedure EnumComPorts(Ports: TStrings); //自动获取com口函数 var KeyHandle: HKEY; ErrCode, Index: Integer; ValueName, Data: string; ValueLen, DataLen, ValueType: DWORD; TmpPorts: TStringList; begin ErrCode := RegOpenKeyEx( HKEY_LOCAL_MA…
procedure TForm10.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);var Im1: TBitmap;staff_id: string;beginIm1:=TBitmap.Create;if (dm.AQ_personal.RecordCount = 0) then exit;if Column.Fi…
首先要在FORM里拖进来一个StyleBook1,然后在Form里设置属性,记住一定要在单击form,在OBject Inspector里设置StyleBook  [StyleBook1]. 下一个属性StyleName [  ] 好像是多余的,我多次都把StyleName [StyleBook1], 但是没有效果.在其他控件下设置StyleLookup就可以了,单击选择.styleName就显得多余了,当然你能记住每个控件的style,那么就不用去look up了.(待续) http://bl…
今天维护一个老项目是用delphi5 + BDE写的.为了更方便查询数据,就增加一个查询功能.由于数据量查询出来后就比较少,于是就想到Filter like 但 BDE并不支持 Filter = 'name like'  BDE的模糊查询只有' name = A*' 匹配只能从第一个字母开始,无法达到要求.后来在OnFilterRecord中解决 由于 TQuery.Filtered := False; TQuery.Filtered := True; 会触发OnFilterRecord事件 于…
http://blog.csdn.net/dongyonggan/article/details/5780979 用法:ASSERT(表达式) 如果为假,ASSERT会产生一个EASSERTIONFAiled异常,显示为 Assertion Failed (C:/src/unit1.pas, [size=+0]line 34) 如果不想再使用这些检查时,可以使用($ASSERTIONS OFF)或($C-)编译指令 要想使Assert在整个项目中失效, 关闭Project Options | C…
一.用法:Assert(表达式)1.如果为假 Assert会产生一个EAssertionFailed异常,显示为 Assertion Failed (C:/src/unit1.pas, [size=+0]line 34)2.如果不想再使用这些检查时,可以使用($ASSERTIONS OFF)或($C-)编译指令3.要想使Assert在整个项目中失效, 关闭Project Options | Compiler | Assertion 选项. 二.delphi Assert()函数的用法Assert…
unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,TypInfo,ObjAuto; type  TForm1 = class(TForm)    btn1: TButton;    btn2: TButton;    btn3: TButton;    btn4: TButton;    btn5: TB…