当前位置：文档库 › Delphi调用API函数操作串口

Delphi调用API函数操作串口

再贴上一段用API操作串口的代码，还是API好，一目了然，呵呵。

unit main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Memo1: TMemo;

Memo2: TMemo;

Label1: TLabel;

Label2: TLabel;

RadioGroup1: TRadioGroup;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure OpenSerialPort;

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

hSerialPort:Cardinal;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

OpenSerialPort;

end;

procedure tform1.OpenSerialPort;

var

cc:TCommConfig;

Temp:string;

begin

Temp:='Com'+inttostr(RadioGroup1.ItemIndex+1); hSerialPort:=CreateFile(PChar(Temp),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,0,0);

if (hSerialPort=invalid_handle_value) then

begin

MessageBox(0,'打开串口失败','',MB_OK);

Exit;

end;

GetCommState(hSerialPort,cc.dcb);

cc.dcb.BaudRate:=CBR_9600;

cc.dcb.ByteSize:=8;

cc.dcb.Parity:=NOPARITY;

cc.dcb.StopBits:=ONESTOPBIT;

if not SetCommState(hSerialPort,cc.dcb) then

begin

ShowMessage('不能设置串口');

CloseHandle(hSerialPort);

Exit;

end

else

ShowMessage('打开，并设置成功！');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if hSerialPort<>0 then CloseHandle(hSerialPort);

Exit;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

temp:string;

lw:LongWord;

begin

if hSerialPort=0 then Exit;

temp:=Memo1.Text;

WriteFile(hSerialPort,PChar(temp)^,Length(temp),lw,nil); end;

procedure TForm1.Button4Click(Sender: TObject);

var

tempString:string;

inBuff:array[0..2047]of Char;

bytesRead,dwError:LongWord;

cs:TComStat;

begin

ClearCommError(hSerialPort,dwError,@cs);

if cs.cbInQue>SizeOf(inBuff)then

begin

PurgeComm(hSerialPort,PURGE_RXCLEAR);

Exit;

end;

ReadFile(hSerialPort,inBuff,cs.cbInQue,bytesRead,nil); tempString:=Copy(inBuff,1,cs.cbInQue);

Memo2.Text:=tempString;

end;

end.

测试软件代码下载:https://www.wendangku.net/doc/4f4204068.html,/onews.asp?/123.html

04 FunCode C 开发常用API

FunCode C开发常用API C语言标准库函数在实验中，我们需要用到一些C语言标准库函数，主要用于字符串处理，获得随机值，处理数学函数等。 Math.h 函数原型功能与返回值参数说明与应用举例 public static double atan2( double y, double x )；返回两点之间的正切值 x:点的x坐标 y：点的y坐标 float ftan = atan2((fMouseY-fY),(fMouseX-fX)); float sqrt( float x ); 功能：计算平方根返回值：x的平方根 sqrt(9) = 3 Stdio.h 函数原型功能与返回值参数说明与应用举例 int sprintf( char *buffer, const char *format, [ argument] … ); 把格式化的数据写入某个字符串缓冲区。返回值：字符串长度（strlen） buffer：char型指针，指向将要写入的字符串的缓冲区。 format：char型指针，指向的内存里面存放的将要格式字符串。 [argument]...：可选参数，可以是任何类型的数据。 sprintf(szUfoName,"ufo_%d_%d", iLoop, iTotalUfoCount ); String.h 函数原型功能与返回值参数说明与应用举例 extern char *strstr( char *str1, char *str2 );找出str2字符串在str1字符串中第一次出现的位置（不包括str2的串结束符）。返回值：返回该位置的指针，如找不到，返回空指针。 strstr(szName, “feichong”) != NULL 说明szName中包含feichong 可以用来判断前一个字符串包含后面一个字符串 extern int strcmp( const char *s1, const char * s2 );比较字符串s1和 s2。当s1

VFP常见编程实例(免费下载)

VFP常见编程实例 1、1-100的累加 ** 求1到100的累加值 CLEAR s=0 i=1 DO WHILE i<=100 s=s+i i=i+1 &&一定记住先累加后循环ENDDO ?s RETURN 2、阶乘 ** 求5的阶乘 CLEAR j=1 i=1 DO WHILE i<=5 j=j*i

i=i+1 ENDDO ?j RETURN 3、求阶乘和 ** 求1至5的阶乘和CLEAR s=0 i=1 j=1 DO WHILE i<=5 j=j*i s=s+j i=i+1 ENDDO ?s RETURN 4、条件定位

