阳光小飞鱼-CSDN博客

转载 delphi将图片存储到sql server 2005

sql server 2005 字段类型为 image delphi使用的单元为jpeg, db, dbtables;delphi 存储图片代码片段procedure TForm1.btnPostClick(Sender: TObject);var lMemoStream : TMemoryStream; jpg : TJpegImage;begin lM

2015-08-20 23:48:20 708

转载 delphi将汉字转为首字母

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,StrUtils, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1

2015-08-20 23:47:15 5798

转载 delphi listview自绘图形

自画TlistView带进度条的Item TListView的Item条一般是由系统自画的，但电驴就实现了自画，使之看起来很漂亮，我们用DELPHI也可以实现！首先要引用CommCtrl单元，这是TListView底层控制单元：uses CommCtrl; //画状态条procedure DrawSubItem(LV: TListView; Item: TL

2015-08-20 23:45:58 4887

转载 Delphi编写天气预报查询小程序(IXMLHttpRequest版)

其实那些内置天气预报功能的软件的天气预报功能也都是来源于网上！因为也没有哪个软件公司会自己去架一个气象站了哈哈，现在我就来说说如何通过互联网上的信息来获取天气情况！目前能查询天气的网站有不少，比较有名的有中国天气网与Google天气，大部分站点与大部分软件的天气预报数据也都是来源于中国天气网！因为中国天气网是中国气象局相关的，所以他的数据会更准确一些！查阅本文信息时，假设读者熟悉http协议

2015-03-22 15:54:36 2570

转载 Delphi中带缓存的数据更新技术

一．概念　　在网络环境下，数据库应用程序是c/s或者是多层结构的模式。在这种环境下，数据库应用程序的开发应当尽可能考虑减少网络数据传输量，并且尽量提高并发度。基于这个目的，带缓存的数据更新技术应运而生，其大致过程就是：应用程序将数据库中数据提取到客户端的缓冲区，在缓冲区中完成数据的修改、更新、以及新数据的插入等操作；等操作完成之后，在一个合适的时间，一次性的将数据提交给数据库，从而大大减

2015-03-22 15:53:05 5433

转载刷新dbgrid 而不失去当前行位置

http://www.delphishare.com/?/1207-1-0-1-1.htmlhttp://delphi.about.com/od/delphitips2008/qt/dbgrid_row_pos.htmgoogle翻译并整理我们有一个Delphi的数据库应用程序,上面有个DBGrid和一个数据集： DBGrid是用来显示来自数据集（查询或表）的数据，根据设计,当

2015-03-22 15:52:30 3607

一个DataSnap的应用程序由两个层组成：DataSnap服务器，它有一个带有一个或者更多DataSetProvider组件的远程数据模块；DataSnap客户端，它带有一个xxxConnection组件和一个或者多个连接到DataSetProviders的ClientDataSets。你可以不使用ClientDataSet而换用XMLBroker组件，后者是专门用在InternetExpres

2015-03-22 15:51:43 4438

转载 Delphi XE6 原生解析json

