孤独的猫董
孤独的猫董_个人页
孤独的猫董
文章
742
问答
0
视频
0
个人介绍
暂无个人介绍
擅长的技术
-
发表了文章 2008-09-10
用TNMFTP上传文件
注：TFTP为窗体类名 procedure TFTP.Button1Click(Sender:TObject); begin button1.Enabled:=false; NMFTP1.Host:='www.
-
发表了文章 2008-09-10
获取网页快照
unit uWebCracker; interface uses mshtml,SHdocvw,classes,SysUtils,StrUtils; const MAXPAGECOUNT=20; type TWebPageRecord=record URL:string; Titl...
-
发表了文章 2008-09-10
浮雕效果
procedure Effect_Emboss(Picture:TBitmap); var BB1,BB2:TBitmap; begin BB1:=TBitmap.Create; BB1.PixelFormat :=pf24bit; BB1.
-
发表了文章 2008-09-10
CMOS单元
unit CMOS; Interface const ClockSec = $00; { RTclock seconds } ClockMin = $02; { RTclock minutes } ClockHour = $04; { RTclock hours } ...
-
发表了文章 2008-09-10
保存的各函数
unit MySys; interface uses Windows, shlObj, Variants, StdCtrls, ComObj, Classes, SysUtils, Controls, Printers, Messages, mmSystem, ComCtrls, UrlMon...
-
发表了文章 2008-09-10
algebra单元
unit algebra; interface const MaxN=30;{You can increase it up to 100,not greater but each matrix variable would have size of sqr(MaxN)*sizeof(Real).
-
发表了文章 2008-09-10
HugeUtil(大数)支持单元
unit HugeUtil; interface const HugeMax = $8000-16; type Huge = record len : word; dat : array[1.
-
发表了文章 2008-09-10
复数运算单元
UNIT ComplexOps; { see demo at end } {This UNIT provides complex arithmetic and transcendental functions.
-
发表了文章 2008-09-10
插件编写
一 编写DLL 新建一dpr文件 library PDLL; uses Sysutils,classes,main in 'main.pas'; {$E plg.} //定义后缀名为plg exports DescribePlugin, InitPlugin; begin end; main.
-
发表了文章 2008-09-10
类似于Split(VB)的函数
procedure ParseStrToStrings(AStrings:TStrings;S:String;iType:integer;seperator:string); var i:integer; begin if (iType5) then Exit; if iType=4 then begin AStrings.
-
发表了文章 2008-09-10
获得指定后缀名的文件数
function GetFileCount(ThePath,Ext:string):integer; var num:integer; sr:TSearchRec; begin num :=0; if ThePath[length(ThePath)]'\' then ThePath :...
-
发表了文章 2008-09-10
获得指定文件夹下的子目录数
function GetDirCount(ThePath:string):integer function IsValidDir(SearchRec:TSearchRec):Boolean; begin if (SearchRec.
-
发表了文章 2008-09-10
回调函数实例
一 编写回调函数代码 type TCallBackFunction=function(s:string):integer; CallMe(s:string):integer; procedure TestCallBack(CllBackFunction:TCallBackFunction);...
-
发表了文章 2008-09-10
替换TStrings
procedure ReplaceStrToStrings(AStrings:TStrings;sToken,sRep:string); var i,j:integer; begin for i:=0 to AStrings.
-
发表了文章 2008-09-10
删除文件或文件夹
procedure DeleteFiles(Handle:THandle;Source:string); var FO:TShFileOpStruct; begin FillChar(FO,Sizeof(FO),#0); FO.
-
发表了文章 2008-09-10
移动文件
procedure MoveFile(Handle:THandle;Source,Dest:string); var FO:TShFileOpStruct; begin FillChar(FO,Sizeof(FO),#0); FO.
-
发表了文章 2008-09-10
文件切割子程序
//分解文件夹 SDir:源目录名 DDir:目的目录名 SQZ:生成的子目录(前)后缀名 //SExt：文件类型 MNum:每个文件夹的文件数目 B:SQZ为前缀还是后缀名 procedure CutDir(SDir,DDir,SQZ,SExt:string;MNum:inte...
-
发表了文章 2008-09-10
将网页保存为Stream
function SaveHTMLToStream(Astream:TStream):HResult; var IpStream:IpersistStreamInit; begin with WebBrower2 do begin while ReadStateREADYSTATE_COMPLETE do Forms.
-
发表了文章 2008-09-10
调用保存对话框
procedure UseHtmlDialog(htmlName:string); var a,b:OleVariant; c:integer; begin a:=0; b:=0; WebBrowser1.
-
发表了文章 2008-09-10
保存HTML页面源码至文件
首先在uses中加入ActiveX,MSHTML,OleCtrls,SHDocVw,然后编写代码 procedure SaveHTMLSourceToFile(const FileName:string;WB:TWebBrowser); var PersistStream:IPersistSt...
-
发表了文章 2008-09-10
保存网页内容到txt
procedure SaveHtmlContentToTxt(htmlName,txtName:string); var lpf:IPersistFile; begin WebBrowser1.
-
发表了文章 2008-09-10
从网页上下载文件
需添加UrlMon单元 function DownloadFile(Source,Dest:string):boolean; begin try Result :=UrlDownloadFile(nil,pchar(Source),pchar(Dest),0,nil)=0; except ...
-
发表了文章 2008-09-10
灰度图像转换为彩色
procedure GrayToColor(Bmp:TBitmap); var i,j,uG:integer; begin Bmp.PixelFormat:=pf24Bit; for j:=0 to Bmp.
-
发表了文章 2008-09-10
通过网络复制文件
use ShellApi; copyfile(pchar('newfile.txt',pchar('//computername/direction/target.txt'),false);
-
发表了文章 2008-09-10
图像反色
procedure Invert(Image:TImage); var BMP:TBitmap; begin BMP:=TBitmap.Create; try Bmp.Width :=Image1.
-
发表了文章 2008-09-10
选择目录
function SelectDir:string var Info:TBrowseInfo; IDList:PItemIDList; Buffer:pchar; begin result :=''; Buffer:=StrAlloc(MAX_PATH); with Info do begin hwndOwner:=Application.
-
发表了文章 2008-09-10
创建快捷方式
首先添加shlobj单元 procedure CreateLink(ExePath,LinkName:WideString); var tmpObject:IUnknown; tmpSLink:IShellLink; PIDL:PItemIDList; tmpPFile:IPersistFile; StartupDirectory:array[0.
-
发表了文章 2008-09-10
关闭计算机
procedure CloseWindow(Flag:integer); var hToken:Thandle; tkp,tkDumb:TTokenPrivileges; DoubInt:dword; begin if Win32PlatForm=VER_PLATFORM_WIN32_N...
-
发表了文章 2008-09-10
远程注入DLL的例子
摘自盒子http://www.2ccc.com 有任何疑问请到 http://yaoqiaofeng.blog.163.com 留言给我，由于本程序是以BDS2006编译的，所以BDS2006以前的版本打开时会提示属性错误，但没有关系，直接点击忽略即可，不会影响程序 function Enab...
-
发表了文章 2008-09-10
Test Audio
首先下载audio-player插件，并解压到wordpress根目录下的wp-content\plugins下，并启用此插件，并在根目录下创建audio子目录，撰写如下文章即可在博客中听音乐了：音乐 [audio:1.mp3,2.mp3,3.mp3]
-
发表了文章 2008-09-10
Wordpress安装
Wordpress是一种用PHP语言和MySQL的数据库的开源的免费Blog引擎，用户可以在支持PHP和MySQL数据库的服务器上建立自己的Blog,它具有非常强大的功能和成千上万的插件和模板主题。安装步骤如下(本文以Wordpress2.
-
发表了文章 2008-09-10
Wordpress的主题与插件的使用
下载主题(Theme) wordpress的主题是由一系列的模板文件组成，通常包括一个CSS样式文件，至少一个PHP代码，可能还有一些图片文件。 更换主题时，只需将下载的文件解压到wordpress安装目录下的wp-content/themes/目录内，即可在管理后台看到新上传的主题，会有一张缩略图，只需单击这张缩列图就可以激活这个主题 插件使用(Plugin) 同主题一样,插件也只需解压到安装目录的wp-content/plugins/下，即可在后台管理页面的插件管理中看到，然后激活就可以使用下载插件了。
-
发表了文章 2008-09-10
WordPress数据备份方案
WordPress数据备份方案 从 2008年8月26日 开始被阅读 189 次 在使用WordPress的过程中，总会当心自己的数据也许什么时候会丢失，这里也许可能是虚拟主机提供商的问题，也可能自己误操作的问题，也可能自己管理的服务器出现的问题。
-
发表了文章 2008-09-10
SQL Server的patindex和charindex的用法
charindex函数返回字符或字符串在另一个字符串中的起始位置。charindex函数调用方法如下： charindex ( expression1 , expression2 [ , start_location ] ) expression1是要到expression2中寻找的字符中，start_location是charindex函数开始在expression2中找expression1的位置。
-
发表了文章 2008-09-10
Access与SQL Server对应的函数
Access对应SQL Server的SubString函数为mid Access对应SQL Server的patindex函数为instr
-
发表了文章 2008-09-10
请求Google的服务
# Sample code from Programing Ruby, page 239require 'soap/wsdlDriver'以下通过对Google的服务请求，使用Google的一个服务,并使用了WSDL（Web Services Description Language）来完成.
-
发表了文章 2008-09-10
SOAP及Web Services
我们可以通过SOAP服务器来访问预先定义好的对象，通过soap/rpc/driver就可做到，这也可以看作是同其他语言交互的一种很好的方式，服务器端存为server.rb require 'soap/rpc/standaloneServer'class InterestCalculator att...
-
发表了文章 2008-09-10
六种调用shell命令的方法
(1) Execute方法 $irb >> exec 'echo "hello $HOMENAME"' (2) System方法 >>system 'echo "hello $HOMENAME"' (3) 反引号 >> today= `date` (4) open3#popen3 >>stdin,stdout,stderr=open3.
-
发表了文章 2008-09-10
交互式Shell
irb是从命令行运行的交互式shell 在命令行中输入irb后回车，进入交互式ruby模式 (1) 可以用load载入rb文件执行，如以下文件 code/fib_up_to.rb def fib_up_to(max) i1,i2=1,1 while i1load 'code/fib_up_to.
-
发表了文章 2008-09-10
typo(ruby的开源blog)系统的安装
1.要求安装ruby1.8.3以上，并且需要安装rails，版本也要匹配好，否则会出错。(下文用typo4.1和rails1.2.3安装成功) 2.下载并安装typo,gem install typo -v"=4.
-
发表了文章 2008-09-10
Tk库的使用(2)
# Sample code from Programing Ruby, page 250require 'tk'class GifViewer def initialize(filelist) setup_viewer(filelist) end def run Tk.
-
发表了文章 2008-09-10
Tk库的使用(1)
# # To change this template, choose Tools | Templates# and open the template in the editor. # Sample code from Programing Ruby, page 248require 'tk'cl...
暂无更多信息
-
发表了文章
2018-03-12
使用迅雷下载API进行快速下载
-
发表了文章
2018-03-02
利用makefile文件编译c++源文件
-
发表了文章
2016-04-10
实现抓图的工具2
-
发表了文章
2016-04-10
实现抓图的工具
-
发表了文章
2016-03-11
关于胖客户端
-
发表了文章
2016-03-11
实时进销存
-
发表了文章
2014-10-24
DataGridView隔行显示不同的颜色
-
发表了文章
2014-10-24
C#数据库绑定
-
发表了文章
2014-10-14
VS2012中数据库架构的比较
-
发表了文章
2014-08-16
delphi使用outputdebugstring调试程序和写系统日志
-
发表了文章
2013-09-17
drupal7安装中文错误
-
发表了文章
2013-09-17
Drupal7_2:安装drupal
-
发表了文章
2013-09-13
TStringList中AddObject使用
-
发表了文章
2013-05-01
QTP测试的数据驱动
-
发表了文章
2013-04-29
透析QTP自动化测试框架SAFFRON
-
发表了文章
2013-04-29
QTP测试示例程序
-
发表了文章
2013-04-29
QTP测试Windows计算器
-
发表了文章
2013-04-28
Sikuli进行IP地址及掩码的设置
-
发表了文章
2013-04-27
AutoIt自动化编程(4)
-
发表了文章
2013-04-27
AutoIt自动化编程(3)
滑动查看更多
暂无更多信息
暂无更多信息