ftwsnow - 博客园

2013年5月7日

摘要： uses WinInet;procedure TForm1.Button1Click(Sender: TObject);begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接');end;function NetWorkIsConnect: Boolean; var ConTypes : Integer; begin Result := false; ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CON 阅读全文

posted @ 2013-05-07 13:39 ftwsnow 阅读(364) 评论(0) 推荐(0)

2013年5月2日

TPrinter控制打印机

摘要： TPrinter 类是Delphi 对Windows 打印处理系统的封装，它能够帮助程序员在开发打印程序时尽可能地减少工作量。在程序中使用TPrinter，只要在单元的Use 子句后面添加Printers 即可。当前打印机的DevMode 结构的句柄可以通过调用Tprinter 类中的GetPrinter 方法来获取。当程序获得DevMode 结构的句柄后，就调用GlobalLock 函数来得到指向该结构的指针，随后可对结构中的某些成员进行修改。下面就举一个例子来说明这一问题：假设当前打印机的默认纸张尺寸是A3 纸，现在要打印长度为114mm、宽度为190mm 的纸张。为了简单起见，我们只在F 阅读全文

posted @ 2013-05-02 14:26 ftwsnow 阅读(592) 评论(0) 推荐(0)

dll之间对象共享的问题

摘要：经常有人提问：说自己的项目是由许多DLL打包方式组织的，各个DLL之间的对象如何共享访问？这其实很简单：只要共享对象创建后，把它的指针保存进一个大家都可以访问的地方，需要的时候就去取。我说用INI文件暂存共享对象指针也行。为了证明特别写了几行代码：uses inifiles;procedure TForm1.Button2Click(Sender: TObject);var ini: tinifile; h: integer;begin ini := tinifile.Create(extractfilepath(application.ExeName)+'me.ini'); 阅读全文

posted @ 2013-05-02 11:32 ftwsnow 阅读(223) 评论(0) 推荐(0)

POS打印机一些特殊控制

摘要： procedure TForm1.Button1Click(Sender: TObject);varRPrinter:TextFile;i:integer;begin{设置打印机}Assignfile(RPrinter,'lpt1');{准备写文件}Rewrite(RPrinter);{打印}for i := 0 to memo1.lines.Count - 1 doWriteln(RPrinter,memo1.lines[i]);{向后倒纸}Writeln(RPrinter,chr($b)+chr(27)+'K'+chr(40));{向前进纸}Writeln( 阅读全文

posted @ 2013-05-02 11:30 ftwsnow 阅读(181) 评论(0) 推荐(0)

控制钱箱,客显,打印

摘要： 1、控制POS机的客户显示屏procedure TFrmMain.ShowMoney(Money_Port: String;Money_String:String);//Moneey_Port 顾显接口Com1 or Com2 Money_String 顾显显示的内容var PrnFileName:TextFile;begin Assignfile(PrnFileName,Money_Port); printer.Canvas.Font.Name:='宋体'; printer.Canvas.Font.Size:=8; printer.Canvas.Font.Charset:=G 阅读全文

posted @ 2013-05-02 11:29 ftwsnow 阅读(252) 评论(0) 推荐(0)

计算库存产品成本

摘要：移动加权平均法：移动加权平均法下库存商品的成本价格根据每次收入类单据自动加权平均；其计算方法是以各次收入数量和金额与各次收入前的数量和金额为基础，计算出移动加权平均单价。其计算公式如下：移动加权平均单价＝ (本次收入前结存商品金额+本次收入商品金额)/(本次收入前结存商品数量+本次收入商品数量 )移动加权平均法计算出来的商品成本比较均衡和准确，但计算起来的工作量大，一般适用于经营品种不多、或者前后购进商品的单价相差幅度较大的商品流通类企业。以下以一个简单的例子来说明：例1：货品A，期初结存数量10，加权价10，金额为100，发生业务如下：销售11；采购10，采购价格11；成本计算过程如下：销售阅读全文

posted @ 2013-05-02 11:18 ftwsnow 阅读(754) 评论(0) 推荐(0)

(转) 字符转换

摘要： var s:string; p:pchar; a:array[1..20] of char; 那么三者之间的转换如下： 1、字符串到PChar p:=PChar(s); 2、PChar到字符串 s:=p; 3、PChar到字符数组 StrCopy(@a,p); 4、字符数组到PChar PChar(@a); 5、字符串与字符数组之间的转换就只有通过PChar来中转了。例如下面这个例子： procedure TForm1.btn1Click(Sender: TObject); var str:array[1..10] of char; begin StrCopy(@str,PChar(mmo1. 阅读全文

posted @ 2013-05-02 10:11 ftwsnow 阅读(120) 评论(0) 推荐(0)

(转)负载均衡策略

摘要：所有的负载均衡产品都需要一定的负载均衡策略来实现，负载均衡策略也被称为负载均衡算法。目前，最常用的负载均衡算法主要有三种：轮循（Round-Robin）、最小连接数（Least Connections First）和快速响应优先（Faster Response Precedence）。²轮循算法，就是将来自网络的请求依次分配给集群中的服务器进行处理。²最小连接数算法，就是为集群中的每台服务器设置一个记数器，记录每个服务器当前的连接数，负载均衡系统总是选择当前连接数最少的服务器分配任务。这要比“轮循算法”好很多，因为在有些场合中，简单的轮循不能判断哪个服务器的负载更低，也许新阅读全文

posted @ 2013-05-02 10:08 ftwsnow 阅读(181) 评论(0) 推荐(0)

2013年4月28日

JAVA tomcat 配置 servlet

摘要： servlet 类文件.class 放在工程名/WEB-INF/classes 然后修改WEB-INF下的web.xml文件：在 <web-app> 与 </web-app> 中添加如下东东： <servlet> <servlet-name> Servlet的名字 </servlet-name> <servlet-class> ServletClass的位置(用package方法表示) </servlet-class> </servlet> <servlet-mapping> < 阅读全文

posted @ 2013-04-28 10:00 ftwsnow 阅读(202) 评论(0) 推荐(0)

2013年4月13日

计算机是如何启动的

摘要：从打开电源到开始操作，计算机的启动是一个非常复杂的过程。我一直搞不清楚，这个过程到底是怎么回事，只看见屏幕快速滚动各种提示......这几天，我查了一些资料，试图搞懂它。下面就是我整理的笔记。零、boot的含义先问一个问题，"启动"用英语怎么说？回答是boot。可是，boot原来的意思是靴子，"启动"与靴子有什么关系呢？原来，这里的boot是bootstrap（鞋带）的缩写，它来自一句谚语："pull oneself up by one's bootstraps" 字面意思是"拽着鞋带把自己拉起来" 阅读全文

posted @ 2013-04-13 17:08 ftwsnow 阅读(155) 评论(0) 推荐(0)