上一页 1 ··· 3 4 5 6 7 8 下一页
摘要: 第一章 背景知识1. 概述串口是计算机上I/O接口的一种,要掌握串口通信编程的相关知识,必须先了解I/O接口的相关知识。I/O接口是接口的一种。2. 什么是接口?众所周知计算机是由CPU,存储器,外部终端设备组成.接口就是用于CPU与外部设备、存储器的连接和数据交换的设备。3. 接口分类.广义的计算机接口有二种,见下表:类別 用途 电路实现复杂性存储器接口: 用于CPU与外部设备、存储器的连接 简单I/O接口 数据交换 复杂习惯上说到接口只是指I/O接口。本文沒作特別介绍的地方都叫I/O接口.4. 为什么需要I/O接口?计算机的外围设备品种繁多,几乎都采用了机电传动设备,因此,CPU在与I/O 阅读全文
posted @ 2010-04-24 23:40 小阿枫 阅读(1490) 评论(1) 推荐(0)
摘要: 在权限设置或者串口设置等方面个人觉得很有用 //获取每一位的状态 返回值 状态 0,1 function GetBitSate(dw1:DWORD; Pos:Byte):Byte; //设置每一位的状态 返回值 设置后的数据 function SetBitSate(dw1:DWORD; Pos:By 阅读全文
posted @ 2010-02-02 18:18 小阿枫 阅读(443) 评论(2) 推荐(0)
摘要: 引用的mysql.pas文件的版本是:04-Aug-2009. 嗯,在上一篇中已经贴出来了. 引用的动态库libmySQL.dll 在mysql的安装目录下有.先把它封装成类 TMySql;[代码]然后是DLL文件: MysqlsdkMysqlsdk.dllMysqlsdkCode highlighting produced by Actipro CodeHighlighter (freeware... 阅读全文
posted @ 2010-01-05 23:08 小阿枫 阅读(1397) 评论(2) 推荐(0)
摘要: [代码] 阅读全文
posted @ 2010-01-05 22:48 小阿枫 阅读(1635) 评论(1) 推荐(0)
摘要: 这是一个气泡提示的动态库.(参考网络资源 自己封装)[代码] 阅读全文
posted @ 2009-12-28 23:24 小阿枫 阅读(1864) 评论(4) 推荐(0)
摘要: 1. 删除droptableifexists tablename;2. 创建 create database if not exists databasename; create table if not exists tablename; 阅读全文
posted @ 2009-12-16 09:03 小阿枫 阅读(437) 评论(0) 推荐(0)
摘要: Time_T 表示:距1970-1-1 00:00:00 GMT 标准时间秒数 Longint;TDateTime: 整数部分为自1899-12-30 以来的天数。其小数部分为天的时间 double型 有些时候可能要互相转换,比如mysql数据库中的时间.Time_T to TDateTime:function time_tToDateTime(vtime_t: Integer): TDateT... 阅读全文
posted @ 2009-12-14 19:53 小阿枫 阅读(662) 评论(0) 推荐(0)
摘要: 1.PageControl设置其ownerdrow为true,然后在其DrawTab事件中加入如下代码procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);var aRect:TRect;begin with Pa... 阅读全文
posted @ 2009-12-05 22:23 小阿枫 阅读(1244) 评论(0) 推荐(0)
摘要: 在CSDN上看到的一个网友写的,挺实用的.unit uClosingEffect;interfaceuses Windows, Messages, SysUtils, Classes, Graphics;const WM_REDIRCREATE = WM_USER + 382; WM_REDIRDESTROY = WM_USER + 383; WM_REDIRCLOSING = WM_USER +... 阅读全文
posted @ 2009-11-16 22:48 小阿枫 阅读(2080) 评论(0) 推荐(0)
摘要: procedure QuickSort(var A: array of Integer; iLo, iHi:Integer); procedure Swap(var A,B:Integer); var temp:Integer; begin temp:= A; A:=B; B:=temp; end;var Lo,Hi,Mid: Integer;begin Lo := iLo; Hi := iHi;... 阅读全文
posted @ 2009-11-16 22:43 小阿枫 阅读(302) 评论(0) 推荐(0)
上一页 1 ··· 3 4 5 6 7 8 下一页