上一页 1 ··· 144 145 146 147 148 149 150 151 152 ··· 203 下一页
摘要: // 移动短信接口(cmpp 2.0)//unit untYiDongInterface;interfaceusesSysUtils, untSocket, IdGlobal, MessageDigest_5, Types;const{$REGION 'Command_Id定义'}CMPP_CONNECT = $00000001; // 请求连接CMPP_CONNECT_RESP = $80000001; // 请求连接应答CMPP_TERMINATE = $00000002; // 终止连接CMPP_TERMINATE_RESP = $80000002; // 终止连接应答C 阅读全文
posted @ 2012-11-15 19:18 delphi中间件 阅读(4104) 评论(0) 推荐(0)
摘要: 对于一些小文件,用普通的文件流就可以很好的解决,可是对于超大文件,比如2G或者更多,文件流就不行了,所以要使用API的内存映射的相关方法,即使是内存映射,也不能一次映射全部文件的大小,所以必须采取分块映射,每次处理一小部分。先来看几个函数CreateFile :打开文件GetFileSize : 获取文件尺寸CreateFileMapping :创建映射MapViewOfFile :映射文件看MapViewOfFile的帮助,他的最后两个参数都需要是页面粒度的整数倍,一般机器的页面粒度为64k(65536字节),而我们实际操作中,一般都不是这样规矩的,任意位置,任意长度都是可能的,所以就要做一 阅读全文
posted @ 2012-11-04 08:23 delphi中间件 阅读(852) 评论(0) 推荐(0)
摘要: -procedure SplitFile(FileName : TFileName; FilesByteSize : Integer) ;// FileName == file to split into several smaller files// FilesByteSize == the size of files in bytesvarfs, ss: TFileStream;cnt : integer;SplitName: String;beginfs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite) ;tr 阅读全文
posted @ 2012-11-04 08:12 delphi中间件 阅读(572) 评论(0) 推荐(0)
摘要: soap传输XML格式的字串,是明文,经过BASE64对XML格式字串编码后,不再是明文,增加传输的安全性。而且还可以彻底解决中文显示乱码的问题。所以WEBSERVICES可以考虑对所有的字串先进行BASE64编码,然后再通过网络传输。 阅读全文
posted @ 2012-10-28 10:57 delphi中间件 阅读(327) 评论(0) 推荐(0)
摘要: 有两种方法,一种是把二进制对象转成base64码,返回字符串,应该是最简单的方法,另外一种就是返回二进制数组TByteArray服务器:function TFileSoap.getPic(out size:integer): TByteArray;varbuf:TMemoryStream;begintry if not FileExists('c:\1.bmp') then raise Exception.Create('file not found.'); buf:=TMemoryStream.create; buf.LoadFromFile('c:\ 阅读全文
posted @ 2012-10-28 10:43 delphi中间件 阅读(290) 评论(0) 推荐(0)
摘要: function CompressStrToBase64(sStr: string): string;var M1: TMemoryStream; M0, M2: TStringStream;begin Result := ''; if sStr = '' then Exit; M0 := TStringStream.Create(sStr); M1 := TMemoryStream.Create; M2 := TStringStream.Create(' '); try M0.Position := 0; M1.Position := 0; Z 阅读全文
posted @ 2012-10-28 10:32 delphi中间件 阅读(273) 评论(0) 推荐(0)
摘要: unit EncodingUtil;interfaceusesSysUtils, Classes, Types, EncdDecd;function BytesToBase64(const bytes : TByteArray) : string;function StreamToBase64(AStream: TStream) : string;implementationfunction BytesToBase64(const bytes : TByteArray) : string;varmemoryStream : TMemoryStream;beginmemoryStream := 阅读全文
posted @ 2012-10-28 10:29 delphi中间件 阅读(534) 评论(0) 推荐(0)
摘要: 数据集数据转换为XMLfunction ReplaceString(AString: string): string;begin Result := StringReplace(AString, '&', '&amp;', [rfReplaceAll]); Result := StringReplace(Result, '>', '&gt;', [rfReplaceAll]); Result := StringReplace(Result, '<', '&lt;& 阅读全文
posted @ 2012-10-28 00:40 delphi中间件 阅读(315) 评论(0) 推荐(0)
摘要: FASTREPORT的设计界面,保存的时候是生成扩展名为.fr3的文件来保存设计好的报表模板的。现在改为用数据表的BLOB字段来保存报表模板。 m :=TMemoryStream.Create; try Report.SaveToStream(m); f_printsetup.ClientDataSet1.Edit; tblobfield(f_printsetup.ClientDataSet1.FieldByName('rep')).LoadFromStream(m); f_printsetup.ClientDataSet1.Post; if RemoteMethod.Post 阅读全文
posted @ 2012-09-13 22:13 delphi中间件 阅读(1368) 评论(0) 推荐(0)
摘要: 1.字串统一使用WIDESTRING类型2.客户端调用适配器DLL时,参数传DELTA,不要传TCLIENTDATASET 阅读全文
posted @ 2012-09-11 16:03 delphi中间件 阅读(865) 评论(1) 推荐(0)
上一页 1 ··· 144 145 146 147 148 149 150 151 152 ··· 203 下一页