[转载红鱼儿]delphi 实现微信开发(1)

大体思路:

1.用户向服务号发消息,(这里可以是个菜单项,也可以是一个关键词,如:注册会员。)

2.kbmmw web server收到消息,生成一个图文消息给微信,在图文消息中做好自己的url,在url中,可以把第一步消息带来的openid写到url的参数表中。

3.用户点这个图文消息

4.web server收到这个图文消息的url,根据这个url,生成一个网页给微信,这里面关键是把openid写到网页中

5.用户填写这个网页,提交(提交的同时也把openid也提交回来了)

6.Ok,现在得到我想要的内容,最需要的openid.即那个用户提交的,就这样被提交回来了。

7.根据6返回的内容,实现业务逻辑。

 

openid:做为微信用户,当你关注一个服务号时生成的唯一值,从服务号的角度看,这是你的服务号的关注者。如果你想发消息给你的微信用户,只能通过这个openid.

进入开发:

首先,在这里,可以申请一个测试账号用于开发。过程很简单,用你的手机号申请,给你手机发个验证码,就开通了!
然后,还需要一个静态IP及80端口,理论上讲用动态域名也可以。绑定到你这个开发账号上。
接下来,你还要熟悉一下微信的API,了解一些基本概念。
现在,就可以用delphi开发了!

时间: 2024-09-30 08:24:42

[转载红鱼儿]delphi 实现微信开发(1)的相关文章

[转载红鱼儿]delphi 实现微信开发(2)接入微信公众号平台

先要学习一下接入的资料,在这里,因为原理都在,所以一定要认真阅读,然后,利用Delphi实现一个对应函数,然后申请微信公众平台接口测试帐号. function CheckSignature(const signature, timestamp, nonce, token: string): boolean; var   strs: TStringList;   tmpStr: string; begin   strs := TStringList.Create;   try     strs.A

[转载红鱼儿]Delphi实现微信开发(3)如何使用multipart/form-data格式上传文件

开始前,先看下要实现的微信接口,上传多媒体文件,这个接口是用Form表单形式上传的文件.对我来说,对http的Form表单一知半解,还好,查到这个资料,如果你也和我一样,必须看看这篇文章. 在xalion窑主的指导下,我使用了indy自带的TIdMultiPartFormDataStre am类,来提交上传的文件. 如果使用indy的idhttp,则调用这个方法,即可以提交Form. function Post(AURL: string; ASource: TIdMultiPartFormDat

[转载红鱼儿]Delphi XE7 update1进步太大了

写以下的文字是怀着无比兴奋的心情写的,急于同朋友们分享XE7的进步! 1.更新的bug列表并不全 通过bug修正列表及发布的消息,可以看到up1修正了很多bug,正如我所说,有些bug并没有写到发布的bug列表中,如TextPrompt不显示的问题. 2.解决了对象释放的问题 基于XE7,我做了测试代码,也是我想象中,开发一个实际的项目要用到很多Form,并且是用到时再建立,需要的话,用完就释放掉.为了这个想法,我测试 了很长时间,也看了相关的代码,无耐,实际的结果让人颓丧.问题就是建立一个Fo

[转载红鱼儿]kbmmw 开发点滴:kbmMW在事务中批量执行SQL

按客户端使用事务更新多个表数据到kbmMW服务器,使用TkbmMWClientTransactionResolve, 可以一次性提交多个修改的数据集到服务器端,服务器利用事务来执行数据的更新,成功,提交事务,不成功,则Rollback事务.在实际开发中,可能遇到 在更新数据集的同时,还要执行单独的SQL,处理业务逻辑.方法是:用一个单独的TkbmMWClientQuery来执行.具体用法: kbmMWClietnQuery3.Query.Text:='Update T1 Set F2=1 whe

[转载红鱼儿]kbmmw 开发点滴:TkbmMWLock用法

TStringList不是线程安全的,当我们在线程用到他是,要做保护.方法有两种,一种是用delphi自带的Critical,另外一种就是kbmMW为我们提供的TkbmMWLock类. 现在我们看看如何用TkbmMWLock为TStringList做线程安全: 1.基于TStringList声明自己的类: TThreadStringList=class(TStringList) 2.在该类中增加kbmMWLock实例 Private  FLock:TkbmMWLock; 在类的Create及De

[转载红鱼儿]kbmmw 开发点滴:There be must at least one field

There be must at least one field 用uniDAC+kbmMW+SQL Server做服务器,当客户端查询时,出现这个错误,在QQ群请教,一位朋友说,在服务器端查询不对,憋了一天,最终,朋友改了TkbmMWUNIDACConnection,得以解决,原来是这样,如果uniDAC+SQL Server,则需要调用CoInitialize.而kbmMWUNIDACConnection中没有调用. 代码如下,红色是需要增加的代码,当然仅对于MS SQL Server,对于

[转载红鱼儿]kbmmw 开发点滴:kbmMW客户端提交事务的现场处理

多层应用中的事务处理,是必须的,如果处理不好,就会出现各种数据不同步的现象,无法投入使用.以前用ASTA实现的多层应用,是在客户端利用ASTA机 制,将要提交的数据集.执行的SQL及SP,统统生成到一个脚本中,在ASTA是TAstaParamList,然后一次性提交到服务器,在服务器端在执 行这个脚本时,开启事务,执行脚本,如果成功则Commit,失败则Rollback. kbmMW提供了更好的事务处理机制,即可以在服务器端做事务处理(TkbmMWTransactionResolve)也可以在客

[转载红鱼儿]kbmmw 开发点滴:ErrorTable用法

TkbmMWClientQuery有一个ErrorTable属性,用于记录提交Query时返回的错误结果.当用户保存修改的业务数据,出错时,可以用ErrorTable定位出错的记录并提示错误信息. 下面是实现代码:   procedure TForm2.Button4Click(Sender: TObject); var   i:TkbmNativeInt;//必须声明为TkbmNativeInt,不然XE3编译出错. begin   if kbmMWClientQuery1.ErrorTabl

[转载红鱼儿]kbmmw 开发点滴:kbmMW:Unknown property:indexes

利用kbmMW的QueryServices,对数据集进行提交,当改用JSON格式时,客户端提交时,会产生这个错误,明明已经更新数据库,也产生这个错误!如果换成Bin格式,则正常. 能过查看kbmMWJSONStreamFormat单元,问题产生在这行代码:nIndexDefs:=nDefs.AsArray['indexes']; 可以这样理解: 客户端提交数据后,服务器会返回一个错误结果数据集,不管有无错误,都要返回这个结果集.客户端会把这个数据集加载到 ClientQuery.ErrorTab