Delphi中没有vector怎么来代替这个

例一:     动态数组     var   fields:   array   of   integer;         Setlenght(fields)//定义长度                 例二:     var     button:array   of   TButton;  ...

2009-07-03 11:56:00

阅读数:1303

评论数:0

indy的UDP传输的演示源码

客户端:varcmd: string;ASize, TotalSize: Int64;AFileStream: TFileStream;beginIdTCPClient1.Host := Edit1.Text; //连接主机IdTCPClient1.Port := StrToIntDef(Edit...

2009-07-03 11:22:00

阅读数:912

评论数:0

Delphi版金额大写(人民币大写读数)代码

 uses         math; const  mnUnit:WideString =分角元; const  OtherWords:WideString=整负; const  hzUnit:WideString = 拾佰仟万拾佰仟亿; const  hzNum:WideString=零壹贰叁...

2008-11-16 22:22:00

阅读数:2674

评论数:0

使用DELPHI对图片中的文字进行识别的过程(最简单实现)

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

2008-10-15 23:20:00

阅读数:9143

评论数:1

SMS编程代码

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

2008-07-31 12:41:00

阅读数:2253

评论数:0

实现启动最小化到系统托盘

 interface     uses         ShellAPI,ShlObj;     const         WM_BARICON   =   WM_USER   +   200;         cm_Exit   =   100;           cm_About   = ...

2008-07-25 14:22:00

阅读数:632

评论数:0

用Delphi编写邮件特快专递程序

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

2008-07-24 18:03:00

阅读数:555

评论数:0

用Delphi编写SMTP邮件发送程序

 平时你使用的是什么工具发送电子邮件?是Outlook,Foxmail或是其它?无论以前是什么,现在你都可以多一种选择:使用自己编写的邮件发送程序。而且对于Delphi来说,要完成它是如此的简单,那就让我们动手吧!  构件组成  Delphi 5构件板的FastNet页中,提供了TNMSmtp构件...

2008-07-24 18:01:00

阅读数:1013

评论数: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;proced...

2008-07-23 15:06:00

阅读数:3057

评论数:0

delphi ping

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

2008-07-23 14:29:00

阅读数:1480

评论数:0

delphi指针简单入门:

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

2008-06-13 14:19:00

阅读数:534

评论数:0

delphi多线程程序示例

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

2008-06-13 08:57:00

阅读数:644

评论数:0

用Delphi开发视频聊天软件

摘要:目前网上视频聊天软件、视频会议软件、可视IP电话软件随处可见,你是否想自己做一个玩玩?其实这类软件无非是视频加上网络而建成的。如果熟悉视频捕捉和网络传输技术,根本就难不倒你。微软为软件开发人员提供了一个专门用于视频捕捉的VFW SDK(Video for Windows SDK),用它实现视...

2008-02-05 00:09:00

阅读数:1214

评论数:1

利用UDP协议传输图象

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

2008-02-05 00:04:00

阅读数:1093

评论数:0

delphi 金额转换

    procedure TfmBMZC.BitBtn2Click(Sender: TObject); //金额转换const  chNum : array[0..9] o...

2007-12-11 21:57:00

阅读数:543

评论数:0

Delphi字符串加密解密函数

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

2007-11-08 12:42:00

阅读数:1969

评论数:0

用Delphi改变图片的像素,即大小

用Delphi改变图片的像素,即大小.需代码!急用,谢谢!我给你讲一种非常简单的方法:第一步:在窗体上放上image1和image2两个图片控件。再放一个Button按钮控件。第二步:在image1的Picture属性中载入一张JPG或者BMP图片。而image2不要管它。第三步:双击Button...

2007-09-24 21:04:00

阅读数:11899

评论数:0

delphi 取图片宽高

Var         Bmp:TBitMap;         Stream:TMemoryStream;     begin         Bmp   :=TBitMap.Create;         Bmp.LoadFromFile(XX.BMP);     //尺寸         P...

2007-09-24 20:43:00

阅读数:2712

评论数:0

delphi bmp转jpg

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

2007-09-12 20:38:00

阅读数:3507

评论数:0

利用语音Modem实现电话点播和留言功能

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

2007-08-11 23:47:00

阅读数:1346

评论数:0

提示
确定要删除当前文章?
取消 删除
关闭
关闭