星星

摘要： 取得网页的源码内容的函数以及调用方法供大家参考:program geturl;useswininet,windows;//取网页内容function StrPas(const Str: PChar): string;beginResult := Str;end;function GetWebPage(const Url: string):string;varSession,HttpFile:HINTERNET;szSizeBuffer:Pointer;dwLengthSizeBuffer:DWord;dwReserved:DWord;dwFileSize:DWord;dwBytesRead:D 阅读全文

摘要： if语句-------------------------------------------------------------------------------------------------------------------------------------------------其实delphi中的IF语句和VB中的语句有点相像，都是IF .... THEN...不过DELPHI中的不同点就是语句的前后需要加个BEGIN,END.这个就相当于JAVA中的{}吧，呵呵。下边写几个IF语句的例子"：1、IF.. THENif 1=1 thenbegin//这里写执行语句 阅读全文

摘要： var Form1: TForm1;constversionthis:double=2.24;implementation{$R *.dfm}uses shellapi;procedure TForm1.Button1Click(Sender: TObject);varversion:string;beginend;procedure TForm1.FormCreate(Sender: TObject);varversion,s:string;p:integer;ver:double;begins:=idhttp1.Get('http://blog.sina.com.cn/s/blog 阅读全文

摘要： 一、IDHTTP的基本用法IDHttp和WebBrowser一样，都可以实现抓取远端网页的功能，但是http方式更快、更节约资源，缺点是需要手动维护cook，连接等IDHttp的创建，需要引入IDHttpprocedure InitHttp();begin http := TIdHTTP.Create(nil); http.ReadTimeout := 30000; http.OnRedirect := OnRedirect; http.Request.Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pj... 阅读全文

摘要： 不在界面上用控件动态创建idhttp,IdAntiFreeze来用var IdHTTP: Tidhttp; IdAntiFreeze: TidAntiFreeze;begin IdAntiFreeze:=TIdAntiFreeze.Create(nil); IdAntiFreeze.OnlyWhenIdle:=False; IdHTTP:=Tidhttp.Create(nil); try StrHtml:=IdHTTP.Get(PChar('http://www.vdj8.com/')); finally IdHTTP.Disconnect; IdHTTP... 阅读全文

摘要： // 此代码放到js文件中，或者用js方式调用。(放的时候，这些中文可以去掉。)var randads = { ad_num : 2, init : function(){ n = (Math.floor(Math.random()*randads.ad_num+1)); switch(n){case 1:document.writeln('');break;case 2:document.writeln('');break; } }}randads.init(); 阅读全文

摘要： 在清理系统的时候，无意中将EmEditor的鼠标右键功能给清理掉了，在EmEditor的配置中又没有找到如何加入到鼠标右键菜单的方法，只好使用导入注册表功能了，以下的代码，拷贝到记事本中，保存为EmEditor.reg文件，双击导入到注册表就可以了。在清理系统的时候，无意中将EmEditor的鼠标右键功能给清理掉了，在EmEditor的配置中又没有找到如何加入到鼠标右键菜单的方法，只好使用导入注册表功能了，以下的代码，拷贝到记事本中，保存为EmEditor.reg文件，双击导入到注册表就可以了。Windows Registry Editor Version 5.00[HKEY_CLASSES_ 阅读全文

摘要： 签收日志山西省阳泉 李先生货已经发出 请您注意查收！广西省贵阳 王先生货已经发出 请您注意查收！浙江省温州 张先生货已经发出 请您注意查收！河北省邢台 杨先生货已经发出 请您注意查收！福建省厦门 夏女士货已经发出 请您注意查收！广西省兴安 赵先生货已经发出 请您注意查收！广西省兴安 周女士货已经发出 请您注意查收！天津市北辰 李先生货已经发出 请您注意查收！山西省太原 范先生货已经发出 请您注意查收！海南省三亚 刘先生货已经发出 请您注意查收！海南省海口 赵先生货已经发出 请您注意查收！北京市东城 尼先生货已经发出 请您注意查收！山西省大同 范先生货已经发出 请您注意查收！新疆和田市 赵先生货 阅读全文

摘要： 由于美国服务器大部分都配备了较多的IP，或者有时后续购买了大量IP需要添加到服务器，一条条添加可能有点疯狂，所以，主机中国特收集并整理以下windows环境下批量增添IP的方法供大家借鉴使用。方法1：在DOS窗口下用命令加文件的方式批量添加IP的办法。首先打开DOS窗口，开始 – 运行 - 输入cmd - 回车，输入netsh -c int ip dump >c:\ip.txt 回车这样您将会在C盘根目录看到一个ip.txt的文件，里面包含着您当前网卡的设置信息。为了能更直观的看清楚IP的设置信息，建议在执行上面的命令之前，先添加2-3个IP。然后编辑这个文件，把您想加的IP，根据相同的 阅读全文

摘要： 客户的网站是MYSQL的要转成我们的系统到MSSQL。发现data字段使用unix时间戳保存的。第一次见到。后来查了下有以下转换方式。?//ms sql datetime 转unix时间戳 SELECTDATEDIFF(s, '19700101',GETDATE()) //ms sql unix时间戳 转datetime 涉及到时区问题 SELECTDATEADD(hh,8, DATEADD(s, 1309746570 , '19700101') )MSSQL取得UnixTime時間戳記找了半天好像沒有內建日期函數可以直接取得UnixTime於是乎只好用別的方法 阅读全文