delphi中间件

摘要： -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 阅读全文

摘要： soap传输XML格式的字串，是明文，经过BASE64对XML格式字串编码后，不再是明文，增加传输的安全性。而且还可以彻底解决中文显示乱码的问题。所以WEBSERVICES可以考虑对所有的字串先进行BASE64编码，然后再通过网络传输。 阅读全文

摘要： 有两种方法，一种是把二进制对象转成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:\ 阅读全文

摘要： 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 阅读全文

摘要： 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 := 阅读全文

摘要： 数据集数据转换为XMLfunction ReplaceString(AString: string): string;begin Result := StringReplace(AString, '&', '&amp;', [rfReplaceAll]); Result := StringReplace(Result, '>', '&gt;', [rfReplaceAll]); Result := StringReplace(Result, '<', '&lt;& 阅读全文

摘要： 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 阅读全文

摘要： 1.字串统一使用WIDESTRING类型2.客户端调用适配器DLL时，参数传DELTA，不要传TCLIENTDATASET 阅读全文

摘要： unit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Menus, ExtCtrls, RemoteMethod ,DBClient, DB;type PNode = ^TNode; TNode = record id: string; cn: string; tw: string; en: string; dll: string; classname: WideString; dsc: string; pid:. 阅读全文

摘要： 客户端可以是D5~XE2任意版本的DELPHI来写。非常适合老系统升级。 阅读全文