CRC和MD5用于文件和数据的传输校验，以确认是否接收成功。unit CRCMD5; interface{ 获取文件CRC校验码 }function GetFileCRC(const iFileName: string): String;{ 获取字符串CRC校验码 }function GetStringCRC(const Str: string): Cardinal;{ 取文件MD5码 }function GetFileMD5(const iFileName: string): String; impl
使用INDY解决BASE64回车换行问题使用DELPHI EncodeStream()，对流数据进行BASE64编译以后，每隔75个字符，就会添加回车换行符（#$D#$A），这会造成许多问题。网上许多解决方法，是对BASE64的字符串中的回车换行符，使用ReplaceStr(str,#$D#$A,''...)替换掉回车换行符。虽然这样可以解决问题，但多执行了操作，从而影响了程序的性能。下面使用INDY来帮助解决问题：INDY的BASE64编码，不会每隔75个字符，就会添加回车换行符（#$
Delphi BASE64单元EncdDecd的修改EncdDecd.pas两个函数声明：procedure EncodeStream(Input, Output: TStream);procedure DecodeStream(Input, Output: TStream);对于Output参数，如果是TMemoryStream，效率真是太糟糕了，测试发现，编码一个5M多的文件，要十几秒钟！但如果是TStringStream，只要0.2~0.3秒！WHY?因为TMemoryStream在不断地调用Wr
delphi 解决android 9上无法使用http协议安卓9不让客户端通过非https方式访问服务端数据(不允许发送明文http请求)的问题。解决方法：1、选择安卓平台编译一次程序，在项目根目录下会生成如下文件AndroidManifest.template.xml2、打开此文件，在正确位置加上以下权限即可：android:usesCleartextTraffic="true"直接在AndroidManifest.template.xml中定义使用http访问！
function StreamGetFileType(aStream:TStream):String;var Buffer:Word;begin Result := ''; aStream.Position := 0; if aStream.Size=0 then exit; aStream.ReadBuffer(Buffer,2); case Buffer of $4D42:Result := 'bmp'; $D8FF:Result := &#
DELPHI10.3.2安卓SDK安装DELPHI10.3.2默认安装以后，还需要安装安卓SDK，才可以编译安卓项目。1）运行Android Tools2）勾选安装下面几个
httpencode编码uses System.NetEncodingvar s: string := TNetEncoding.URL.Encode('123'); //123var s2: string := TNetEncoding.URL.Encode('abcd'); //abcdvar s3: string := TNetEncoding.URL.Encode('ab1cd2'); //ab1cd2var s4: string := TNet
IdHTTPServer允许跨域访问procedure TMain.idHttpServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);begin AResponseInfo.CustomHeaders.Add('Access-Control-Allow-Origin:*'); AResponseInfo.Cust