本月博客排行
年度博客排行
-
第1名
宏天软件 -
第2名
青否云后端云 -
第3名
龙儿筝 - gashero
- wallimn
- vipbooks
- benladeng5225
- wy_19921005
- fantaxy025025
- e_e
- zysnba
- ssydxa219
- sam123456gz
- javashop
- arpenker
- tanling8334
- kaizi1992
- xpenxpen
- wiseboyloves
- xiangjie88
- ranbuijj
- ganxueyun
- sichunli_030
- xyuma
- wangchen.ily
- jh108020
- lemonhandsome
- zxq_2017
- jbosscn
- Xeden
- luxurioust
- zhanjia
- lzyfn123
- forestqqqq
- ajinn
- nychen2000
- wjianwei666
- hanbaohong
- daizj
- 喧嚣求静
- silverend
- mwhgJava
- kingwell.leng
- johnsmith9th
- lchb139128
- kristy_yy
- lich0079
- jveqi
- java-007
- sunj
最新文章列表
Delphi中WebBrowser控件打开部分网站报"Invalid floating point operation”解决
最近用EmbeddedWB控件做浏览器相关应用的时候,发现有些网页只要一打开就一定会蹦出一个“Invalid floating point operation”异常(关掉异常对话框以后,浏览器无响应),而程序仅仅是一句
WebBrowser1.Navigate(Edit1.Text);
貌似很多含有Silverlight元素的网页打开时都会带出这个bug。而且关键是,错误提示完全让人摸不着头脑 ...
在状态条中显示进度条,WebBrowser示例
在状态条中显示进度条,原理是在TForm1类中加progress, progressMax变量,webbrowser控件更新之,StatusBar在刷新的时候依据这两个变量画出长条状图形(即进度条)。
(附件是一个例子。)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, G ...
Delphi中WebBrowser的使用技巧汇总
1>调用网页中已知对象
src := WebBrowser1.OleObject.document.getElementByIdx(’id1′).src
其实就是javascript中的 getElementByID 的函数
2>获得网页中的某个变量值
Html中的代码 : <script> var userID=123</s ...
SleuthQA CodeWatch 跟踪后台服务资源泄漏
某日,一个我编写的Delphi 应用(dll 插件)被发现运行一段时间后,系统的PF 占用其高且下不来。
后在任务管理器中发现此应用所在的exe 在运行期间的句柄计数会稳定累积增加, user对象、GDI对象计数未发现明显异常。
使用SleuthQA CodeWatch( 以下简称 CW) 调试此dll, 过程如下:
Step1. 准备工作
1.1 CW-Fil ...
开发小书店管理客户端的代码
这个程序写的很菜,完全菜鸟水准,典型问题如下
1,界面和运算没有分开
2,Query资源有开却没有关闭
3,重复性代码很多
4,界面之间相互引用
5,一个List 中remove方法的实现中最好有一个返回被删除对象的实现
6,记录操作时间的时候应当用服务器数据库的时间,而不是客户端系统的时间
7,在做Transaction操作的时候,程序一开始就打开事务,每执行一个动作就发送一次SQL ,结果导致数 ...
不安装.NET Framework 运行C#.NET程序
首先,要说明的是飞信也是用C#写的,但是我们在运行C#时,并不用安装.NET Framework,这事因为,飞信本身内置了一个.NET 虚拟程序,由这个程序来调用我们飞信主程序。
同样,我们要可以利用这可现成的虚拟机来运行我们的C#.NET程序,这样即使在没有安装.NETFramework的windows系统中,也可以运行我们的C#.NET程序。
具体方法如下,复制飞信下的文件夹V ...
Delphi-varArrayCreate矩阵列数组使用记录
创建矩阵:VarArrayCreate(const Bounds: array of Integer;AVarType: TVarType): Variant;
引用单元:Variants.pas
procedure TForm1.Button1Click(Sender: TObject);
var
values : Variant;
begin
// [0,n,0,1] ...
delphi中的copy,delete,pos和leftstr,RightStr的用法
copy
举个例子:str := “123456”;str1 := Copy(Str,2,3);结果就是 str1 等于 234。Copy有3个参数,第一个是你要处理的字符串,第二个是你要截取的开始位置,第3个是截取位数。当你的第3个参数大于字符长度,那么效果就是取 开始位置 后的所有字符。str1 := Copy(Str,2,10); 结果就是str1 等于 23456。
leftstr和 ...
Delphi获取计算机名称及IP地址
function GetComputerName:String; //获取计算机名称
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt; s : array[0..128] of char;
begin
try
wVersionRequested := MAKEWORD(1, 1); ...