05 2013 档案

INDY idhttp Post用法
摘要：function Post(AURL: string; ASource: TIdStrings): string; overload; function Post(AURL: string; ASource: TStream): string; overload; function Post(AURL: string; ASource: TIdMultiPartFormDataStream): string; overload; procedure Post(AURL: string; ASource: TIdMultiPartFormDataStream; AResponseConte... 阅读全文
posted @ 2013-05-10 17:11 ftwsnow 阅读(4386) 评论(0) 推荐(0)
VCLZIP用法
摘要：VclZip用法详 转载Vclzip控件主要的类为TVclUnZip 和TVclZip 其中，TVclZip继承自TVclUnZip。function　Zip(ZipMode,PackSize:Integer;ZipFile,UnzipDir:String):Boolean;　//压缩或解压缩文件var　ziper:TVCLZip;begin//函数用法：Zip(压缩模式，压缩包大小，压缩文件，解压目录)//ZipMode为0：压缩；为1：解压缩　PackSize为0则不分包；否则为分包的大小tryif　copy(UnzipDir,　length(UnzipDir),　1)　=　'\& 阅读全文
posted @ 2013-05-10 17:00 ftwsnow 阅读(773) 评论(0) 推荐(0)
软件版本称呼
摘要：alphal - 内部测试版beta - 外部测试版demo - 演示版Enhance - 增强版或者加强版,属于正式版Free - 自由版Full version - 完全版, - 属于正式版shareware - 共享版Release - 发行版, - 有时间限制Upgrade - 升级版Retail - 零售版Enterprise - 企业版Cardware - 属共享软件的一种，只要给作者回复一封电邮或明信片即可。(有的作者并由此提供注册码等)，目前这种形式已不多见。Plus - 属增强版, - 不过这种大部分是在程序界面及多媒体功能上增强。Preview - 预览版Corporati 阅读全文
posted @ 2013-05-07 15:06 ftwsnow 阅读(219) 评论(0) 推荐(0)
delphi 判断网络连接
摘要：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)
TPrinter控制打印机
摘要：TPrinter 类是Delphi 对Windows 打印处理系统的封装，它能够帮助程序员在开发打印程序时尽可能地减少工作量。在程序中使用TPrinter，只要在单元的Use 子句后面添加Printers 即可。当前打印机的DevMode 结构的句柄可以通过调用Tprinter 类中的GetPrinter 方法来获取。当程序获得DevMode 结构的句柄后，就调用GlobalLock 函数来得到指向该结构的指针，随后可对结构中的某些成员进行修改。下面就举一个例子来说明这一问题：假设当前打印机的默认纸张尺寸是A3 纸，现在要打印长度为114mm、宽度为190mm 的纸张。为了简单起见，我们只在F 阅读全文
posted @ 2013-05-02 14:26 ftwsnow 阅读(587) 评论(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 阅读(221) 评论(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 阅读(180) 评论(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 阅读(250) 评论(0) 推荐(0)
计算库存产品成本
摘要：移动加权平均法：移动加权平均法下库存商品的成本价格根据每次收入类单据自动加权平均；其计算方法是以各次收入数量和金额与各次收入前的数量和金额为基础，计算出移动加权平均单价。其计算公式如下：移动加权平均单价＝ (本次收入前结存商品金额+本次收入商品金额)/(本次收入前结存商品数量+本次收入商品数量 )移动加权平均法计算出来的商品成本比较均衡和准确，但计算起来的工作量大，一般适用于经营品种不多、或者前后购进商品的单价相差幅度较大的商品流通类企业。以下以一个简单的例子来说明：例1：货品A，期初结存数量10，加权价10，金额为100，发生业务如下：销售11；采购10，采购价格11；成本计算过程如下：销售 阅读全文
posted @ 2013-05-02 11:18 ftwsnow 阅读(743) 评论(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 阅读(119) 评论(0) 推荐(0)
(转)负载均衡策略
摘要：所有的负载均衡产品都需要一定的负载均衡策略来实现，负载均衡策略也被称为负载均衡算法。目前，最常用的负载均衡算法主要有三种：轮循（Round-Robin）、最小连接数（Least Connections First）和快速响应优先（Faster Response Precedence）。²轮循算法，就是将来自网络的请求依次分配给集群中的服务器进行处理。²最小连接数算法，就是为集群中的每台服务器设置一个记数器，记录每个服务器当前的连接数，负载均衡系统总是选择当前连接数最少的服务器分配任务。这要比“轮循算法”好很多，因为在有些场合中，简单的轮循不能判断哪个服务器的负载更低，也许新 阅读全文
posted @ 2013-05-02 10:08 ftwsnow 阅读(176) 评论(0) 推荐(0)