大家好,好多朋友来信咨询Delphi和C++Builder的移动开发、DataSnap架构等问题,希望能有Demo代码学习。其实Delphi和C++Builder本身自带有很多示例代码,已经覆盖了大部分Delphi和C++Builder开发工具的特性和技术。对于开发各种特定的应用,还是需要去在特定方向钻研该方面的技术的,不要指望一套Demo代码就可以代替自己的学习。

为了方便各位 Delphi 和 C++Builder开发者,有针对性的查找RAD Studio自带的示例代码,从而更快更有针对性的学习对应的功能。我整理了大部分的Demo程序,还有一些因为没有设备或者没有对应的环境,没有写明注释内容。对于FireDAC支持多种数据库的特性的demo,也请有需要的朋友自行查看Demo代码。而至于有朋友问如何连接Oracle等,则自带的FireDAC的简单的Demo都有选择链接服务器的。

大家可以用Ctrl+F搜索对应的内容。

程序的默认路径为下面

C:\Users\Public\Documents\Embarcadero\Studio\17.0\Samples\Object Pascal\

下载链接:https://pan.baidu.com/s/1I0kQRPwRBrA_FRwyZavF3A?pwd=vusf
提取码:vusf

+---Database 数据库方面的内容
| +---CloudAPI 云API,windows Azure和Amazon的云数据库的访问等,国内可能都没法用
| | +---CloudAPITest
| | ---CloudExplorer
| +---EMS 英巴开发工具中的私有云服务器(或中间件服务器),所有需要的外围支持都有了,只需要用户写自己的REST的服务内容,然后象插件一样,插入EMS服务器就可以了。需要单独收费,按用户数。
| | +---CustomLogin
| | +---FireDACResource
| | ---NotesResource
| +---FireDAC
| | +---Bin 辅助目录,帮助生成Demo数据库
| | +---DB 多种数据库的数据、元数据和SQL等
| | | +---Data
| | | +---Meta
| | | ---SQL
| | +---Samples 示例代码
| | | +---AddOn
| | | | +---SQLiteIniFile 使用TFDSQLiteIniFile在SQLite数据库上面实现INI文件类似的操作,包括普通数据类型和BLOB类型
| | | | | ---Demo
| | | | | ---data
| | | | ---VSE 将XML的结构和内容转化为表
| | | +---Comp Layer
| | | | +---TFDBatchMove 将text类型的数据复制到表,或者数据集里面的sql数据到表等批量操作,可以使用BatchMove特性来提高性能
| | | | +---TFDConnection
| | | | | +---ConnectionDefs 连接定义方法,在程序运行时创建、从INI文件读取等
| | | | | +---DLL_Sharing 通过DLL方式共享连接
| | | | | +---GetFieldNames 取得连接数据库的表以及表的字段
| | | | | +---InfoReport 取得FireDAC连接的详细信息,便于诊断
| | | | | +---Pooling 将连接改为连接池,采用多线程访问数据连接
| | | | | ---Transactions 事务的提交和回滚
| | | | +---TFDEventAlerter 事件处理,不是所有数据库都支持事件
| | | | +---TFDGUIxLoginDialog 数据库连接时候显示用户名和密码相关
| | | | +---TFDLocalSQL
| | | | | +---InMemDB 使用FDLocalSQL引擎支持的MemTable内存表,本质上就是用SQLite引擎
| | | | | +---MegaFMX 通过使用LocalSQL,可以将多种不同来源的数据,放到内存表中,然后再执行混合SQL
| | | | | ---xDBMS 使用LocalSQL将多种数据来源的表数据存入LocalSQL引擎,然后写SQL调用,与上面的例子类似
| | | | +---TFDMemTable
| | | | | +---CachedUpdates 使用MemTable进行缓存对记录的修改,或应用更新
| | | | | +---CloneCursor 克隆一个MemTable,并可以通过SetRange来限制显示范围
| | | | | +---IncFetching_MSSQL 将多块同构数据加载到同一个内存表中
| | | | | +---Main 一个综合性的MemTable的应用
| | | | | +---MasterDetail 主从结构使用MemTable和DataSource实现的方法
| | | | | ---NestedDataSet 使用内存表创建TDataSet数据类型字段,实现在一行数据中嵌套另外的一个多行的数据集
| | | | +---TFDMetaInfoQuery 一个综合性的取得元数据的程序,包含表、包、存储过程、字段索引等
| | | | +---TFDQuery
| | | | | +---Aggregates 不需要写其他语句,直接使用Aggregates特性在数据集上面计算聚合函数
| | | | | +---Blobs 使用CreateBlobStream和TBlobField读取BLOB字段
| | | | | +---BlobStreams 直接使用流作为insert的参数的例子
| | | | | +---CachedUpdates
| | | | | | +---Centralized使用SchemaAdapter对多个表格的更新集中管理
| | | | | | ---OnUpdateRecord 使用OnUpdateRecord事件更新记录
| | | | | +---ExecSQL
| | | | | | +---ArrayDML 用数组的方式批量操作数据
| | | | | | +---Async 异步执行SQL,前台可以干别的,使用AfterOpen实现
| | | | | | +---Batch 批量数据处理可以用Array特性
| | | | | | ---BatchErrorHandling 批量处理中间可能出错误,捕捉到错误后,进行相应的处理,然后继续执行剩余的SQL
| | | | | +---Filter 使用Filter属性的各种方法
| | | | | +---Indices 使用已有的Index排序
| | | | | +---Macros 对于不支持参数的SQL,可以采用Macro的方式替换对应的内容
| | | | | ---MasterDetail 基本的主从结构的表,直接使用SQL的参数
| | | | +---TFDSchemaAdapter
| | | | | ---MemTable利用MemTable和SchemaAdapter来决定更新哪些内容,与上面的例子同理
| | | | +---TFDScript
| | | | | +---Console 使用Console界面执行SQL命令
| | | | | +---GUI 图形界面的SQL脚本执行程序
| | | | | ---Main 图形界面的执行SQL的总览例子程序
| | | | +---TFDStoredProc
| | | | | +---Oracl_NextRecordSet 使用存储过程的例子
| | | | | ---Oracl_UpdateSQL
| | | | +---TFDTableAdapter
| | | | | ---Main 使用FDCommand支持TableAdapter的例子
| | | | ---TFDUpdateSQL
| | | | ---Main 使用FDUpdateSQL缓存更新
| | | +---DApt Layer
| | | | +---Autoinc fields 主从结构、自增字段的数据添加的例子
| | | | +---Commands
| | | | +---GettingStarted
| | | | +---MappingColumns
| | | | ---Oracl_StoredProc
| | | +---DatS Layer
| | | | +---AddRelation 使用DatSManager创建表格结构和关系的例子
| | | | +---AddTableAndConstr
| | | | +---AggregatesInView
| | | | +---AutoInc
| | | | +---CalcColumnSimple
| | | | +---CalcColumnWithFuncs
| | | | +---ChildRelations
| | | | +---CompareRows
| | | | +---CreateRows
| | | | +---CreateTable
| | | | +---CreateView
| | | | +---GetChanges
| | | | +---MasterDetail
| | | | +---MasterDetAutoInc
| | | | +---Mechanisms
| | | | +---RowFilter
| | | | +---SchemaAcceptChanges
| | | | +---SearchingInView
| | | | ---TableUpdates
| | | +---DBMS Specific 这对每种数据库的特性的例子
| | | | +---InterBase
| | | | +---MongoDB
| | | | +---MSSQL
| | | | +---Oracle
| | | | +---PostgreSQL
| | | | ---SQLite
| | | +---Getting Started 针对每种数据库的基本特性的综合例子
| | | | +---Firebird
| | | | +---InterBase
| | | | +---MSAccess
| | | | +---MSSQL
| | | | +---MySQL
| | | | ---SQLite
| | | +---Getting Started FMX 针对移动端SQLite数据库的例子
| | | | ---SQLite_Desktop
| | | +---Moni Layer
| | | | +---Clients
| | | | ---Main
| | | +---Phys Layer
| | | | +---IFDPhysCommand
| | | | | +---Async
| | | | | +---Batch
| | | | | +---EscapeFunctions
| | | | | +---FetchTables
| | | | | ---Macros
| | | | +---IFDPhysConnection
| | | | | +---CreateConnection
| | | | | +---Pooling
| | | | | ---Transactions
| | | | ---IFDPhysMetaInfoCommand
| | | | +---Indices
| | | | +---StoredProc
| | | | ---Tables
| | | ---Stan Layer
| | | ---ExprEval 在FireDAC中直接分析并计算算数表达式的例子
| | ---Tool
| | +---Executor
| | | ---GUI
| | ---reFind 老版本的DB程序,迁移到FireDAC的迁移工具
| | +---AD2FDMigration AnyDAC迁移到FireDAC
| | +---BDE2FDMigration BDE迁移到FireDAC
| | +---DBX2FDMigration DBX迁移到FireDAC
| | ---XE72XE8Migration XE7版本迁移到最新版本FireDAC
| +---IBX
| | +---Admin
| | +---GdsDemo
| | +---IBMastApp
| | ---MtsPool
| +---JSONWriter
| ---RESTDemo
+---DataSnap 三层架构DataSnap的例子
| +---Basic 传统DBX方式的,使用TSQLConnection的DataSnap的例子
| +---DataSnapMonitor
| +---EchoToChannel
| +---FireDAC 使用FireDAC组件的,使用TFDConnection链接并使用TStream方式传输、使用FireDAC控件完成调用的DataSnap的例子
| +---FireDACJSONReflect 使用FireDAC方式,REST架构并使用JSON传输数据,适合客户端不是delphi编写,但希望使用REST方式解析JSON格式数据的情况。
| +---FireDAC_DBX 使用DBX的链接方式,但是使用FireDAC的二进制传输方式的DataSnap例子
| ---LtWeightCallbacks 使用DataSnap回调的例子
+---LiveBindings
| +---AdapterBindSource
| +---bindgridlink
| | +---fmx
| | ---vcl
| +---bindlink
| | +---fmx
| | ---vcl
| +---common
| ---oneofeach
| ---vcl
+---Mobile Snippets 移动设备小程序
| +---Accelerometer 加速计
| +---AccessCameraApp 使用摄像头照相的动作的例子
| +---AndroidIntents Android的不同程序之间的Intent的例子
| | +---ReceiveIntent
| | ---SendIntent
| +---AudioRecPlay 使用Mic记录声音
| +---CameraComponent 使用CameraComponent组件的例子
| +---CameraRoll 访问相机胶卷的动作
| +---CustomPicker 自定义的Picker,就是ComboBox里面加ListBoxItem的例子
| +---DatePicker 日期的选择的例子
| +---DeviceInfo 显示设备的信息
| +---FireDACSQLite 使用SQLite的增删改查的例子
| +---FireDAC_IBLite 使用IBLite的数据库的例子
| +---Gyroscope 使用陀螺仪调整3D模型的例子
| +---HorizontalScroll 应用THorzScollBox的水平滚动图片的例子
| +---InteractiveGestures
| | +---ImageRotation 图片旋转手势的例子
| | +---ImageZoom 图片放大缩小手势的例子
| | ---TapAndHold 点击和保持手势的例子
| +---Location 获取位置信息的例子
| +---MessageAlerts 显示Message的例子,有单一消息,还有多段的消息
| +---Notifications
| | +---SendCancelNotification
| | ---SetResetBadgeNumber
| +---OrientationSensor 方向传感器的例子(三维指南针)
| +---PhoneDialer 一个使用TPlatformService获得Sim卡信息并拨打电话的例子,有可能在某些设备上面执行失败,国内设备可能出现不支持PhoneDialer服务的情况
| +---PlayAudioFile 使用TMediaPlay组件播放mp3的例子
| +---ShareSheet 使用标准Action来实现拍照和分享的功能
| +---TabSliding 使用TTabControl实现左右滑动页面的例子,可以根据设备不同显示不同风格
| +---TimePicker 使用TTimeEdit实现选择时间
| +---VideoPlayback 使用TMediaPlay播放mp4的例子,包括简单的控制功能
| ---WebBrowser 使用WebBrowser控件支持浏览网页等内容
+---Multi-Device Samples
| +---Cloud 云服务商主要是国外的
| | +---BaaS
| | ---SurfSpot Finder
| +---Device Sensors and Services
| | +---AndroidBeaconServiceDemo 使用TBeacon组件,并将TBeacon组件放入到Android服务中,这个例子中也有TNotificationCenter组件的使用
| | +---AndroidNotificationServiceDemo 将TNotificationCenter组件放到Android的服务中,给程序发送消息的例子。
| | +---App Analytics 使用TAppAnalytics组件并使用AppAnalytics功能的例子。AppAnalytic可以帮助开发者分析软件的真实使用情况,该功能需要使用EDN账户。
| | +---App Tethering 通过TTetheringManager和TTetheringAppProfile控件实现非常简单的远程调用类似的功能。同时,TTetheringManager负责链接,TTetheringAppProfile则负责执行远程调用和自动复制远程数据。只需要告诉一下复制方向就可以。并且AppTethering技术支持多设备连接,不是只能在两端之间通讯,这点还没有去实际设备上面验证。
| | | +---MediaPlayer
| | | | +---MediaPlayerCommand 这个是控制端
| | | | ---MediaPlayerHD 这个相当于服务端,是个播放媒体的例子
| | | ---PhotoWall
| | | +---DesktopWall 这个是桌面端
| | | ---Mobile 移动端可以照相,然后通过AppTethering技术的resource发送到桌面端
| | +---Bluetooth
| | | +---Beacons
| | | | +---Beacon Device 使用TBeaconDevice访问Beacon设备
| | | | +---Beacons Proximity 使用TBeaconManager注册多个Beacon设备,并监视是否进入这些Beacon设备范围的例子
| | | | +---BLE_BeaconScanner 使用TBluetoothLEManager扫描低功率蓝牙设备的例子
| | | | +---DemoProximityColors 一个iOS项目,Android下面没有成功
| | | | +---SensorTag 这个是与特定的低功率蓝牙传感器通讯的例子,和我的Blog里面讲解和iBeacon设备通讯的例子一样
| | | | ---Simple Beacon Demo 使用TBeacon组件的简单的例子,不使用BlueToothManager等组件
| | | +---BLEScanner 低功率蓝牙设备扫描例子,这个例子不限制设备必须为Beacon设备
| | | +---BlueChat 一个使用蓝牙TBluetoothManager组件,在两个设备之间建立Socket通道,之后收发信息的例子。我记得这个例子对Android设备的版本有要求,太低版本的不支持
| | | +---Classic Bluetooth Basic app 传统蓝牙基础示例,讲解了如何配对,发现服务,创建Socket之后通讯等
| | | +---EchoClassic
| | | +---ExploreDevicesLE 这是一个运行在MacOS上面的低功率蓝牙的发现程序,同样是使用 TBluetoothLEManager ,发现设备,发现服务,发现Characteristic,并实现通讯的例子
| | | +---HeartRateMonitor 一个低功率蓝牙的心率监测的例子,使用TBluetoothLE组件,访问Characteristic,解析回传数据并显示
| | | +---ProximityClientServer
| | | ---ScanFilterServicesAdvData
| | +---CapitalIAP 这是个TInAppPurchase的例子,需要内购功能看这里
| | +---DownloadImage 使用Android后台Intent服务方式,下载图片的例子,国内手机可以无法正常下载
| | +---DownloadServiceDemo
| | | +---DownloadImage
| | | ---DownloadService
| | +---FlashLight 一个使用TCameraComponent组件的手电筒的例子
| | +---LocationDemo 一个使用LocationSensor定位,之后使用WebBrowser控件显示在google地图上面。国内无法运行。
| | +---Map Type Selector 在iOS下面的地图类型选择的例子
| | +---Maps 使用TMapView控件的例子,iOS估计可以运行,国内Android应该不行
| | +---SensorInfo 一个综合性的传感器的例子
| | ---Windows 10 Notifications 在Windows10平台通知的例子
| +---EMS 使用EMS中间件服务的例子,EMS按用户数付费
| +---Google Glass 使用Google眼睛的例子
| +---Media
| | +---MusicPlayer 一个音乐播放器的例子,这个播放器不是使用MediaPlayer控件,而是需要依据不同系统调用各自系统的播放器,相当于是如何写的MediaPlayer控件。同时还有音乐库的查询等。
| | ---PhotoEditorDemo 一个图片编辑软件例子,通过标准Action照相、访问相机胶卷和分享图片等功能。同时使用TFilterManager的各种过滤器修改照片。
| +---Parallel Library 并行计算库的例子
| +---Physics
| | +---Box2DHello 使用Boxe2D引擎的Hello程序
| | ---TestBed 使用Box2D引擎自带的测试程序
| ---User Interface
| +---ActionsDemo 使用ActionList 建立动作,然后在MainMenu和PopMenu中关联的例子
| +---Controls 各种移动端UI控件的使用的例子
| +---ControlsDesktop 各种桌面应用程序的UI控件的使用例子
| +---CopyPaste 一个使用TPlatformServices的跨平台的CopyPaste的示例程序
| +---CustomListBox 使用代码自定义ListBox内容的一个例子
| +---DragAndDrop 使用TPlatformServices里面的拖拽服务,因为都跨平台了
| +---FireFlow 一个可以显示多张图片翻转效果的例子
| +---Forms 一个横竖屏转换的例子
| +---ImageList 一个使用ImageList在各种支持ImageList的控件上的综合应用的例子
| +---KeyboardToolbar
| +---KeyboardTypes在Edit控件里面使用各种keyboard的例子
| +---ListCollections
| +---ListView 关于自定义ListView的多个Demo程序,从自带的Custom方式到自己写代码的方式
| | +---CustomAdapter
| | | ---data
| | +---CustomAdapters
| | | +---CustomAdapter
| | | ---drowsyserver
| | | ---data
| | +---ListViewAddThumbAndCaption
| | +---ListViewCheckList
| | +---ListViewCustomBottomDetail
| | +---ListViewMultiDetailAppearance
| | +---ListViewRatingsAppearance
| | ---SimpleListView
| +---LowLevel3D 使用FIreMonkey 3D特性的示例代码
| +---ModelViewer 可以查看3D模型的示例程序,可以旋转、缩放
| | +---FireMonkey
| | +---Models
| | ---Station
| +---MouseOverHints 支持鼠标在控件上面的时候显示Hint,这是个多个控件的综合例子
| +---MultiView 使用MultiView控件的例子,展现了Master区域依据不同OS或不同设置的显示方式
| +---NativeControls 在多种控件的ControlType里面选择Platform时候,则系统会使用原生控件,同时原生控件的特性也被激活,FMX的某些特性可能缺失。当前原生控件仅支持iOS的原生控件
| +---PlatformScrollBox 控件TPresentedScrollBox的例子,可以水平垂直滚动的区域
| +---PullToRefresh 下拉就刷新的例子
| +---ScrollableForm 使用VKAutoShowMode的全局变量,简化了每个输入控件都设置键盘类型的情况。同时这个例子还讲了如何让form适当滚动,避免弹出来的键盘遮挡住输入控件的特性
| +---SearchContext
| +---Settings Project 类似系统设置界面的例子,里面用了TabControl作为页面的切换
| +---ShaderFilters 使用TFilterManager的过滤器和动画效果对图片处理的例子
| +---TabControlDemo 使用TabControl的综合性的例子
| +---TabletMasterDetailWithSearch 一个ListView的综合例子,可以显示主从信息
| +---TabSlideTransition 多页面的Tabcontrol的例子,可以左右滑动翻动页面
| ---Windows10NavigationPane

---VCL

+---ActivityIndicator 这是一个windows10风格的indicator的代码
+---App Analytics 使用AppAnalytics的应用分析特性的代码
+---InetWinSockets 一个注册Web.Winsockets组件的包的例子
+---RelativePanel 控件对齐关系的示例
+---SearchBox 一个SearchBox的演示
+---Sensors 针对Win的平板,或者带有传感器的设备的示例
+---SplitView 在Win10风格的新控件TSplitView,和移动端的很类似
+---Taskbar
|   +---MDI 多子窗口时候,在Win7及以上环境的任务条,使用Taskbar控件
|   +---OneForm 一个Taskbar控件的综合例子,实现预览下面显示按钮等
|   \---VideoPlayer 一个视频播放器的例子,通过Taskbar实现视频预览,按钮实现相应的功能,以及进度等信息
+---ToggleSwitch 这是一个TToggleSwitch 开关控件的各种设置的示例程序
+---tregsvr 注册Com组件的工具
+---Windows 10 Calendar
+---Windows 10 Notifications
\---Windows 10 SharingContract
    +---Component
    \---FrameWork
最后修改:2023 年 07 月 03 日
一分也是爱