Delphi
2022-11-18
41
WebHttpRequest1.Headers.AddPair('Content-Type', 'application/x-www-form-urlencoded');WebHttpRequest1.PostData := '{"telefon":"699123456"}';WebHttpRequest1.URL := 'https://www.xxx.com/license/presencia-wa/we
2022-11-18
44
//delphi TMSWEB Core 刷新当前页面 document.location.reload(true);
2022-11-18
88
// 防止程序重复运行procedure ExeMutex();var PrevInstHandle: THandle; Mutex: THandle; h: HWND;begin Mutex := OpenMutex(SYNCHRONIZE, false, PChar(Application.title)); if Mutex <> 0 then begin PrevInstHandle := Winapi.Windows.FindWindow(nil, PChar(Ap
2022-11-18
140
delphi seek函数中参数说明一直不明白delphi中seek,fileseek等函数中参数的真是意义,比如:FileSeek(FileHandle,0,2)在delphi中取出来的是文件的长度。这类函数的最后一个参数说明:移动的起始位置, 0-最开始, 1-当前位置, 2-文件尾部。――――――――――――――――原文链接:https://blog.csdn.net/coolhao123/article/details/7690469
2022-11-18
125
一.原理 通过使用“内存映射文件”,实现内存共享二.主要操作 共享内存结构:复制代码复制代码 PShareMem = ^TShareMem; TShareMem = Record id:string[10]; name:string[20]; age:Integer; end;// 一定要注意 固定长度复制代码复制代码 基本变量: shareMemName:string; //共享内存名 fileHandle : THandle;//内存映射文件句
2022-11-18
124
Spcomm串口控件的例程 //串口初始化 procedureTForm1.BitBtn3Click(Sender: TObject); begin comm1.startcomm; end; //关闭串口 procedureTForm1.BitBtn4Click(Sender: TObject); begin comm1.StopComm; end; //发送数据 procedureTForm1.BitBtn1Click(Sender: TObject);{var str:string
2022-11-18
23
Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用:首先看它的声明: function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式,另外一种是三个参数的,主要区别在于它是线程安全的, 但并不多用,所以这里只对第一个介绍: fun
2022-11-18
85
类型映射及类型转换正如所知,你不能把一个变量赋给另一个不同类型的变量,如果你需要这么做,有两种方法供选择。第一种方法是采用类型映射(Typecasting),它使用一个带有目标数据类型名的函数符号:varN: Integer; C: Char; B: Boolean;Begin N := Integer ('X'); C := Char (N); B := Boolean (0);你可以在字节长度相同的数据类型之间进行类型映射。在有序类型之间或实型数据之间进行类型映射通常是安全的,指针类