摘要：
一.用C语言写了一个Dll，编译成功。是一个非常简单的加密算法，代码如下：#include<stdio.h>__declspec(dllexport) void Encipher(char a[16]) {int i,len;int s=1; len=strlen(a);for(i=0;i<len;i++){ a[i]=a[i]+s; s=s+2;} }现在我在Delphi中如何调用它并实现这样的功能，点击Button1，获取edit1.text的内容，存于数组中，然后调用Dll中的函数，进行简单加密，然后将结果赋给edit2.text。 type TArrChar = ar 阅读全文
摘要：
Serv-U使用方法及应用技巧（一）2007年03月30日 星期五 17:081.1 Serv-U的安装Serv-U的安装很简单，和其他windows程序一样，执行setup.exe，即可开始安装；全部选默认选项即可。安装完成后不需要重新启动，在“开始→程序→Serv-U FTP Server”中就能看到相关文件，桌面上也会产生快捷方式图标。1.2 建立一个FTP服务器打开Serv-U主界面，点右键选择Domains选项的New Domain，然后选择填写IP地址、Domain名称、端口等信息。完成后如下图：1.3 建立FTP用户点右键选择Users选项的New User，填写用户名、密码、用 阅读全文
摘要：
很多场合下我们会用到纯文本编辑器，Windows自带的记事本功能很简陋，因此我们从网友的投票提名中选取了前五个最佳的文本编辑器（实际上有六个）。这些编辑器实际上主要适合程序员使用，他们的清单如下。 Notepad++ (Windows) 优于Windows记事本的一个文本编辑器，完全免费且开源，对于不同的编程语言可以实现语法高亮，代码折叠以及宏，起可定制性非常强。 Emacs (所有平台) Emacs文本编辑器深受高级程序员的喜爱，具有内置的宏功能以及强大的键盘命令，这对于编辑代码来说真是一种享受，这个程序几乎被移植到了每一个平台，并有多个发行版，其中最流行的是GNU Emacs和XEmacs 阅读全文
摘要：
系统运行的命令集锦gpedit.msc-----组策略sndrec32-------录音机Nslookup-------IP地址侦测器explorer-------打开资源管理器logoff---------注销命令tsshutdn-------60秒倒计时关机命令lusrmgr.msc----本机用户和组services.msc---本地服务设置oobe/msoobe /a----检查XP是否激活notepad--------打开记事本cleanmgr-------垃圾整理net start messenger----开始信使服务compmgmt.msc---计算机管理net stop me 阅读全文
摘要：
通常的分区
/ 根目录
/usr 放置操作系统(几个G)
/usr/bin 程序
/usr/game 游戏
/usr/lib 库文件
/usr/lib64 64位库文件
/usr/fonts 字体文件
/usr/share 应用程序，库文件，程序文档
/usr/X11R6 图形系统文件
/usr/include 程序人员使用的头文件
/usr/sbin 程序文件 阅读全文
摘要：
Implementation goes this way: type TSampleEnumType = (seNone, seONE, seTWO, seTHREE, seFOUR); TSampleRecord = record SampEType: TSampleEnumType; iValue: integer; end; const TConstArrayofRecord: array [0..4] TSampleRecord ( (SampEType: seNONE; iValue: 0), (SampEType: seONE; iValue: 1), (SampEType: se 阅读全文
摘要：
const DayList: array[0..6,1..4] of SmallInt =((1, 5,11,1), (6, 10,11,1), (11,15,17,2), (16,20,23,3), (21,25,23,3), (26,31,11,1), (99,99,17,2) ); TShopItem = record Name : string; Price : currency; end;const Items : array[1..3] of TShopItem = ( (Name : 'Clock'; Price : 20.99), (Name : 'Pe 阅读全文
摘要：
1.FastReport中如何共用TFrxreport及TfrxDBDataSet
一个程序中，不管多么大的程序，只要打印或预览时是模式的，则完全可以共用一个TFrxreport
变量及几个TfrxDBDataSet。只不过，要注意完成一个报表程序的步骤，主要是下面几步 阅读全文
摘要：
动态创建Fastreport分以下几个步骤：
1.首先清空Fastreport，定义全局变量，并加载数据集
frReport.Clear;
frReport.DataSets.Add(frxDBDataset1);
DataHeight :=28;
DataWidth :=80;
FirstTop := 50;
FirstLeft := 15; 阅读全文
摘要：
by tinyANT on 三月 24, 2009, under FASTREPORT, 包裹, 民本, 碎末, 1,758 views写在前面的话：翻译水平有限，只为更加方便查阅和使用，如果翻译不准确的地方欢迎指正，资料来源于FastReport官方网站。一、使用TfrxReport 组件工作1、加载并存储报表默认情况下，报表窗体同项目窗体构存储在同一个DFM文件中。多数情况下，无须再操作，因而你就不必采用特殊方法加载报表。如果你决定在文件中存储报表窗体或者是数据库的Blob字段（他提供了非常大的弹性，你能够在非编译程序中修改），你必须使用“TfrxReport”提供的加载和存储方法。fun 阅读全文
摘要：
DOS命令大全(经典收藏)见到网络上,觉得值得学习,特此收藏到这里,因为我几乎天天来这个网站 net use \\ip\ipc$ " " /user:" " 建立IPC空链接 net use \\ip\ipc$ "密码" /user:"用户名" 建立IPC非空链接 net use h: \\ip\c$ "密码" /user:"用户名" 直接登陆后映射对方C：到本地为H: net use h: \\ip\c$ 登陆后映射对方C：到本地为H: net use \\ip\ipc$ 阅读全文
摘要：
想删除文件夹里的所有OBJ文件,找了半天,最后发现其实一个命令就解决了:del /S .\*.obj 阅读全文
摘要：
值得关注的十个优秀的CSS框架时间:2010-01-02 22:26来源:CSS中国 作者:秩名 点击: 371次大多数做过网页设计的都知道 CSS框架 ，而且肯定有很多设计师已经开始在作品中使用CSS框架。 就像其他编程语言一样，CSS也可以把一些重复使用的代码整合起来，这样可以减轻很多的大多数做过网页设计的都知道“CSS框架”，而且肯定有很多设计师已经开始在作品中使用CSS框架。 就像其他编程语言一样，CSS也可以把一些重复使用的代码整合起来，这样可以减轻很多的工作量。 恰当地利用CSS框架可以缩短开发时间，不过话说回来，如果选错了CSS框架胡乱用于实际开发中，必然会适得其反。 下面介绍的 阅读全文
摘要：
为了帮朋友解决在WINDOWS XP系统上无法安装SQL server服务器版的问题，只好也装了一套WINDOWS XP系统，参考网上以及其它资料，现已经成功的在WINDOWS XP系统安装了SQL server服务器版，希望对需要的网友会有一定的帮助，不多说，步骤如下： 一、找一张SQL server服务器版光盘，在光盘上找到目录“MSDE”并进入，运行SETUP.EXE文件，并按照程序要求进行安装。安装完成重新启动计算机。 二、运行光盘中的，AUTORUN.EXE文件，或让光盘自动运行，打开安装界面后，点击“安装SQL server 2000组件（C）”=》“安装数据库服务器（S）”这里. 阅读全文
摘要：
Mozilla公布火狐4详情：更快 更支持开放标准火狐公布火狐4.0版的更多技术详情北京时间5月11日消息，据国外媒体报道，火狐(Firefox)浏览器开发商Mozilla技术开发副总裁迈克·贝尔泽纳(Mike Beltzner)今天公布了火狐4.0版的更多技术详情，称火狐4.0版整体运行速度将更快，将更多支持开放互联网浏览标准，同时把隐私保护控制权完全交给用户。贝尔泽纳称，如果进展顺利，火狐4.0版有望于今年10月或11月期间发布。如期发布火狐4.0版，已成为Mozilla当前的工作重点之一，“性能表现是我们必须解决的重大问题之一。我们已经承诺要提高火狐整体性能，因此必须做到这一点 阅读全文
摘要：
网上查了下，貌似WriteComponentResFile，ReadComponentResFile可以，但是必须是一个TComponet的对象，我要串行化一个OleVariant的对象，大大们，怎么做？要持久对象，必须继承TPersistent....function ComponentToStr(AComponent: TComponent): string; var BinStream: TMemoryStream; StrStream: TStringStream; s: string; begin BinStream := TMemoryStream.Create; try StrS 阅读全文
摘要：
CreateFontIndirect - 根据字体结构建立逻辑字体 //声明:CreateFontIndirect(const p1: TLogFont {字体结构}): HFONT; {返回新字体指针}//TLogFont 是 tagLOGFONTA 结构的重定义:tagLOGFONTA = packed recordlfHeight: Longint; {字体高度}lfWidth: Longint; {字体平均宽度}lfEscapement: Longint; {角度, 单位是 1/10 度}lfOrientation: Longint; {基线角度}lfWeight: Longint; 阅读全文
摘要：
procedure SetPrinterPaper(APaperNo: Integer; APaperWidth,APaperHeight: Double);//设置当前打印机的纸张大小//纸张号 ９ A4 13 B5//页宽和页高，单位mmvarDevice: array[0..255] of char;Driver: array[0..255] of char;Port: array[0..255] of char;hDMode: THandle;PDMode: PDEVMODE;beginPrinter.PrinterIndex := Printer.PrinterIndex;Print 阅读全文
摘要：
TMyString = class(TObject)private FStrBeginTran: string; FStrEndTran: string;protected function GetData(myData: TMyField): string; virtual; function GetFields(myData: TData): string; virtual;public property StrBeginTran: string read FStrBeginTran; property StrEndTran: string read FStrEndTran; class 阅读全文
摘要：
function GetIDInfoGetDInfo(const CardNo: string; var Sex,BirthDay: string; var Age: Integer; var Area: string): Integer;variCardNo: Int64;iYear, iSex: Integer;sBirth, fBirth: string;dBirth: TDateTime;beginResult := 0; //表示身份证输入正确if (Length(CardNo) <> 15) and (Length(CardNo) <> 18) thenbe 阅读全文
摘要：
procedure CloseEDTIME(edt: TEdit);varKeyStates: TKeyboardState;beginGetKeyboardState(KeyStates);if (KeyStates[VK_CAPITAL] = 1) thenbegin SetCapsLockKey(VK_CAPITAL, TRUE); //关大写end;Closeime(edt.Handle);end;procedure OpenEDTIME(edt: TEdit);varKeyStates: TKeyboardState;beginGetKeyboardState(KeyStates); 阅读全文
摘要：
//去除左边的全角function MyTrimLeft(const S: string): string;varci, sl: integer;c: char;beginci := 1; sl := length(S);while (ci <= sl) dobegin c := S[ci]; case c of ' ': inc(ci); #161: if (ci < sl) and (S[ci + 1] = c) then inc(ci, 2); else break; end;end;Result := Copy(S, ci, sl);end;//去除右边的全 阅读全文
摘要：
C++常用排序法研究上一篇 / 下一篇 2008-05-22 13:59:17 查看( 877 ) / 评论( 0 ) / 评分( 0 / 0 ) 首先介绍一个计算时间差的函数，它在<time.h>头文件中定义，于是我们只需这样定义2个变量，再相减就可以计算时间差了。函数开头加上clock_tstart=clock();函数结尾加上clock_tend=clock();于是时间差为：end-start不过这不精确的多次运行时间是不同的和CPU进程有关吧(先总结一下：以下算法以时间和空间以及编码难度，以及实用性方面来看，快速排序法是最优秀的！推荐！~但是希尔排序又是最经典的一个，所以 阅读全文
摘要：
三十分钟掌握STL上一篇 / 下一篇 2008-05-22 14:30:11 查看( 1188 ) / 评论( 0 ) / 评分( 0 / 0 ) STL的一个重要特点是数据结构和算法的分离。尽管这是个简单的概念，但这种分离确实使得STL变得非常通用。例如，由于STL的sort()函数是完全通用的，你可以用它来操作几乎任何数据集合，包括链表，容器和数组。要点STL算法作为模板函数提供。为了和其他组件相区别，在本书中STL算法以后接一对圆括弧的方式表示，例如sort()。STL另一个重要特性是它不是面向对象的。为了具有足够通用性，STL主要依赖于模板而不是封装，继承和虚函数（多态性）——OOP的 阅读全文
摘要：
//Delphiprocedure TForm1.ButtonLevelUpClick(Sender: TObject);var ARecord: TcxCustomGridRecord;begin with TcxCustomGridTableView(Grid.FocusedView) do begin ARecord := Controller.FocusedRecord; if Assigned(ARecord) then begin ARecord := ARecord.ParentRecord; if Assigned(ARecord) then ARecord.Focused : 阅读全文
摘要：
在TdxDBTreeView控件的OnKeyDown事件中写入if Key = VK_F2 thenbegin if DBTreeMain.DBSelected = nil then Exit; DBTreeMain.DBSelected.EditText;end; 阅读全文
摘要：
利用TdxDBTreeView控件(此处设为DBTreeMain)时,可以从表中直接显示出树结构,有时需要拖动对节点进行排序,而且数据表中有字段SortCode用于排序码,此时需要编写对应代码,步骤如下1.先设置DBTreeMain的DragMode属性为dmAutomatic2.设置DBTreeMain的StateIndexField属性为SortCode3.在其OnEndDragTreeNode事件中写入var m: TNodeAttachMode; oldOption: TdxDBTreeViewOptions; node: TdxDBTreeNode; bm: TBookmarkStr 阅读全文