因为Delphi自带的转换函数遇到其无法识别的字符串就返回空,下面函数可解决该问题。function DecodeUtf8Str(const S: UTF8String): WideString;var lenSrc, lenDst : Integer;begin lenSrc := Length(S); if (lenSrc=0) then Exit; lenDst := MultiByteToWideChar(CP_UTF8, 0, Pointer(S), lenSrc, nil, 0); SetLength(Result, lenDst); MultiByteToWideChar(CP_UTF8, 0, Pointer(S), lenSrc, Pointer(Result), lenDst);end...
Delphi按名字调用方法高级解决方案
博客分类:
编程基础DelphiJ#ASPDOS数据结构 按名字调用方法似乎一直以来都是大家比较关注的技术,在论坛上有一个经典的答复: type TProcedure = procedure(Test: string) of object; procedure ExecuteRoutine(Obj: TObject; Name, Param: string); var PMethod: TMethod; AProcedure: TProcedure; begin PMethod.Data := Pointer(Obj); PMethod.Code := Obj.MethodAddre...
原文:http://www.hxhlb.cn/article/32142aaeb67bbc05379369c3.html 那一天,我装上了RAD Studio XE5.当天晚上,我就写了一个小小的Android程序.但是,苦于没有好手机,没办法进行测试.今天,下载了一晚上,终于把Android所有的sdk都安装上了,配置进XE5中唉,用这么庞大的XE5来编写Android SDK 2.1版本的程序,我都觉得害羞...废话不多说,下面我们来解决问题.XE5自带的SDK,是SDK4.2,我把在4.2版本下写的程序放到2.1版本上进行编译发布,理所...
我每次从数据库里面取数据出来和Edit里面的进行比较的时候总是会受到空格的困扰。。。老是干扰我。。。如果我用trim 所有都做去掉所有的空格那么这样就非常麻烦又繁琐。。有没有什么方法可以忽略空格的。。。还有就是我如果用Edit1.SetFocus对 其进行选中。。那么我如果不把字符串全部删除呢么就会有限定:我能输入的字符+原有的空格=MaxLength(我先设定的值)这又如何解决。。。呵呵 问题我已经解决了。。谢谢两位。。。呵呵 我做...
const Url = ‘http://del.cnblogs.com‘;procedure Tidhttptestform.Button1Click(Sender: TObject);var stream:TStringStream; idHttpObj:TIdHTTP;begin stream := TStringStream.Create(‘‘); idHttpObj := TIdHTTP.Create(nil); idHttpObj.Get(Url, stream); idHttpObj.Free; //乱码转化//Memo1.Lines.Text := UTF8Decode(stream.DataString); ShowMessage(UTF8Decode(stream.DataString)); stream.Free;end;原文:h...
在delphi2010中拖idsmtp和idmessage这俩个控件,就可以发送邮件了。在按钮btn1的click事件下写如下代码:值得注意的是:1、你用哪个邮箱的服务器,在 IdSMTP1.Host:=‘smtp.qq.com‘这都是有区别的,另外还需在所用的邮箱中设置账号里面开启SMTP服务。发送邮件内容时,如果不指定IdMessage1.CharSet:=‘UTF-8‘;//,则发送内容中文显示为乱码。var filename: string;
begin //发送邮件主函数
try
// IdSSLIOHandlerSocket1...
在使用Delphi中的TClientSocket和TServerSocket进行通信编程时,当使用TClientSocket这方的客户端使用TClientSocket.close断开连接并退出程序时,使用TServerSocket这方的服务端有时会报‘’Asynchronous socket error 10053‘这个错误,查阅了这个错误说明:Software caused connection abort.(因软件原因导致连接终止)。这个原因说明很鸡肋,因为你还是无法确定到底是哪个地方出现了问题。实际上出现这个错误很大的原因是没有客...
经常遇到这样的情况,在我们使用Delphi的可视化工具进行UI设计的时候,我们拖拽TEdit或者Label组件,并且在可视化界面上设置它们的长、宽 但是当我们编译和运行程序的时候,却发现真正显示出来的 TEdit或者TLabel组件并不是我们在可视化界面所拖拽的长和宽(显示的“有问题”) 这个时候我们可以参考下面的具体事例解决: 当然这只是其中的一种方法,绝对还有其他的方法,而且我也不知道下面所讲的这种方法是不是很好的,...
由于在Windows安装了最近的更新(KB2982791, KB2970228)后,Delphi的IDE需要创建的一个文件%TEMP%\EditorLineEnds.ttr会被系统锁定,导致除非重新启动操作系统,否则Delphi 8~2010无法启动两次。如果你使用了IDEFixPack 2.7以上版本,则不会受到这个问题的影响。IDEFixPack会阻止IDE调用AddFontResource函数以避免锁定这个文件(这个补丁也可以解决安装了Adobe Type Manager之后的性能问题)如果是第一次安装IDEFixPack,则可能需要...
For "Object already exists" or "Access denied" errors when installing try opening Control Panel > Programs and Features > View installed updates then checking for Security Update for Microsoft Windows (KB2918614). Uninstall if you have it, then reboot and try installing again.原文:http://www.cnblogs.com/prtmon/p/4159099.html
我今天把一个原来是Delphi2007的工程升级到了Delphi XE2,在编译ralease版本时候,发现无法添加UAC,我觉得可能是升级的原因,随后我用XE2新建了一个工程,但是在编译ralease版本时候,发现仍然无法添加UAC,但是debug版本可以加入UAC。通过多次尝试依然无法解决,最后我把工程所在目录名称修改了一下,这下子可以添加UAC了,无论哪个版本都可以添加UAC了。不知道什么原因,反正这样就可以了,如果你遇到类似问题,不妨修改一下工程...
untMain;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,IniFiles, ExtCtrls, DB, ADODB,ActiveX;typeTFrmMain = class(TForm)Timer2: TTimer;procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure FormShow(Sender: TObject);procedure Timer2Timer(Sender: TObject);private{ Private declarations }public{ Public declarations }procedure getXXData();end;/...
有没有人研究过Delphi for PHP如题。感觉如何?交流下。------解决方案--------------------没有研究过,呵呵
------解决方案--------------------有啥研究头?
------解决方案--------------------那个东西,是个鸡肋,,没有什么意思,发现!!
Delphi IDE中包含一个Data Explorer的组件,如下图所示:
该组件基于dbExpress(包含TSQLConnection、TSQLDataSet、TSQLQuery、TSQLStoredProc、TSQLTable、TsqlServerMethod、TSQLMonitor、TSimpleDataSet)。但是因为该组件只提供了各种数据库的抽象驱动,没有提供底层的与数据库直接交互的驱动库,因此,要想使用具体某种数据库,还需要搭配提供商驱动。本文以Delphi XE在Windows 7 Ultimate版系统下连接MySQL Community Ser...
解决delphi的 dbgrid在读取access文本型字段显示TWideMemoField的问题标签:targe 窗体 自定义 ase 读取 data 字段 解决 proc 本文系统来源:http://www.cnblogs.com/chuangyiyuan/p/6587310.html