- 博客(20)
- 收藏
- 关注
RSS订阅转载 DELPHI判断是否64位操作系统
function IsWin64: Boolean;var Kernel32Handle: THandle; IsWow64Process: function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL;stdcall;GetNativeSystemInfo : procedure(var
2013-12-29 20:29:44
864
转载 几个获取Windows系统信息的Delphi程序
1、获取windows版本信息 可以通过Windows API函数GetVersionEx来获得。 具体程序如下： Procedure Tform1.Button1Click(sender:TObject); Var OSVI:OSVERSIONINFO; begin OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIO
2013-12-29 19:47:22
781
转载 delphi获取windows系统版本信息，大全，准确
很多时候从网上找到的取操作系统版本的代码都不是很准确，有些信息也不全面。为此，在msdn上找到全面的信息整理成代码，共享！unit WindowsSysVersion;interfaceuses windows ;{$IFDEF CONDITIONALEXPRESSIONS}{$IF Defined(TOSVersionInfoEx)}{$DEFINE TOSVER
2013-12-26 23:49:00
888
原创 网络传输工作原理的通俗理解
本文结合生活中的实例，说明网络传输的基本原理我们以甲对乙表达“大家好！”为例。甲乙两人一个只会讲中文，一个只会讲法文，两人如何交流呢？我们把不同层次的翻译当做通信协议的实现来看。网络层次图：甲（讲中文） 乙（讲法文）<英语翻译协议> <英语翻译协议><英语单词分解协议> <英语单词传输协议><字母传输协议>----------真正的网络传输-------><字母传输翻译>
2013-12-25 16:31:16
1566
1
原创 初学者如何理解网络协议(二)
说到底：协议是人规定的一套通信规范，所以任何人都可以规定自己的协议，只要通信的双方能够共同遵守，你就实现了你的协议。事实上协议本身是可以无所谓分层的概念，分层只是为了方便人们处理复杂的协议而人为做出的划分。所以，初学者请不要网络协议深遂的面孔吓倒，更不要被网络分层的假相所迷惑。你只要认清了网络协议的本质，大胆得去实践，你完全可以创造出属于你自己的网络协议。
2013-12-25 16:28:42
1553
原创 初学者如何理解网络协议(一)
初学者如何理解网络协议(一)FYL 2013-12-25网络协议是什么？协议分层是怎么回事？什么是协议的实现？回想当年初识网络协议，被一张网络层次模型图中的“物理层、数据链路层、网络层、传输层……”搞得云里雾里。花了很长时间才搞明白网络协议大概是怎么回事，甚至己经做出了几个网络程序，但仍感觉对网络协议的本质认识还不够清楚。一直在思考这些问题，突然有一天，我发现我对网络协议的认识已经变得明朗。直到今天，我心血来潮写下这篇文章，希望对初学网络编程的朋友有所帮助。
2013-12-25 16:26:53
2555
转载 Delphi TStringList的用法
Delphi TStringList的用法TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {
2013-12-23 03:34:27
542
转载 简单实现系统托盘
使用 Delphi 提供的 TTrayIcon 类, 两三行程序甚至不写程序(设计时选择几下)即可实现.设计时的准备工作:1、添加 TTrayIcon、TPopupMenu 控件, TPopupMenu 用于托盘的右键菜单.2、随意给 TPopupMenu 添加些菜单项.代码文件:unit Unit1;interfaceuses Win
2013-12-22 19:55:39
535
转载 Delphi 的接口(1) - 前言
之前, 有朋友夸过我: 博文通俗易懂, 能把复杂的问题简单化; 希望我对接口的理解也能对大家有所帮助; 不过其中个人理解的成分多些, 错误之处万望指出."接口" 的概念和 "类" 特别是 "抽象类" 近似, Delphi 之初并没有接口, 后来(Delphi 3)为了支持 COM 引入了接口, 再后来发展成为 Delphi 重要的语言特性.应该先简单了解点 COM, 说
2013-12-22 19:54:37
443
转载 Delphi 的接口(4) - 接口的属性
代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton;
2013-12-22 19:51:08
457
转载 Delphi 的接口(3) - 关于接口的释放
代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton;
2013-12-22 19:50:24
490
转载 Delphi 的接口(2) - 第一个例子
第一个例子的操作实况录像: Interface_Test.rar代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm
2013-12-22 19:49:17
412
转载 Delphi 组件渐进开发浅谈（二）——双简合璧
2.双简合璧2.1.带有T[x]Label的T[x]Edit组件 请允许我用[x]的书写方式来表示不同的对象。因为随后将大量提及TLabeledEdit与TTntLabeledEdit、TCustomLabeledEdit与TTntCustomLabeledEdit这样及其雷同的类。2.2.分析T[x]LabeledEdit组件结构 现在要设计一个类似TLabeledEdit的
2013-12-22 18:12:07
502
转载 Delphi 组件渐进开发浅谈（一）——由简入繁
最近业余时间在写游戏修改器玩，对于Delphi自带的组件总觉得差强人意，需要书写大量冗余代码，如果大量使用第三方组件，在以后的移植和与他人交互时也不是很方便，因此便产生了自己封装组件的想法。 实际上这个想法在很久以前（大概04年写第一个修改器的时候）就有了，一直没有闲暇时间去做，而工作上类似的组件也会很实用，虽然不见得有第三方组件设计的那么规范、强大，但小巧、灵活是自主开发的优点。 很
2013-12-22 18:11:19
696
转载 Delphi 组件撰写常问问题
1.1 此份文件的目的为何？ 这份文件的目的是为了解答有关撰写 Delphi组件时常见或文件上找不到的问题。我曾经花了一段很长的时间来了解探索 TDataLink 类别，这让我觉得应该将撰写组件时常遇到的问题及经验心得写下来，分享给大家。不过我并不能保证写在这份文件里头的解答完全正确。如果你对其中的任何问题有更好的解决方法，或认为有什么信息适合放在这份文件里的话，请告知作者。有任何错误或缺漏也
2013-12-20 22:12:46
628
转载 Delphi 的持续机制浅探
目 录===============================================================================⊙ DFM 文件与持续机制(persistent)⊙ ReadComponentResFile / WriteComponentResFile 函数⊙ Delphi 持续机制框架简述⊙ 一个 TForm 对象的创建过
2013-12-20 21:28:49
433
转载 一个使用特殊符号分割的字符串解码方法(Delphi版)
function DecodeString(Str, deStr: string ): TStringList;var StringList:TStringList;begin StringList:=TStringList.Create; stringList.Text := StringReplace(Str, deStr,#13, [rfReplaceA
2013-12-17 13:00:56
793
转载 WebBrowser动态创建
var WebBrowser1: TWebBrowser; WebBrowser1 := TWebBrowser.Create(nil); WebBrowser1.ParentWindow := Panel_Main.Handle; WebBrowser1.Silent := True; WebBrowser1.Align :=
2013-12-12 16:57:21
709
转载 WebBrowser使用POST方法提交数据
WebBrowser使用POST方法提交数据. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 =
2013-12-12 15:56:11
4722
原创 WebBrowser不显示滚动条的方法
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin WebBrowser1.OleObject.Document.Body.Scroll := 'no'; WebBrowser1.OleObjec
2013-12-12 15:39:55
2878
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人