2008年7月21日

13 个应该记住的最不寻常的搜索引擎

摘要： 13 个应该记住的最不寻常的搜索引擎如果你通过Digg或其他社会化媒体网站，向世界传播，我会非常感激，您对此文的随手评论会让此文展示在更多人面前。谢谢你已经天天使用一些常见的搜索引擎，象 Google，Msn，Yahoo，Excite。但是其实有更多的其他搜索引擎，使用与例行搜索不同的方式，让搜索更加有效。从它们当中，我选了13个不常见*的搜索引擎来给你介绍。列在这里的搜索引擎有一些不同的搜索方式... 阅读全文

posted @ 2008-07-21 23:56 白兴科技 阅读(307) 评论(0) 推荐(0) 编辑

生成access数据库的最简单的方法

摘要： procedure TForm1.Button1Click(Sender: TObject); var CreateAccess:OleVariant; begin CreateAccess:=CreateOleObject('ADOX.Catalog'); CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\A... 阅读全文

posted @ 2008-07-21 17:13 白兴科技 阅读(355) 评论(0) 推荐(0) 编辑

用Delphi制作录音程序

摘要： Mediaplayer控件是开发多媒体的利器。用它几分钟就可以做出一个象解霸一样可以播放多媒体文件的程序来，用它也可以做一个录音程序。 运行Delphi,在System页拖一个Mediaplayer控件到窗体上,默认名为Mediaplayer1。 由于我们的程序是采用自己的按钮，所以将Mediaplayer1的Visible属性设置为False，其它属性保持默认值。 再放两个按钮Button1... 阅读全文

posted @ 2008-07-21 16:38 白兴科技 阅读(371) 评论(0) 推荐(0) 编辑

WebBrowser组件和MSHTML 在Delphi中的使用

摘要： 由于项目需要，近来研究了一下WebBrowser组件和MSHTML 在Delphi中的使用,整理了一下这段时间研究的结果,写下来一是方便大家查阅,二也可以加深我自己的记忆.希望能对大家有所帮助… …,同时,如果有更好的处理方式或者我没有提到的问题,请大家也告诉我哦, 咱们一块进步… ...,其中一部分是我从网络中搜集的资料,谢谢那些兄弟们… … MSHTML把HTML页面中的元素封装... 阅读全文

posted @ 2008-07-21 15:10 白兴科技 阅读(459) 评论(0) 推荐(0) 编辑

Delphi使用资源文件全攻略

摘要： 在通常情况下使用delphi设计程序，都是将字符串、图像等资源直接使用delphi提供的vcl控件加到*.dfm中，这样做会合修改这些资源时带来不便，如果资源被多次引用，这些资源在程序启动时都被加载到内存中，非常耗费系统资源。因此，这就需要一种新的引用资源的文件：资源文件。资源文件就是将一些资源，如字符串、图像等信息进行编译，然后在程序中引用编译后的资源文件，最后和源程序一起编译生成可执行文件。由... 阅读全文

posted @ 2008-07-21 13:19 白兴科技 阅读(260) 评论(0) 推荐(0) 编辑

Delphi编程模拟鼠标操作

摘要： procedure TForm1.Button1Click(Sender: TObject); begin mouse_event(MOUSEEVENTF_MOVE,100,100,0,0); //移动鼠标 end; procedure TForm1.Button3Click(Sender: TObject); //左键单击 begin SetCursorPos(10,10); mouse_e... 阅读全文

posted @ 2008-07-21 13:14 白兴科技 阅读(797) 评论(0) 推荐(0) 编辑

2008年7月20日

delphi中的各种关闭比较

摘要： 表示关闭的有 hide close free release destroy terminate freeandnil() halt free:先判断不为空再destroy。释放对象，对于窗体来说，只会释放对象，而不将窗体对象的指针指向nil，所以free后用assigned函数来判断还是返回true．只有freeandnil或free后再将指针指向nil． destroy：不判断直接释放。如... 阅读全文

