delphi中间件

摘要： 目前，利用 Delphi实现串口通信的常用的方法有 3种：一是利用控件，如 MSCOMM控件和 SPCOMM控件；二是使用 API函数；三是调用其他串口通信程序。其中利用 API编写串口通信程序较为复杂，需要掌握大量的通信知识。相比较而言，利用 SPCOMM控件则相对较简单，并且该控件具有丰富的与串口通信密切相关的属性及事件，提供了对串口的各种操作，而且还支持多线程。下面本文结合实例详细 介绍 SPCOMM控件的使用。 SPCOMM的安装 1．选择下拉菜单 Component中的 Install Component选项，弹出如图 1所示的窗口。 图 1 在 Unit file name处填写 阅读全文

摘要： function StrToHexStr(const S:string):string;//字符串转换成16进制字符串var I:Integer;begin for I:=1 to Length(S) do begin if I=1 then Result:=IntToHex(Ord(S[1]),2) else Result:=Result+' '+IntToHex(Ord(S[I]),2); end;end; 阅读全文

摘要： function HexStrToStr(const S:string):string;//16进制字符串转换成字符串var t:Integer; ts:string; M,Code:Integer;begin t:=1; Result:=''; while t<=Length(S) do begin //xlh 2006.10.21 while (t<=Length(S)) and (not (S[t] in ['0'..'9','A'..'F','a'..'f'])) 阅读全文

摘要： AdvStringGrid//从文件中加载asg.LoadFromCSV(Path+FileName);//清空所有行asg.ClearRows(0,asg.RowCount-1);//保存asg.SaveToCSV(Path+'Test.csv');ColCount := 41; {总列数}RowCount := 3; {总行数}FixedRows := 2; {表头行数}FixedCols := 2; {表头列数} DefaultColWidth := 18; {设缺省列宽} DefaultRowHeight := 18; {设缺省行高} ColWidths[0] := 5 阅读全文

摘要： //设置IP和Port RemoteUdpConnection1.RemoteIp:=Edit1.Text; RemoteUdpConnection1.RemoteLoginPort:=StrToInt(Edit2.Text); RemoteUdpConnection1.RemoteDataPort:=StrToInt(Edit3.Text); //启动登陆(StartLogin属于非阻塞的方法) RemoteUdpConnection1.StartLogin;procedure TForm1.RemoteUdpConnection1Connect(OnLine: Boolean);//on. 阅读全文

摘要： --声明游标declare my_cursor cursor for select * from info--删除游标资源deallocate my_cursor--打开游标,在游标关闭或删除前都有效open my_cursor--关闭游标close my_cursor--声明局部变量declare @id int,@name varchar(20),@address varchar(20)--定位到指定位置的记录fetch absolute 56488 from my_cursor into @id,@name,@addressselect @id as id,@name as name,@ 阅读全文

摘要： 网格（Grid）控件，可直观描述二维信息。因此它具有横向和纵向二轴，就是一个二维表格。1、TCustomGrid为所有网格控件的父类，定义了网格控件的主要特征和网格控件的主要功能。在这里，我们着重要了解的是它的两个保护级（protected）方法：（1）procedure Paint;所有TWinControl的子类都可通过Paint来绘制自身外形。在TCustomGrid.Paint中，主要实现两个功能：绘制网格线和填充网格数据。其中，网格数据的填充具体实现由下述的DrawCell完成。在后面的内容，我会结合源代码详细解释Paint。2）procedure DrawCell(ACol, AR 阅读全文

摘要： function GetNumFromStr(const str: String;const hex:boolean=false): String;vari:integer;charset:Set of char;beginif hex thencharset:=['0'..'9','a'..'f','A'..'F','.']elsecharset:=['0'..'9','.'];for i := 1 to Length(str) do 阅读全文

摘要： function SaveAsExcelFile(StringGrid: TStringGrid; FileName: string):boolean;const xlWBATWorksheet = -4167;var Row, Col: integer; GridPrevFile: string; XLApp, Sheet: OLEVariant;begin Result := false; XLApp := CreateOleObject('Excel.Application'); try XLApp.Visible := False; XLApp.Workbooks.Ad 阅读全文

摘要： delphi操作word一、Delphi程序启动Word采用CreateOleObjects的方法来启动Word，调用VBA代码，具体实现过程为：首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序，如果存在，则直接连接，如果没有Word程序，则使用CreateOleObject('Word.Application')启动Word二、Delphi程序新建Word文稿格式：WordDocuments.Add(Template,NewTemplate,DocumentType,Visible)Temp 阅读全文