10 2013 档案

Indy发送邮件被kbas退掉
摘要：用indy开发了发送邮件程序，通过126,sina等发送邮件可以发送出去，而通过tom,163则被退回，显示被kbas系统退回．后来通过观察Foxmail的通讯过程，区别在foxmail发送EHLO指令时用的是一个名字，而indy缺少使用的是邮箱名字．通过直接使用Socket连接发送邮件测试，将EHLO改为名字后发送成功．研究indy源码，发现indy中的smtp控件的HelloName属性如果有值的话就使用该属性值，没有值的话则使用其他值：if HeloName '' then begin LNameToSend := HeloName; end else begin //N 阅读全文
posted @ 2013-10-31 20:22 无悔的勇气 阅读(374) 评论(0) 推荐(0)
Indy10收发Hotmail邮件
摘要：hotmail开放了pop3，可以使用客户端工具收取邮件了。POP 服务器: pop3.live.com （端口 995）需要 POP SSL？: 是的用户名: Windows Live ID, 比如：livesino@hotmail.com密码: 对应 Windows Live ID 的密码SMTP 服务器: smtp.live.com （端口 25）需要身份验证？: 是的需要 TLS/SSL？: 是的使用indy，需要SSL认证，到网上查阅 ，看到了Marco Cantù的文章：Send mail to GMail using IndyOnce you've moved 阅读全文
posted @ 2013-10-31 20:21 无悔的勇气 阅读(414) 评论(0) 推荐(0)
一个简单的打印监控示例
摘要：{关于打印监控，下面是一个简单的示例，可以监控到打印的任务信息。}unit FfrmMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons,WinSpool;type TfrmMain = class(TForm) ListView1: TListView; Panel1: TPanel; BitBtn2: TBitBtn; Timer1: ... 阅读全文
posted @ 2013-10-31 20:20 无悔的勇气 阅读(867) 评论(0) 推荐(0)
DataSnap侦听端口动态设置问题
摘要：使用DataSnap做服务器，端口设置为可配置，然后在程序中动态指定：procedure TscUPower.DataModuleCreate(Sender: TObject);begin dstUPower.Port:=DSPort;end;默认端口为211,测试改变端口，没有报告错误，但客户端连接不上。后调整为：procedure TscUPower.DataModuleCreate(Sender: TObject);begin dstUPower.Stop; dstUPower.Port:=DSPort; dstUPower.Start;end;OK，客户端可以正常连接了。端口动... 阅读全文
posted @ 2013-10-31 20:19 无悔的勇气 阅读(598) 评论(0) 推荐(0)
TStrings的一些技巧(转)
摘要：TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。常规的用法大家都知道，现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来：1、CommaText2、Delimiter&DelimitedText3、Names&Values&ValueFromIndex先看第一个：CommaText。怎么用呢？用代码说话：const constr :String='aaa,bbb,ccc,ddd';var strs :TStrings; i :Integer;begin strs := TStringList.Create; strs.C 阅读全文
posted @ 2013-10-31 20:18 无悔的勇气 阅读(319) 评论(0) 推荐(0)
Delphi AES加密(转)
摘要：(**************************************************************)(* Advanced Encryption Standard (AES) *)(* Interface Unit v1.3 *)(* *)(* Copyright (c) 2002 Jorlen Young ... 阅读全文
posted @ 2013-10-31 20:17 无悔的勇气 阅读(5180) 评论(0) 推荐(0)
DataSnap使用UniDac处理自增长字段
摘要：原来使用ado来访问数据库，用在DataSnap中也很方便。后来便一直使用UniDac，可发现UniDac如果用在DataSnap中要比ado麻烦很多，尤其对自增长字段、缺省值的处理上，感觉对DataSnap支持不好(普通C/S应用还是非常好的)。在Unidac官网上看到一个关于处理DataSnap中的AutoInc字段问题，记录在下面，我没有验证。I use DataSnap delphi 2010.UniQuery Component DMLRefresh Can fetch autoinc value,but I cannot use it with datasnap.I use Fol 阅读全文
posted @ 2013-10-31 20:08 无悔的勇气 阅读(461) 评论(0) 推荐(0)
cxGrid显示行号
摘要：定义一个类：TMyCxGrid = class(TObject) class procedure DrawIndicatorCell( Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); end;class procedure TMyCxGrid.DrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: Tcx... 阅读全文
posted @ 2013-10-31 20:07 无悔的勇气 阅读(283) 评论(0) 推荐(0)
RTC搭建android下三层应用程序访问服务器MsSql-服务器端
摘要：前几天通过Ro搭建webservice，然后在android下调用，虽然已近成功，但是返回的数据库里的中文有乱码一直未得到解决！rtc6.23版本，已经支持xe5，也支持fmx的android下开发，不多说，需要的请联系购买！一、创建服务端程序： 1依照官方的demo，创建程序，并添加datamoudel，添加rtc相关服务端控件TRtcHttpServer，TRtcServerModule，TRtcFunctionGroup，TRtcFunction（2个），2个adoquery，一个adoconnection 2，设置控件属性： 设置TRtcHttpServer 的ip，端口 设置TRtc 阅读全文
posted @ 2013-10-31 19:56 无悔的勇气 阅读(433) 评论(0) 推荐(0)
RTC搭建android下三层应用程序访问服务器MsSql-客户端
摘要：android下stringgrid已知问题：通过点击时获取对应行的值有问题，在win下调试正常，在android下出现定位不准二、客户端开发 1，新建工程 2，添加相关客户端控件TRtcHttpClient，TRtcClientModule，TRtcResult（2个） 3，设置相关属性TRtcHttpClient的服务器地址，端口，TRtcClientModule的client设置，以及一个modulefilename 4，编写TRtcResult代码 select的TRtcResult代码procedure TForm1.rtcrslt1Return(Sender: TRtcConnec 阅读全文
posted @ 2013-10-31 19:54 无悔的勇气 阅读(262) 评论(0) 推荐(0)
XE5 ANDROID平台 调用 webservice
摘要：服务端需要midas.dll XE5对android的平台支持很有吸引力，虽然目前用来直接开发应用到安卓市场卖赚钱可能性估计不大（安卓市场目前国内好像都是免费的天下），但是对于企业应用很是很有帮助的，比如开发一个手机客户端随时查询企业erp等管理软件的数据库！ webservice以前基本没有接触，恶补了几天，服务端用ro开发比较快捷（ro下载请自己baidu）一，服务端开发： 1，打开delphi xe（服务端我用的是xe开发的，因为目前还没有出支持xe5的ro） 新建工程---RO sdk--vcl standalone--建立成功 2，工程打开后，在ide的菜单ro中选择edit ser 阅读全文
posted @ 2013-10-31 19:52 无悔的勇气 阅读(359) 评论(0) 推荐(0)
ListView的用法
摘要：//增加 i := ListView1.Items.Count; with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:= IntToStr(i); ListItem.SubItems.Add('第 '+IntToStr(i)+' 行'); ListItem.SubItems.Add('第三列内容'); end;//按标题删除 for i:=ListView1.Items.Count-1 downto 0 Do if ListView1.Items[i].Caption = E 阅读全文
posted @ 2013-10-29 21:14 无悔的勇气 阅读(303) 评论(0) 推荐(0)
读写另一EXE的内存
摘要：procedure TfrmMain.tmrChangeServerNameTimer(Sender: TObject);function GetProcessID(FileName: string = ''): TProcessEntry32;var Ret: BOOL; s: string; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32;begin FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEn 阅读全文
posted @ 2013-10-29 21:12 无悔的勇气 阅读(413) 评论(0) 推荐(0)
xml操作
摘要：procedure TForm1.btnDat2XmlClick(Sender: TObject);var XMLDoc: TXMLDocument; Node1: IXMLNode; Node2: IXMLNode; MyStream: TMemoryStream; i: integer;begin if FileExists('.\GoodsSale_Tw.dat') then begin XMLDoc := TXMLDocument.Create(nil); XMLDoc.Active := True; XMLDoc.Version := '1.0'; . 阅读全文
posted @ 2013-10-29 21:11 无悔的勇气 阅读(331) 评论(0) 推荐(0)
获取DOS命令的返回值.
摘要：procedure CheckResult(b: Boolean);begin if not b then raise Exception.Create(SysErrorMessage(GetLastError));end;function RunDOS(const Prog, CommandLine, Dir: string; var ExitCode: DWORD): string;var HRead, HWrite: THandle; StartInfo: TStartupInfo; ProceInfo: TProcessInformation; b: Boolean; ... 阅读全文
posted @ 2013-10-29 21:10 无悔的勇气 阅读(3182) 评论(1) 推荐(0)
UrlDownloadFile, 线程下载文件, 带进度条
摘要：unit FileDownLoadThread;interfaceuses Classes, SysUtils, Windows, ActiveX, UrlMon;const S_ABORT = HRESULT($80004004);type TFileDownLoadThread = class; TDownLoadProcessEvent = procedure(Sender: TFileDownLoadThread; Progress, ProgressMax: Cardinal) of object; TDownLoadCompleteEvent = proce... 阅读全文
posted @ 2013-10-29 21:06 无悔的勇气 阅读(570) 评论(0) 推荐(0)
mysql服务的注册，启动、停止、注销。 [delphi代码实现]
摘要：Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->mysql服务的注册，启动、停止、注销。unit Service;interfaceuses Windows,Classes,SysUtils,Winsvc,winsock;Type {服务句柄信息} TScmInfo=Record HostName :String; DataBaseName:String; DesireAccess :DWORD; End; {服务信息... 阅读全文
posted @ 2013-10-29 21:06 无悔的勇气 阅读(754) 评论(0) 推荐(0)
delphi 线程的使用
摘要：unit untWorkThread;interfaceuses Windows,Classes,SysUtils;type TWorkItem=class end; TProcessWork=procedure (Sender:TObject;Work:TWorkItem) of Object; TWorkThread=class(TThread) private FCriticalSection:TRTLCriticalSection; hEvent:Cardinal; FList:TList; FProcessWork:TProcessWork; ... 阅读全文
posted @ 2013-10-29 21:04 无悔的勇气 阅读(607) 评论(0) 推荐(0)
Delphi下遍历文件夹下所有文件的递归算法
摘要：{-------------------------------------------------------------------------------过程名: MakeFileList 遍历文件夹及子文件夹参数: Path,FileExt:string 1.需要遍历的目录 2.要遍历的文件扩展名返回值: TStringListUSE StrUtils Eg：ListBox1.Items:= MakeFileList( 'E:\极品飞车','.exe') ; ListBox1.Items:= MakeFileList( 'E:\极品飞车' 阅读全文
posted @ 2013-10-29 21:03 无悔的勇气 阅读(1829) 评论(0) 推荐(0)
mysql + unidac 使用事务例子
摘要：//备注：mysql必须是使用innoDB引擎才支持事务功能，否则以下事务相关代码将失效。//SQL SERVER和Oracle还没试，明天回公司试了再发代码。procedure TForm1.btn1Click(Sender: TObject);var i, j: Integer;begin UniConnection1.Connect; try try UniTransaction1.Connections[0].StartTransaction; UniQuery1.Params.Clear; UniQuery1.SQL.Text := 'ins... 阅读全文
posted @ 2013-10-29 20:56 无悔的勇气 阅读(705) 评论(0) 推荐(0)
关于UNIDAC连接SQLITE3的心得笔记
摘要：关于查询某个SQLITE3DB的所有表单的语句：UniQuery1.SQL.Add('SELECT * FROM sqlite_master');关于UNIDAC提交数据：//在提交数据之前，必须先允许EDIT，否则提交的时候会失败。UniQuery1.Edit;//此处的FieldList[I]是指数据所在行的第I个数据，所有的数据，都可以用文本提交上去UniQuery1.FieldList[I].AsString:='提交的数据';//获取数据也是这个，它具备读取跟写入功能，是一个接口。 S:=UniQuery1.FieldList[I].AsString/ 阅读全文
posted @ 2013-10-29 20:54 无悔的勇气 阅读(1562) 评论(0) 推荐(0)
unidac 执行Execute后取得受影响行数。
摘要：unidac 执行Execute后取得受影响行数。uniQuery2.SQL.Text := mmo2.Text; uniQuery2.Execute; mmo1.Lines.Add(Format('受影响行数：%d', [uniQuery2.RowsAffected])); 阅读全文
posted @ 2013-10-29 20:54 无悔的勇气 阅读(438) 评论(0) 推荐(0)
FIREDAC的心得
摘要：FIREDAC与UNIDAC有些不同但大体上是相同的以下是一些随手笔记:FieldCount是当前FDQuery2所在行里面有多少列一般用FieldList[X]来代表第几列str:=FDQuery2.FieldList[0].AsString;RecordCount 是查询一共返回多少条数据一般用FDQuery1.Next; 来切换到下一行数据//-------------------------------下面是我常用的查询某表最大ID的样式FDQuery2.Close; FDQuery2.SQL.Clear; FDQuery2.SQL.Add('SELECT MAX(ID) FR 阅读全文
posted @ 2013-10-29 20:53 无悔的勇气 阅读(1691) 评论(0) 推荐(0)
unidac连接ORACLE免装客户端驱动
摘要：当你选择Oracle作数据库服务器时，客户端一般需要装一个肥硕的200M左右客户端，而且还要做连接配置，尤其是C/S模式，客户端多的时候非常不便。当然，网上也有一个10M左右的Oracle精简客户端，性能和稳定性和官方版差不多。Oracle还提供了Direct Mode（直连模式），只要你的客户端机子支持TCP/IP协议，完全可以不用安装Oracle客户端及其连接配置。幸运的是，UniDAC也提供了Direct Mode。只需要如下简单配置：1、在TUniConnection控件上点击右键，选择菜单“Connection Editor”，在弹出的对话框中选择分页“Options”，“Optio 阅读全文
posted @ 2013-10-29 20:51 无悔的勇气 阅读(753) 评论(0) 推荐(0)
delphi 2010安装unidac
摘要：UniDAC是一个功能强大的非可视化跨数据库的数据访问组件，可用于Delphi，Delphi for .NET，C++Builder，and Lazarus (Free Pascal)。它提供了对流行数据库服务器的统一访问，像Oracle，Microsoft SQL Server，MySQL，InterBase，Firebird，PostgreSQL，SQLite，DB2，Microsoft Access，Sybase Advantage Database Server，Sybase Adaptive Server Enterprise，和其他数据库（使用ODBC驱动）。 从网上下载到Uni. 阅读全文
posted @ 2013-10-29 20:49 无悔的勇气 阅读(620) 评论(0) 推荐(0)
DELPHI中使用UNIDAC连接ORACLE数据库
摘要：DELPHI中使用UNIDAC连接ORACLE数据库最近在DELPHI中使用到UNIDAC连接到oracle数据库，这样可以不要安装oracle客户端，比较方便使用；所以简单学习了一下，主要是用到查询和执行存储过程，其中存储过程我测试了没有返回参数、有返回参数、有多高返回参数、有返回游标等存储过程，没有深入研究，以下就简单的查询和执行存储过程按步骤说一下：1，执行查询语句： a)新建一个ORACLECONNECTION。如图所示：b)双击ORACLECONNECTION,出现下图，按图填写连接ORACLE的相关参数，点击CONNECT就可以连接了。c)添加一个Tuniquery,编写SQL语句 阅读全文
posted @ 2013-10-29 20:49 无悔的勇气 阅读(4612) 评论(0) 推荐(0)
unidac使用演示
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, DBAccess, Uni, MemDS, UniProvider, InterBaseUniProvider;type TForm1 = class(TForm) UniConnTest: TUniConnection;//用于数据库的连接 InterBaseUniProTest: TI... 阅读全文
posted @ 2013-10-29 20:44 无悔的勇气 阅读(772) 评论(0) 推荐(0)
Unidac手工安装
摘要：Universal Data Access Components Source Code Copyright 1997-2010, Devart. All Rights ReservedThere are two ways to compile and install UniDAC for Windows manually.I. Using IDEDelphi and C++ Builder for Win32 --------------------------------Run your IDE and walk through folowing steps: 1) Compile DA. 阅读全文
posted @ 2013-10-29 20:43 无悔的勇气 阅读(832) 评论(0) 推荐(0)
Delphi从Internet下载文件
摘要：Delphi从Internet下载文件 今天在做拍卖系统的时候，因考虑到网络状况问题，需要将拍品所有信息下载到本机，包括拍品图片，因此需要实现从Internet下载文件的功能。 下面是代码片段： private function DownloadFile(SourceFile, DestFile: string): Boolean; procedure URL_OnDownloadProgress(Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode:... 阅读全文
posted @ 2013-10-29 20:39 无悔的勇气 阅读(277) 评论(0) 推荐(0)
datasnap 上传/下载大文件(本Demo以图传片文件为例)
摘要：好久没写技术文了 datasnap传大流。 完整代码，同时感谢叶兄传流的指点,（只公开十天）附：下面代码，转载请注明出处 ::code服务端：function TServerMethods1.DownLoadFile(AfileName: string): TStream;constSaveFolder = 'FSimage\';defaultName = 'Default.png'; // 此文件必须有//用默认文件处理不存在图片varALLpath: string;beginALLpath := LocalPath + SaveFolder + AfileN 阅读全文
posted @ 2013-10-29 20:37 无悔的勇气 阅读(1052) 评论(0) 推荐(0)
delphi 理解ParamStr
摘要：delphi 理解ParamStr演示代码如下::codeprocedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin self.Memo1.Lines.Add(IntToStr(ParamCount)); for i := 1 to ParamCount do begin self.Memo1.Lines.Add(ParamStr(i)); //self.Memo2.Lines.LoadFromFile(ParamStr(i)); 这个是用于第二种路径参数 end; end;ParamStr(0) 这个用... 阅读全文
posted @ 2013-10-29 20:35 无悔的勇气 阅读(290) 评论(0) 推荐(0)
delphi2010多线程编程教程
摘要：多线程编程(1) - 先入门再说。 多线程应该是编程工作者的基础技能, 但这个基础对我来讲的确有点难(起码昨天以前是这样). 开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解. 先试试这个:procedure TForm1.Button1Click(Sender: TObject);var　i: Integer;begin　for i := 0 to 500000 do　begin Canvas.TextOut(10, 10, IntToStr(i));　end;end; 上面程序运行时, 我们的窗体基本是 "死" 的, 可以在你在程序运行期间拖动 阅读全文
posted @ 2013-10-29 20:30 无悔的勇气 阅读(802) 评论(0) 推荐(0)
QQ2008自动聊天精灵delphi源码
摘要：QQ2008自动聊天精灵delphi源码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,Registry, ExtDlgs, bsSkinShellCtrls, BusinessSkinForm, bsSkinBoxCtrls, bsSkinCtrls;type TTform1 = class(TForm) GroupBox1: TGroupBox; Bevel1:... 阅读全文
posted @ 2013-10-29 20:07 无悔的勇气 阅读(464) 评论(0) 推荐(0)
Delphi使用Indy、ICS组件读取网页
摘要：使用Indy 10中TIdHTTP的例子：代码uses IdHttp;...function HttpGet(const Url: string; var Html: string): Boolean;var HttpClient: TIdHTTP;begin Result := False; HttpClient := TIdHTTP.Create(nil); try Html := HttpClient.Get(Url); Result := True; except on e: Exception do begin end; end; Htt... 阅读全文
posted @ 2013-10-29 20:03 无悔的勇气 阅读(751) 评论(1) 推荐(0)
UniDac 使用日记（转）
摘要：UniDAC使用日记1. UniQuery默认状态为行提交，使用前根据需要设置readonly或cachedupdates属性2. UniQuery.Filter默认大小写区分，请注意设置FilterOptions属性([foCaseInsensitive])，TVirtualtable也存在相同情况3. UniQuery默认情况下，有些varchar类型的字段有自动加了一个空格，请注意设置Options.TrimVarChar=true4. UniQuery在进行Insert时，若字段不能为null且前台操作未填写时，可能会报错，请设置RequiredFields=true5. UniQue 阅读全文
posted @ 2013-10-29 19:59 无悔的勇气 阅读(865) 评论(0) 推荐(0)
delphi xe5 安卓 配置sqlite
摘要：本篇我们介绍一下在android手机上怎样使用sqlite数据库，这里用Navigator实现 增删改查。1、新建firemonkey mobile application2、选择blank application 3、这里选择分辨率，仍旧选择我女儿称呼的平板手机p3100的7寸分辨率 O(∩_∩)O~ ,界面上摆放一个open按钮，一个grid 同时拖拽一个 FDConnection 和 FDPhysSQLiteDriverLink1 FDQuery1 另外根据运行结果提示 还需要一个 FDGUIxWaitCursor ，运行的时候会有提示 4、连接sqlite 数据库，这里我就不再赘述怎. 阅读全文
posted @ 2013-10-27 20:38 无悔的勇气 阅读(1065) 评论(0) 推荐(0)
Delphi天气预报查询
摘要：Delphi天气预报查询 现在的很多软件中都内置了天气查看这个功能！其实呢，这个功能的实现并不麻烦！会上网的人，都会查天气情况！其实那些内置天气预报功能的软件的天气预报功能也都是来源于网上！因为也没有哪个软件公司会自己去架一个气象站了哈哈，现在我就来说说如何通过互联网上的信息来获取天气情况！ 目前能查询天气的网站有不少，比较有名的有中国天气网与Google天气，大部分站点与大部分软件的天气预报数据也都是来源于中国天气网！因为中国天气网是中国气象局相关的，所以他的数据会更准确一些！查阅本文信息时，假设读者熟悉http协议与如何模拟网页提交等知识！ 中国天气网有一个连接http://m.weath 阅读全文
posted @ 2013-10-27 12:29 无悔的勇气 阅读(575) 评论(0) 推荐(0)
Delphi ListView基本用法大全
摘要：Delphi ListView基本用法大全//增加项或列(字段)ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Items[0].Caption:='id';ListView1.Columns.Items[1].Caption:='type';ListView1.Columns.Items[2].Caption:='title';ListView1. 阅读全文
posted @ 2013-10-26 17:14 无悔的勇气 阅读(3069) 评论(0) 推荐(0)
datasnap的初步
摘要：datasnap的初步-回调函数服务器端TServerMethods1 =class(TComponent) private { Private declarations } public { Public declarations } functionTest(funcCallBack: TDBXCallback):boolean; end; functionTServerMethods1.Test(funcCallBack: TDBXCallback):boolean;begin funcCallBack.Execute(TJSONNumber.Create(2... 阅读全文
posted @ 2013-10-21 11:56 无悔的勇气 阅读(3075) 评论(0) 推荐(0)
Delphi2010中DataSnap高级技术（转）
摘要：一、为DataSnap系统服务程序添加描述这几天一直在研究Delphi2010的DataSnap，感觉功能真是很强大，现在足有理由证明Delphi7该下岗了。DataSnap有三种服务模式，其中ServiceApplication方式建立的windows服务没有描述，描述部分是空的，感觉总是欠缺点什么。现找到办法添加描述：procedureTServerContainer2.ServiceAfterInstall(Sender:TService);varreg:TRegistry;beginreg:=TRegistry.Create;trywithregdobeginRootKey:=HKEY 阅读全文
posted @ 2013-10-21 11:46 无悔的勇气 阅读(958) 评论(0) 推荐(0)
Delphi XE5 android listview
摘要：C:\Users\Public\Documents\RAD Studio\12.0\Samples\FireMonkeyMobile\ListView路径下有两个dpk,装完后listview也能实现listbox的效果了 阅读全文
posted @ 2013-10-20 16:43 无悔的勇气 阅读(358) 评论(0) 推荐(0)
Delphi ListView基本用法大全
摘要：Delphi ListView基本用法大全 //增加项或列(字段)ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Items[0].Caption:='id'; ListView1.Columns.Items[1].Caption:='type'; ListView1.Columns.Items[2].Caption:='title'; L 阅读全文
posted @ 2013-10-20 16:02 无悔的勇气 阅读(876) 评论(0) 推荐(0)
Delphi实现树型结构
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DB, ADODB;type PNodeInfoEx = ^TNodeInfoEx; TNodeInfoEx = Packed Record NodeID : Integer; ParentID : Integer; NodeType : Integer; ChnNodeTitle ... 阅读全文
posted @ 2013-10-19 11:38 无悔的勇气 阅读(234) 评论(0) 推荐(0)
获取身份证号码信息
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, Grids; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private protected { Private declarations... 阅读全文
posted @ 2013-10-19 11:37 无悔的勇气 阅读(534) 评论(0) 推荐(0)
TStringList的用法
摘要：TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.IndexOf('Strings1'); {... 阅读全文
posted @ 2013-10-19 11:35 无悔的勇气 阅读(286) 评论(0) 推荐(0)
让Delphi XE5跟其他版本的Delphi共存
摘要：找到Delphi XE5的安装根目录 .... \Program Files (x86)\Embarcadero\RAD Studio\12.0\bin下的cglm.ini文件，打开cglm.ini文件[Embarcadero License Management]RootDir=${MODULE_DIR}\..LicenseDir=${ROOTDIR}\LicenseInfoDir=${COMMON_APPDATA}\Embarcadero\.licensesSlipDir=${COMMON_APPDATA}\Embarcadero\RegExe=bdsreg.exeLockType=5[E 阅读全文
posted @ 2013-10-19 11:35 无悔的勇气 阅读(349) 评论(0) 推荐(0)
XE5 Android 开发数据访问server端[转]
摘要：建立一个webservices stand-alone vcl application 作为手机访问的服务端1、new->other->webservices2、选择stand-alone vcl application3、这里使用 默认端口80804、选择创建接口5、给服务起个名字6、点ok后保存工程，保存为目录如下：7、至此为止，什么代码都不写，点击运行，我们看到8、启动并点击 open browser按钮在浏览器里看到一个web服务就创建完成了。================================================================== 阅读全文
posted @ 2013-10-19 11:16 无悔的勇气 阅读(301) 评论(0) 推荐(0)
XE5 Android 开发实现手机打电话和发短信 [转]
摘要：其实都可以通过intent和URI调用系统功能.Windows程序员可以理解成是ShellExecute.这个是万金油.可以有调用各种功能.后面会介绍.1.短信息.很简单方法a.不使用Intent而是直接发短信. smsManager对应的Delphi代码应该是:uses Androidapi.JNI.JavaTypes,Androidapi.JNI.Telephony;var j: JSmsManager;begin j := tjsmsmanager.Create; j.sendTextMessage(stringtojstring('137114553XX'), nil, 阅读全文
posted @ 2013-10-19 11:15 无悔的勇气 阅读(317) 评论(0) 推荐(0)
ShowModal在FireMonkey移动应用程序对话框
摘要：This is the only code that changes between the first and second code snippets: dlg.ShowModal(procedure(ModalResult: TModalResult) begin if ModalResult = mrOK then // if OK was pressed and an item is selected, pick it if dlg.ListBox1.ItemIndex >= 0 then edit1.Text := dlg.List... 阅读全文
posted @ 2013-10-19 11:15 无悔的勇气 阅读(832) 评论(0) 推荐(0)
xe5 android 控制蓝牙[转]
摘要：用以下代码中的接口实现控制蓝牙的开、关及详细信息unit Androidapi.JNI.BluetoothAdapter;// (c) RedTitan Technology 2013// JNI BLUETOOTH import demo// Note - REQUIRES - PROJECT OPTIONS - USES PERMISSIONS - BLUETOOTHinterfaceusesAndroidapi.JNIBridge,Androidapi.JNI.JavaTypes, Classes;type/////////////////////////// BluetoothDevi 阅读全文
posted @ 2013-10-19 11:11 无悔的勇气 阅读(300) 评论(0) 推荐(0)
xe5 android 调用照相机获取拍的照片[转]
摘要：本篇文章我们来看一下delphi xe5 在android程序里怎样启动照相机并获取所拍的照片,本代码取自xe自带打sample,路径为：C:\Users\Public\Documents\RAD Studio\12.0\Samples\MobileCodeSnippets\AccessCameraApp1、前两步骤新建firemonkey mobile application 然后 选择blank application2、界面摆放如下： toolbar 、image 、actionlist2、右键点击new standard action然后选择 TakePhotoFromCameraAc 阅读全文
posted @ 2013-10-19 11:10 无悔的勇气 阅读(356) 评论(0) 推荐(0)
xe5 android sample 中的 SimpleList 是怎样绑定的 [转]
摘要：C:\Users\Public\Documents\RAD Studio\12.0\Samples\FireMonkeyMobile例子中的绑定方式如下图：1、拖拽一个listview到界面上，然后用绑定向导2、选择listview3、选择tprototypebindsource4、点击增加5、选择前九个类型6、在绑定设计界面将 colorname1 拖拽至 item.text 就完成了帮点显示颜色名称了如图7、imagelist 如图：选择listview的itemapperance属性为 imagelistitem然后在绑定向导里 将contactbitmap1 拖拽至 itm.bitma 阅读全文
posted @ 2013-10-19 11:04 无悔的勇气 阅读(252) 评论(0) 推荐(0)
关闭安卓程序
摘要：procedure SetBack(const AAction : JString); //后台运行。。varIntent: JIntent;beginIntent:= TJIntent.JavaClass.init(AAction);intent.addCategory(TJIntent.JavaClass.CATEGORY_HOME);Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);SharedActivityContext.startActivity(Intent);end;调用SetBack(TJIntent.Jav 阅读全文
posted @ 2013-10-19 11:03 无悔的勇气 阅读(343) 评论(0) 推荐(0)
DelphiXE5如何获取Android手机SIM卡串号[转]
摘要：手机号不是存在SIM卡上的,SIM卡只有一个串号.在运营商的服务器上有手机号和序号对应的一张表.所以你SIM卡办理遗失,运营商只要把新SIM卡的串号和你原来的手机号绑定即可.获取手机号的唯一办法是收个短信,短信里面有你的手机号码.所以很多程序为了获取手机号会要求你注册时发短信,然后它给你回个短信.usesAndroidapi.JNI.GraphicsContentViewText, Androidapi.JNIBridge,Androidapi.JNI.Telephony, Androidapi.JNI.JavaTypes, FMX.Helpers.Android;varTelephonyMa 阅读全文
posted @ 2013-10-19 11:02 无悔的勇气 阅读(547) 评论(0) 推荐(0)
XE5开发Android程序调用电话相关功能(短信息和电话) [转]
摘要：其实都可以通过intent和URI调用系统功能.Windows程序员可以理解成是ShellExecute.这个是万金油.可以有调用各种功能.后面会介绍.1.短信息.很简单方法a.不使用Intent而是直接发短信.smsManager对应的Delphi代码应该是:usesAndroidapi.JNI.JavaTypes,Androidapi.JNI.Telephony;varj: JSmsManager;beginj := tjsmsmanager.Create;j.sendTextMessage(stringtojstring('137114553XX'), nil, stri 阅读全文
posted @ 2013-10-19 11:01 无悔的勇气 阅读(264) 评论(0) 推荐(0)
应用程序的关闭退出
摘要：在VCL中，关闭程序的主窗体也就意味着程序的主循环结束，主程序自然而然结束。所以在主窗体中使用窗体的关闭函数（Close）即可，如下：procedure TfrmMain.btncloseClick(Sender: TObject);begin Close;end;在FMX中，由Activity替代了Form的概念，虽然TForm类仍然存在，但MainForm通过关闭函数无法结束程序，使用Application.Terminate均无效，调整为：uses FMX.Platform.Android;procedure TForm2.SpeedButton1Click(Sender: TObjec 阅读全文
posted @ 2013-10-19 10:56 无悔的勇气 阅读(379) 评论(0) 推荐(0)
nc命令详解
摘要：nc命令详解NetCat，在网络工具中有“瑞士军刀”美誉，其有Windows和Linux的版本。因为它短小精悍（1.84版本也不过25k，旧版本或缩减版甚至更小）、功能实用，被设计为一个简单、可靠的网络工具，可通过TCP或UDP协议传输读写数据。同时，它还是一个网络应用Debug分析器，因为它可以根据需要创建各种不同类型的网络连接。通常的Linux发行版中都带有NetCat（简称nc），但不同的版本，其参数的使用略有差异。NetCat 官方地址：http://netcat.sourceforge.net/安装[root@server ~]# yum install -y nc[root@ser 阅读全文
posted @ 2013-10-18 13:17 无悔的勇气 阅读(437) 评论(0) 推荐(0)
cxGrid使用汇总4
摘要：49指定Filter Builder打开/保存过滤文件的默认路径解决：uses ..., cxFilterControlDialog; procedure TForm.GridView1FilterControlDialogShow( Sender: TObject); begin TfmFilterControlDialog(Sender).OpenDialog.InitialDir := 'D:/' end;****************************************************************************50在主从Tab 阅读全文
posted @ 2013-10-15 20:12 无悔的勇气 阅读(401) 评论(0) 推荐(0)
Delphi单元文件之－简体繁体互转
摘要：Function GBCht2Chs(GBStr: String): AnsiString; {GBK繁体转简体} Var len:integer; pGBCHTChar: PChar; pGBCHSChar: PChar; Begin pGBCHTChar := PChar(GBStr); Len := SizeOf(pGBCHTChar); GetMem(pGBCHSChar, Len + 1); ZeroMemory(pGBCHSChar, Len + 1); //GB CHS -> GB CHT LCMapString($804, LCMAP_SIMPLIFIED_CH... 阅读全文
posted @ 2013-10-15 20:08 无悔的勇气 阅读(399) 评论(0) 推荐(0)
cxGrid使用汇总3
摘要：32根据单元的值设置样式 解决：procedure .StylesGetContentStyle( Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); begin if ARecord.Values[AItem.Index] = aSomeValue then AStyle := ; end; procedure .StylesGetContentStyle( Sender: TcxCustomGridT... 阅读全文
posted @ 2013-10-15 20:07 无悔的勇气 阅读(376) 评论(0) 推荐(0)
Delphi单元文件之－防止程序重复执行
摘要：//工程引用此单元就能防止同时出现多个实例unit MultInst;interfaceuses Windows ,Messages, SysUtils, Classes, Forms;implementationconst STR_UNIQUE = '{2BE6D96E-827F-4BF9-B33E-8740412CDE96}'; MI_ACTIVEAPP = 1; {激活应用程序} MI_GETHANDLE = 2; {取得句柄}var iMessageID : Integer; OldWProc : TFNWndProc; MutHandle : THandle; BSM 阅读全文
posted @ 2013-10-15 20:05 无悔的勇气 阅读(598) 评论(0) 推荐(0)
cxGrid使用汇总2
摘要：17. 怎样设计多表头的cxGrid？ 解决：cxGrid可以解决如下的表头： --------------------------------- | 说明1 | 说明2 | --------------------------------- | 字段1 | 字段2 | 字段3 | 字段4 | | 字段5 | 字段6 | | 字段7 | 字段8 | 字段9 | 实现这个很简单，你可以直接在上面拖动字段名，拖动时会显示箭头的，放入你想显示的位置就OK了。或者在鼠标右击cxGrid1DBBandedTableView1菜单里的Edit Layout里也可以拖放。但是cxGrid不能实现如下的多表头 阅读全文
posted @ 2013-10-15 20:03 无悔的勇气 阅读(777) 评论(0) 推荐(0)
Delphi数组复制
摘要：const AA : arrary[0..4] of byte =(0,1,2,3,4)var BB : arrary[0..4] of byte;begin BB := AA ; {这样是错误的} Move(BB,AA,sizeof(BB)); {正确的}end; 阅读全文
posted @ 2013-10-15 20:00 无悔的勇气 阅读(698) 评论(0) 推荐(0)
cxGrid使用汇总1
摘要：这些都不是原创，只是平时收集到资料然后整理的，有些可能百度一下到处都是而且还大同小异也有些不是很好找，现在贴出来希望给那些用到cxGrid的人会有所帮助1. 去掉cxGrid中台头的Box 解决：在tableview1的ptionsview的groupbybox=false;***************************************************************************** 2．统计功能 解决：(1) tableview tableview1的optionsviewfooter=ture 然后在cxGRid1的customize..中的su 阅读全文
posted @ 2013-10-15 19:58 无悔的勇气 阅读(337) 评论(0) 推荐(0)
Delphi XE5 android 获取网络状态
摘要：代码unit Androidapi.JNI.Network;interfacefunction IsConnected: Boolean;function IsWiFiConnected: Boolean;function IsMobileConnected: Boolean;implementationuses System.SysUtils, Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.JavaTypes, FMX.Helpers.Android;type JConne... 阅读全文
posted @ 2013-10-09 15:13 无悔的勇气 阅读(605) 评论(0) 推荐(0)
xe5 android sample 中的 SimpleList 是怎样绑定的
摘要：C:\Users\Public\Documents\RAD Studio\12.0\Samples\FireMonkeyMobile例子中的绑定方式如下图：1、拖拽一个listview到界面上，然后用绑定向导2、选择listview3、选择tprototypebindsource4、点击增加5、选择前九个类型6、在绑定设计界面将 colorname1 拖拽至 item.text 就完成了帮点显示颜色名称了如图7、imagelist 如图：选择listview的itemapperance属性为 imagelistitem然后在绑定向导里 将contactbitmap1 拖拽至 itm.bitma 阅读全文
posted @ 2013-10-03 20:25 无悔的勇气 阅读(373) 评论(0) 推荐(0)
XE5 Android 开发数据访问手机端 解决乱码的办法
摘要：经过测试，将sqlserver里的字段由varchar 或者char 改为 nvarchar 或者nchar然后在手机端的clientdataset 增加字段的时候数据类型选择widestring如图 阅读全文
posted @ 2013-10-03 20:22 无悔的勇气 阅读(197) 评论(0) 推荐(0)
xe5 android listbox的 TMetropolisUIListBoxItem
摘要：listbox实现以下效果：关键代码，采用数据集的方式type PpatientData=^RpatientData; RpatientData= record patient_id:string; admiss_times:Integer; inpatient_no:string; name:string; sex:string; bed_no:string; nurse_level:string; diag:string; end; ... 阅读全文
posted @ 2013-10-03 20:21 无悔的勇气 阅读(734) 评论(0) 推荐(0)
xe5 android tts(Text To Speech)
摘要：xe5 android tts(Text To Speech)TTS是Text To Speech的缩写，即“从文本到语音”，是人机对话的一部分，让机器能够说话。以下代码实现xe5 开发的文本转语音的方法和访问蓝牙一样，这里用javaclass的接口实现接口声明部分：{*******************************************************}{ }{ CodeGear Delphi Runtime Library ... 阅读全文
posted @ 2013-10-03 20:19 无悔的勇气 阅读(844) 评论(4) 推荐(0)