陈宝刚---享受生活,追逐梦想!
理想是心中的火焰,有追求的人才是幸福的人!
posts - 507,comments - 56,views - 37万
08 2009 档案
获取当前打印机的名称、驱动程序、打印端口信息
摘要：以下是来自Borland公司的完整例子。请注意其中两条判断语句，这说明有时候仅仅凭getprinters并不能保证信息的正确，还需要WIN.INI的帮助。uses printers;{$IFNDEF WIN32}const MAX_PATH = 144;{ENDIF}procedure TForm1.Button1Click(Sender : TObject);var pDevice : pCha... 阅读全文
posted @ 2009-08-29 21:39 追梦人RUBY 阅读(905) 评论(0) 推荐(0) 编辑
Delphi获取默认打印机名称及端口
摘要：在前段时间写的收银系统中由于目前市场上很多电脑主板上已经没有并口，而POS机却又需要并口，所以目前需要用PCI转接卡，这个就导致不同门店使用的端口就有可能不同，这就给我们程序中弹出钱箱的指令带来一定的难度。所以就通过获取Window自带的默认，得出打印机信息。在Windows文件下有个win.ini，里面自带默认打印机的信息。通过调用API函数Getprofilestring这个函数获取打印机信息... 阅读全文
posted @ 2009-08-29 21:33 追梦人RUBY 阅读(706) 评论(0) 推荐(0) 编辑
delphi 打印小票
摘要：procedure TForm1.Button1Click(Sender: TObject);var F:TextFile;beginAssignfile(f,'LPT1');rewrite(f);Write(f,chr(27)+'@'); //Chr(27)+'@' 即ESC @ 指令 WRITELN(F,'TEST1 FIRST LINE'); WRITELN(F,chr(12)); // m... 阅读全文
posted @ 2009-08-29 21:08 追梦人RUBY 阅读(625) 评论(0) 推荐(0) 编辑
TQuery组件的Open方法与ExecSQL的区别
摘要：应用程序运行过程中，通过程序调用TQuery组件的Open方法或ExecSQL方法可以执行其SQL属性中的程序。Open方法和ExecSQL方法是不一样的。 Open方法只能用来执行SQL语言的查询语句（Select命令），并返回一个查询结果集。ExecSQL方法用来执行其他常用的SQL语句（如Insert、Update、Delete等命令），不返回结果集。程序设计时如果无法确定TQuery组件中... 阅读全文
posted @ 2009-08-29 20:09 追梦人RUBY 阅读(352) 评论(0) 推荐(0) 编辑
Delphi三层数据库开发应用
摘要：服务器端程序实际上是个COM 工程，它本身连接数据源，再通过接口与 客户端联系，这个COM 工程必须注册在服务器上。 首先建立一个空白的工程。 file -> New -> Other -> Multitier -> Remote Data Module(远程数据模块) 对话框： Coclass Name : COM程序的名称，前台依据这个名字查找COM程序 （P... 阅读全文
posted @ 2009-08-29 18:56 追梦人RUBY 阅读(520) 评论(0) 推荐(0) 编辑
保护IIS服务器的15个技巧
摘要：通常地，大多数Web站点的设计目标都是：以最易接受的方式，为访问者提供即时的信息访问。在过去的几年中，越来越多的黑客、病毒和蠕虫带来的安全问题严重影响了网站的可访问性，尽管Apache服务器也常常是攻击者的目标，然而微软的Internet信息服务(IIS) Web服务器才是真正意义上的众矢之的。 　　高级教育机构往往无法在构建充满活力、界面友好的网站还是构建高安全性的网站之间找到平衡点。另外，它们... 阅读全文
posted @ 2009-08-28 18:06 追梦人RUBY 阅读(123) 评论(0) 推荐(0) 编辑
服务器的安全配置技巧总结
摘要：昨天的服务器被黑的事件中，我自己也是有一些责任，因为平时懒得对服务器安全进行设置，有些设置其实几分钟就可以设置完成，可就是懒惰，结果万一服务器被恶意破坏，就需要花费更多的时间恢复数据，因此服务器安全设置早期打好基础，危难时期就会减少很多无谓的损失。　　下面我就结合自己的经验和教训总结一下服务器安全设置的一些技巧和方法。　　一、操作系统的安装　　我这里说的操作系统以Windows 2000为例，高版... 阅读全文
posted @ 2009-08-28 17:41 追梦人RUBY 阅读(167) 评论(0) 推荐(0) 编辑
ISAPI精彩编程
摘要：以前想做一点ISAPI方面的程序，上网找了很长时间一直没有写得全一些的，书店里的书里写的又不是很深，于是经过两个月的摸索，总算做了一些东西。很长一段时间以来，总想写一写ISAPI方面的文章，可是一直没有时间，今稍有空，遂把最近所学写下，以归所愿。略作构思，欲写以下几点：1， ISAPI简介2， 一个简单的ISAPI程序3， ISAPI实现 客户/服务器 交互4， ISAPI操作数据库5， 利用IS... 阅读全文
posted @ 2009-08-24 18:42 追梦人RUBY 阅读(340) 评论(0) 推荐(0) 编辑
教你如何防止网站挂马和黑客入侵
摘要：今天我谈谈虚拟空间用户如何防范网站被黑客入侵和挂马，目前基本很多虚拟主机和服务器提供商都有防盗链插件首先：要在你的网站全部上传到空间或者服务器正常运行不需要修改网站原始源代码的情况下才在进行设置！如果是虚拟机用户请登录你的主机管理控制面板--主机管理---选择你需要管理的主机进行管理如图：此主题相关图片如下：1.png此主题相关图片如下：2.jpg此主题相关图片如下：3.png找到：”... 阅读全文
posted @ 2009-08-24 18:15 追梦人RUBY 阅读(921) 评论(0) 推荐(0) 编辑
网站漏洞扫描工具[黑客——别黑自己国家的网站！！！]
摘要：Shadow Security Scanner v 网络入侵机_V2.0 波尔远程控制V6.32 VIP破解版 superscan4.0扫描器 HttpsMimTools nohackasp木马生成器 拿站和思路 Oracle_专用注射器 远程控制软件ntshell v1.0(开源 挖掘鸡4.02 Willcome急速批量抓鸡全能 PcShare远程控制软件 多功能S扫描器 php168漏洞利用工... 阅读全文
posted @ 2009-08-24 18:08 追梦人RUBY 阅读(24316) 评论(2) 推荐(3) 编辑
教你防止网页木马
摘要：教你防止网页木马 网络上面危险多多，很多网页上面都被放置木马，且不说是网站站长所为，更是有很多耗子在行卑劣的行径。　　教大家防木马的办法，只针对网页木马，有效率90%以上。可以防止90%以上木马在你的机器上被执行，甚至杀毒软件发现不了的木马都可以禁止执行，先说一下原理。　　现在网页木马无非有以下几种方式中到你的机器里：　　1、把木马文件改成BMP文件，然后配合你机器里的DEBUG来还原成EXE，网... 阅读全文
posted @ 2009-08-23 13:00 追梦人RUBY 阅读(436) 评论(0) 推荐(0) 编辑
delphi时间查询
摘要：下面列举三种查询方法 1.parameter不需要# procedure TForm1.Button2Click(Sender: TObject); begin with adoquery1 do begin Close; sql.clear; sql.add('select * from ddd where end_date<=:e_date'); Parameters.... 阅读全文
posted @ 2009-08-21 18:59 追梦人RUBY 阅读(285) 评论(0) 推荐(0) 编辑
delphi查询日期数据
摘要：1在窗体显示的时候定义时间控件显示状态DateTimePicker1.Date:=Date-30;DateTimePicker2.Date:=Date2.查询营业额query1.close;query1.sql.clear;query1.sql.add('select*from月结算费用表 where 日期>:A and 日期<=:B');query1.sql.add('order b... 阅读全文
posted @ 2009-08-21 18:48 追梦人RUBY 阅读(490) 评论(0) 推荐(0) 编辑
Delphi VCLSkin 界面美化
摘要：下载首先下载,VCLSkin文件,可以到Delphi园地 http://www.delphifans.com/Delphi盒子 http://www.2ccc.com/安装*最好安装前把文件放到Lib文件夹下:1.把下载的文件解压后放到Delphi目录的Lib文件夹下2.启动Delphi>Open找到刚才放的*.dpk和*.pas选中3.点Install,Compile,Delphi最右边会... 阅读全文
posted @ 2009-08-10 21:34 追梦人RUBY 阅读(5692) 评论(0) 推荐(0) 编辑
delphi FormatDateTime
摘要：function FormatDateTime(const Format: string; DateTime: TDateTime): string; Format参数是一个格式化字符串。DateTime是时间类型。返回值是一种格式化后的字符串，重点来看Format参数中的指令字符：c以短时间格式显示时间，即全部是数字的表示FormatdateTime('c',now);输出为：2004-8-7 ... 阅读全文
posted @ 2009-08-10 20:32 追梦人RUBY 阅读(618) 评论(0) 推荐(0) 编辑
delphi日期函数
摘要：Day 开头的函数●UnitDateUtilsfunction DateOf(const AValue: TDateTime): TDateTime;描述使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个只带有日期的 TDateTime 类型变量。例如：showmessage(DateTimetostr(dateof(now())));你得到的是 2003/0... 阅读全文
posted @ 2009-08-10 16:46 追梦人RUBY 阅读(276) 评论(0) 推荐(0) 编辑
Delphi中的ADOquery 用法
摘要：都知道Delphi在数据库操作是非常好用的,delphi把ADO一些方法属性都集成了,以下是我的一些总结:***************************************通过sql的存储过程来实现:添加 With ADOQuery1 do begin Close; SQL.Clear; SQL.Add(' Insert Into Table1(Field1,Field2)') SQL... 阅读全文
posted @ 2009-08-10 16:40 追梦人RUBY 阅读(1036) 评论(0) 推荐(0) 编辑
DELPIH读取ini文件
摘要：filecreate('路径加文件名')；//创建一个文件。 读写ini文件： 先在 uses 定义 Inifiles, 在 var 定义 myinifile：Tinifile； 实现部分写代码： myinifile：=Tinifile.create('d:\1.ini');//打开D盘的 1.ini 文件。 myinifile.readstring('小节名','关键字','缺省值')；//读取... 阅读全文
posted @ 2009-08-10 09:20 追梦人RUBY 阅读(245) 评论(0) 推荐(0) 编辑
C#中使用TimeSpan计算两个时间的差值
摘要：可以反加两个日期之间任何一个时间单位。private string DateDiff(DateTime DateTime1, DateTime DateTime2){string dateDiff = null; TimeSpan ts1 = new TimeSpan(DateTime1.Ticks);TimeSpan ts2 = new TimeSpan(DateTime2.Ticks);Tim... 阅读全文
posted @ 2009-08-05 21:35 追梦人RUBY 阅读(257) 评论(0) 推荐(0) 编辑

< 2025年3月 >
日 一 二 三 四 五 六
23 24 25 26 27 28 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31 1 2 3 4 5

Copyright © 2025 追梦人RUBY
Powered by .NET 9.0 on Kubernetes Powered By博客园
点击右上角即可分享
微信分享提示