《163滚动新闻采集器》

偶做了一个新闻采集的小程序,可以导出RSS文件,配合SA的导入功能,可以一下子导入采集的新闻,目前已经做好163滚动新闻,国际新闻,国内新闻,娱乐新闻,crsky软件,Cnbeta新闻进行自动采集。今天首次发布163滚动新闻采集器。

163nesw.jpg

本软件为绿色免费软件,解压后即可以使用!版权所有,盗版不究!

开发平台:
Delphi7 + WindowsXP SP2

测试平台:
WindowsXP SP2 / Windows2000 Server / Windows 2003
(其它平台未测试,只要是Windows系统应该都兼容的)

功能简介:
自动采集新闻标题,网站URL地址,新闻详细内容,新闻description部分自动过滤HTML代码,自动采集完整的新闻详细内容。
定时采集,自动过滤重复的新闻,导出RSS XML文件,
日志管理,数据支持ACC数据库和MSSQL数据库(也可以用于其它网站的导入功能)

使用说明:
点击采集新闻,软件是单线程进行采集(不会用多线程,呵呵,不要丢砖谢谢),等待采集完成以后,导出文件即可,输出的文件是XML文件,可直接导入到Sablog博客中,(注意:如果你的博客是UTF-8编码格式的话,请用转换工具如EditPlus打开导出的XML文件,另存为UTF-8格式即可),另外当新闻导出后,数据库会自动记录新闻为“已导出”状态,如果点“全部初始化”,会将数据库中所有已经采集的新闻置为“未导出”状态,可以再次导出所有新闻。

为配合Sablog导入,偶简单修改过Admin\database.php 请大家下载后,先备份原文件,再覆盖database.php 文件即可。

如果是导入到其它系统的话,请使用data\data.mdb文件导入即可,net163_news 为新闻表,net163_log 为日志表

备注:
诚接以下业务:机器人、软件破解、数据库管理系统、网站建设、域名服务
联系QQ:点击这里给我发消息    E-mail:


163scrollnews.rar

database.rar

Posted in Web开发 at September 17, 2007. by 傻猫 .    Views: 9841    20 Comments

《ADSL自动拨号程序》源代码

今天给一个朋友搞了一个《ADSL自动拨号程序》的程序。

主要功能:自动换IP地址,自动获取本地ADSL连接,定时自动拨号,自动缩小到状态栏,拨号日志记录,IP地址记录

可以用来刷IP地址用,刷网站等等。呵呵,功能很少,但是很实用!现在发布出来给大家用用,并提供源码下载,代码有点乱,老鸟就可以略过了,仅供学习交流使用,欢迎大家提出建议!

开发平台:Delphi7 + WindowsXp xp2

使用控件:Dial拨号控件,cnPack Tray

程序下载dialup.rar

源代码下载dialup(src).rar

控件下载:dialup.rar


autodial.jpg

Posted in Web开发 at September 15, 2007. by 傻猫 .    Views: 10173    3 Comments

网页特效工具《网页助手(Webhelp) 5.2》

这是偶4年前的作品,今天翻出来晒一下,当作怀念当初的激情。

4年前我还在学校读书,那个时候喜欢捣鼓网页,经常加个特效以展技术,网络上有很多网页特效工具,但是大多都是要收费,上学时也没多少钱钱,所以就萌出自己搞一个特效工具小软件想法,于是乎从其它软件上收集了几百个网页特效代码,自己组装了这个软件,后来发布到网上供其它朋友下载,下载量还不错,由于是免费软件,还比较受欢迎哈

本软件荣登《电脑迷》2004年4月刊精品软件榜。。
这个小工具还有一段网恋故事(下次写出来跟大家分享一下)。

名称:网页助手(Webhelp)
语言:简体中文
性质:免费软件
版本:V5.2
支持平台:98/ME/2000/XP/2003
开发环境:Delphi7.0/XP-sp1
-----------------------------------------------------------------------