** 查询定位记录指针在赵伟上 CLEAR USE 学生 LOCATE FOR 姓名="赵伟" IF FOUND() DISPLAY ELSE CANCEL ENDIF CONTINUE 5、用scan语句查询定位 ** 用scan语句查询定位记录在赵伟上 CLEAR SCAN FOR 姓名="赵伟" DISPLAY ENDSCAN RETURN 6、用scan语句扫描符合条件的记录，并显示出来** 把年龄小于30岁的人显示出来

SCAN FOR 年龄<30 DISPLAY ENDSCAN RETURN 7、查找男性职工 ** 查找男性职工CLEAR LOCATE FOR 性别="男" DO WHILE FOUND() DISPLAY CONTINUE ENDDO RETURN ** 查找男性职工CLEAR LOCATE FOR 性别="男" DO WHILE NOT EOF() DISPLAY CONTINUE

delphi数学模块函数、过程大全

Delphi如何使用基本的绘图函数绘制统计图

一个windows自带的画图工具是无论如何也不能满足我们的画图需要的，很多效果都需要我们在另外的工具中来实现。这些高级的功能是如何实现的呢，如何操纵一些基本的属性和函数，让它们最终能作出我们想要的效果呢？这里我们以绘制统计图来说明这些问题。解决思路―― 这里，我们暂且先撇开具体的问题，综合地一下讨论画图的问题。画图工具是基本元素的具体实现，对于我们初学者来说，还是有很好的参考价值的，在delphi 5中有一个自带的工程例子“……Borland\Delphi5\Demos\Doc\Graphex”，这个例子可以实现一些基本的绘图功能。对这个例子多加修改，一定会有所收获的。这里就不列出它的详细代码了，有心的读者可以自己找到这个例子。我这里只是想综合地讨论这方面的问题。使用DELPHI编写绘图软件的灵魂就在于操作画布,画笔和刷子，尽可能地挖掘它们的属性和相关参数的设置。 (一)画布画布,画笔和刷子之间的关系很明了.其实,画笔和刷子都是画布的一个属性.而画布也只是TForm,TImage,TShape等组件对象的一个属性,专门负责与图象相关的信息打交道.它的主要作用可以概括如下几点: 1.指定使用画笔,刷子和字体的使用类型; 2.绘制和填充指定形状的线或图形; 3.修饰和改变图象; 画布的主要属性有: Brush--指定填充图形和背景的样式 CanvasOrientation--指定画布的定位类型,有coLeftToRight, coRightToLeft两个属性; ClipRect--指定剪切矩形的边界; CopyMode--指定图形图象的复制模式; Font--指定画布上使用的字体; Handle--为画布指定窗口GDI对象的设备描述表; LockCount--指定画布被别的线程锁定的次数; Pen--指定画布上使用的画笔,具体见下面描述; PenPos--指定画笔当前的位置; Pixels--指定当前剪切矩形的象素颜色; TextFlags--指定字体在画布上的显示方式，有ETO_CLIPPED，ETO_OPAQUE，ETO_RTLREADING，ETO_GL YPH_INDEX,ETO_IGNORELANGUAGE,ETO_NUMERICSLOCALETO_NUMERIC SLATIN等值可选; 画布相关的API函数及其注释如下: Arc--按指定方式画一条弧; BrushCopy--把位图复制到指定的画布的矩形中，用画布刷子颜色替换位图的颜色; Chord--按指定方式画弦; CopyRect--从一个矩形区域复制部分图象到另一个矩形区域; Draw--用指定参数在指定位置画图; DrawFocusRect--按指定焦点风格，通过异或操作来绘制一焦点矩形; Ellipse--按指定参数画一椭圆; FillRect--按指定的刷子填充一矩形; FloodFill--使用当前选定的刷子填充指定设备描述表中的一块区域;

常用MFC和API函数

