Tag

摘要： 通常用WaitForCompletion(True) 去等待 如果中途不想要继续接受数据了 有两种方法： 在DataReceived里 //当前请求跳过 TRtcDataClient(sender).Request.Skip; //跳过所有请求 TRtcDataClient(sender).Skip 阅读全文

摘要： procedure TForm1.con1ExecuteComplete(Connection: TADOConnection; RecordsAffected: Integer; const Error: Error; var EventStatus: TEventStatus; const Co 阅读全文

摘要： function CreateEvent( lpEventAttributes: PSecurityAttributes; {安全设置} bManualReset: BOOL; {第一个布尔} bInitialState: BOOL; {第二个布尔} lpName: PWideChar {对象名称} 阅读全文

摘要： 使用默认皮肤相关单元： dxSkinsDefaultPainters //默认皮肤 dxSkinscxPCPainter //要引用这个pagecontrol才有皮肤 dxSkinsdxStatusBarPainter //用引用这个 状态栏才有皮肤 dxSkinsdxBarPainter //菜单 阅读全文

摘要： 对接快麦接口时，使用TIdMultiPartFormDataStream 多表单提交数据。 因为TIdMultiPartFormDataStream 每加一个字段时，总会在最后多加一个回车。这也就导致了最后总是有一个回车，接口在读取最后一个值时会多一个回车字符。导致签名过不了。 要处理一下，这里不改 阅读全文

摘要： //使用土拨鼠单元 uses SynCrypto; //有中文要先UTF8Encode var sha256Digest:TSHA256Digest; begin HMAC_SHA256('123',UTF8Encode('中文tag123'),sha256Digest); ShowMessage( 阅读全文

摘要： IF OBJECT_ID('fn_dupchar') IS NOT NULL DROP FUNCTION fn_dupchar GO /* 2022-04-28 返回指定位数、char的组合。比如要返回4个00 select dbo.fn_dupchar(4,'0') 这里只支持单个字符。 */ C 阅读全文

摘要： 注入exe//给出exename 找到pid function GetExePid(const aExeName: string):Cardinal; var _vHandle : THandle; _vProEntry : TProcessEntry32; _vIsFound : Boolean; 阅读全文

摘要： { 下拉弹出式窗体 2022-04-07 by tag 649998142@qq.com 这里写的比较简单只支持一个方向。靠左下拉的弹出式窗体 窗口设置BorderStyle := bsNone; 但是要给窗口一个 WS_BORDER 支持改变大小在 WMNCHIST 消息里处理 思路： FormD 阅读全文

摘要： 原文链接：https://blog.csdn.net/suiyunonghen/article/details/2325416 今天有一个朋友问我怎样可以拖拽一个没有边框的窗体，使其改变大小。于是很快想到一个消息WM_NCHITTEST 该消息用来描述，当关标移动或当按下或当释放了鼠标按扭的时候，就 阅读全文