Delphi XE10编写的海康摄像机SDK测试DEMO typeTShowStr=recordX:Word;Y:Word;S:array[0..43]ofAnsiChar;end;typeTCamera=recordpHWND:HWND;strictprivateaCam:LongInt;g_nPort:LongInt;struDeviceInfo:NE
用Delphi XE7Indy写的微信公众平台示例 DelphiXE7Indy的IdHTTP写的微信公众平台,只做了部分功能,希望大家能用上temp:=JSONObject.Values['subscribe'].ToString;Memo1.Lines.Add('subscribe:'+temp);temp:=JSONObject.Values['