功能简介:

你在做网页嘛,如果是的话,这是你不可多得的超Cool工具.
这是可以自动生成网页特效的软件,包括近800个经典特效,每个特效都可以有您进行参数设置,100%傻瓜性。收集了包括时间特效,文字特效,图像处理,鼠标特,页面特效,菜单特效,在线游戏,其它特效在内的八类上百个精彩特效。这些特效都是使用率比较高的JavaScript代码,您可以直接使用。软件内置浏览器,您可以随时预览特效效果;特效制作好之后,您可以把它复制到剪贴板,或者保存到文件中;软件的界面美观新颖,操作简单明了,极易上手。

轻轻点几下鼠标,又炫又酷的网页任你选!

其中有关图片的特效,请使用者自行修改!

-----------------------------------------------------------------------
傻猫软件 Copyright (C) 2003 雁去无声

天空下载:http://www.skycn.com/soft/15850.html

华军下载:http://www.onlinedown.net/soft/19263.htm

Posted in Web开发 at September 6, 2007. by 傻猫 .    Views: 2290    No Comments

仿acdSee文件及图片浏览控件

使用前,请先注册一下SamoolImageListViewProj1.ocx

注册方法1: 用目录下fRegister.exe 打开SamoolImageListViewProj1.ocx来注册

注册方法1: 在Windows命令行下运行:regsvr32  SamoolImageListViewProj1.ocx 注册

----------------------------------------------------------------------------

能够快速生成缩略图,支持缩略图缓存,支持多种图片格式,支持接口参数,可获取选中文件的完整文件名,可设置缩略图是否显示像素比例及文件大小,可直接导入开发工具使用,也可用于Web浏览图片及图片上传, 另附上各种开发工具demo.


控件类名:SamoolImageListView
----------------------------------------------------------------------------

提供方法:
    procedure SelectAllFile; safecall;    //选择所有文件

    procedure AntiSelectFile; safecall;   //反向选择文件

    procedure GetFiles(out sfs: OleVariant); safecall;   
    {得到选择文件的路径及名称格式如1|c:\1.jpg ,多个文件2|c:\1.jpg|c:\2.jpg}

    procedure SetThumbsDetails(details: WordBool); safecall; 
    {设置缩略图是否显示像素及文件大小,1表示显示,0表示不显示}

    procedure SetThumbsViewStyle(myStyle: SYSINT); safecall;
    {设置显示方式: 0-缩略图   1-平铺   2-图标   3-列表   4-详细信息}

    procedure SetImgCachPath(CachPath: OleVariant); safecall;
    {设置缩略图缓存保存路径}

    procedure GetCurrentPath(out cPath: OleVariant); safecall;
    {得到当前列表目录的路径}

    procedure SetCurrentPath(sPath: OleVariant); safecall;
    {设置列表目录的路径}

 


软件截图.jpg

网页截图.jpg

ocx.rar

delphi7 demo.rar

c++builder6 demo.rar

vs 2003 c#版demo.rar

Posted in Web开发 at June 3, 2007. by 傻猫 .    Views: 6979    7 Comments

Delphi翻转图控件

本控件实现翻转图效果,共有三个图像:默认图像,活动图像,移开图像。

代码源于大富翁论坛,由于在设计器图像活动,会将默认图像与活动图像设为一样,所以我增加了一个属性isActiveNow ,设计期将此属性设为False ,在Form.create 中将该属性设为True 就OK了。

//========================================================

unit IMageMouse;

interface

uses
 SysUtils, Classes, Controls, ExtCtrls,Graphics,Windows,Messages;