常用MFC和API函数索引 CArchive类：用于二进制保存档案 CBitmap类：封装Windows的图形设备接口(GDI)位图 CBrush类：封装图形设备接口(GDI)中的画刷 CButton类：提供Windows按钮控件的功能 CByteArray类：该类支持动态的字节数组 CCmdUI类：该类仅用于ON_UPDATE_COMMAND_UI处理函数中 CColorDialog类：封装标准颜色对话框 CDC类：定义设备环境对象类 CDialog类：所有对话框（模态或非模态）的基类 CDocument类：提供用户定义的文档类的基本功能 CEdit类：是一个用于编辑控件的类 CFile类：该类是基本文件类的基类 CFileDialog类：封装了打开和保存文件的标准对话框 CFindReplaceDialog类：封装了标准查找/替换对话框 CFont类：封装了Windows图形设备接口(GDI)中的字体对象 CFontDialog类：封装了字体选择对话框 CGdiObject类：GDI绘图工具的基类 CIPAddressCtrl类：提供了IP地址控件的功能 CImageList类：管理大小相同的图标或位图集 CMenu类：封装应用程序菜单栏和弹出式菜单 CPen类：封装了Windows图形设备接口(GDI)中的画笔对象 CPoint类：操作CPoint和POINT结构 CRect类：封装了一个矩形区域及相关操作 CRgn类：封装用于操作窗口中的椭圆、多边形或者不规则区域的GDI区域 CSize类：用于表示相对坐标或位置 CSpinButtonCtrl类：旋转控件Spin的控制类 CStatusBar类：状态栏窗口的基类 CString类：处理字符串 CStringList类：支持CString对象的列表 CWinApp类：派生的程序对象的基类 CWnd类：提供所有窗口类的基本函数 API函数 CArchive类：用于二进制保存档案 CArchive::CArchive 建立一个CArchive对象 CArchive(CFile* pFile,UINT nMode,int nBufSize=4096,void* lpBuf=NULL); 参数：pFile 指向CFile对象的指针，这个CFile对象是数据的最终源或目的；nMode是标志，取值为CArchive::load时，从文档中加载数据（要求CFile读许可），取值为CArchive::store时，将数据存入文档（要求CFile写许可）；nBufSize 指定内部文件缓冲区的大小（按字节计）； lpBuf 指向大小为nBufSize的缓冲区，若未指定，则从局部堆中分配一缓冲区，

VFP函数大全

VFP函数大全 %运算符用于计算并返回两个数值表达式相除之后的余数 $（包含）运算符用于进行字符表达式之间的包含关系运算，如果一个字符表达式包含在另一个字符表达式之中，则函数返回真 ABS() 计算并返回指定数值表达式的绝对值 ACLASS() 用于将一个对象的父类名放置于一个内存数组中 ACOPY() 把一个数组的元素拷贝到另一个数组中 ACOS() 计算并返回一个指定数值表达式的余弦值 ADATABASES() 用于将所有打开的数据库名和它的路径存入一个内在变量数组中 ADB OBJECT S() 用于把当前数据库中的连接、表或SQL视图的名存入内存变量数组中 ADEL() 用于从一维数据中删除一个元素，或从二维数组中删除一行或者一列元素 ADIR() 将文件的有关信息存入指定的数组中，然后返回文件数 AELEMENT() 通过元素的下标，返回元素号 AFIELDS 将当前的结构信息存入数组中，然后返回表中的字段数 AFONT() 将可用字体的信息存入数组中 AERROR() 用于创建包含VFP或ODBC错误信息的内存变量 AINS() 在一维数组中插入一个元素或在二维数组中插入一行或一列元素 AINSTANCE() 用于将类的所有实例存入内存变量数组中，然后返回数组中存放的实例数 ALEN() 返回数组中元素、行或者列数 ALIAS() 返回当前工作区或指定工作区内表的别名 ALLTRIM() 从指定字符表达式的首尾两端删除前导和尾随的空格字符，然后返回截去空格后的字符串 AMEMBERS() 用于将对象的属性、过程和成员对象存入内存变量数组中

