【推荐】购买本站友情链接

购买本站友情链接联系站长QQ:993356686本站情况:站长之家权重:爱站权重:

【推荐】购买本站软文发布服务-包收录

购买本站软文发布服务请联系站长QQ:993356686 本站情况:站长之家权重:爱站权重:百度收录(几乎秒收):本站软文发布可带联系方式、可带链接、可包月,详情请联系站长QQ:993356686

Delphi

Delphi 的 WebService 的 Cookie 操作

3 0

WebService 底下是 Web 操作,在 DELPHI 的 WebService 框架底下,客户端对服务器端的操作,都是对服务器的一次 WEB 访问。服务器端如何验证客户端的用户身份?最简单的办法是客户第一次登录时提供一个用户ID,服务器端把这个 ID 写到 Web 的 Cookie 里面。以后服务器端每次处理客户端请求的时候,都可以通过读 Cookie 来获取当前发起这个请求的客户端的用户 ID。 对 于客户端的 HttpRIO 来说,Cookie 是透明的。只要实例一直存在,只要服务器端在返回

Delphi

DELPHI WEB SERVICE 多表提交的事务管理

3 0

我自己的测试代码,服务器端做一个接口方法,客户端调用该方法。2个表的 Delta,写死:(也就是直接用 ADeltas[0] 这样就可以把数组元素读出来)。以下方法是写死的,但可以写成一个通用方法,服务器端通过表名,找到对应的ClientDataSet来提交。客户端:Intf.SaveItems(VarArrayOf([ClientDataSet1.Delta, ClientDataSet2.Delta]));服务器端:procedure TTestItems.SaveItems(ADeltas: Va

Delphi

Delphi 关闭RTTI反射机制减少EXE文件尺寸

2 0

program mysoft;{ 关闭RTTI反射机制减少EXE文件尺寸 }{$IF CompilerVersion >= 21.0}{$WEAKLINKRTTI ON}{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}{$IFEND}uses Forms, frmMainUnit in frmMainUnit.pas {frmMain};{$R *.res}begin Application.Initialize

Delphi

Delphi VCL 模式下和FireMonkey 模式下的字符串

2 0

以前在 Delphi 底下针对 Windows 编程,习惯了对字符串的使用。那时候的字符串是从序号 1 开始的,而不是0.现在 Delphi 支持多平台,情况有变。1. VCL 模式下(当然只支持 Windows),字符串和以前一样。仍然是从 1 开始;之前的字符串的函数比如 Copy,Pos 等等仍然可以使用。2. 在 FireMonkey 模式下,不管编译的目标平台是不是 Windows,字符串都是从 0 开始。这时候想要做一些类似 Copy, Pos 等操作,最好不要用以前的函数,而是用字符串的

Delphi

Delphi MediaPlayer Android 下播放 MP4 的问题

2 0

开发环境:Delphi 10.3.1 社区版。测试环境:A. Android 5.0;B. Android 9.01. 进度条Delphi 官方带的例子里面,关于进度条的代码:procedure TForm1.Timer1Timer(Sender: TObject);begin if ProgressBar1.Max <> MediaPlayer1.Duration then ProgressBar1.Max := MediaPlayer1.Duration; if Progres

Delphi

Delphi VclZip压缩文件夹

3 0

压缩指定路径MyZipDir下的文件夹b及b目录下的所有文件和文件b.txtfunction ZipDir(zipMode:Integer;zipControl:TVCLZip;MyZipName,MyZipDir:string):Boolean; begin {压缩指定目录中的文件和文件夹,指定RootDir,否则连同指定目录本身一同压缩} Result:=False; try with zipControl do begin case zipMo

Delphi

delphi中Bitmap位图与base64字符串相互转换

4 0

uses EncdDecd;///将Bitmap位图转化为base64字符串function BitmapToString(img:TBitmap):string ;var ms:TMemoryStream; ss:TStringStream; s:string;begin ms := TMemoryStream.Create; img.SaveToStream(ms); ss := TStringStream.Create(); ms.Position

Delphi

Delphi HexStrToBytes

3 0

procedure HexStrToBytes(hHexStr: String; pbyteArray: Pointer);var i, j:WORD; tempPtr:PChar; twoDigits:String[2];begin tempPtr := pbyteArray; j := 1; for i := 1 to (Length(hHexStr) DIV 2) do begin twoDigits:=Copy(hHexStr, j, 2); Inc(j, 2);