黑贝是条狗
这个作者很懒,什么都没留下…
展开
-
RDP通道(远程桌面插件)开发指南—Delphi版
如果事件是CHANNEL_EVENT_DATA_RECEIVED,则服务器写入的数据被分成不超过CHANNEL_CHUNK_LENGTH字节的块。这意味着当一个会话开始隐藏当前会话时,或者当远程控制连接到连接到客户端的会话或从连接到客户端的会话断开连接时,通道不会在服务器端关闭。远程桌面客户端加载这个DLL后,会先调用这个函数,并传递一个指向 CHANNEL_ENTRY_POINTS 结构的指针,该结构包含指向客户端虚拟通道函数的指针。由于内存复制,过多的Write()调用可能会导致客户端分配过多的内存。原创 2023-08-17 12:07:31 · 876 阅读 · 0 评论 -
delphi fmx 跨平台文件浏览器
很多人在找delphi fmx 开发的 android下的文件浏览器。支持android,ios android12 测试通过。原创 2024-05-23 16:01:58 · 152 阅读 · 0 评论 -
delphi12用fmxui
但有的安卓版本,必须高版本delphi编译才能正常使用。如不是,要么无法安装,要么刚进去闪退。原创 2024-05-17 11:58:52 · 180 阅读 · 0 评论 -
pyqt5与selenium混合使用心得
接触py不久,但经过思考后,认为pyqt与selenium原创 2024-03-21 09:40:15 · 410 阅读 · 0 评论 -
c++ WinInet InternetOpenUrl下载中文文件
用WinInet下载文件时,如果是中文,下载下来的文件大小为0原创 2023-08-15 11:49:35 · 548 阅读 · 0 评论 -
跨服务器跨库数据联合查询
,今天群里有人问多个数据源,可否显示在一个dbgrid原创 2023-07-16 22:33:20 · 557 阅读 · 0 评论 -
shellcode
我心目中的windows专家。原创 2023-07-13 08:47:54 · 152 阅读 · 0 评论 -
windows下搭建自己的跨平台tts语音合成播报技术
在用lame工具进行转换时,比较曲折,本来想用dll自己写代码转换,但对通道,采样率不太了解,造成转换的mp3,语速非常的快,好像是通道的计算问题,没搞定,最后直接用lame.exe。通用性TTS:这类TTS系统基本已经达到可以商用的地步了,但是由于依旧存在机械感,不能模拟自然人声的原因,如果用户预期较高的话。4,搭建http服务端,建立restful接口, 暴露出text2audio的接口,供各个平台使用。人工智能时代,tts技术已经非常普及,科大讯飞,百度,微软,谷歌等,但如何让跨平台的设备使用呢?原创 2022-10-14 11:42:14 · 2638 阅读 · 0 评论 -
TTS数据制作过程分享
语料的制作需要考虑语料来源、语料长度和语料的量级。语料的数量耍求主要取决于TTS系统的级别,简易的TTS系统要求数据量在3000-5000句之间,- 般程度的系统需求数据量在1 5000句,更为高级的最低要求数据量就在20000句以上。韵律词:是韵律层级结构中的基本单位,指口语中紧密连在-起发音的几个 音节的组合,单音节词往往会跟相邻的双音节词共同构成一个韵律词(如:“引起了” 中的“了”,通常与前面的双音节词“引起”共同组成一一个韵律词),包含超过三 个音节的词,往往会被分解成多个双/三音节韵律词。翻译 2022-10-13 14:49:05 · 1042 阅读 · 0 评论 -
fmx 监听windows消息
【代码】fmx 监听windows消息。原创 2022-08-29 18:22:46 · 214 阅读 · 0 评论 -
fmx 获取全局消息之消息传递
当然,应该还有其他方法实现,比如timer 不断的获取当前鼠标坐标,然后再实现。现实现了一个侧边Menu,左侧菜单,当鼠标移动到左侧则菜单弹出,鼠标离开。,导致鼠标移动事件变到了最上层的控件上,但我想全局检测鼠标移动事件。本来已经实现了,但后因布局不断变化,在form上又叠加了其他控件。则菜单隐藏,功能也好实现,在窗口的 mousemove事件里。鼠标移动事件也是一样,把最上层的鼠标移动数据,传递给订阅者,1,当鼠标点击时,发送消息给订阅者。vcl时,可用全局的消息截取,此时,实现了 消息的监听和传递。..原创 2022-08-04 10:32:42 · 332 阅读 · 0 评论 -
c++ ShellExecute 执行cmd命令
WinExec,CreateProcess;ShellExecute都能执行cmd命令,ShellExecute 相对简单些,且可一次执行多行命令C++LPCWSTR stringToLPCWSTR(std::string orig){ size_t size = orig.length(); wchar_t* buffer = new wchar_t[size + 1]; MultiByteToWideChar(CP_ACP, 0, orig.c..原创 2022-05-14 10:49:37 · 2515 阅读 · 0 评论 -
delphi通用验证码生成
原理将a..z,A..Z,1..9 放到数组里,随机从数组中抽出n位,画在image控件上,字体大小,颜色,随机变化最后在字上画一条线返回参数为正确的字符验证码代码源码来自网络,稍加改造procedure TForm1.Button2Click(Sender: TObject);var ss: string;begin ss := PwdImg(Image1,14,True) ; ShowMessage(ss);end;function RandomCo原创 2022-02-17 14:12:13 · 730 阅读 · 0 评论 -
航天金税3发票导入功能开发教程(一)
前言此教程是通用教程,无关开发语言,只要按这个方法,应该就可以实现批量开票功能程序是大概是2016年的9月开发的,虽然5,6年了,但这个方法应该还是可用。公司以前是hook航天金税软件,去处理开票,在我去的那年,人家升级了,于是不能自动开票了,当时这个开票功能也是买别人的这下找别人重新做,一定又是一笔费用。刚开始,我也想操控航天金税的开票软件去自动录入发票信息,然后开票,方法可能能行,但后面维护成本一定很高,没有哪个软件让你轻易的爆菊于是自己去熟悉研究航天金税的开票软件,原创 2022-02-10 16:33:43 · 1038 阅读 · 0 评论 -
sqlserver使用正则表达式
前言我使用的是sqlserver2008,是不支持正则表达式的,当然like模糊查询可以解决一些问题但,有的时候正则表达式会更加方便。比如我要查表中某个varchar字段里含有字母的记录,或含有中文的记录,用like搞不定啊如果能用正则表达式,那只要百度下表达式就出来了.如何让sqlserver支持正则?这里要应用sqlserver 公共语言运行库(CLR) 扩展功能,自定义自己的CLR程序集,扩展到sqlserver中。CLR应该程序可以用c#开发,也可以用vb.net开发,我们的自定原创 2022-02-10 10:45:36 · 4356 阅读 · 0 评论 -
cef 90后版本如何播放腾讯视频?
cef所有版本下载https://bitbucket.org/chromiumembedded/cef/downloads/?tab=branches原创 2021-11-30 16:07:43 · 567 阅读 · 0 评论 -
sqlserver获取datetime毫秒转数字
sqlserver 日期时间 datetime 转成纯数字,有这样的需求的应该比较多正常思维用convert转换成yyyy-mm-dd hh:mm:ss.nnnselect convert(varchar(24),getdate(),121)然后把字符全部replace掉就ok了我下面的函数是用数学计算,合计出数字类型numeric然后返回秒是14位,毫秒是17位,int存不下 只能用numeric首先计算出年月日串 : @date@date= 10...原创 2021-10-27 11:45:28 · 2547 阅读 · 0 评论 -
CreateProcess创建UI进程并隐藏
一直对多进程非常感兴趣,你会发现现在绝大多数的windows应用都是多进程,包括QQ,钉钉,chrome浏览器,nginx等等。在新公司,也接触了个多进程的应用,但咱只能用,没法看到源码哈由于太菜,只能自己瞎琢磨,可能是用 CreateProcess创建的进程于是开始玩这个windows api 函数当然,delphi的资源太少了,还好一般的c++能看懂,也勉强能翻译成D上代码吧!//定义一个进程结构体,主要用于传参type ProcessWindow =原创 2021-09-24 19:00:39 · 534 阅读 · 0 评论 -
多进程同步方案
最近遇到一个难题,cs客户端程序,一个缓存文件,本来是按登陆人分文件夹存储的可客户引用了云服务ctrix系统,文件都放到了一个服务器上如果再按登录名建缓存文件,则服务器会占用非常大的硬盘空间,客户不愿意,要只整一个,前面的开发,就按需求整了一个,可是,根本没有考虑 缓存文件同步更新,客户端都在操作这个文件,完全没数据保护经常出现一些缓存问题。这些锅现在 到我这了。没办法,为了多赚点,外包我也来了,自然锅也要背拿人钱财,替人消灾1,首先,解决各个客户端没有同步缓原创 2021-09-10 11:32:49 · 393 阅读 · 0 评论 -
xe编译dll让delphi7调用https请求时不带ssl的动态库
delphi7 indy 请求某些ssl网站 ,可能会无法加载 ssl模块,然后无解前面有人用。net编译dll给delphi7用其实xe编译的dll也是可以的具体dll代码:K3Request.dprlibrary K3Request;{ Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your pr.原创 2021-08-08 22:05:23 · 662 阅读 · 0 评论 -
delphi 自定义结构体写入本地文件作为缓存
客户端有时候要存一些自定义的结构体缓存数据,一般可以用fdmemtable或clientdataset也可以直接把结构体记录写入文件下面就是直接写文件的例子写入文件type TPMemRsCode = ^TMemRsCode ; type TMemRsCode = record sname: string[32]; age: integer;endfunction AppendDayDataToFile(prSt原创 2021-07-20 18:34:22 · 718 阅读 · 0 评论 -
delphi 发邮件
发邮件再程序里是很平常的业务以前我都是直接配置sqlserver发邮件当然delphi也是可以的一下是d7的发邮件代码:procedure Tfrm1.btnTestClick(Sender: TObject);var MailBody: TStringList; idHtmlText,idHtml: TIdText; sContent: String; iLoop: Integer;begin sContent := '您好'+#13#10+' 这.原创 2021-07-02 17:08:04 · 1175 阅读 · 0 评论 -
delphi 比pos效率高的stringlsit模糊查找算法
背景1000万数据的stringlist ,我想模糊查询出 包含字符串 ‘abc’ 的所有数据,一般的算法就是一个循环遍历,然后pos每行是否含 ‘abc’但是循环的速度真的有点慢。后来对比了几个pos的效率,原来可以快2倍。procedure TForm1.Button2Click(Sender: TObject);var ls: TOpenStringList; i,n: integer; t: int64; ls1: TStringList;begi...原创 2021-05-29 09:59:13 · 1122 阅读 · 0 评论 -
delphi Pacs dicom文件传输功能实现
记得15年的时候在搞pacs这里有稳定的dicom图片传输服务器有通用的彩超采集程序新功能都将针对VFW模式去做,原因是,VFW简单强悍,可控性强增加自动转换dicom图片到jpg 增加一个强悍的httpserver,可提供文件下载,图片浏览,及简单的html网页文件浏览,很强dicom服务端delphi源码,图片浏览器 delphi源码有需求可私聊...原创 2021-05-20 21:59:58 · 758 阅读 · 1 评论 -
浮点型截取函数
截取函数很多,此截取函数在利息计算,结算金额计算等实际应用Digit为正数 OyRoundTo(124500, 3) = 12500Digit为负数 OyRoundTo(12.45, -1) = 12.5改造的trunc函数:function OyTrunc(X: Extended): Int64;begin if X >= 0.00001 then Result := Trunc(X + 0.00001) else Result := Trunc..原创 2021-05-17 18:54:24 · 193 阅读 · 0 评论 -
delphi webapi方式同步数据到最新金蝶云教程(5)
今天有小伙伴订阅了,我突然动力大增,在此感谢接着讲下金蝶云单据的审核接口,上一篇说的是客户信息的提交,但必须审核后,客户信息在金蝶云里才能被使用。审核函数://vorid 组织机构 可不传, vcustid 金蝶云生成的 客户的唯一id vmsg 返回的信息function TAidigK3.AuditCust(vorid,vcustid: string; var vmsg: string): Boolean;var lstr: string;begin Result原创 2021-05-04 18:03:47 · 847 阅读 · 9 评论 -
qt qimage 获取rgb 图像转yuv教程(一)
在图像处理时,我们经常会取图像的rgb,然后把rgb,qt中图像处理一般是qimage,我们可以把普通的一张图片,提取出rgb首先,可以用QLabel 显示图像定义一个:QLabel *imageview;定义一个:QImage imageQPixmap pixmap = QPixmap::fromImage(image); //从QImage中获取像素map //QPixmap fitpixmap = pixmap.scaled(with, height, Qt::I...原创 2021-04-29 22:05:13 · 3208 阅读 · 0 评论 -
delphi webapi方式同步数据到最新金蝶云教程(4)
今天我们来讲讲金蝶云数据得提交,上一篇,我们判断客户数据未同步金蝶云得情况下,可以直接保存,写入操作,保存成功后,必须要提交,才能进行审核。//客户提交:参数,组织id,客户编码,返回信息function TK3.SubmitCust(vorid,vcustid: string; var vmsg: string): Boolean;var lstr: string;begin Result := False; if K3Login then begin lst原创 2021-04-18 19:44:59 · 551 阅读 · 3 评论 -
delphi webapi方式同步数据到最新金蝶云教程(3)
上一节我们实现了判断客户信息是否存在于金蝶云,这节,我们假设客户尚未同步到金蝶云那就有个insert客户信息得方法首先我们确认客户信息save得json格式是://生成保存客户信息得jsonfunction TK3.GetCustJson(vorid, vcustid,vcustname,vroomname,vmeal,vmealamount: string): string;var lstr: string;begin lstr := '{"parameters":["B.原创 2021-04-17 20:15:45 · 587 阅读 · 7 评论 -
delphi webapi方式同步数据到最新金蝶云教程(2)
金蝶云登录对接成功后,就可以继续其他得请求,因为数据格式json那首先你要知道对接数据得json格式是什么金蝶云用系统管理员登录后,是有个生成json得功能,好像叫webapi 吧,可以测试所有可以导入对接得数据,字段名接下来,我会以对接客户信息为例,实现客户信息得提交,审核,删除,修改,禁用等功能具体流程:判断数据唯一性---->存在----->调修改过程----->反审------>修改------->提交------>审核...原创 2021-04-16 21:31:18 · 780 阅读 · 0 评论 -
delphi 判断进程是否uac管理员模式运行
翻了很久没找到delph 的,都是些很旧没用的代码还好c++有,翻译成delphi可转载,请标注出处function IsRunasAdmin(hProcessId: THandle): BOOL;var bElevated: BOOL; hToken, hProcessHandle: THANDLE; tokenEle: TOKEN_ELEVATION; dwRetLen: DWORD;begin Result := False; bElevated := Fa.原创 2021-04-15 18:13:12 · 381 阅读 · 0 评论 -
delphi webapi方式同步数据到最新金蝶云教程(1)
教程即将开始,主要讲delphi 将 erp数据 同步到 金蝶云系统 ,网上全是 。net,java,php我delphi 这么牛,怎么可能不行?原创 2018-11-05 17:50:13 · 2526 阅读 · 6 评论