type
 TIMageMouse = class(TImage)
 private
   { Private declarations }

   FInPicture:TPicture;
   FOutPicture:TPicture;
   FisActiveNow:Boolean;

   procedure SetInPicture(const value:TPicture);
   procedure SetOutPicture(const value:TPicture);
   procedure SetisActiveNow(Value: Boolean);
   procedure MouseEnter(var mess:TMessage);message CM_MOUSEENTER;
   procedure MouseLeave(var mess:TMessage);message CM_MOUSELEAVE;
 protected
   { Protected declarations }
   procedure DOPaint(var Mess:TWMPaint);message WM_PAINT;
 public
   { Public declarations }
    isMouseHere:Boolean;
   constructor Create(AOwner:TComponent);override;
   destructor Destroy();override;
 published
   { Published declarations }
   property InPicture:TPicture read FInPicture write SetInPicture;
   property OutPicture:TPicture read FOutPicture write SetOutPicture;
   property isActiveNow:boolean read FisActiveNow write FisActiveNow;
  
 end;

procedure Register;

implementation

 

{ TIMageMouse }

constructor TIMageMouse.Create(AOwner: TComponent);
begin
 inherited;
 FInPicture :=TPicture.Create;
 FOutPicture :=TPicture.Create;
 FisActiveNow :=false;
end;

destructor TIMageMouse.Destroy;
begin
 FInPicture.Free;
 FOutPicture.Free;
 FInPicture :=nil;
 FOutPicture :=nil;
 inherited;
end;

procedure TIMageMouse.DOPaint(var Mess: TWMPaint);
begin
 inherited;
end;

procedure TIMageMouse.MouseEnter(var mess: TMessage);
begin
 isMouseHere :=True;
 if (finpicture<>nil) and FisActiveNow then
 begin
    picture.Assign(finpicture);
    Repaint();
 end;
end;

procedure TIMageMouse.MouseLeave(var mess: TMessage);
begin
  isMouseHere :=False;
  if (foutpicture<>nil) and FisActiveNow then
  begin
     picture.Assign(foutpicture);
     Repaint();
  end;
end;

procedure TIMageMouse.SetisActiveNow(value: Boolean);
begin
  FisActiveNow:=Value;
end;

procedure TIMageMouse.SetInPicture(const value: TPicture);
begin
 FInPicture.Assign(value);
end;

procedure TIMageMouse.SetOutPicture(const value: TPicture);
begin
FOutPicture.Assign(value);
end;

procedure Register;
begin
 RegisterComponents('Samples', [TIMageMouse]);
end;

end.


imagemouse.pas

Posted in Web开发 at February 8, 2007. by 傻猫 .    Views: 3367    No Comments

BMP格式图片转JPG格式

//BMP格式图片转JPG格式
procedure BMPToJPG(BmpFileName:string);
var
  Jpeg : TJPEGImage;
  Bmp : TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.LoadFromFile(BmpFileName);
    Jpeg := TJPEGImage.Create;
    try
      Jpeg.Assign(Bmp);
      Jpeg.Compress;
      //保存图片
      Jpeg.SaveToFile(Form4.SavePictureDialog1.FileName);
    finally
      Jpeg.Free;
    end;
  finally
     Bmp.Free;
  end;
end;

Posted in Web开发 at May 12, 2006. by 傻猫 .    Views: 4650    2 Comments

写了两个小工具

最近学了不少程序方面的技巧,包括数据库三层结构的搭建,以前全是写的C/S两层模式的程序,了解三层结构后,确实要高级得多。

将所有事件全封装在中间件上,客户端通过中间件访问数据库,从安全方面,从效率和速度上都有很大的优势。

另外显示数据的容器用StringGrid而不用DBGrid也是一大优势,前者功能强大,后者就要弱很多,技巧性。灵活性方面,DBgrid的劣势就显露出来了。

最近写了一个动态菜单,通过数据库信息来动态生成菜单。

另外写了一个数据库日志清理工具,随着使用SQL的时间越来越长,数据表的系统日志就会越来越大,这个工具就可以清理LOG文件。


menu.jpg

log.jpg

Posted in Web开发 at April 28, 2006. by 傻猫 .    Views: 5100    4 Comments