ANSITOOEM() 将指定字符表达式中的每个字符转换为MS-DOS（OEM）字符集中对应字符 APRINTERS() 将Print Manager中安装的当前打印机名存入内存变量数组中 ASC() 用于返回指定字符表达式中最左字符的ASCII码值 ASCAN() 搜索一个指定的数组，寻找一个与表达式中数据和数据类型相同的数组元素 ASELOBJ() 将活动的Form设计器当前控件的对象引用存储到内存变量数组中 ASIN() 计算并返回指定数值表达式反正弦值 ASORT() 按升序或降序排列数组中的元素 ASUBSCRIPT() 计算并返回指定元素号的行或者列坐标 AT() 寻找字符串或备注字段在另一字符串或备注字段中的第一次出现，并返回位置 ATAN() 计算并返回指定数值表达式的反正切值 ATC() 寻找字符串或备注字段中的第一次出现，并返回位置，将不考虑表达式中字母的大小写 ATCLINE() 寻找并返回一个字符串表达式或备注字段在另一字符表达式或备注字段中第一次出现的行号。不区分字符大小写 ATLINE() 寻找并返回一个字符表达式或备注字段在另一字符表达式或备注字段中第一次出现的行号ATN2() 根据指定的值返回所有4个像限内的反正切值 AUSED() 用于将一次会话期间的所有表别名和工作区存入变量数组之中 BAR() 从用DEFINE POPUP命令定义的菜单中返回最近所选择的菜单项的编号，或返回一个从VFP菜单所选择的一个菜单命令 BARCOUNT() 返回DEFINE POPUP命令所定义的菜单中的菜单项数，或返回VFP系统菜单上的菜单项数 BARPROMPT() 返回一个菜单项的有关正文 BETWEEN() 确定指定的表达式是否介于两个相同类型的表达式之间 BITAND() 返回两个数值表达式之间执行逐位与（AND）运算的结果 BITCLEAR() 清除数值表达式中的指定位，然后再返回结果值 BITLSHIFT() 返回将数值表达式左移若干位后的结果值

DELPHI常用函数说明

一、数据类型转换函数1 在我们编写程序当中，根据不同情况，会使用到多种数据类型。当要对不同的类型进行操作时，必须要将不同的类型转换成同样的类型。因此熟练地掌握数据类型的转换是非常重要的。 1.FloatToStr 功能说明：该函数用于将“浮点型”转换成“字符型”。参考实例： Edit1.Text := FloatToStr(1.981); 2.IntToStr 功能说明：该函数用于将“整数型”转换成“字符型”。参考实例： S := IntToStr(10);(注：S为String类型变量。) 3.IntToHex 功能说明：该函数用于将“十进制”转换成“十进制”。该函数有二个参数1。第一个参数为要转换的十进制数据，第二个参数是指定使用多少位来显示十六进制数据。参考实例： Edit1.Text := IntToHex('100', 2);