Delphi XE5带了system.json单元，原生提供了json支持类。下面是解析json用法说明：最简单的JSON大致像这样{ "date":"周二(今天, 实时：12℃)", "dayPictureUrl":"http://api.map.baidu.com/images/weather/day/duoyun.png",

2015-03-22 15:49:03 7069 2

转载一个线程安全的轻量级的日志类

做服务类应用，总要输出日志，便于调试及掌握应用服务器的运行状态，在界面上显示日志内容，就要访问VCL可视控件，因此，输入日志的代码，一定要线程安全，才不会在写日志时，让应用产生AV错误。下面是基于网友梧桐树下Logger1.0版做的修改，适用于DelphiXE6。附了完整代码。使用时请保留原始信息。下面是具体的调用方法：1.建立log对象，并指定显示的控件。 log :=

2015-03-22 15:46:23 623

转载 delphi RichEdit控件中插入GIF动画表情

delphi在RichEdit控件中插入GIF动画表情在UDP即时通讯软件中实现类似于QQ的动画表情，在richEdit控件中插入gif动画表情。发送的时候将表情转为命令，接收之后，再将命令转换为相应的动画表情。需要引用一个QQ的DLL，文件在附件中。将此DLL导入到DELPHI中。unit URichEdit;interfaceusesWindows, Mes

2015-03-22 15:43:25 1775

转载 Delphi RichEdit的实现MSN / QQ 中的动画表情

unitUnit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ActiveX,ComCtrls,RxRichEd,ImageOleLib_TLB;//RxRichEd单元是Rxlib下的RxRichEd

2015-03-22 15:42:25 844

转载 Delphi destroy, free, freeAndNil, release 函数的区别

1、form.free直接释放资源后，调用OnDestroy事件，但是没有将form指针改为nil 2、form.release 等待资源不再使用后释放资源，同样不修改form指针为nil，所以在destroy中最好使用 release进行资源释放操作。 3、局部变量释放资源时，可以考虑用freeandnil()释放资源，这样效率会高些，能

2015-03-22 15:38:56 828

转载 Delphi EmbeddedWB 遍历Frames并执行子frame的js脚本

var wDoc:IHTMLDocument2; wc:IHTMLWindow2; Dispatch:IDispatch; begin //遍历emWb:TEmbeddedWB的Frames if emWb begin

2015-03-22 15:38:53 1133

转载 Delphi 模拟网站验证码

function TfrmLabelPages.PwdImg(img: Timage): string; var I,j,k: Integer; vPoint: TPoint; vLeft: Integer; arrStr:array [1..36]of string ; strRe

2015-03-22 15:38:05 643

转载 delphi 获取某个页面所有的链接

USER MSHTML procedure TfrmWebEmail.btn5Click(Sender: TObject); var Doc: IHTMLDocument2; Len: Integer; item: OleVariant; all: IHTMLElementCollection;

2015-03-22 15:37:04 743

转载 Delphi 根据经纬度计算地球上两点之间的距离

EARTH_RADIUS = 6378137.0; //单位M function getRad(d: Double): Double; begin Result := d * PI / 180.0; end; function GetFlatternDistance(lat1, lng1

2015-03-22 15:35:41 1106

转载 Delphi 的绘图功能

//TPen 的主要属性有四: Color、Width、Style、Mode {Color: 颜色} {Width: 宽度; 默认是 1; 如果赋予 {Style: 样式; Delphi 定义了笔样式枚举 TPenStyle, 包含以下样式:} psSolid = 0; {实线}

2015-03-22 15:34:15 2218

转载 Delphi IDHTTP用法详解

一、IDHTTP的基本用法 IDHttp和WebBrowser一样，都可以实现抓取远端网页的功能，但是http方式更快、更节约资源，缺点是需要手动维护cook，连接等 IDHttp的创建，需要引入IDHttp procedure InitHttp(); begin http

2015-03-22 15:33:00 880

转载验证码图片识别

因朋友需求，对某网站的验证码图片进行自动识别，原以为是个复杂的问题，后来查看了网上的一些资料，总体思路上参考了：http://www.cr173.com/html/16871_1.html尝试用Delphi做了Demo，过程如下1、获取到验证码图片生成的URL，如http://www.aaa.bbb.cn/ValidateCode.aspx；2、使用TIdHTTP控件通过URL获取

2015-03-22 15:21:16 6730 1

转载 Delphi-XE5-手势操作-Gestures-使用方法

Delphi-XE5-手势操作-Gestures-使用方法一、首先转载一下别人的方法介绍：今天尝试了TTabControl的使用。在很多Android的app中，首次启动时都使用选项卡模式进行产品介绍，用户通过向左滑动，改变选项卡。在xe5下这项工作由TTabControl控件完成，如下图： 1、TTabControl外观TTabContro

2015-03-22 15:19:43 4827

转载 Delphi 实现简易语音发音（基于TTS方式）

uses Comobj; procedure TForm1.Button1Click(Sender: TObject); var voice: OLEVariant; begin voice := CreateOLEObject('SAPI.SpVoice'); voice.Speak('Hello World!', 0);

2015-03-22 15:19:28 1963

转载多表连接的三种方式详解 HASH JOIN MERGE JOIN NESTED LOOP

在多表联合查询的时候，如果我们查看它的执行计划，就会发现里面有多表之间的连接方式。之前打算在sqlplus中用执行计划的，但是格式看起来有点乱，就用Toad 做了3个截图。 HASH JOIN MERGE JOIN NESTED LOOP" title="多表连接的三种方式详解 HASH JOIN MERGE JOIN NESTED LOOP" height="333" width

2015-03-22 15:12:58 644

转载 Cxgrid获取选中行列，排序规则，当前正在编辑的单元格内的值

cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号cxGrid1DBTableView1.Controller.FocusedRow 当前行cxGrid1DBTableView1.Controller.FocusedColumn 当前列cxGrid1DBTableView1.Controller.FocusedColumnInde

2015-03-22 15:12:11 502

转载 cxgrid对经过筛选过的数据的选择（反选)

