摘要： Delphi7控件FastReport的安装方法博客分类：Delphi系统环境: Windows XP 标装版 Delphi7 控件版本: FastReport 4.3安装前请册除原有的FR控件。1、 "Tools|Environmet options..."中的"Library"标签面下"Library path"添加FastReport路径。 FastReport 4.3\FastQB FastReport 4.3\FastScript FastReport 4.3\Source FastReport 4.3\Source\BDE 阅读全文

摘要： uses jpegprocedure TForm1.Button1Click(Sender: TObject);var myjpeg:tjpegImage; myBmp:Tbitmap;beginmyBmp:=tbitmap.Create;myBmp.LoadFromFile('C:\Documents and Settings\111\桌面\练习\1.bmp');myjpeg:=tjpegimage.Create;myjpeg.Assign(mybmp);myjpeg.CompressionQuality:=20;//转化的压缩率，越大效果越好myjpeg.Compress; 阅读全文

摘要： 通过设置注册表来实现，设置完毕立即生效，不用重新启动 IE 浏览器。 参数说明： Proxy：代理服务器 IP 地址； Port：端口号； ByPass：对所有的协议均使用相同的代理服务器； bEnabled：是否使用代理服务器（代理服务器是否生效） 函数代码： // uses Wininet, registry; function ChangeProxy(const Proxy, Port,ByPass: string; const bEnabled: boolean = True): boolean; var reg: Tregistry; info: INTERNET_PROXY_INF 阅读全文

摘要： 2. Drupal 安装在安装Drupal前，你需要在服务器上先搭建一个PHP+MySQL环境。专业网站一般是安装LAMP(Linux+Apache+MySQL+PHP)。环境的搭建可参考如下文章： Windows下php服务器配置过程:http://www.loosky.net/?q=node/25 Linux下Lamp服务器的配置:http://www.loosky.net/?q=node/337简单的安装步骤：目前的版本的安装过程已经是非常简化了，跟其他大多数系统的安装差不多，运行网址/install.php按步骤操作即可。但是只有英文操作界面，中语言包只有等安装完成后进入管理才能导入。 阅读全文

摘要： 准备 drupal 、wampServer卸载掉 已安装的mysql 、将已启用的IIS暂停，占用了80端口。下面引出正文PHP服务器架设软件，就是wampserver，这款软件在安装的过程中就已经把Apache、MySQL、PHP继承好了，而且也做好了相应的 配置，除此之外，还加上了SQLitemanager和Phpmyadmin，省去了很多复杂的配置过程，让我们能把更多的时间放在程序开发上。更值得高 兴地是这款软件也是完全免费的，大家可以登录http://www.wampserver.com/en/download.php下载，完全免费O(∩_∩)O~好了，闲话休停，下面我没来了解一下这个 阅读全文

摘要： asm int 3 end;//trap! 阅读全文

摘要： TVirtualProperty = class private FSomeData:string; protected function GetSomeData:string;virtual; procedure SetSomeData(const value:string);virtual; public property SomeData:string read GetSomeData write SetSomeData; end; TSubClass = class(TVirtualProperty) protected function GetSomeData:string;over 阅读全文

摘要： type studentRecord = record xh,xm:string[6]; yw,sx,wy:integer; end;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var t:studentrecord; f: file of studentrecord;begin assignfile(f,'c:\temp\文件.dat'); //文件变量与外部文件建立联系 if fileexists('c:\temp\文件.dat') then reset(f) // 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);//模拟在edit1中按下字幕a键begin PostMessage(Edit1.handle,wm_keydown,65,0);end;看完后，觉得这个模拟键挺不错的，结合可以完成一些自动的批量运算。procedure TForm1.Button2Click(Sender: TObject);begin edit1.SetFocus; edit1.Text:='hahah'; postmessage(self.activecontrol.Handle,wm_char,vk_retur 阅读全文