执行结果，Edit1.Text等于64。注意：Delphi没有提供专门的“十六进制”转换为“十进制”的函数。使用StrToInt函数可以实现这个功能。具体代码是：I := StrToInt('S\' + '64'); 这时I等于100。加上一个'S\'即可将“十六进制”转换为“十进制”。 4.StrToInt 功能说明：该函数用于将“字符型”转换成“整数型”。参考实例： I := StrToInt('100'); 注意：不能转换如StrToInt('ab')或StrToInt('好')这样的类型，因为他们并不存在数字型。 5.StrToFloat 功能说明：该函数用于将“字符型”转换成“浮点型”。参考实例： N := StrToFloat(Edit1.Text); 注意：Edit1.Text中的内容为1.981(凡在Edit 控件中显示的文本均为字符串)。N为Double类型，用于保存转换后的浮点型数据。

常用API函数参数

常用API函数参数5 ImmIsIME 函数功能：判断指定的句柄是否为IME；函数原型： BOOL ImmIsIME( HKL hKL ); 参数hKL：待检查的键盘布局句柄；返回值：函数调用成功返回1，失败返回0. 速查信息： Windows NT: 要求4.0或更高版本 Windows: 要求Windows 95 或更高. Windows CE:不支持. Header: 声明在imm.h. Import Library: imm32.lib. Windows XP没有自带五笔型输入法，这对五笔型用户而言无疑是个大大的遗憾。网上的五笔型输入法虽然种类很多，也不乏优秀的版本，但一方面有些版本是共享软件需要注册，另一方面也许很多五笔型输入法的老用户最习惯用的还是老牌的“王码五笔型输入法86/98版”。微软的Office XP软件中包含了这个老牌的五笔型输入法，但如果用户并不使用Office XP中的任何组件，仅仅是为了使用“王码五笔型输入法”而运行Office XP安装程序，就显的有些小题大做了，更不用说是某些零时在外面用公用电脑而又想用五笔型输入法的情况。于是网上出现了很多简化的安装方法，大体上可以分为三个步骤：拷贝输入法文件（从Of还是9x/ME。示例代码fice XP光盘中或已经安装了“王码五笔型输入法”的电脑中提取）增加注册表项重启后通过控制面板添加输入法

整个过程中拷贝输入法文件和增加注册表项可以用批处理和导入注册表文件来简化操作，但必须重启计算机才能在控制面板里添加输入法，这同样让使用者觉得比较烦琐。那么作为一个编程爱好者能不能通过写个小程序来实现在不重新启动计算机的情况下全自动的安装“王码五笔型输入法”呢（也就是即装即用）？答案是肯定的！因为微软的Office XP 安装程序做到了，这就表示微软肯定留有一个专门用来安装输入法的接口，一般来说应该是一系列API函数。经过一番摸索，笔者在MSDN里找到了这个可以用来安装输入法的API：ImmInstallIME()。Ok，现在我们就开始利用这个API来实现自己的“王码五笔型输入法”全自动安装程序。一、准备素材我们先试着从Office XP光盘中提取“王码五笔型输入法”的输入法文件。通过Windows 的查找功能在Office XP的第一张安装盘中查找与“WINWB”相关的文件，在OFFICE1.CAB 中找到了一下14个文件：WINWB86.CHM.*、https://www.wendangku.net/doc/4f4204068.html,T.*、WINWB86.HLP.*、WINWB86A.IME.*、WINWB86A.MB.*、WINWB86W.IME.*、WINWB86W.MB.*、WINWB98.CHM.*、https://www.wendangku.net/doc/4f4204068.html,T.*、WINWB98.HLP.*、WINWB98A.IME.*、WINWB98A.MB.*、WINWB98W.IME.*、WINWB98W.MB.*，其中*是很长的一串由字母、数字和下滑线组成的序列（个人认为应该是微软为了校验文件内容的正确性而加上的内容为该文件效验码的后缀吧）。去掉这个长长的后缀，可以看到5 种类型的文件。很明显，*.CHM、*.CNT和*.HLP是五笔型输入法的帮助文件，*.MB是码表文件，而*.IME是主要的输入法文件。其中*.IME和*.MB有文件名部分以A结尾和以W结尾两个版本，经过笔者试验证实了它们分别是ANSI和UNICODE两种版本的输入法文件。文件名部分以A结尾的文件适用于Windows 9x，以W结尾的文件适用于NT系列Windows系统。提取了输入法文件后必须让安装程序针对不同版本的操作系统将它们拷贝到正确的目录，以便调用API来进行输入法安装。笔者分别在安装了Office XP中自带的“王码五笔型输入法”的Windows 98SE和Windows XP操作系统中查找以上文件，发现帮助文件都存放在WINDOWSHELP目录中（这里假设Windows系统都安装在WINDOWS目录）。而主要的输入法文件（*.IME）和码表文件（*.MB）在Windows 9x下存放于WINDOWSSYSTEM目录中，在NT系列Windows系统中存放于WINDOWSSYSTEM32目录中。二、相关API函数素材的准备工作已经完成，现在我们来看一下代码编写过程中需要用到的4个主要的API函数。 2.1 GetVersion 函数原型：

vfp中api函数调用实例

vfp中api函数调用实例我们在vfp编程时，为了弥补vfp本身功能的不足，常常会用到win32api函数来对vfp 的功能进行扩展，例如取得系统信息、对注册表进行操作等，但由于win32api函数是c＋＋的数据结构形式，在调用时与vfp的数据格式有所不同，因此在调用时往往会产生问题。下面，笔者就在vfp如何调用win32api函数，并就一些常用的win32api函数调用实例作一具体介绍。一、vfp中调用win32api函数的格式 vfp中调用win32api函数的命令主要是declare－dll和clear dlls两个。 1.declare－dll 它用于注册外部windows 32位动态链接库(.dll)中的一个函数。语法： declare [cfunctiontype] functionname in libraryname [as aliasname] [cparamtype1 [@] paramname1, cparamtype2 [@] paramname2, ...] 说明： cfunctiontype 指定该函数返回值的类型，其类型代码如下： short16位整数 integer32位整数 single32位浮点数 double64位浮点数 string字符串 functionname指定在要注册使用的32位函数名。注意functionname区分大小写。如果该函数名与visual foxpro的保留字相同，应使用as参数另起别名。 in libraryname 指定该函数所在的外部动态链接库文件名，如果libraryname为win32api时，vfp将依次查找：kernel32.dll、gdi32.dll、user32.dll、mpr.dll及advapi32.dll 等动态链接库文件名。 as aliasname 为当api函数的名称与visual foxpro的保留字相同时，另取aliasname别名，另取的别名是不区分大小写的。 cparametertype1 [@] paramname1, cparametertype2 [@] paramname2, ... 指定传递给被调用的32位.dll函数的参数类型及参数名称。其类型代码如cfunctiontype，如果要以传址方法传递参数则应在参数名前加上@。 2. clear dlls 释放所有利用declare－dll命令所装入的动态链接库。一旦申明win32api函数成功，就可以和一般函数一样用？xxx()、=xxx() 来使用。二、vfp中常用win32api函数调用实例 1.利用win32api函数获取指定磁盘的卷标： stor 0 to c—var,c—cd,c—qf c—disk=′c:\′ ＆＆指定磁盘 declare integer getvolumeinformation in win32api string @,string @,integer,; integer @, integer @, integer @, string @, integer xx=getvolumeinformation(c—disk,″ ″,20,@c—var,@c—cd,@c—qf,0,0) clear dlls 返回值： xx〈〉0 获取指定磁盘的卷标成功，反之则未成功。

Delphi函数大全

Delphi函数大全首部function Languages: TLanguages; $[ 功能返回系统语言对象说明通过此函数可以得到系统的语言环境参考type 例子 12a12c12a12c. 参考例子:= IsValidIdent; ━━━━━━━━━━━━━━━━━━━━━ 首部function IntToStr(Value: Integer): string; overload; $[ 首部function IntToStr(Value: Int64): string; overload; $[ 功能返回整数Value转换成字符串说明Format('%d', [Value]) 参考function 例子:= IntToStr; ━━━━━━━━━━━━━━━━━━━━━ 首部function IntToHex(V alue: Integer; Digits: Integer): string; overload; $[ 首部function IntToHex(V alue: Int64; Digits: Integer): string; overload; $[ 功能返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) 说明参数Digits指定字符最小宽度;最小宽度不足时将用0填充参考function 例子:= IntToHex, ; ━━━━━━━━━━━━━━━━━━━━━ 首部function StrToInt(const S: string): Integer; $[ 功能返回字符串S转换成整数说明字符串非整数表达时将引起异常参考procedure 例子:= StrToInt; ━━━━━━━━━━━━━━━━━━━━━ 首部function StrToIntDef(const S: string; Default: Integer): Integer; $[ 功能返回字符串S转换成整数说明字符串非整数表达时则返回默认值Default 参考procedure 例子:= StrToIntDef, 0); ━━━━━━━━━━━━━━━━━━━━━ 首部function TryStrToInt(const S: string; out Value: Integer): Boolean; $[ 功能返回字符串S转换成整数V alue是否成功说明字符串非整数表达时返回False并且Value将输出为0 参考procedure 例子 ..);打开失败则返回负数参考function

API函数手册

POSTEK PPLⅠAPI函数手册 G Series 条码标签打印机 Version 2.00 深圳市博思得通信发展有限公司二○○四年

API函数库文件说明名称：CDFPSK.dll 中文版本编号：1.X.X.X 英文版本编号：2.X.X.X 版权所有：?2004深圳市博思得通信发展有限公司。保留所有权利。用途本API函数库为深圳市博思得通信发展有限公司条码标签打印机的用户提供一组命令，为他们编写基于Windows9X，NT，2000，XP等操作系统的应用程序提供便利。本API函数库仅支持本公司产品。缩略语对照 PPLⅠ：深圳市博思得通信发展有限公司的第一套打印机编程语言（Printer Porgram Language Ⅰ）。 API：应用程序编程接口(Application Program Interface)。 Dots：像素（pixel）是一种计算机科学技术尺寸单位，原指电视图像成像的最小单位，在打印机领域表示打印机的最小打印成像单位：1dot等于一英寸除以打印机的最大分辨率。 - 对于203DPI的打印机来说, 1dot = 25.4mm/203 = 0.125mm(1dot = 1000 / 203 = 5mil)； - 对于300DPI的打印机来说, 1dot = 25.4mm/300 = 0.085mm(1dot = 1000 / 300 = 3mil)。 TrueType Font：是基于Windows操作系统使用，可装卸的字体。 - 已经安装的TrueType Font，都可以被本函数使用。使用前须知字符串 * 字符串以双引号(“)作为起始和结束标记; *

vfP 函数练习题

第二章练习题一、选择题。 1. 就关系数据描述语言来说，Visual FoxPro属于______数据库管理系统。 A）问答式B）语言描述式 C）域描述语句式D）关系描述语句式 2. 下列______符号不能作为Visual FoxPro中的变量名。 A）ABCDEFG B）K1234 C）12ASDFG D）xyz 3. 日期型数据长度固定为______个字符。 A）10B）12 C）8 D）6 4. 在Visual FoxPro数据库文件中，逻辑型、日期型、备注型数据的宽度分别是______。 A）1，8，128 B）2，8，10 C）1，8，10 D）1，8，任意 5. 以下4个符号中，______是Visual FoxPro中的一个常量。 A）T B）TOP C）.T. D）TO 6. Visual FoxPro中，表达式： 2*3^2+2*8/4+3^2的值为______。 A）64 B）31 C）49 D）22 7. 下列4个式子中，______不是Visual FoxPro中的表达式。 A）05/23/88 B）"2002" C）X+Y D）XYZ='5' AND ABC=5 8. 将逻辑值赋给内存变量X的正确方法是______。 A）X="T" B）STORE "T" TO X C）X=TRUE D）STORE .T. TO X 9. 设M="324.2"，？43+&M的结果是______。 A）43 B）324.2 C）43324.2 D）367.2 10. 设A=123，B=456，K="A+B"，则表达式l+＆K的值是______。 A）1123456 B）580 C）1+A+B D）579 11. 顺序键入以下命令，显示结果为______。 STORE "14.31" TO X Y＝INT（＆X+5）？Y A）20 B）14.315 C）14.31 D）19 12. Visual FoxPro中的索引文件分为单索引文件和复合索引文件，其中复合索引文件的扩展名为______。A）IDX B）EDX C）CDX D）NDX 13. 用于存储内存变量的文件扩展名为______。 A）FPT B）PRG C）FMT D）MEM 14. Visual FoxPro函数INT（RAND（）*10）的值是在______范围内的整数。 A）（0，1）B）（1，10）C）（0，10）D）（1，9） 15. 数学式子sin25°写成Visual FoxPro表达式是______。 A）SIN25 B）SIN（25）C）SIN（25°）D）SIN（25*PI/180） 16. 设某数据库有100条记录。用函数EOF ( ) 测试结果为.T.，此时，当前记录号为______。 A）100 B）101 C）99D）1 17. 在下列表达式中，结果为日期类型的正确表达式是______。 A）DATE() + 25 B）DA TE() + TIME() C）DATE() – CTOD("06/11/2002") D）365 – DATE() 18. 执行如下命令：？LEN（TRIM（"北京市□□□"））结果是______（其中□表示一个空格）。 A）6 B）3 C）9 D）10 19. 执行下列命令： M="ABCDabcd" ？SUBSTR(M,INT(LEN(M)/2+1),2) 输出结果是______。 A）AB B）ab C）bc D）abcd 20. Visual FoxPro数据库文件中，函数ROUND（1234.567，2）的值是______。 A）1234.57 B）1234.56 C）1235 D）1234 21. 执行下列命令后显示的结果是______。 A=CTOD（"05/23/89"） B=CTOD（"05/03/89"）？B-A A）20 B）-20 C）“05/20/89” D）“05/-20/89” 22. 执行下列命令后显示的结果是______。 STR="VFoxPr数据库" ？SUBSTR（STR，LEN（STR）/2+1,6） A）VFoxPrB）数据库C）数据D）Pr数据 23. 执行下列命令后显示的结果是______。 X="Visual FoxPro is OK" ?AT（"Fox"，X） A）8B）6 C）FoxPro D）Visual 24. 函数STUFF（"数据库"，5，6，"管理系统"）的结果是______。 A）数据库管理系统B）数据管理系统C）管理系统D）库系统 25. FoxPro数据库管理系统的数据模型是______。 A）概念型B）网状型C）关系型D）层次型 26. 下面4条叙述中，正确的叙述是______。 A）在命令窗口中被赋值的变量都是全局变量 B）在上级程序定义的变量在被调用的下级程序中无效 C）在程序中，用DECLARE定义的数组为全局变量 D）在程序中，用DIMENSION定义的数组为全局变量 27. 下面4条叙述中，正确的叙述是______。 A）在命令窗口中被赋值的变量均为局部变量 B）在命令窗口中用PRIV ATE命令说明的变量均为局部变量 C）在被调用的下级程序中用PUBLIC命令说明的变量都是全局变量 D）在程序中用PRIVA TE命令说明的变量均为全局变量 28. 下面4条叙述中，正确的叙述是______。 A）局部变量不可以与全局变量同名，但可以与上级程序中的局部变量同名 1

API函数大全

? 1. API之网络函数 ? ?WNetAddConnection 创建同一个网络资源的永久性连接 ? ?WNetAddConnection2 创建同一个网络资源的连接 WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetConnectionDialog 启动一个标准对话框，以便建立同网络资源的连接 WNetDisconnectDialog 启动一个标准对话框，以便断开同网络资源的连接 WNetEnumResource 枚举网络资源 WNetGetConnection 获取本地或已连接的一个资源的网络名称 WNetGetLastError 获取网络错误的扩展错误信息 WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC （统一命名规范）名称 WNetGetUser 获取一个网络资源用以连接的名字 WNetOpenEnum 启动对网络资源进行枚举的过程 ? ? 2. API之消息函数 ?BroadcastSystemMessage 将一条系统消息广播给系统中所有的顶级窗口GetMessagePos 取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置 GetMessageTime 取得消息队列中上一条消息处理完毕时的时间 PostMessage 将一条消息投递到指定窗口的消息队列 PostThreadMessage 将一条消息投递给应用程序 RegisterWindowMessage 获取分配给一个字串标识符的消息编号 ReplyMessage 答复一个消息 SendMessage 调用一个窗口的窗口函数，将一条消息发给那个窗口 SendMessageCallback 将一条消息发给窗口 SendMessageTimeout 向窗口发送一条消息 SendNotifyMessage 向窗口发送一条消息 ? 3. API之文件处理函数 ?CloseHandle 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等 CompareFileTime 对比两个文件的时间 CopyFile 复制文件 CreateDirectory 创建一个新目录 CreateFile 打开和创建文件、管道、邮槽、通信服务、设备以及控制台CreateFileMapping 创建一个新的文件映射对象 DeleteFile 删除指定文件 DeviceIoControl 对设备执行指定的操作

vfp调用word OR excel

vfp调用word OR excel（二） 10.从VFP中导出数据的几种方法！答：当VFP处理好数据后，这时你可以用多种方法将这些数据导出，以便被其它应用程序(如Excel等)所用。下面向你简单介绍几种导出数据的方法： 1.用“导出数据”对话框。你可以从VFP主菜单中选择“文件/导出…”打开 “导出”对话框，在该对话框中的“来源”框中输入表名(c:\vfp\students.dbf )，在“类型”中指定要导出数据的类型(Microsoft Excel)，在“到”框中输入导出的路径和文件名(C:\excel\aa.xls)，然后按“确定”即可。这时你如果查看command窗口，可发现以下代码： COPY TO C：\excel\aa.XLS TYPE XL5 2.用COPY TO命令。COPY TO命令的工作对象是VFP中的表，它要依据“TYPE”项才知道要产生哪一类导出文件。对于上面的导出过程，可用以下方法实现：USE students COPY TO C：\excel\aa.XLS TYPE XL5 12.在VFP6中，如何调用已经存在的WORD文件？ oW = CREATEOBJECT([word.basic]) with oW .Apprestore() .Appmaximize() .fileopen("路径+文件名.扩展名") ENDWITH 13.打开word文件的控件？用RUN /N3 C:\WORD.EXE 文档路径 C:\WORD.EXE是我自己写的,你用时换成WORD的真正路径就行了!

比如用WORD 打开SD.DOC 就写 RUN /N3 C:\WORD.EXE C:\SD.DOC 另：TXLS_EOLE = CREATEOBJECT('word.application') TXLS_EOLE.Documents.Open('文件名.doc') TXLS_EOLE.Visible=.t. 注意：别忘了关闭哦 TXLS_EOLE.Documents.close &&关闭文档 TXLS_EOLE.quit &&关闭word RELEASE TXLS_EOLE &&释放对象再者： fw=alltrim(this.value) if file('&fw') *documents.open filename('&fw') wrdapp = createobject("word.application") wrdapp.visible=.t. *wrdapp.documents.add wrdapp.documents.open(alltrim(this.value)) else messagebox(fw+chr(13)+'文件不存在,请确认',0+16,'文件路径出错') RETURN(.F.) ENDIF 14.在表单中创建一个编辑框,用来显示WORD文档! 做一个按扭,在CLICK中写：THISFORM.EDIT1.value=FILETOSTR(GETFILE('DOC')) 这个不也行,而且还简单 15.强烈建议：直接使用ole可以在表单中打开word，建议不使用这种办法，改为利用api 用windows默认的程序打开word，数据库只存储word文档所在的位置和名字。