// 下面这个主要是对查询出来的数据，经过筛选后得到的数据中进行反选操作，然后对选择的数据进行修改（全选或选择一部分也可以根据些代码修改）Screen.Cursor := crHourGlass; cxGrid2DBTableView1.DataController.GotoFirst; for i := 0 tocxgrid2DBTableView1.DataContr

2015-03-22 15:12:01 1584

转载 Delphi 三种气泡提示效果

一、方法一说明：这个效果不好，鼠标必须放在按钮上，气泡提示才可以出来，如果鼠标在按钮的范围之外，用回车键点击按钮也不会激活气泡提示。unitUnit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms,Dialogs, StdCtr

2015-03-22 15:11:26 4776 1

转载 HTML技巧-嵌入QQ+MSN+淘宝旺旺+Gtalk快速对话框官方代码的方

文地址：HTML技巧-嵌入QQ+MSN+淘宝旺旺+Gtalk快速对话框官方代码的方法作者：德尔斐-清风在网页嵌入QQ+MSN+淘宝旺旺+Gtalk快速对话框官方代码的方法 1.如何在网页上显示腾讯QQ在线洽谈?QQ在线咨询代码(qq在线交谈代码/qq在线客服代码/qq在线状态代码/qq在线客服代码)(将123456换成你的号码,site后面换成你的网站就

2015-03-22 15:10:34 3936

转载 delphi 实现URL编码解码函数

最近在写网页抓取程序时候，很多时候需要对字符进行URL编码，其实URL编码就是将每个字节用16进制的文本表示，前边在家上%，了解了这一点，那么写个函数就很简单了，于是就随手写了个两个简单的函数对字符进行URL编码解码。 //加码function URLencode(str:string):string;var i:integer; temp:string;begin

2015-03-22 15:08:43 2000

转载 cxGrid使用汇总

1. 去掉cxGrid中台头的Box解决：在tableview1的ptionsview的groupbybox=false; ***************************************************************************** 2．统计功能解决：(1) tableviewtableview1的optionsview

2015-03-22 15:05:49 1906

转载 Delphi 2010 新增功能之: IOUtils 单元(6): TPath(结构体) 的方法与属性

以后路径相关的处理, 用 IOUtils.TPath 就很方便了.//较常用的方法:TPath.GetTempPath; {获取临时文件夹路径}TPath.GetTempFileName; {获取一个临时文件名}TPath.GetPathRoot(); {提取盘符, 如: c:\}T

2015-03-21 22:38:14 700

转载 Delphi6-xe5 中的MD5实现方法

在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的，我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元，再写如下代码即可以达到MD5的实现。示例代码procedure TForm1.Button1Click(Sender: T

2015-03-20 15:58:27 5358

转载检测鼠标键盘多久没有活动

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton;

2015-03-20 15:57:10 410

转载 XE5手势

在 OnGesture 事件中响应 sgLeft、sgRight 手势; 操作步骤:　　1、加 TGestureManager 控件如窗体: GestureManager1;　　2、设置窗体属性 Touch.GestureManager := GestureManager1;　　3、添加窗体的 OnCreate 事件, 写: Touch.StandardGestures := [sgLeft, s

2015-03-20 15:56:04 1479

转载 XE6 安卓电量检测

unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;t

2015-03-20 15:54:33 523

转载 Androidapi.JNI.Net.Wifi

procedure TForm1.SpeedButton1Click(Sender: TObject);var WifiManagerObj: JObject; WifiManager: JWifiManager; WifiInfo: JWifiInfo;begin WifiManagerObj := SharedActivityContext.getSystemS

2015-03-20 15:52:51 2091

转载 network is available on Android and iOS?(安卓和IOS手机的网络状态)

unit Network;interfacefunction IsConnected: Boolean;function IsWiFiConnected: Boolean;function IsMobileConnected: Boolean;implementationuses System.SysUtils, Androidapi.J

2015-03-20 12:52:10 1485

转载 Detecting Wifi Networks Using Delphi and Native Wifi API

{$APPTYPE CONSOLE} uses Windows, SysUtils, nduWlanAPI in 'nduWlanAPI.pas', nduWlanTypesin 'nduWlanTypes.pas'; functionDOT11_AUTH_ALGORITHM_To_String( Dummy :Tndu_DOT11_AUTH_

2015-03-20 12:50:35 1675

转载网络通信中的心跳机制的实现

有开发网络应用经历的人都知道，网络中的接收和发送数据都是使用WINDOWS中的SOCKET进行实现。但是如果此套接字已经断开，那发送数据和接收数据的时候就一定会有问题。可是如何判断这个套接字是否还可以使用呢？　　有人一定想到使用Send函数中的返回结果来进行判断。如果返回的长度和自己发送出去的长度一致，那就说明这个套接字是可用的，否则此套接字一定出现了问题。但是我们并不是无时无刻的发送数据呀

2009-09-23 16:16:00 713

转载 Hash表和TList的结合使用

大家知道Hash表具有对于它的KEY进行高速检索的功能。而Tlist中有可以保存自己定义的各种结构。如果将他们两个结合起来使用会是什么情况呢？试想一下，如果在游戏中如果突然有哪个玩家断线，那么即便是我们知道这个玩家的Socket，但是要从所有玩家中检索出他的信息，也不是一件容易的事。那我们为什么不能将Hash表和Tlist结合使用呢。在我开发的游戏中，我就是将Hash表和Tlist同时使用

2009-09-23 16:14:00 362

转载 DELPHI中完成端口(IOCP)的简单分析完整篇

希望大家在转贴的时候注明出处，谢谢)用DELPHI开发网络代码已经有一段时间了！我发现在网上用VC来实现完成端口（IOCP）的代码很多，但是使用DELPHI来实现的就比较少了。对IOCP讲的清楚的就更少了。在这里我把自己编写DELPHI下的IOCP写出来，希望对刚学完成端口的朋友有个帮助。首先我们来了解一些在使用IOCP的时候需要使用的一些结构！（1）：单IO数据结构 LPV

2009-09-23 16:01:00 1214

转载模拟点击网页广告源代码

{模拟点击网页广告源代码 By 雪落的瞬间BLOG [url]http://hi.baidu.com/cipherteam/[/url]BBS [url]http://www.killabc.cn[/url] QQ 418880764发送消息,删除COOKIE,HIV过主动.由于代码写于07年好像没去考虑体积所以其它自己看}unit Unit1;{$R copyrightA.res}int

TA创建的收藏夹 TA关注的收藏夹

TA关注的人