文章分类 -  Delphi

虽然现在已不是什么主流,但存在即合理。
摘要:前,利用 Delphi实现串口通信的常用的方法有 3种:一是利用控件,如 MSCOMM控件和 SPCOMM控件;二是使用 API函数;三是调用其他串口通信程序。其中利用 API编写串口通信程序较为复杂,需要掌握大量的通信知识。相比较而言,利用 SPCOMM控件则相对较简单,并且该控件具有丰富的与串口通信密切相关的属性及事件,提供了对串口的各种操作,而且还支持多线程。下面本文结合实例详细介绍 SPC... 阅读全文

posted @ 2009-03-25 18:56 白兴科技 阅读(1508) 评论(0) 推荐(0) |

摘要:function WinExecAndWait32(FileName: string; Visibility: Boolean): integer; var zAppName: array[0..512] of char; //存放应用程序名 StartupInfo: TStartupInfo; ProcessInfo: TProcessInformati... 阅读全文

posted @ 2008-10-17 23:29 白兴科技 阅读(1396) 评论(0) 推荐(0) |

摘要:Delphi常用的函数库,引用作者的话“今天在整理以前写过的代码,发现有些函数还是挺实用的,决定将其贴到Blog上,与众多好友一起分享。” 源文地址:http://blog.csdn.net/chris_mao/archive/2007/11/01/1862017.aspx {*************************************************************... 阅读全文

posted @ 2008-10-17 23:21 白兴科技 阅读(648) 评论(0) 推荐(0) |

摘要:在sql中,smalldatetime及datetime型的数据显示不是那么让人满意,因此我找了些格式化的方法列出来convert(char(10),datetime,101) 在数据库取出来的时候就转换好 select getdate() 2006-05-12 11:06:08.177 我整理了一下SQL Server里面可能经常会用到的日期格式转换方法: 举例如下: sel... 阅读全文

posted @ 2008-10-17 23:11 白兴科技 阅读(353) 评论(0) 推荐(0) |

摘要:从数据库导数据至excel 容易,但要是想把excel 里的数据通过delphi写的程式导入数据库就没那么简单了,并且网上讲的都不全面,没有几个完整可行的方案,以下是我收集的个人认为比较可行的方案,不敢独享,故拿出来供大家学习参考之用! procedure load(rowCount,colCount:integer; fileName:String; var grid:TStringGrid)... 阅读全文

posted @ 2008-08-07 00:20 白兴科技 阅读(1427) 评论(1) 推荐(0) |

摘要://如果十六进制非字符串, 无须转换, 直接赋值即可 var i: Integer; begin i := $FF; ShowMessage(IntToStr(i)); {255} end; //如果十六进制是字符串, 用 StrToInt 即可 var s: string; i: Integer; begin s := '$FF'; i := StrToInt(s); ShowMessa... 阅读全文

posted @ 2008-08-07 00:13 白兴科技 阅读(1223) 评论(0) 推荐(0) |

摘要:首先说明initialization 和 finalization 在代码单元中的位置: ************************************************************ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Control... 阅读全文

posted @ 2008-08-07 00:09 白兴科技 阅读(527) 评论(0) 推荐(0) |

摘要:1、挂起,不占CPU sleep 2、不挂起,占cpu procedure Delay(msecs:integer); var FirstTickCount:longint; ... 阅读全文

posted @ 2008-07-28 00:23 白兴科技 阅读(699) 评论(0) 推荐(0) |

摘要:在游戏开发中经常需要保存一些数据结构,并且在使用的时候需要快速的查找出来.Hash表正是为了提高检索速度而设计出来的.下面我就将我在用Delphi开发中使用Hash表的方法写出来,希望对大家有一定的帮助! 在Delphi中有一个THashedStringlist类,使用这个类可以实现Hash表的操作.使用这个类需要引用IniFiles头文件. 例如:我们定义的数据结构是: ... 阅读全文

posted @ 2008-07-22 23:55 白兴科技 阅读(185) 评论(0) 推荐(0) |

摘要:在游戏开发中经常需要保存一些数据结构,并且在使用的时候需要快速的查找出来.Hash表正是为了提高检索速度而设计出来的.下面我就将我在用Delphi开发中使用Hash表的方法写出来,希望对大家有一定的帮助! 在Delphi中有一个THashedStringlist类,使用这个类可以实现Hash表的操作.使用这个类需要引用IniFiles头文件. 例如:我们定义的数据结构是: ... 阅读全文

posted @ 2008-07-22 23:54 白兴科技 阅读(418) 评论(0) 推荐(0) |

摘要:absolute //它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同. var Str: string[32]; StrLen: Byte absolute Str; //这个声明指定了变量StrLen起始地址与Str相同. //由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度. begin Str := 'abc'; Edit1.Text := ... 阅读全文

posted @ 2008-07-22 00:37 白兴科技 阅读(376) 评论(0) 推荐(0) |

摘要:Delphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本上都是对TThread类的几个成员作一简单介绍,再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部,我写此文的目的在于对此作一个补充。 线程本质上是进程中一段并发运行的代码。一个进程至少有一个线程,即所谓的主线程。同时还可以有多个子线程。当一个进... 阅读全文

posted @ 2008-07-22 00:17 白兴科技 阅读(203) 评论(0) 推荐(0) |

摘要: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 白兴科技 阅读(379) 评论(0) 推荐(0) |

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

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

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

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

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

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

摘要: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 白兴科技 阅读(838) 评论(0) 推荐(0) |

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

posted @ 2008-07-20 14:42 白兴科技 阅读(417) 评论(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 白兴科技 阅读(377) 评论(0) 推荐(0) |

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

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

博客园  ©  2004-2026
浙公网安备 33010602011771号 浙ICP备2021040463号-3