var pMes:^String; begin New(pMes); pMes^:=msg; PostMessage(Application.handle, WM_Custom, 0, Integer(pMes)); end; 以下是接收 procedure CustomMessages(var Msg: TMsg; var Handled: Boolean); var msgStr: String; pMes:^String; begin if Msg.hwnd = Application.h…

delphi  简单的删除字符串尾部数字的代码 方式一: function FilterShowName(const sName: String): String; var I: Integer; begin Result := sName; if Result <> '' then begin do begin ', '-'] then Delete(Result, I, ) else Break; end; end; end; 方式二(未测试): function GetChinese(S…

delphi消息发送字符串 其实不论什么方法,归根揭底都是通过传递对象的指针来达到效果的. 方法一: procedure SendString(strMSG: string);var  Data: tagCOPYDATASTRUCT;  pBuf: PChar;begin  GetMem(pBuf, Length(strMSG) + 1);   try    ZeroMemory(pBuf, Length(strMSG) + 1);    StrPCopy(pBuf, strMSG);     …

在Delphi 开发中,常常应用到窗体消息传递,以达成某种操作要求,以下列举一个应用的例子,供大家参考. 自定义过程/函数方法://发送字符串到指字句柄的窗口中 (接收窗体需用发送时的消息常量WM_COPYDATA)procedure SendMessageData(AHandle: THandle; AStr: String);var sData: TCopyDataStruct;begin sData.cbData := Length(AStr) + 1; //为传递的数据分配内存 GetM…

procedure TForm1.WMSysCommand(var Message: TWMSysCommand); var str: string; begin case Message.CmdType of SC_SIZE : str := 'SIZE '; SC_MOVE : str := 'MOVE '; SC_MINIMIZE : str := 'MINIMIZE '; SC_MAXIMIZE : str := 'MAXIMIZE '; SC_NEXTWINDOW : str := '…

最近在学习一点python,先找了找有趣的应用,实际修改跑了一下提高兴趣程度. 找到itchat,它的简介是这样的: “itchat是一个开源的微信个人号接口,使用python调用微信从未如此简单. 使用不到三十行的代码,你就可以完成一个能够处理所有信息的微信机器人. 当然,该api的使用远不止一个机器人,更多的功能等着你来发现,比如这些. 该接口与公众号接口itchatmp共享类似的操作方式,学习一次掌握两个工具. 如今微信已经成为了个人社交的很大一部分,希望这个项目能够帮助你扩展你的个人的微…

得益于前辈的分享,做了一个h5录音的demo.效果图如下: 点击开始录音会先弹出确认框: 首次确认允许后,再次录音不需要再确认,但如果用户点击禁止,则无法录音: 点击发送 将录音内容发送到对话框中.点击即可播放.点击获取录音即可下载最后一次的音频: 播放下载都是围绕blob文件.播放就是让隐藏的audio标签的地址指向内存中的blob: this.play = function (audio,blob) { blob=blob||this.getBlob().blob; audio.src =…

转自http://blog.csdn.net/deccmtd/article/details/6063467 Nagios+fetion发送手机报警使用了几个月.每次报警短信来都要看下手机.感觉麻烦.上网找了下.发现Nagios也可以跟MSN结合起来.如果是这样.上班时间发送报警消息到MSN上.下班后再发送到手机上岂不是更好. 下面是我的安装过程.写得比较简单: 首先下载MSN linux客户端工具: [root@yunwei tmp]# wget http://downloads.fanati…

源:Delphi 中Format的字符串格式化使用说明(转) 一.Format函数的用法 Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用: 首先看它的声明: function Format(const Format: string; const Args: array of const): string; overload; 事实上Format方法有两个种形式,另外一种是三个参数的,主要区别在于它是线程安全的,但并不多用…

讲AMQP之前,先讲下传统的JMS的消息模型,JMS中主要有三个参与者:消息的生产者.消费者.传递消息的通道(队列或者主题),两种消息模型如下:通道是队列: 通道是队列: 通道是主题: 在JMS中,虽然通道有助于解耦消息的生产者和消费者,但这两者依然会与通道相耦合.生产者会将消息发布到一个特定的队列或主题上,消费者从特定的队列或主题上接收这些消息,通道具有双重责任,就是传递数据和确定这些消息该发送到什么地方,队列的话会使用点对点算法发送,主题的话就使用发布-订阅方式.而使用AMQP的话,生产者并…