posted @ 2008-07-20 14:42 白兴科技 阅读(392) 评论(0) 推荐(0) 编辑

黑客帝国数字流特效制作揭密

摘要： 具体制作步骤： 1、制作随机数字 新建一400px*300px的flash文档，背景为黑色。按CTRL+F8建一MC，在此MC中建一动态文本，变量名为num， 500)this.width=500"> 在其帧上加上AS num=random(10); 这样动态文本就能显示从0到9的数字。 ... 阅读全文

posted @ 2008-07-20 12:44 白兴科技 阅读(445) 评论(0) 推荐(0) 编辑

不用临时变量交换两个数

摘要： procedure TForm1.Button1Click(Sender: TObject); var a,b:integer; begin a:=strtoint(self.Edit1.text); b:=strtoint(self.Edit2.Text); a:=a xor b; b:=b xor a; a:=a xor b; self.Edit1.Text:=in... 阅读全文

posted @ 2008-07-20 12:40 白兴科技 阅读(356) 评论(0) 推荐(0) 编辑

2008年7月19日

Object Pascal的指针

摘要： 大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针的。从最初的Pascal发展至今的 Object Pascal，可以说在指针运用上，丝毫不会逊色于C语言的指针。 以下内容分为八个部分，... 阅读全文

posted @ 2008-07-19 22:58 白兴科技 阅读(126) 评论(0) 推荐(0) 编辑

delphi基本算法

摘要： 1.数论算法 求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then gcd:=a else gcd:=gcd (b,a mod B); end; 求两数的最小公倍数 function lcm(a,b:integer):integer; begin if a0 do inc(lcm,a); end; ... 阅读全文

posted @ 2008-07-19 22:57 白兴科技 阅读(304) 评论(0) 推荐(0) 编辑

通用单进度条构件单元

摘要： unit uProgressBar; { *********************************************************************** * 即插即用的绿色代码　通用单进度条构件单元 Copyright(C) 月夜风筝 2007 * QQ-EMial: 14574256@163.com * 创建时间：07-04-27 ***************... 阅读全文

posted @ 2008-07-19 22:50 白兴科技 阅读(220) 评论(0) 推荐(0) 编辑

P2P 之 UDP穿透NAT的原理与实现(转载)

摘要： 参考：http://midcom-p2p.sourceforge.net/draft-ford-midcom-p2p-01.txt 论坛上经常有对P2P原理的讨论，但是讨论归讨论，很少有实质的东西产生（源代码）。呵呵，在这里我就用自己实现的一个源代码来说明UDP 穿越NAT的原理。 首先先介绍一些基本概念： NAT(Network Address Translators)，网络地址转换：网... 阅读全文

posted @ 2008-07-19 22:48 白兴科技 阅读(366) 评论(0) 推荐(0) 编辑

取汉字的机内码、UniCode码

摘要： Function MacCode2Chinese(AiUniCode : Integer) : String; Var ch, cl : Integer; Begin ch := AiUniCode Div 256; cl := AiUniCode Mod 256; Result := Chr(ch) + Chr(cl); end; //汉字 -> 机内码 Function Ch... 阅读全文

posted @ 2008-07-19 22:46 白兴科技 阅读(521) 评论(0) 推荐(0) 编辑

Web1.0及WEB2.0的比较

摘要： Web1.0及WEB2.0的比较 WEB2.0概念诠释 Web2.0，是相对Web1.0（2003年以前的互联网模式）的新的一类互联网应用的统称，是一次从核心内容到外部应用的革命。由Web1.0单纯通过网络浏览器浏览html网页模式向内容更丰富、联系性更强、工具性更强的Web2.0互联网模式的发展已经成为互联网新的发展趋势。 Web1.0到Web2.0的转变，具体的说，从模式上是单纯的“读”向... 阅读全文

posted @ 2008-07-19 22:42 白兴科技 阅读(1287) 评论(0) 推荐(0) 编辑

Copyright © 2024 白兴科技
Powered by .NET 8.0 on Kubernetes