![](https://img-blog.csdnimg.cn/20201014180756919.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
DELPHI
文章平均质量分 76
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(转载 2006-11-24 21:47:00 · 760 阅读 · 0 评论 -
delphi ping
使用过网络的用户都熟悉“Ping”这个指令,它是一个DOS下的可执行文件,一般用它来检查网络连接的好坏程度。其基本原理是利用TCP/IP协议包中ICMP协议中的一个功能,即向所指定的计算机发送一个请求,收到请求的计算机返回一个应答,借此来判断该计算机是否在网上运行或者检查网络连接是否稳定可靠。在Ping程序执行过程中,双方计算机所耗费的资源都很少,因此,它是一个非常实用的工具。 我们可以转载 2008-07-23 14:29:00 · 1688 阅读 · 0 评论 -
用delphi实现ping
函数procedure pinghost(ip:string;var info:string);ip:目标IP地址;info:ping了以后产生的信息(1)或(2);(1)成功信息ip 发送测试的字符数 返回时间(2)出错信息Can not find host!使用uses ping;procedure TForm1.Button1Click(Sender: TObject);vars原创 2008-07-23 15:06:00 · 3904 阅读 · 0 评论 -
用Delphi编写SMTP邮件发送程序
平时你使用的是什么工具发送电子邮件?是Outlook,Foxmail或是其它?无论以前是什么,现在你都可以多一种选择:使用自己编写的邮件发送程序。而且对于Delphi来说,要完成它是如此的简单,那就让我们动手吧! 构件组成 Delphi 5构件板的FastNet页中,提供了TNMSmtp构件,它的功能就在于将邮件发送到指定的邮件服务器。其最常用的属转载 2008-07-24 18:01:00 · 1550 阅读 · 0 评论 -
用Delphi编写邮件特快专递程序
“邮件特快专递”这个词现在已经是被广大的网民所熟知了,它就好比是网络上的EMS,能够直接把邮件送到对方的邮箱中,邮件发送完毕后,对方就可以立刻收到。Foxmail在其最新的4.0版本中也特别新增了该功能,作为一名编程爱好者,你是不是也想知道如何编程实现该功能呢?那就随本文一起揭开“邮件特快专递”的神秘面纱:一、实现原理在Outlook Expres转载 2008-07-24 18:03:00 · 1301 阅读 · 0 评论 -
实现启动最小化到系统托盘
interface uses ShellAPI,ShlObj; const WM_BARICON = WM_USER + 200; cm_Exit = 100; cm_About = 101; private procedure WMSysCom转载 2008-07-25 14:22:00 · 920 阅读 · 0 评论 -
SMS编程代码
SMS编程代码码:没有写完收信的部分,需要CPORT控件这个单元是PDU编码的单元,主要不是我写的,是别人写的,有点问题,我完善了一下。肯定能用。花了我好多短消息费用的!:)unit PhoneShare;interfaceuses SysUtils,Math;type TPDUFormatRec = Record CenterLen转载 2008-07-31 12:41:00 · 2743 阅读 · 0 评论 -
delphi多线程程序示例
(*----下面这个程序介绍了我们在使用线程及未使用线程二种情况下,运行该程序的反应。当点UsedThread按钮时,则建立一个线程,这时我们可以在程序进行计算的同时,改变窗体的尺寸及移动它。当按下NoUsedThread按钮时,不建立线程,我们会发现在程序没有计算完之前根本不能做其它任何事情!unit Unit1;interfaceuses Windows,原创 2008-06-13 08:57:00 · 964 阅读 · 0 评论 -
delphi指针简单入门:
看一个指针用法的例子: 1 var 2 X, Y: Integer; // X and Y 整数类型 3 P: ^Integer; // P 指向整数类型的指针 4 begin原创 2008-06-13 14:19:00 · 656 阅读 · 0 评论 -
使用DELPHI对图片中的文字进行识别的过程(最简单实现)
unit bmp2number;{将传递进来的图像进行对比,识别出图片中的数字。本程序使用的是模式识别的方式,需要照片标准,数字无反光。电表只有4位数字+1位小数,小数因为在拍照中不能保证停止,所以本程序也不作小数位的识别因此。如果当前的数字 已经识别到了4位,程序就返回,我们预设一个记录,用来记录这被识别的出4位数字的具体位置,再通过对TOP及LEFT位置的进行排序组合后返回对于本模板的重要方法原创 2008-10-15 23:20:00 · 14592 阅读 · 3 评论 -
Delphi版金额大写(人民币大写读数)代码
uses math; const mnUnit:WideString =分角元; const OtherWords:WideString=整负; const hzUnit:WideString = 拾佰仟万拾佰仟亿; const hzNum:WideString=零壹贰叁肆伍陆柒捌玖; function Money2Ch转载 2008-11-16 22:22:00 · 3402 阅读 · 0 评论 -
indy的UDP传输的演示源码
客户端:varcmd: string;ASize, TotalSize: Int64;AFileStream: TFileStream;beginIdTCPClient1.Host := Edit1.Text; //连接主机IdTCPClient1.Port := StrToIntDef(Edit2.Text, 9925); //端口IdTCPClient1.Connect; //连接tryIdT转载 2009-07-03 11:22:00 · 1232 阅读 · 0 评论 -
delphi 金额转换
procedure TfmBMZC.BitBtn2Click(Sender: TObject); //金额转换const chNum : array[0..9] of string = (零,壹,贰,叁,肆转载 2007-12-11 21:57:00 · 823 阅读 · 0 评论 -
利用UDP协议传输图象
第一步,编制VClient.exe文件。新建Delphi工程,将默认窗体的Name属性设为“Client”。加入TNMUDP控件,Name属性设为“CUDP”;LocalPort属性设为“1111”,让控件CUDP监视受控机的1111端口,当有数据发送到该口时,触发控件CUDP的OnDataReceived事件;RemotePort属性设为“2222”,当控件CUDP发送数据时,将数据发到主转载 2008-02-05 00:04:00 · 1870 阅读 · 0 评论 -
WideString 还是 AnsiString ?谈谈字符编码
这篇这次不给分了,我发现我的分开始只降不升了,长此以往,岂不穷死。本来这一篇是讲关于XML字符编码的,我觉得写着写着好像与XML的关系不大了,就改了标题。所以,看的时候如果感觉到摸不到头脑,那就对了,如果感觉和你的认识不一样,欢迎批评指正。这里还有一个字符编码的问题。字符编码在Delphi7中已经得到了很大提高。 Delphi7自己的IDE虽然不能读取Unicode编码的源代码文件,但编译器已经支原创 2007-03-21 22:15:00 · 5428 阅读 · 0 评论 -
视频捕获软件开发完全教学
视频捕获是指由专用的视频采集卡捕获声频和视频信息,然后将其进行数据化处理,再经过软件的压缩进行处理,这时就可对这些数据进行保存、回放、传输等各种操作。Windows专门提供了Video for Windows来对视频处理进行支持,提供的接口可以被大多数的视频采集卡支持,并有多种视频压缩驱动供选择(当然视频压缩可以自己开发),采集卡支持摄像头,TV等多种输入。一. 视频捕获快速入门视频捕捉将一个视频转载 2007-06-17 22:48:00 · 1044 阅读 · 0 评论 -
关于视频采集的一些说明
在windows中,提供了一整套视频采集函数,要做一个视频采集软件,先要创建一个采集窗口 hCapWnd = capCreateCaptureWindow((LPSTR)"Capture Window", WS_CHILD | WS_VISIBLE, 15, 129, VideoW, VideoH, m_hWnd, (int) 0) ; 采集窗口的大小一般与摄像头转载 2007-06-17 22:50:00 · 816 阅读 · 0 评论 -
delphi文件操作
如何在delphi中操作文件的读与写? 我刚开始接触delphi,如何在delphi中操作文件的读与写,哪位朋友指教一下非常感谢!最好来段源码. var f:text;... AssignFile(f,c:/1.txt); ReWrite(f); Writeln(f,This is a test); CloseFile(f);... 其中Rewrite是新建文件,若换成Res转载 2007-07-26 22:03:00 · 6354 阅读 · 0 评论 -
利用语音Modem实现电话点播和留言功能
利用语音Modem实现电话点播和留言功能 (加入日期:2003-11-8 点击数:9812)【收藏文章】【对此文发表评论】【编程爱好者论坛】【保存文章至硬盘】【打印文章】转载 2007-08-11 23:47:00 · 1799 阅读 · 0 评论 -
delphi bmp转jpg
procedure BMPToJPG(BmpFileName:string);var Jpeg : TJPEGImage; Bmp : TBitmap;begin Bmp := TBitmap.Create; try Bmp.LoadFromFile(BmpFileName); Jpeg := TJPEGImage.Create; try Jpeg.Assign转载 2007-09-12 20:38:00 · 3866 阅读 · 0 评论 -
基于Delphi的VFW视频捕获程序的开发
摘要:许多关于视频的软件(如视频会议、可视电话等)开发都应用于视频捕获技术。微软为软件开发人员提供了一个专门用于视频捕获的VFW SDK,从而为在Windows系统中实现视频捕获提供了标准的接口,并大大降低了程序的开发难度。由于VFW SDK只有VC和VB版,没有Delphi转载 2007-06-17 22:46:00 · 1025 阅读 · 0 评论 -
delphi 取图片宽高
Var Bmp:TBitMap; Stream:TMemoryStream; begin Bmp :=TBitMap.Create; Bmp.LoadFromFile(XX.BMP); //尺寸 PX :=Bmp.Width ; PY :=Bmp.Height;转载 2007-09-24 20:43:00 · 3616 阅读 · 0 评论 -
用Delphi改变图片的像素,即大小
用Delphi改变图片的像素,即大小.需代码!急用,谢谢!我给你讲一种非常简单的方法:第一步:在窗体上放上image1和image2两个图片控件。再放一个Button按钮控件。第二步:在image1的Picture属性中载入一张JPG或者BMP图片。而image2不要管它。第三步:双击Button进行按扭编写环境。写入下面代码:Image2.Height := 200;//新图像高度Image转载 2007-09-24 21:04:00 · 15618 阅读 · 0 评论 -
Delphi字符串加密解密函数
作用:可用作密码的和一些重要参数的保存,数据经加密后保存即使被人看到了也无防。首先定义一个常量数组const XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用然后在程序里加入以下两个函数,具体用法就不用多说了吧!function Enc(Str:String):String转载 2007-11-08 12:42:00 · 2225 阅读 · 0 评论 -
用Delphi开发视频聊天软件
摘要:目前网上视频聊天软件、视频会议软件、可视IP电话软件随处可见,你是否想自己做一个玩玩?其实这类软件无非是视频加上网络而建成的。如果熟悉视频捕捉和网络传输技术,根本就难不倒你。微软为软件开发人员提供了一个专门用于视频捕捉的VFW SDK(Video for Windows SDK),用它实现视频捕捉很简单,至于网络传输嘛,Delphi更是提供了N多种网络组件,随你用了。本文详细介绍了如何利用D转载 2008-02-05 00:09:00 · 1851 阅读 · 1 评论 -
Delphi中没有vector怎么来代替这个
例一: 动态数组 var fields: array of integer; Setlenght(fields)//定义长度 例二: var button:array of TButton; i,rows:integer; begin rows:=10; SetL原创 2009-07-03 11:56:00 · 1913 阅读 · 0 评论