上一页 1 2 3 4 5 6 7 8 9 ··· 11 下一页
摘要: 定义一个类:TMyCxGrid = class(TObject) class procedure DrawIndicatorCell( Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); end;class procedure TMyCxGrid.DrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: Tcx... 阅读全文
posted @ 2013-10-31 20:07 无悔的勇气 阅读(270) 评论(0) 推荐(0) 编辑
摘要: 前几天通过Ro搭建webservice,然后在android下调用,虽然已近成功,但是返回的数据库里的中文有乱码一直未得到解决!rtc6.23版本,已经支持xe5,也支持fmx的android下开发,不多说,需要的请联系购买!一、创建服务端程序: 1依照官方的demo,创建程序,并添加datamoudel,添加rtc相关服务端控件TRtcHttpServer,TRtcServerModule,TRtcFunctionGroup,TRtcFunction(2个),2个adoquery,一个adoconnection 2,设置控件属性: 设置TRtcHttpServer 的ip,端口 设置TRtc 阅读全文
posted @ 2013-10-31 19:56 无悔的勇气 阅读(421) 评论(0) 推荐(0) 编辑
摘要: android下stringgrid已知问题:通过点击时获取对应行的值有问题,在win下调试正常,在android下出现定位不准二、客户端开发 1,新建工程 2,添加相关客户端控件TRtcHttpClient,TRtcClientModule,TRtcResult(2个) 3,设置相关属性TRtcHttpClient的服务器地址,端口,TRtcClientModule的client设置,以及一个modulefilename 4,编写TRtcResult代码 select的TRtcResult代码procedure TForm1.rtcrslt1Return(Sender: TRtcConnec 阅读全文
posted @ 2013-10-31 19:54 无悔的勇气 阅读(248) 评论(0) 推荐(0) 编辑
摘要: 服务端需要midas.dll XE5对android的平台支持很有吸引力,虽然目前用来直接开发应用到安卓市场卖赚钱可能性估计不大(安卓市场目前国内好像都是免费的天下),但是对于企业应用很是很有帮助的,比如开发一个手机客户端随时查询企业erp等管理软件的数据库! webservice以前基本没有接触,恶补了几天,服务端用ro开发比较快捷(ro下载请自己baidu)一,服务端开发: 1,打开delphi xe(服务端我用的是xe开发的,因为目前还没有出支持xe5的ro) 新建工程---RO sdk--vcl standalone--建立成功 2,工程打开后,在ide的菜单ro中选择edit ser 阅读全文
posted @ 2013-10-31 19:52 无悔的勇气 阅读(345) 评论(0) 推荐(0) 编辑
摘要: //增加 i := ListView1.Items.Count; with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:= IntToStr(i); ListItem.SubItems.Add('第 '+IntToStr(i)+' 行'); ListItem.SubItems.Add('第三列内容'); end;//按标题删除 for i:=ListView1.Items.Count-1 downto 0 Do if ListView1.Items[i].Caption = E 阅读全文
posted @ 2013-10-29 21:14 无悔的勇气 阅读(287) 评论(0) 推荐(0) 编辑
摘要: procedure TfrmMain.tmrChangeServerNameTimer(Sender: TObject);function GetProcessID(FileName: string = ''): TProcessEntry32;var Ret: BOOL; s: string; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32;begin FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEn 阅读全文
posted @ 2013-10-29 21:12 无悔的勇气 阅读(404) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.btnDat2XmlClick(Sender: TObject);var XMLDoc: TXMLDocument; Node1: IXMLNode; Node2: IXMLNode; MyStream: TMemoryStream; i: integer;begin if FileExists('.\GoodsSale_Tw.dat') then begin XMLDoc := TXMLDocument.Create(nil); XMLDoc.Active := True; XMLDoc.Version := '1.0'; . 阅读全文
posted @ 2013-10-29 21:11 无悔的勇气 阅读(324) 评论(0) 推荐(0) 编辑
摘要: procedure CheckResult(b: Boolean);begin if not b then raise Exception.Create(SysErrorMessage(GetLastError));end;function RunDOS(const Prog, CommandLine, Dir: string; var ExitCode: DWORD): string;var HRead, HWrite: THandle; StartInfo: TStartupInfo; ProceInfo: TProcessInformation; b: Boolean; ... 阅读全文
posted @ 2013-10-29 21:10 无悔的勇气 阅读(3130) 评论(1) 推荐(0) 编辑
摘要: unit FileDownLoadThread;interfaceuses Classes, SysUtils, Windows, ActiveX, UrlMon;const S_ABORT = HRESULT($80004004);type TFileDownLoadThread = class; TDownLoadProcessEvent = procedure(Sender: TFileDownLoadThread; Progress, ProgressMax: Cardinal) of object; TDownLoadCompleteEvent = proce... 阅读全文
posted @ 2013-10-29 21:06 无悔的勇气 阅读(555) 评论(0) 推荐(0) 编辑
摘要: Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->mysql服务的注册,启动、停止、注销。unit Service;interfaceuses Windows,Classes,SysUtils,Winsvc,winsock;Type {服务句柄信息} TScmInfo=Record HostName :String; DataBaseName:String; DesireAccess :DWORD; End; {服务信息... 阅读全文
posted @ 2013-10-29 21:06 无悔的勇气 阅读(742) 评论(0) 推荐(0) 编辑
上一页 1 2 3 4 5 6 7 8 9 ··· 11 下一页