摘要：当程序用ado的jet4.0方式连接mdb数据库的时候，对于设有access数据库密码的mdb的访问居然报错“无法启动应用程序，工作组信息文件丢失，或是已被其他用户已独占方式打开”。ADOConnection.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; Password=Psd;Data Source=filename.mdb"不能用Password的形式定义数据库密码,应该改成:Provider=Microsoft.Jet.OLEDB.4.0;Data S 阅读全文

摘要：fastreport totalpage 只有设置doublepassreport为true 才正确否则为0 阅读全文

摘要：uses shlobj; type WELL_KNOWN_SID_TYPE = ( WinNullSid, WinWorldSid, WinLocalSid, WinCreatorOwnerSid, WinCreatorGroupSid, WinCreatorOwnerServerSid, WinCreatorGroupServerSid, WinNtAuthoritySid, WinDialupSid, WinNetworkSid, WinBatchSid, WinInteractiveSid, WinServiceSid, WinAnonymousSid, WinProxySid, Win 阅读全文

摘要：http://altd.embarcadero.com/download/radstudio/xe5/delphicbuilder_xe5_win.iso 阅读全文

摘要：刚开始代码如下：procedure TForm1.Button1Click(Sender: TObject);var Panel: TPanel;begin Panel := TPanel.Create(Form1); Panel.Name := 'pnlPreVideo'; Panel.Parent := Form1; Panel.OnClick := Panel1Click; MoveWindow(Panel.Handle, 10, 10, 100, 100, True);end;procedure TForm1.Panel1Click(Sender: TObject);b 阅读全文

摘要：在CSDN论坛看到有网友提问如何把程序钉到Windows7的任务栏，ccrun(妖哥)对这个问题很感兴趣，于是google了一下，没有找到相关的API资料，但是在国外的一个站点看到用FolderItemVerb对象来实现的方法，关于具体的资料，可以查阅MSDN:http://msdn.microsoft.com/en-us/library/windows/desktop/bb774172(v=vs.85).aspx在Delphi中实现的代码如下。编译环境：Delphi7和XE2，测试操作系统为中文和英文Windows7uses ComObj;procedure CrnPinAppToWin7T 阅读全文

摘要：unituntWorkThread;interfaceusesWindows,Classes,SysUtils;typeTWorkItem=classend;TProcessWork=procedure(Sender:TObject;Work:TWorkItem)ofObject;TWorkThread=class(TThread)privateFCriticalSection:TRTLCriticalSection;hEvent:Cardinal;FList:TList;FProcessWork:TProcessWork;procedureProcessWork(Work:TWorkItem 阅读全文

摘要：functionnumtochar(num:integer):string;varstr:string;m_num,num1,num2:integer;beginm_num:=num;str:='';num1:=m_numdiv26;num2:=m_nummod26;whilenum1>0dobeginifnum2>0thenstr:=char(num2-1+ord('A'))+strelsebeginstr:='Z'+str;num1:=num1-1;end;m_num:=num1;num1:=m_numdiv26;num2:=m_ 阅读全文

摘要：uniQuery2.SQL.Text:=mmo2.Text;uniQuery2.Execute;mmo1.Lines.Add(Format('受影响行数：%d',[uniQuery2.RowsAffected])); 阅读全文

摘要：Workaround steps: Close Delphi Locate bordbk120N.dll (C:\Program Files (x86)\CodeGear\RAD Studio\6.0\bin) Make a backup copy Check step 3 Open bordbk120N.dll in a Hex editor (UltraEdit works fine) Search for “01 00 48 74 47 80 3D” Make sure this is found once only Replace “74” with “EB” Save Restart 阅读全文

摘要：RAD Studio XE2 v16.0.4265.43595 官方 ISO 文件下载(2.33GB)：http://altd.embarcadero.com/download/radstudio/xe2/delphicbuilder_xe2_win_dl.isoRAD Studio XE2 v16.0.4276.44006 (With Update 1) 官方 ISO 文件下载(2.33GB):http://altd.embarcadero.com/download/radstudio/xe2/delphicbuilder_xe2_4276_win_dl.isoRAD Studio XE2 阅读全文

摘要：有时候我们需要delphi载入webbrowser1打开网页的时候 需要点击某一个点的位置 可能是坐标 可能是按钮 可能是其他的控件应该如何来实现呢？ 这里来简单说明一下点击坐标的过程点击过程很明显我们移动鼠标来点击或者发送消息来点击移动鼠标点击的比较常见 这里详细说明一下发送消息来点击的办法发送消息来点击的思路是sendmessage()发送消息来实现的导入句柄 点击的就可以了。但是这里的句柄(webbrowser的句柄)其实是不好找的。如果找到了合适的正确的句柄点击起来还是非常容易的这里有一个过程可以清楚的说明sendmessage的点击过程procedure sendclick(var 阅读全文

摘要：/Files/jxgxy/testJSON.rarperson.javapackagecom.eboy.testJSON;publicclassperson{privateStringurl_3w;privateintreplyCount;privateinthasImg;privateStringdigest;privateStringurl;privateStringdocid;privateStringtitle;privateintorder;privateintpriority;privateStringlmodify;//有可能是日期类型privateStringsubtitle; 阅读全文

摘要：//备注：mysql必须是使用innoDB引擎才支持事务功能，否则以下事务相关代码将失效。//SQL SERVER和Oracle还没试，明天回公司试了再发代码。procedureTForm1.btn1Click(Sender:TObject);vari,j:Integer;beginUniConnection1.Connect;trytryUniTransaction1.Connections[0].StartTransaction;UniQuery1.Params.Clear;UniQuery1.SQL.Text:='insertintouser(username,password) 阅读全文

摘要：一直以来都是用UniDAC作为数据库查询组件，而一般的写法都是这样：01UniQuery_sqlite.close;02UniQuery_sqlite.SQL.Clear;03UniQuery_sqlite.SQL.Add('SELECT * FROM TABLE');04try05UniQuery_sqlite.Open;06except07{ TODO : 异常捕获 }08end;09//循环出所有记录10fori :=0toUniQuery_sqlite.RecordCount -1do11begin12//....13UniQuery_sqlite.Next;14end 阅读全文

摘要：最近用EmbeddedWB控件做浏览器相关应用的时候，发现有些网页只要一打开就一定会蹦出一个“Invalid floating point operation”异常（关掉异常对话框以后，浏览器无响应），而程序仅仅是一句?WebBrowser1.Navigate(Edit1.Text);貌似很多含有Silverlight元素的网页打开时都会带出这个bug。而且关键是，错误提示完全让人摸不着头脑有木有！！！！！百思不得其解，遂Google之，得结论如下：1、很多网友都遇见过同样的问题2、Borland官方解释请点这里（我这打不开）3、大概的情况是,在使用一些浮点操作时,微软默认设计会抛出一系列的异 阅读全文

摘要：{注册表操作函数,SetClave设置键值,GetClave获得键值 Funciones de registro}function SetClave(key:Hkey; subkey,name,value:string):boolean;varregKey:hkey;beginresult:=FALSE;RegCreateKey(key,PChar(subkey),regKey);if RegSetValueEx(regKey,Pchar(name),0,REG_SZ,pchar(value),length(value)) = 0 then result:=TRUE;RegCloseKey(. 阅读全文

摘要：经过这段时间对delphi中free 和 release 的仔细学习，先总结如下：1。form.free直接释放资源后，调用OnDestroy事件，但是没有将form指针改为nil2。form.release 等待资源不再使用后释放资源，同样不修改form指针为nil，所以在destroy中最好使用 release进行资源释放操作。3。局部变量释放资源时，可以考虑用freeandnil()释放资源，这样效率会高些，能提高内存的利用率4。在对窗体操作时，单纯通过assigned(form1)判断窗体是否已经创建是不够的，因为如果窗体通过free /release进行资源释放的话，form1指向的 阅读全文

摘要：procedure CloseSound;var hWinmm: Cardinal; pwaveOutWrite: Pointer; lp: Cardinal;begin hWinmm := LoadLibrary('Winmm.dll'); if hWinmm > 0 then pwaveOutWrite := GetProcAddress(hWinmm, 'waveOutOpen'); if pwaveOutWrite <> nil then begin VirtualProtect(pwaveOutWrite, 3, PAGE_EXECU 阅读全文

摘要：usesmshtml,ActiveX;//初始加载网易主页procedureTForm1.FormCreate(Sender:TObject);beginWebbrowser1.Navigate('http://www.163.com/');end;procedureTForm1.Button1Click(Sender:TObject);varI:Integer;Document:IHTMLDocument2;Element:IHTMLElement;Anchors:IHTMLElementCollection;sLink:string;begin//查找网易新闻页面链接sLi 阅读全文