xwchen的专栏

     fr:=FindFirst(Path,faAnyFile,sr);    while fr=0 do    begin       if (sr.Attr=faDirectory)and(sr.Name..) then           FindAll(path+sr.Name)       else          begin            showmessage(

　　使用过网络的用户都熟悉“Ping”这个指令，它是一个DOS下的可执行文件，一般用它来检查网络连接的好坏程度。其基本原理是利用TCP/IP协议包中ICMP协议中的一个功能，即向所指定的计算机发送一个请求，收到请求的计算机返回一个应答，借此来判断该计算机是否在网上运行或者检查网络连接是否稳定可靠。在Ping程序执行过程中，双方计算机所耗费的资源都很少，因此，它是一个非常实用的工具。　　我们可以

函数procedure pinghost(ip:string;var info:string);ip:目标ＩＰ地址；info:ping了以后产生的信息(1)或(2)；(1)成功信息ip 发送测试的字符数　返回时间(2)出错信息Can not find host!使用uses ping;procedure TForm1.Button1Click(Sender: TObject);vars

 平时你使用的是什么工具发送电子邮件？是Outlook，Foxmail或是其它？无论以前是什么，现在你都可以多一种选择：使用自己编写的邮件发送程序。而且对于Delphi来说，要完成它是如此的简单，那就让我们动手吧！　　构件组成　　Delphi 5构件板的FastNet页中，提供了TNMSmtp构件，它的功能就在于将邮件发送到指定的邮件服务器。其最常用的属

 “邮件特快专递”这个词现在已经是被广大的网民所熟知了，它就好比是网络上的EMS，能够直接把邮件送到对方的邮箱中，邮件发送完毕后，对方就可以立刻收到。Foxmail在其最新的4.0版本中也特别新增了该功能，作为一名编程爱好者，你是不是也想知道如何编程实现该功能呢？那就随本文一起揭开“邮件特快专递”的神秘面纱：一、实现原理在Outlook Expres

 interface     uses         ShellAPI,ShlObj;     const         WM_BARICON   =   WM_USER   +   200;         cm_Exit   =   100;           cm_About   =   101;     private             procedure   WMSysCom

 SMS编程代码码：没有写完收信的部分，需要CPORT控件这个单元是PDU编码的单元，主要不是我写的，是别人写的，有点问题，我完善了一下。肯定能用。花了我好多短消息费用的！：）unit PhoneShare;interfaceuses  SysUtils,Math;type  TPDUFormatRec = Record    CenterLen

(*----下面这个程序介绍了我们在使用线程及未使用线程二种情况下，运行该程序的反应。当点UsedThread按钮时，则建立一个线程，这时我们可以在程序进行计算的同时，改变窗体的尺寸及移动它。当按下NoUsedThread按钮时，不建立线程，我们会发现在程序没有计算完之前根本不能做其它任何事情！unit Unit1;interfaceuses  Windows,

       看一个指针用法的例子：     1         var     2             X,   Y:   Integer;       //   X   and   Y   整数类型     3             P:   ^Integer;           //   P   指向整数类型的指针     4         begin   

unit bmp2number;{将传递进来的图像进行对比，识别出图片中的数字。本程序使用的是模式识别的方式，需要照片标准，数字无反光。电表只有4位数字+1位小数，小数因为在拍照中不能保证停止，所以本程序也不作小数位的识别因此。如果当前的数字 已经识别到了4位,程序就返回,我们预设一个记录,用来记录这被识别的出4位数字的具体位置,再通过对TOP及LEFT位置的进行排序组合后返回对于本模板的重要方法

 uses         math; const  mnUnit:WideString =分角元; const  OtherWords:WideString=整负; const  hzUnit:WideString = 拾佰仟万拾佰仟亿; const  hzNum:WideString=零壹贰叁肆伍陆柒捌玖; function Money2Ch

客户端：varcmd: string;ASize, TotalSize: Int64;AFileStream: TFileStream;beginIdTCPClient1.Host := Edit1.Text; //连接主机IdTCPClient1.Port := StrToIntDef(Edit2.Text, 9925); //端口IdTCPClient1.Connect; //连接tryIdT

    procedure TfmBMZC.BitBtn2Click(Sender: TObject); //金额转换const  chNum : array[0..9] of string = (零,壹,贰,叁,肆

 　　第一步，编制VClient.exe文件。新建Delphi工程，将默认窗体的Name属性设为“Client”。加入TNMUDP控件，Name属性设为“CUDP”；LocalPort属性设为“1111”，让控件CUDP监视受控机的1111端口，当有数据发送到该口时，触发控件CUDP的OnDataReceived事件；RemotePort属性设为“2222”，当控件CUDP发送数据时，将数据发到主

这篇这次不给分了，我发现我的分开始只降不升了，长此以往，岂不穷死。本来这一篇是讲关于XML字符编码的，我觉得写着写着好像与XML的关系不大了，就改了标题。所以，看的时候如果感觉到摸不到头脑，那就对了，如果感觉和你的认识不一样，欢迎批评指正。这里还有一个字符编码的问题。字符编码在Delphi7中已经得到了很大提高。 Delphi7自己的IDE虽然不能读取Unicode编码的源代码文件，但编译器已经支

视频捕获是指由专用的视频采集卡捕获声频和视频信息，然后将其进行数据化处理，再经过软件的压缩进行处理，这时就可对这些数据进行保存、回放、传输等各种操作。Windows专门提供了Video for Windows来对视频处理进行支持，提供的接口可以被大多数的视频采集卡支持，并有多种视频压缩驱动供选择（当然视频压缩可以自己开发），采集卡支持摄像头，ＴＶ等多种输入。一. 视频捕获快速入门视频捕捉将一个视频

在windows中，提供了一整套视频采集函数，要做一个视频采集软件，先要创建一个采集窗口 hCapWnd = capCreateCaptureWindow((LPSTR)"Capture Window", WS_CHILD | WS_VISIBLE,         15, 129, VideoW, VideoH,        m_hWnd, (int) 0) ; 采集窗口的大小一般与摄像头

如何在delphi中操作文件的读与写?  我刚开始接触delphi,如何在delphi中操作文件的读与写,哪位朋友指教一下非常感谢!最好来段源码.  var f:text;...  AssignFile(f,c:/1.txt);  ReWrite(f);  Writeln(f,This is a test);  CloseFile(f);...  其中Rewrite是新建文件，若换成Res

利用语音Modem实现电话点播和留言功能 （加入日期:2003-11-8 点击数:9812）【收藏文章】【对此文发表评论】【编程爱好者论坛】【保存文章至硬盘】【打印文章】

procedure BMPToJPG(BmpFileName:string);var  Jpeg : TJPEGImage;  Bmp : TBitmap;begin  Bmp := TBitmap.Create;  try    Bmp.LoadFromFile(BmpFileName);    Jpeg := TJPEGImage.Create;    try      Jpeg.Assign

    摘要：许多关于视频的软件（如视频会议、可视电话等）开发都应用于视频捕获技术。微软为软件开发人员提供了一个专门用于视频捕获的VFW SDK，从而为在Windows系统中实现视频捕获提供了标准的接口，并大大降低了程序的开发难度。由于VFW SDK只有VC和VB版，没有Delphi

Var         Bmp:TBitMap;         Stream:TMemoryStream;     begin         Bmp   :=TBitMap.Create;         Bmp.LoadFromFile(XX.BMP);     //尺寸         PX   :=Bmp.Width   ;         PY   :=Bmp.Height;  

用Delphi改变图片的像素,即大小．需代码！急用，谢谢！我给你讲一种非常简单的方法：第一步：在窗体上放上image1和image2两个图片控件。再放一个Button按钮控件。第二步：在image1的Picture属性中载入一张JPG或者BMP图片。而image2不要管它。第三步：双击Button进行按扭编写环境。写入下面代码：Image2.Height := 200;//新图像高度Image

作用：可用作密码的和一些重要参数的保存，数据经加密后保存即使被人看到了也无防。首先定义一个常量数组const      XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用然后在程序里加入以下两个函数，具体用法就不用多说了吧！function Enc(Str:String):String

摘要：目前网上视频聊天软件、视频会议软件、可视IP电话软件随处可见，你是否想自己做一个玩玩？其实这类软件无非是视频加上网络而建成的。如果熟悉视频捕捉和网络传输技术，根本就难不倒你。微软为软件开发人员提供了一个专门用于视频捕捉的VFW SDK（Video for Windows SDK），用它实现视频捕捉很简单，至于网络传输嘛，Delphi更是提供了N多种网络组件，随你用了。本文详细介绍了如何利用D

例一：     动态数组     var   fields:   array   of   integer;         Setlenght(fields)//定义长度                 例二：     var     button:array   of   TButton;     i,rows:integer;     begin     rows:=10;     SetL