├── uMain.ddp ├── MyMQTT.res ├── TMQTT ├── MQTT.pas ├── AtomQueue.pas └── MQTTHeaders.pas ├── MyMQTT.stat ├── MyMQTT.identcache ├── MyMQTT.dpr ├── MyMQTT.dproj.local ├── LICENSE.md ├── LICENSE.md.bak ├── README.md ├── uMain.dfm ├── uMain.pas ├── MyMQTT.dproj └── MyMQTT.drc /uMain.ddp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/join2017/dmqtt/HEAD/uMain.ddp -------------------------------------------------------------------------------- /MyMQTT.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/join2017/dmqtt/HEAD/MyMQTT.res -------------------------------------------------------------------------------- /TMQTT/MQTT.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/join2017/dmqtt/HEAD/TMQTT/MQTT.pas -------------------------------------------------------------------------------- /TMQTT/AtomQueue.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/join2017/dmqtt/HEAD/TMQTT/AtomQueue.pas -------------------------------------------------------------------------------- /TMQTT/MQTTHeaders.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/join2017/dmqtt/HEAD/TMQTT/MQTTHeaders.pas -------------------------------------------------------------------------------- /MyMQTT.stat: -------------------------------------------------------------------------------- 1 | [Stats] 2 | EditorSecs=105146 3 | DesignerSecs=470 4 | InspectorSecs=314 5 | CompileSecs=1420465 6 | OtherSecs=5715 7 | StartTime=2017/7/6 9:04:16 8 | RealKeys=0 9 | EffectiveKeys=0 10 | DebugSecs=98819 11 | -------------------------------------------------------------------------------- /MyMQTT.identcache: -------------------------------------------------------------------------------- 1 | ;C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\MyMQTT.dprDC:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\TMQTT\AtomQueue.pasFC:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\TMQTT\MQTTHeaders.pas:C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\uMain.pas?C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\TMQTT\MQTT.pas -------------------------------------------------------------------------------- /MyMQTT.dpr: -------------------------------------------------------------------------------- 1 | program MyMQTT; 2 | 3 | uses 4 | Forms, 5 | uMain in 'uMain.pas' {fMain}, 6 | MQTT in 'TMQTT\MQTT.pas', 7 | MQTTHeaders in 'TMQTT\MQTTHeaders.pas', 8 | AtomQueue in 'TMQTT\AtomQueue.pas'; 9 | 10 | {$R *.res} 11 | 12 | begin 13 | Application.Initialize; 14 | Application.MainFormOnTaskbar := True; 15 | Application.CreateForm(TfMain, fMain); 16 | Application.Run; 17 | end. 18 | -------------------------------------------------------------------------------- /MyMQTT.dproj.local: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 2017/07/05 08:04:53.000.962,C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\MyMQTT.dproj=C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\TMQTTTest.dproj 5 | 2017/07/06 14:13:14.000.379,=C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\Unit1.pas 6 | 2017/07/06 14:13:41.000.524,C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\TMQTT\CnContainers.pas=C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\Unit1.pas 7 | 2017/07/06 16:48:09.000.002,=C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\Unit1.pas 8 | 2017/07/06 16:48:25.000.000,C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\TMQTT\AtomQueue.pas=C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\Unit1.pas 9 | 2017/07/06 16:57:28.000.095,C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\TMQTT\CnContainers.pas= 10 | 2017/07/10 17:47:35.000.519,C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\TMQTT\MQTTReadThread.pas= 11 | 12 | 13 | -------------------------------------------------------------------------------- /LICENSE.md: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | The MIT License (MIT) 5 | 6 | Copyright (c) 2013 Jamie Ingilby 7 | Copyright (c) 2014 join, LLC. All rights reserved. 8 | 9 | 10 | Permission is hereby granted, free of charge, to any person obtaining a copy of 11 | this software and associated documentation files (the "Software"), to deal in 12 | the Software without restriction, including without limitation the rights to 13 | use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of 14 | the Software, and to permit persons to whom the Software is furnished to do so, 15 | subject to the following conditions: 16 | 17 | The above copyright notice and this permission notice shall be included in all 18 | copies or substantial portions of the Software. 19 | 20 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 21 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS 22 | FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR 23 | COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER 24 | IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN 25 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. 26 | 27 | 28 | 29 | 30 | 31 | 32 | -------------------------------------------------------------------------------- /LICENSE.md.bak: -------------------------------------------------------------------------------- 1 | 2 | **Features** 3 | * [MQTT v3.1 - V3.1.1 compliant](http://docs.oasis-open.org/mqtt/mqtt/v3.1.1/os/mqtt-v3.1.1-os.html) 4 | 5 | **Future** 6 | SSL 7 | 8 | 9 | socket api use Delphi-Cross-Socket 10 | WiNDDRiVER(soulawing@gmail.com) 11 | https://github.com/winddriver/Delphi-Cross-Socket.git 12 | 13 | 14 | 15 | 16 | 17 | 18 | The MIT License (MIT) 19 | 20 | Copyright (c) 2013 Jamie Ingilby 21 | Copyright (c) 2014 join, LLC. All rights reserved. 22 | 23 | Permission is hereby granted, free of charge, to any person obtaining a copy of 24 | this software and associated documentation files (the "Software"), to deal in 25 | the Software without restriction, including without limitation the rights to 26 | use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of 27 | the Software, and to permit persons to whom the Software is furnished to do so, 28 | subject to the following conditions: 29 | 30 | The above copyright notice and this permission notice shall be included in all 31 | copies or substantial portions of the Software. 32 | 33 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 34 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS 35 | FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR 36 | COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER 37 | IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN 38 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. 39 | 40 | 41 | 42 | 43 | 44 | 45 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | 2 | mail: 394251165@qq.com 3 | 4 | Develop IDE Delphi 10.2 Version 25.0.26309.314 5 | 6 | **Features** 7 | 8 | * [MQTT v3.1 - V3.1.1 compliant](http://docs.oasis-open.org/mqtt/mqtt/v3.1.1/os/mqtt-v3.1.1-os.html) 9 | 10 | 11 | **Future** 12 | SSL 13 | 14 | android 15 | 16 | IOS 17 | 18 | DLL/.So 19 | 20 | 21 | socket api use Delphi-Cross-Socket 22 | 23 | WiNDDRiVER(soulawing@gmail.com) 24 | 25 | https://github.com/winddriver/Delphi-Cross-Socket.git 26 | 27 | 28 | 29 | # TMQTT 2 (ALPHA) for Delphi by Jamie I and join 30 | 31 | ## Introduction 32 | 33 | **WARNING: This is still considered ALPHA quality, and is NOT considered ready for *any real* use yet. All contributions and bug fix pull requests are appreciated.** 34 | 35 | 36 | TMQTT is a non-visual Delphi Client Library for the IBM Websphere MQ Transport Telemetry protocol ( http://mqtt.org ). It allows you to connect to a Message Broker that uses MQTT such as the [Really Small Message Broker](http://alphaworks.ibm.com/tech/rsmb) which is freely available for evaluation purposes on IBM Alphaworks. Mosquitto is an open source MQTT 3.1 broker ( http://mosquitto.org/ ). 37 | 38 | TMQTT is a complete re-write of the original TMQTTClient that I wrote and it is sufficiently different enough to release in parallel. 39 | 40 | MQTT is an IoT protocol, further information can be found here: http://mqtt.org/ 41 | 42 | 43 | ## Points of Note 44 | you must test, but i tested. 45 | 46 | ## Usage 47 | There is a sample VCL project included in the download but usage is relatively simple. 48 | This is a non-visual component so all you need to do is to put the TMQTT directory into your compiler paths and then put MQTT in your uses. 49 | 50 | ```delphi 51 | uses MQTT; 52 | var 53 | MQTTClient: TMQTT; 54 | begin 55 | MQTT := TMQTT.Create('localhost', 1883); 56 | 57 | MQTT.WillTopic := ''; 58 | MQTT.WillMsg := ''; 59 | 60 | MQTT.Username := edt_UserName.Text; 61 | MQTT.Password := edt_TestPassWord.Text; 62 | MQTT.ClientID := edt_UserName.Text; 63 | 64 | // Events 65 | MQTT.OnConnAck := GotConnAck; 66 | MQTT.OnPublishBytes := GotPubBytes; 67 | MQTT.OnPubAck := GotPubAck; 68 | MQTT.OnPubRec := GotPubRec; 69 | MQTT.OnPubRel := GotPubRel; 70 | MQTT.OnPubComp := GotPubComp; 71 | 72 | MQTT.OnPingReq := GotPingReq; 73 | MQTT.OnPingResp := GotPingResp; 74 | MQTT.OnSubAck := GotSubAck; 75 | MQTT.OnUnSubAck := GotUnSubAck; 76 | 77 | MQTT.OnPubAckSend := GotPubAckSend; 78 | MQTT.OnPubRecSend := GotPubRecSend; 79 | MQTT.OnPubRelSend := GotPubRelSend; 80 | MQTT.OnPubCompSend := GotPubCompSend; 81 | MQTT.OnPublishSend := GotPubSend; 82 | MQTT.OnSubSend := GotSubSend; 83 | MQTT.OnUnSubSend := GotUnSubSend; 84 | 85 | MQTT.OnConnect := GoConnect; 86 | 87 | MQTT.Connect(); 88 | 89 | 90 | end; 91 | 92 | procedure TfMain.GotPubBytes(Sender: TObject; topic: string; PackageId: integer; payload: TBytes; QOS: integer); 93 | var 94 | cnt: Ansistring; 95 | begin 96 | inc(Rcv); 97 | self.Caption := ' rcv count:(' + inttostr(Rcv) + ')'; 98 | 99 | SetString(cnt, PAnsiChar(@payload[0]), length(payload)); 100 | mStatus.Lines.Add(GetCurrentDateTime + ': rev << publish message on topic:' + string(topic) + ', PackageId:' + 101 | inttostr(PackageId) + ', qos:' + inttostr(QOS) + ', payload: ' + string(cnt)); 102 | 103 | end; 104 | 105 | ``` 106 | 107 | -------------------------------------------------------------------------------- /uMain.dfm: -------------------------------------------------------------------------------- 1 | object fMain: TfMain 2 | Left = 338 3 | Top = 156 4 | Caption = 'TMQTT Version V3.1.1(QOS=0/1/2)' 5 | ClientHeight = 443 6 | ClientWidth = 561 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnDestroy = FormDestroy 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object Panel1: TPanel 18 | Left = 0 19 | Top = 0 20 | Width = 561 21 | Height = 313 22 | Align = alTop 23 | BevelOuter = bvNone 24 | TabOrder = 0 25 | object Label1: TLabel 26 | Left = 9 27 | Top = 88 28 | Width = 41 29 | Height = 13 30 | Caption = 'AppKey:' 31 | end 32 | object Label2: TLabel 33 | Left = 6 34 | Top = 119 35 | Width = 53 36 | Height = 13 37 | Caption = 'SecretKey:' 38 | end 39 | object Label3: TLabel 40 | Left = 5 41 | Top = 151 42 | Width = 22 43 | Height = 13 44 | Caption = 'UID:' 45 | end 46 | object Label4: TLabel 47 | Left = 6 48 | Top = 227 49 | Width = 61 50 | Height = 13 51 | Caption = 'Publish Topic' 52 | end 53 | object Label5: TLabel 54 | Left = 6 55 | Top = 267 56 | Width = 78 57 | Height = 13 58 | Caption = 'Publish Message' 59 | end 60 | object Label6: TLabel 61 | Left = 145 62 | Top = 227 63 | Width = 75 64 | Height = 13 65 | Caption = 'SubScribe Topic' 66 | end 67 | object Label7: TLabel 68 | Left = 260 69 | Top = 227 70 | Width = 56 71 | Height = 13 72 | Caption = 'QOS(0/1/2)' 73 | end 74 | object lblHeader: TLabel 75 | Left = 8 76 | Top = 0 77 | Width = 410 78 | Height = 34 79 | Alignment = taCenter 80 | AutoSize = False 81 | Caption = 'MQTT-Client' 82 | Font.Charset = DEFAULT_CHARSET 83 | Font.Color = clNavy 84 | Font.Height = -21 85 | Font.Name = 'Tahoma' 86 | Font.Style = [fsBold, fsUnderline] 87 | ParentFont = False 88 | Layout = tlCenter 89 | end 90 | object lblSynapse: TLabel 91 | Left = 8 92 | Top = 40 93 | Width = 402 94 | Height = 13 95 | Caption = 96 | 'You will need the Synapse Internet components to be in your proj' + 97 | 'ect search paths. ' 98 | end 99 | object Label8: TLabel 100 | Left = 5 101 | Top = 186 102 | Width = 53 103 | Height = 13 104 | Caption = 'UserName:' 105 | end 106 | object Label9: TLabel 107 | Left = 188 108 | Top = 185 109 | Width = 52 110 | Height = 13 111 | Caption = 'PassWord:' 112 | end 113 | object Label10: TLabel 114 | Left = 456 115 | Top = 112 116 | Width = 37 117 | Height = 13 118 | Caption = 'Label10' 119 | Visible = False 120 | end 121 | object btnConnect: TButton 122 | Left = 343 123 | Top = 56 124 | Width = 75 125 | Height = 25 126 | Caption = 'Connect' 127 | TabOrder = 0 128 | OnClick = btnConnectClick 129 | end 130 | object btnDisconnect: TButton 131 | Left = 343 132 | Top = 87 133 | Width = 75 134 | Height = 25 135 | Caption = 'Disconnect' 136 | TabOrder = 1 137 | OnClick = btnDisconnectClick 138 | end 139 | object btnPing: TButton 140 | Left = 343 141 | Top = 118 142 | Width = 75 143 | Height = 25 144 | Caption = 'Ping' 145 | TabOrder = 2 146 | OnClick = btnPingClick 147 | end 148 | object btnPublish: TButton 149 | Left = 343 150 | Top = 150 151 | Width = 75 152 | Height = 25 153 | Caption = 'Publish' 154 | TabOrder = 3 155 | OnClick = btnPublishClick 156 | end 157 | object btnSubscribe: TButton 158 | Left = 343 159 | Top = 224 160 | Width = 75 161 | Height = 25 162 | Caption = 'Subscribe' 163 | TabOrder = 4 164 | OnClick = btnSubscribeClick 165 | end 166 | object edt_appkey: TEdit 167 | Left = 56 168 | Top = 87 169 | Width = 281 170 | Height = 21 171 | TabOrder = 5 172 | Text = 'b51077f8-8028-944509' 173 | end 174 | object edt_qos: TEdit 175 | Left = 260 176 | Top = 246 177 | Width = 48 178 | Height = 21 179 | TabOrder = 6 180 | Text = '0' 181 | end 182 | object edt_Secretkey: TEdit 183 | Left = 56 184 | Top = 118 185 | Width = 281 186 | Height = 21 187 | TabOrder = 7 188 | Text = '0e57836981eec035db182b52877c9e7f' 189 | end 190 | object edt_Uid: TEdit 191 | Left = 56 192 | Top = 149 193 | Width = 281 194 | Height = 21 195 | TabOrder = 8 196 | Text = 'Fc5wGsTuvumomVomEtTWD4TKtyub7iWjR9' 197 | end 198 | object eIP: TEdit 199 | Left = 8 200 | Top = 58 201 | Width = 202 202 | Height = 21 203 | TabOrder = 9 204 | Text = '192.168.1.18' 205 | end 206 | object eMessage: TEdit 207 | Left = 6 208 | Top = 286 209 | Width = 329 210 | Height = 21 211 | TabOrder = 10 212 | Text = 'abc' 213 | end 214 | object ePort: TEdit 215 | Left = 216 216 | Top = 58 217 | Width = 121 218 | Height = 21 219 | TabOrder = 11 220 | Text = '1883' 221 | end 222 | object eSubTopic: TEdit 223 | Left = 144 224 | Top = 246 225 | Width = 110 226 | Height = 21 227 | TabOrder = 12 228 | Text = 'test' 229 | end 230 | object eTopic: TEdit 231 | Left = 6 232 | Top = 246 233 | Width = 121 234 | Height = 21 235 | TabOrder = 13 236 | Text = 'test' 237 | end 238 | object UnSubscribe: TButton 239 | Left = 343 240 | Top = 255 241 | Width = 75 242 | Height = 25 243 | Caption = 'UnSubscribe' 244 | TabOrder = 14 245 | OnClick = UnSubscribeClick 246 | end 247 | object edt_UserName: TEdit 248 | Left = 56 249 | Top = 184 250 | Width = 126 251 | Height = 21 252 | TabOrder = 15 253 | Text = 'testuser' 254 | end 255 | object edt_TestPassWord: TEdit 256 | Left = 246 257 | Top = 182 258 | Width = 91 259 | Height = 21 260 | TabOrder = 16 261 | Text = 'testpassword' 262 | end 263 | object PublishBytes: TButton 264 | Left = 343 265 | Top = 181 266 | Width = 75 267 | Height = 25 268 | Caption = 'PublishBytes' 269 | TabOrder = 17 270 | OnClick = PublishBytesClick 271 | end 272 | object Button1: TButton 273 | Left = 341 274 | Top = 286 275 | Width = 77 276 | Height = 25 277 | Caption = 'Clear' 278 | TabOrder = 18 279 | OnClick = Button1Click 280 | end 281 | object Button2: TButton 282 | Left = 456 283 | Top = 56 284 | Width = 89 285 | Height = 25 286 | Caption = 'PUBLISH(WHILE)' 287 | TabOrder = 19 288 | OnClick = Button2Click 289 | end 290 | object Button4: TButton 291 | Left = 456 292 | Top = 138 293 | Width = 89 294 | Height = 25 295 | Caption = 'test' 296 | TabOrder = 20 297 | Visible = False 298 | OnClick = Button4Click 299 | end 300 | end 301 | object Panel2: TPanel 302 | Left = 0 303 | Top = 313 304 | Width = 561 305 | Height = 130 306 | Align = alClient 307 | TabOrder = 1 308 | object mStatus: TMemo 309 | Left = 1 310 | Top = 1 311 | Width = 559 312 | Height = 128 313 | Align = alClient 314 | ScrollBars = ssVertical 315 | TabOrder = 0 316 | end 317 | end 318 | object Button3: TButton 319 | Left = 456 320 | Top = 107 321 | Width = 89 322 | Height = 25 323 | Caption = 'count' 324 | TabOrder = 2 325 | Visible = False 326 | OnClick = Button3Click 327 | end 328 | object Timer1: TTimer 329 | Enabled = False 330 | Interval = 100000 331 | OnTimer = Timer1Timer 332 | Left = 512 333 | Top = 104 334 | end 335 | end 336 | -------------------------------------------------------------------------------- /uMain.pas: -------------------------------------------------------------------------------- 1 | unit uMain; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, ExtCtrls, 8 | System.Hash, Generics.Collections, 9 | MQTT; 10 | 11 | type 12 | TfMain = class(TForm) 13 | lblHeader: TLabel; 14 | lblSynapse: TLabel; 15 | btnConnect: TButton; 16 | btnDisconnect: TButton; 17 | btnPublish: TButton; 18 | eTopic: TEdit; 19 | eMessage: TEdit; 20 | eIP: TEdit; 21 | ePort: TEdit; 22 | btnPing: TButton; 23 | btnSubscribe: TButton; 24 | eSubTopic: TEdit; 25 | mStatus: TMemo; 26 | edt_Secretkey: TEdit; 27 | edt_Uid: TEdit; 28 | edt_appkey: TEdit; 29 | Label1: TLabel; 30 | Label2: TLabel; 31 | Label3: TLabel; 32 | Label4: TLabel; 33 | Label5: TLabel; 34 | Label6: TLabel; 35 | Label7: TLabel; 36 | edt_qos: TEdit; 37 | UnSubscribe: TButton; 38 | Panel1: TPanel; 39 | Panel2: TPanel; 40 | Label8: TLabel; 41 | edt_UserName: TEdit; 42 | Label9: TLabel; 43 | edt_TestPassWord: TEdit; 44 | PublishBytes: TButton; 45 | Button1: TButton; 46 | Button2: TButton; 47 | Timer1: TTimer; 48 | Label10: TLabel; 49 | Button3: TButton; 50 | Button4: TButton; 51 | procedure btnConnectClick(Sender: TObject); 52 | procedure btnDisconnectClick(Sender: TObject); 53 | procedure btnPingClick(Sender: TObject); 54 | procedure btnPublishClick(Sender: TObject); 55 | procedure btnSubscribeClick(Sender: TObject); 56 | procedure GotConnAck(Sender: TObject; ReturnCode: integer); 57 | procedure GotPingResp(Sender: TObject); 58 | procedure GotPingReq(Sender: TObject); 59 | procedure GotSubAck(Sender: TObject; MessageID: integer; GrantedQoS: Array of integer); 60 | procedure GotUnSubAck(Sender: TObject; MessageID: integer); 61 | procedure GotPub(Sender: TObject; topic: string; PackageId: integer; payload: string; QOS: integer); 62 | procedure GotPubBytes(Sender: TObject; topic: string; PackageId: integer; payload: TBytes; QOS: integer); 63 | 64 | procedure GotPubAck(Sender: TObject; MessageID: integer); 65 | procedure GotPubRec(Sender: TObject; MessageID: integer); 66 | procedure GotPubRel(Sender: TObject; MessageID: integer); 67 | procedure GotPubComp(Sender: TObject; MessageID: integer); 68 | procedure UnSubscribeClick(Sender: TObject); 69 | procedure FormDestroy(Sender: TObject); 70 | procedure PublishBytesClick(Sender: TObject); 71 | procedure Button1Click(Sender: TObject); 72 | procedure Button2Click(Sender: TObject); 73 | procedure Timer1Timer(Sender: TObject); 74 | procedure Button3Click(Sender: TObject); 75 | procedure Button4Click(Sender: TObject); 76 | private 77 | function GetCurrentDateTime: string; 78 | procedure GotPubAckSend(Sender: TObject; MessageID: integer); 79 | procedure GotPubCompSend(Sender: TObject; MessageID: integer); 80 | procedure GotPubRecSend(Sender: TObject; MessageID: integer); 81 | procedure GotPubRelSend(Sender: TObject; MessageID: integer); 82 | procedure GotPubSend(Sender: TObject; topic: string; PackageId: integer; payload: string; QOS: integer); 83 | procedure GotSubSend(Sender: TObject; MessageID: integer; Topics: TDictionary); 84 | procedure GotUnSubSend(Sender: TObject; MessageID: integer; Topics: TStringList); 85 | procedure GoConnect(Sender: TObject; IP: string; Port: integer; isConnected: boolean); 86 | { Private declarations } 87 | public 88 | { Public declarations } 89 | end; 90 | 91 | var 92 | fMain: TfMain; 93 | MQTT: TMQTT; 94 | Rcv: UInt64; 95 | Send: UInt64; 96 | 97 | implementation 98 | 99 | {$R *.dfm} 100 | 101 | uses MQTTHeaders; 102 | 103 | function md5string(str: string): string; 104 | var 105 | md5: THashMD5; 106 | begin 107 | md5 := THashMD5.Create; 108 | md5.Update(str); 109 | result := md5.HashAsString; 110 | end; 111 | 112 | procedure TfMain.btnConnectClick(Sender: TObject); 113 | var 114 | appkey, secretkey, uid: string; 115 | platformType: string; 116 | begin 117 | 118 | MQTT := TMQTT.Create(eIP.Text, StrToInt(ePort.Text)); 119 | MQTT.WillTopic := ''; 120 | MQTT.WillMsg := ''; 121 | 122 | appkey := edt_appkey.Text; 123 | secretkey := edt_Secretkey.Text; 124 | uid := edt_Uid.Text; 125 | 126 | // 192.168.199.122 127 | MQTT.Username := edt_UserName.Text; 128 | MQTT.Password := edt_TestPassWord.Text; 129 | MQTT.ClientID := edt_UserName.Text; 130 | 131 | // Events 132 | MQTT.OnConnAck := GotConnAck; 133 | MQTT.OnPublishBytes := GotPubBytes; 134 | MQTT.OnPubAck := GotPubAck; 135 | MQTT.OnPubRec := GotPubRec; 136 | MQTT.OnPubRel := GotPubRel; 137 | MQTT.OnPubComp := GotPubComp; 138 | 139 | MQTT.OnPingReq := GotPingReq; 140 | MQTT.OnPingResp := GotPingResp; 141 | MQTT.OnSubAck := GotSubAck; 142 | MQTT.OnUnSubAck := GotUnSubAck; 143 | 144 | MQTT.OnPubAckSend := GotPubAckSend; 145 | MQTT.OnPubRecSend := GotPubRecSend; 146 | MQTT.OnPubRelSend := GotPubRelSend; 147 | MQTT.OnPubCompSend := GotPubCompSend; 148 | MQTT.OnPublishSend := GotPubSend; 149 | MQTT.OnSubSend := GotSubSend; 150 | MQTT.OnUnSubSend := GotUnSubSend; 151 | 152 | MQTT.OnConnect := GoConnect; 153 | 154 | MQTT.Connect(); 155 | 156 | end; 157 | 158 | procedure TfMain.GoConnect(Sender: TObject; IP: string; Port: integer; isConnected: boolean); 159 | begin 160 | if isConnected then 161 | mStatus.Lines.Add(GetCurrentDateTime + ': send >> Connected to ' + IP + ' on ' + inttostr(Port)) 162 | else 163 | mStatus.Lines.Add(GetCurrentDateTime + ': send >> Failed to connect'); 164 | 165 | end; 166 | 167 | function TfMain.GetCurrentDateTime(): string; 168 | begin 169 | result := FormatDateTime('yyyy-mm-dd hh:nn:ss', now()); 170 | 171 | end; 172 | 173 | procedure TfMain.btnDisconnectClick(Sender: TObject); 174 | begin 175 | if (Assigned(MQTT)) then 176 | begin 177 | if MQTT.Disconnect then 178 | begin 179 | mStatus.Lines.Add(GetCurrentDateTime + ': send >> Disconnected'); 180 | end; 181 | end; 182 | end; 183 | 184 | procedure TfMain.btnPingClick(Sender: TObject); 185 | begin 186 | if (Assigned(MQTT)) then 187 | begin 188 | mStatus.Lines.Add(GetCurrentDateTime + ': send >> Ping'); 189 | MQTT.PingReq; 190 | end; 191 | end; 192 | 193 | procedure TfMain.btnPublishClick(Sender: TObject); 194 | begin 195 | if (Assigned(MQTT)) then 196 | begin 197 | MQTT.Publish(eTopic.Text, eMessage.Text, StrToInt(edt_qos.Text)); 198 | end; 199 | end; 200 | 201 | procedure TfMain.btnSubscribeClick(Sender: TObject); 202 | begin 203 | if (Assigned(MQTT)) then 204 | begin 205 | if MQTT.Subscribe(eSubTopic.Text, StrToInt(edt_qos.Text)) = -1 then 206 | begin 207 | mStatus.Lines.Add(GetCurrentDateTime + ': send << Subscribe: QOS must is [0,2],current qos is ' + 208 | edt_qos.Text + ' or topic is empty string and includ $ char. '); 209 | end; 210 | end; 211 | end; 212 | 213 | procedure TfMain.Button1Click(Sender: TObject); 214 | begin 215 | mStatus.Clear; 216 | Rcv := 0; 217 | self.Caption := ''; 218 | end; 219 | 220 | procedure TfMain.Button2Click(Sender: TObject); 221 | var 222 | b: TBytes; 223 | i: UInt64; 224 | dt: int64; 225 | sendCount: UInt64; 226 | begin 227 | // setlength(b, 5); 228 | // b[0] := ord('h'); 229 | // b[1] := ord('e'); 230 | // b[2] := ord('l'); 231 | // b[3] := ord('l'); 232 | // b[4] := ord('o'); 233 | 234 | setlength(b, 1024); 235 | for i := 1 to 1024 do 236 | begin 237 | b[i - 1] := i; 238 | end; 239 | 240 | Send := 0; 241 | if (Assigned(MQTT)) then 242 | begin 243 | dt := GetTickCount; 244 | for i := 1 to 10000 do // 100000 245 | // while true do 246 | begin 247 | Application.ProcessMessages; 248 | if not MQTT.Publish(eTopic.Text, b, StrToInt(edt_qos.Text)) then 249 | begin 250 | // sleep(1000); 251 | continue; 252 | end 253 | else 254 | begin 255 | sendCount := i; 256 | inc(Send); 257 | self.Caption := 'send count:(' + inttostr(i) + ')'; 258 | end; 259 | 260 | end; 261 | 262 | mStatus.Clear; 263 | mStatus.Lines.Add('send count:(' + inttostr(i - 1) + '), times:' + floattostr((GetTickCount - dt) / 1000)); 264 | mStatus.Lines.Add('per send count:' + floattostr(10000 / ((GetTickCount - dt) / 1000)) + '/s'); 265 | setlength(b, 0); 266 | end; 267 | 268 | end; 269 | 270 | procedure TfMain.Button3Click(Sender: TObject); 271 | begin 272 | if MQTT <> nil then 273 | begin 274 | // Label10.Caption := inttostr(MQTT.PublishMessageCount); 275 | // MQTT.GStringList.SaveToFile(ExtractFilePath(ParamStr(0)) + 'pulish.txt'); 276 | // MQTT.GStringList.Clear; 277 | end; 278 | end; 279 | 280 | procedure TfMain.Button4Click(Sender: TObject); 281 | var 282 | b, b2: TBytes; 283 | i, y: integer; 284 | begin 285 | b := TMQTTUtilities.RLIntToBytes(268435455); 286 | for i := 1 to 4 do 287 | begin 288 | if ((b[i - 1] and 128) <> 0) then 289 | begin 290 | 291 | y := b[i - 1]; 292 | ShowMessage(inttostr(y)); 293 | // i := TMQTTUtilities.RLBytesToInt(b); 294 | end; 295 | end; 296 | 297 | // i := TMQTTUtilities.RLBytesToInt(b); 298 | 299 | setlength(b, 4); 300 | setlength(b2, 1); 301 | 302 | b2[0] := 89; 303 | b2[1] := 99; 304 | 305 | Move(b[0], b[2], 2); 306 | Move(b2[0], b[0], 2); 307 | 308 | end; 309 | 310 | procedure TfMain.FormDestroy(Sender: TObject); 311 | begin 312 | if MQTT <> nil then 313 | MQTT.Destroy; 314 | end; 315 | 316 | procedure TfMain.GotConnAck(Sender: TObject; ReturnCode: integer); 317 | begin 318 | mStatus.Lines.Add(GetCurrentDateTime + ': rev << Connection Acknowledged: ' + inttostr(ReturnCode)); 319 | end; 320 | 321 | procedure TfMain.GotPingReq(Sender: TObject); 322 | begin 323 | mStatus.Lines.Add(GetCurrentDateTime + ': send >>PING'); 324 | end; 325 | 326 | procedure TfMain.GotPingResp(Sender: TObject); 327 | begin 328 | mStatus.Lines.Add(GetCurrentDateTime + ': rev << PONG'); 329 | end; 330 | 331 | procedure TfMain.GotSubSend(Sender: TObject; MessageID: integer; Topics: TDictionary); 332 | var 333 | sTopic, SubStr: string; 334 | begin 335 | SubStr := ''; 336 | for sTopic in Topics.Keys do 337 | begin 338 | SubStr := SubStr + ' [topic:' + sTopic + ',qos:' + inttostr(Topics.Items[sTopic]) + '] '; 339 | end; 340 | 341 | mStatus.Lines.Add(GetCurrentDateTime + ': send >> Subscribe on ' + SubStr + ', package id=' + inttostr(MessageID)); 342 | 343 | end; 344 | 345 | procedure TfMain.GotUnSubSend(Sender: TObject; MessageID: integer; Topics: TStringList); 346 | begin 347 | mStatus.Lines.Add(GetCurrentDateTime + ': send >> UnSubscribe on topic:' + Topics.Text + ', package id=' + 348 | inttostr(MessageID)); 349 | end; 350 | 351 | procedure TfMain.PublishBytesClick(Sender: TObject); 352 | var 353 | b: TBytes; 354 | begin 355 | setlength(b, 5); 356 | b[0] := ord('h'); 357 | b[1] := ord('e'); 358 | b[2] := ord('l'); 359 | b[3] := ord('l'); 360 | b[4] := ord('o'); 361 | if (Assigned(MQTT)) then 362 | begin 363 | MQTT.Publish(eTopic.Text, b, StrToInt(edt_qos.Text)); 364 | setlength(b, 0); 365 | end; 366 | end; 367 | 368 | procedure TfMain.Timer1Timer(Sender: TObject); 369 | begin 370 | if MQTT <> nil then 371 | begin 372 | // Label10.Caption := inttostr(MQTT.PublishMessageCount); 373 | // MQTT.GStringList.SaveToFile(ExtractFilePath(ParamStr(0)) + 'pulish.txt'); 374 | end; 375 | end; 376 | 377 | procedure TfMain.GotPubSend(Sender: TObject; topic: string; PackageId: integer; payload: string; QOS: integer); 378 | begin 379 | mStatus.Lines.Add(GetCurrentDateTime + ': send >> publish message on topic:' + string(topic) + ', PackageId:' + 380 | inttostr(PackageId) + ', qos:' + inttostr(QOS) + ', payload: ' + string(payload)); 381 | end; 382 | 383 | procedure TfMain.GotPub(Sender: TObject; topic: string; PackageId: integer; payload: string; QOS: integer); 384 | begin 385 | mStatus.Lines.Add(GetCurrentDateTime + ': rev << publish message on topic:' + string(topic) + ', PackageId:' + 386 | inttostr(PackageId) + ', qos:' + inttostr(QOS) + ', payload: ' + string(payload)); 387 | end; 388 | 389 | procedure TfMain.GotPubAck(Sender: TObject; MessageID: integer); 390 | begin 391 | mStatus.Lines.Add(GetCurrentDateTime + ': rev << PubAck package id=' + inttostr(MessageID)); 392 | end; 393 | 394 | procedure TfMain.GotPubComp(Sender: TObject; MessageID: integer); 395 | begin 396 | mStatus.Lines.Add(GetCurrentDateTime + ': rev << PubComp package id= ' + inttostr(MessageID)); 397 | end; 398 | 399 | procedure TfMain.GotPubRec(Sender: TObject; MessageID: integer); 400 | begin 401 | mStatus.Lines.Add(GetCurrentDateTime + ': rev << PubRec package id=' + inttostr(MessageID)); 402 | end; 403 | 404 | procedure TfMain.GotPubRel(Sender: TObject; MessageID: integer); 405 | begin 406 | mStatus.Lines.Add(GetCurrentDateTime + ': rev << PubRel package id=' + inttostr(MessageID)); 407 | end; 408 | 409 | procedure TfMain.GotPubAckSend(Sender: TObject; MessageID: integer); 410 | begin 411 | mStatus.Lines.Add(GetCurrentDateTime + ': send >> PubAck package id=' + inttostr(MessageID)); 412 | end; 413 | 414 | procedure TfMain.GotPubBytes(Sender: TObject; topic: string; PackageId: integer; payload: TBytes; QOS: integer); 415 | var 416 | cnt: Ansistring; 417 | begin 418 | inc(Rcv); 419 | self.Caption := ' rcv count:(' + inttostr(Rcv) + ')'; 420 | 421 | SetString(cnt, PAnsiChar(@payload[0]), length(payload)); 422 | mStatus.Lines.Add(GetCurrentDateTime + ': rev << publish message on topic:' + string(topic) + ', PackageId:' + 423 | inttostr(PackageId) + ', qos:' + inttostr(QOS) + ', payload: ' + string(cnt)); 424 | 425 | end; 426 | 427 | procedure TfMain.GotPubCompSend(Sender: TObject; MessageID: integer); 428 | begin 429 | mStatus.Lines.Add(GetCurrentDateTime + ': send >> PubComp package id= ' + inttostr(MessageID)); 430 | end; 431 | 432 | procedure TfMain.GotPubRecSend(Sender: TObject; MessageID: integer); 433 | begin 434 | mStatus.Lines.Add(GetCurrentDateTime + ': send >> PubRec package id=' + inttostr(MessageID)); 435 | end; 436 | 437 | procedure TfMain.GotPubRelSend(Sender: TObject; MessageID: integer); 438 | begin 439 | mStatus.Lines.Add(GetCurrentDateTime + ': send >> PubRel package id=' + inttostr(MessageID)); 440 | end; 441 | 442 | procedure TfMain.GotSubAck(Sender: TObject; MessageID: integer; GrantedQoS: array of integer); 443 | var 444 | i: integer; 445 | QOS: string; 446 | begin 447 | for i := Low(GrantedQoS) to High(GrantedQoS) do 448 | begin 449 | QOS := QOS + inttostr(GrantedQoS[i]) + ' '; 450 | end; 451 | mStatus.Lines.Add(GetCurrentDateTime + ': rev << SubAck package id=' + inttostr(MessageID) + ' qos=' + QOS); 452 | end; 453 | 454 | procedure TfMain.GotUnSubAck(Sender: TObject; MessageID: integer); 455 | begin 456 | mStatus.Lines.Add(GetCurrentDateTime + ': rev << UnSubAck ' + inttostr(MessageID)); 457 | end; 458 | 459 | procedure TfMain.UnSubscribeClick(Sender: TObject); 460 | begin 461 | if (Assigned(MQTT)) then 462 | begin 463 | MQTT.UnSubscribe(eSubTopic.Text); 464 | mStatus.Lines.Add(GetCurrentDateTime + ': send >> UnSubscribe'); 465 | end; 466 | end; 467 | 468 | end. 469 | -------------------------------------------------------------------------------- /MyMQTT.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {325199D2-21BE-4089-BB6E-63FBB9BB17D6} 4 | 18.2 5 | MyMQTT.dpr 6 | Debug 7 | DCC32 8 | VCL 9 | True 10 | Win32 11 | 3 12 | Application 13 | Win32 14 | 15 | 16 | true 17 | 18 | 19 | true 20 | Base 21 | true 22 | 23 | 24 | true 25 | Base 26 | true 27 | 28 | 29 | true 30 | Cfg_2 31 | true 32 | true 33 | 34 | 35 | true 36 | Cfg_2 37 | true 38 | true 39 | 40 | 41 | CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= 42 | Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace) 43 | 2057 44 | ..\..\Development Stuff\Delphi\Synapse;$(DCC_UnitSearchPath) 45 | TMQTTTest.exe 46 | 00400000 47 | x86 48 | false 49 | false 50 | false 51 | false 52 | false 53 | MyMQTT 54 | 55 | 56 | false 57 | RELEASE;$(DCC_Define) 58 | 0 59 | 0 60 | 61 | 62 | 3 63 | DEBUG;madExcept;$(DCC_Define) 64 | 65 | 66 | Debug 67 | bin 68 | dcu 69 | dcu 70 | (None) 71 | 72 | 73 | Debug 74 | 75 | 76 | 77 | MainSource 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | Cfg_2 87 | Base 88 | 89 | 90 | Base 91 | 92 | 93 | Cfg_1 94 | Base 95 | 96 | 97 | 98 | 99 | 100 | Delphi.Personality.12 101 | 102 | 103 | 104 | 105 | 106 | True 107 | False 108 | 1 109 | 0 110 | 0 111 | 0 112 | False 113 | False 114 | False 115 | False 116 | False 117 | 2057 118 | 1252 119 | 120 | 121 | 122 | 123 | 1.0.0.0 124 | 125 | 126 | 127 | 128 | 129 | 1.0.0.0 130 | 131 | 132 | 133 | MyMQTT.dpr 134 | 135 | 136 | Microsoft Office 2000 Sample Automation Server Wrapper Components 137 | Microsoft Office XP Sample Automation Server Wrapper Components 138 | 139 | 140 | False 141 | 142 | True 143 | True 144 | 145 | 146 | 147 | 148 | MyMQTT.exe 149 | true 150 | 151 | 152 | 153 | 154 | 1 155 | 156 | 157 | Contents\MacOS 158 | 1 159 | 160 | 161 | Contents\MacOS 162 | 0 163 | 164 | 165 | 166 | 167 | classes 168 | 1 169 | 170 | 171 | 172 | 173 | library\lib\armeabi-v7a 174 | 1 175 | 176 | 177 | 178 | 179 | library\lib\armeabi 180 | 1 181 | 182 | 183 | 184 | 185 | library\lib\mips 186 | 1 187 | 188 | 189 | 190 | 191 | library\lib\armeabi-v7a 192 | 1 193 | 194 | 195 | 196 | 197 | res\drawable 198 | 1 199 | 200 | 201 | 202 | 203 | res\values 204 | 1 205 | 206 | 207 | 208 | 209 | res\drawable 210 | 1 211 | 212 | 213 | 214 | 215 | res\drawable-xxhdpi 216 | 1 217 | 218 | 219 | 220 | 221 | res\drawable-ldpi 222 | 1 223 | 224 | 225 | 226 | 227 | res\drawable-mdpi 228 | 1 229 | 230 | 231 | 232 | 233 | res\drawable-hdpi 234 | 1 235 | 236 | 237 | 238 | 239 | res\drawable-xhdpi 240 | 1 241 | 242 | 243 | 244 | 245 | res\drawable-small 246 | 1 247 | 248 | 249 | 250 | 251 | res\drawable-normal 252 | 1 253 | 254 | 255 | 256 | 257 | res\drawable-large 258 | 1 259 | 260 | 261 | 262 | 263 | res\drawable-xlarge 264 | 1 265 | 266 | 267 | 268 | 269 | 1 270 | 271 | 272 | Contents\MacOS 273 | 1 274 | 275 | 276 | 0 277 | 278 | 279 | 280 | 281 | Contents\MacOS 282 | 1 283 | .framework 284 | 285 | 286 | 0 287 | 288 | 289 | 290 | 291 | 1 292 | .dylib 293 | 294 | 295 | 1 296 | .dylib 297 | 298 | 299 | 1 300 | .dylib 301 | 302 | 303 | Contents\MacOS 304 | 1 305 | .dylib 306 | 307 | 308 | 0 309 | .dll;.bpl 310 | 311 | 312 | 313 | 314 | 1 315 | .dylib 316 | 317 | 318 | 1 319 | .dylib 320 | 321 | 322 | 1 323 | .dylib 324 | 325 | 326 | Contents\MacOS 327 | 1 328 | .dylib 329 | 330 | 331 | 0 332 | .bpl 333 | 334 | 335 | 336 | 337 | 0 338 | 339 | 340 | 0 341 | 342 | 343 | 0 344 | 345 | 346 | 0 347 | 348 | 349 | Contents\Resources\StartUp\ 350 | 0 351 | 352 | 353 | 0 354 | 355 | 356 | 357 | 358 | 1 359 | 360 | 361 | 1 362 | 363 | 364 | 1 365 | 366 | 367 | 368 | 369 | 1 370 | 371 | 372 | 1 373 | 374 | 375 | 1 376 | 377 | 378 | 379 | 380 | 1 381 | 382 | 383 | 1 384 | 385 | 386 | 1 387 | 388 | 389 | 390 | 391 | 1 392 | 393 | 394 | 1 395 | 396 | 397 | 1 398 | 399 | 400 | 401 | 402 | 1 403 | 404 | 405 | 1 406 | 407 | 408 | 1 409 | 410 | 411 | 412 | 413 | 1 414 | 415 | 416 | 1 417 | 418 | 419 | 1 420 | 421 | 422 | 423 | 424 | 1 425 | 426 | 427 | 1 428 | 429 | 430 | 1 431 | 432 | 433 | 434 | 435 | 1 436 | 437 | 438 | 439 | 440 | ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF 441 | 1 442 | 443 | 444 | ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF 445 | 1 446 | 447 | 448 | 449 | 450 | 1 451 | 452 | 453 | 1 454 | 455 | 456 | 457 | 458 | ..\ 459 | 1 460 | 461 | 462 | ..\ 463 | 1 464 | 465 | 466 | 467 | 468 | 1 469 | 470 | 471 | 1 472 | 473 | 474 | 1 475 | 476 | 477 | 478 | 479 | 1 480 | 481 | 482 | 1 483 | 484 | 485 | 1 486 | 487 | 488 | 489 | 490 | ..\ 491 | 1 492 | 493 | 494 | 495 | 496 | Contents 497 | 1 498 | 499 | 500 | 501 | 502 | Contents\Resources 503 | 1 504 | 505 | 506 | 507 | 508 | library\lib\armeabi-v7a 509 | 1 510 | 511 | 512 | 1 513 | 514 | 515 | 1 516 | 517 | 518 | 1 519 | 520 | 521 | 1 522 | 523 | 524 | Contents\MacOS 525 | 1 526 | 527 | 528 | 0 529 | 530 | 531 | 532 | 533 | 1 534 | 535 | 536 | 1 537 | 538 | 539 | 540 | 541 | Assets 542 | 1 543 | 544 | 545 | Assets 546 | 1 547 | 548 | 549 | 550 | 551 | Assets 552 | 1 553 | 554 | 555 | Assets 556 | 1 557 | 558 | 559 | 560 | 561 | 562 | 563 | 564 | 565 | 566 | 567 | 568 | 569 | 12 570 | 571 | 572 | 573 | -------------------------------------------------------------------------------- /MyMQTT.drc: -------------------------------------------------------------------------------- 1 | /* VER320 2 | Generated by the Embarcadero Delphi Pascal Compiler 3 | because -GD or --drc was supplied to the compiler. 4 | 5 | This file contains compiler-generated resources that 6 | were bound to the executable. 7 | If this file is empty, then no compiler-generated 8 | resources were bound to the produced executable. 9 | */ 10 | 11 | #define Vcl_Consts_SStyleInvalidParameter 65168 12 | #define Vcl_Consts_SStyleFeatureNotSupported 65169 13 | #define Vcl_Consts_SStyleNotRegistered 65170 14 | #define Vcl_Consts_SStyleUnregisterError 65171 15 | #define Vcl_Consts_SStyleNotRegisteredNoName 65172 16 | #define Vcl_Consts_sBeginInvokeNoHandle 65173 17 | #define System_Win_ComConst_SOleError 65174 18 | #define System_Win_ComConst_SNoMethod 65175 19 | #define System_Win_ComConst_SVarNotObject 65176 20 | #define System_Win_ComConst_STooManyParams 65177 21 | #define Vcl_Consts_SLogin 65184 22 | #define Vcl_Consts_STrayIconRemoveError 65185 23 | #define Vcl_Consts_SWindowsVistaRequired 65186 24 | #define Vcl_Consts_STaskDlgButtonCaption 65187 25 | #define Vcl_Consts_STaskDlgRadioButtonCaption 65188 26 | #define Vcl_Consts_SInvalidTaskDlgButtonCaption 65189 27 | #define Vcl_Consts_SStyleLoadError 65190 28 | #define Vcl_Consts_SStyleLoadErrors 65191 29 | #define Vcl_Consts_SStyleRegisterError 65192 30 | #define Vcl_Consts_SStyleClassRegisterError 65193 31 | #define Vcl_Consts_SStyleNotFound 65194 32 | #define Vcl_Consts_SStyleClassNotFound 65195 33 | #define Vcl_Consts_SStyleInvalidHandle 65196 34 | #define Vcl_Consts_SStyleFormatError 65197 35 | #define Vcl_Consts_SStyleHookClassRegistered 65198 36 | #define Vcl_Consts_SStyleHookClassNotRegistered 65199 37 | #define Vcl_Consts_SIconToClipboard 65200 38 | #define Vcl_Consts_SCannotOpenClipboard 65201 39 | #define Vcl_Consts_SInvalidMemoSize 65202 40 | #define Vcl_Consts_SInvalidPrinterOp 65203 41 | #define Vcl_Consts_SNoDefaultPrinter 65204 42 | #define Vcl_Consts_SDuplicateMenus 65205 43 | #define Vcl_Consts_SDockedCtlNeedsName 65206 44 | #define Vcl_Consts_SDockTreeRemoveError 65207 45 | #define Vcl_Consts_SDockZoneNotFound 65208 46 | #define Vcl_Consts_SDockZoneHasNoCtl 65209 47 | #define Vcl_Consts_SDockZoneVersionConflict 65210 48 | #define Vcl_Consts_SPromptArrayTooShort 65211 49 | #define Vcl_Consts_SPromptArrayEmpty 65212 50 | #define Vcl_Consts_SUsername 65213 51 | #define Vcl_Consts_SPassword 65214 52 | #define Vcl_Consts_SDomain 65215 53 | #define Vcl_Consts_SmkcSpace 65216 54 | #define Vcl_Consts_SmkcPgUp 65217 55 | #define Vcl_Consts_SmkcPgDn 65218 56 | #define Vcl_Consts_SmkcEnd 65219 57 | #define Vcl_Consts_SmkcHome 65220 58 | #define Vcl_Consts_SmkcLeft 65221 59 | #define Vcl_Consts_SmkcUp 65222 60 | #define Vcl_Consts_SmkcRight 65223 61 | #define Vcl_Consts_SmkcDown 65224 62 | #define Vcl_Consts_SmkcIns 65225 63 | #define Vcl_Consts_SmkcDel 65226 64 | #define Vcl_Consts_SmkcShift 65227 65 | #define Vcl_Consts_SmkcCtrl 65228 66 | #define Vcl_Consts_SmkcAlt 65229 67 | #define Vcl_Consts_SOutOfRange 65230 68 | #define Vcl_Consts_sAllFilter 65231 69 | #define Vcl_Consts_SMsgDlgYes 65232 70 | #define Vcl_Consts_SMsgDlgNo 65233 71 | #define Vcl_Consts_SMsgDlgOK 65234 72 | #define Vcl_Consts_SMsgDlgCancel 65235 73 | #define Vcl_Consts_SMsgDlgHelp 65236 74 | #define Vcl_Consts_SMsgDlgAbort 65237 75 | #define Vcl_Consts_SMsgDlgRetry 65238 76 | #define Vcl_Consts_SMsgDlgIgnore 65239 77 | #define Vcl_Consts_SMsgDlgAll 65240 78 | #define Vcl_Consts_SMsgDlgNoToAll 65241 79 | #define Vcl_Consts_SMsgDlgYesToAll 65242 80 | #define Vcl_Consts_SMsgDlgClose 65243 81 | #define Vcl_Consts_SmkcBkSp 65244 82 | #define Vcl_Consts_SmkcTab 65245 83 | #define Vcl_Consts_SmkcEsc 65246 84 | #define Vcl_Consts_SmkcEnter 65247 85 | #define Vcl_Consts_SNoMDIForm 65248 86 | #define Vcl_Consts_SImageCanvasNeedsBitmap 65249 87 | #define Vcl_Consts_SControlParentSetToSelf 65250 88 | #define Vcl_Consts_SCannotDragForm 65251 89 | #define Vcl_Consts_SVMetafiles 65252 90 | #define Vcl_Consts_SVEnhMetafiles 65253 91 | #define Vcl_Consts_SVIcons 65254 92 | #define Vcl_Consts_SVBitmaps 65255 93 | #define Vcl_Consts_SVTIFFImages 65256 94 | #define Vcl_Consts_SVJPGImages 65257 95 | #define Vcl_Consts_SVPNGImages 65258 96 | #define Vcl_Consts_SVGIFImages 65259 97 | #define Vcl_Consts_SMsgDlgWarning 65260 98 | #define Vcl_Consts_SMsgDlgError 65261 99 | #define Vcl_Consts_SMsgDlgInformation 65262 100 | #define Vcl_Consts_SMsgDlgConfirm 65263 101 | #define Vcl_Consts_SParentGivenNotAParent 65264 102 | #define Vcl_Consts_SMDIChildNotVisible 65265 103 | #define Vcl_Consts_SVisibleChanged 65266 104 | #define Vcl_Consts_SCannotShowModal 65267 105 | #define Vcl_Consts_SScrollBarRange 65268 106 | #define Vcl_Consts_SPropertyOutOfRange 65269 107 | #define Vcl_Consts_SMenuIndexError 65270 108 | #define Vcl_Consts_SMenuReinserted 65271 109 | #define Vcl_Consts_SMenuNotFound 65272 110 | #define Vcl_Consts_SNoTimers 65273 111 | #define Vcl_Consts_SNotPrinting 65274 112 | #define Vcl_Consts_SPrinting 65275 113 | #define Vcl_Consts_SPrinterIndexError 65276 114 | #define Vcl_Consts_SInvalidPrinter 65277 115 | #define Vcl_Consts_SDeviceOnPort 65278 116 | #define Vcl_Consts_SGroupIndexTooLow 65279 117 | #define Vcl_Consts_SUnknownClipboardFormat 65280 118 | #define Vcl_Consts_SUnknownStreamFormat 65281 119 | #define Vcl_Consts_SOutOfResources 65282 120 | #define Vcl_Consts_SNoCanvasHandle 65283 121 | #define Vcl_Consts_SInvalidTextFormatFlag 65284 122 | #define Vcl_Consts_SInvalidImageSize 65285 123 | #define Vcl_Consts_SInvalidImageList 65286 124 | #define Vcl_Consts_SReplaceImage 65287 125 | #define Vcl_Consts_SInsertImage 65288 126 | #define Vcl_Consts_SImageIndexError 65289 127 | #define Vcl_Consts_SImageReadFail 65290 128 | #define Vcl_Consts_SImageWriteFail 65291 129 | #define Vcl_Consts_SWindowDCError 65292 130 | #define Vcl_Consts_SWindowClass 65293 131 | #define Vcl_Consts_SCannotFocus 65294 132 | #define Vcl_Consts_SParentRequired 65295 133 | #define System_RTLConsts_sObserverNoMulticastFound 65296 134 | #define System_RTLConsts_sObserverNotAvailable 65297 135 | #define System_RTLConsts_SInvalidDateString 65298 136 | #define System_RTLConsts_SInvalidTimeString 65299 137 | #define System_RTLConsts_SInvalidOffsetString 65300 138 | #define System_RTLConsts_sMustWaitOnOneEvent 65301 139 | #define System_RTLConsts_sBeginInvokeDestroying 65302 140 | #define Vcl_Consts_SInvalidBitmap 65303 141 | #define Vcl_Consts_SInvalidIcon 65304 142 | #define Vcl_Consts_SInvalidMetafile 65305 143 | #define Vcl_Consts_SInvalidPixelFormat 65306 144 | #define Vcl_Consts_SInvalidImage 65307 145 | #define Vcl_Consts_SScanLine 65308 146 | #define Vcl_Consts_SChangeIconSize 65309 147 | #define Vcl_Consts_SChangeWicSize 65310 148 | #define Vcl_Consts_SUnknownExtension 65311 149 | #define System_RTLConsts_SWindows7 65312 150 | #define System_RTLConsts_SWindowsServer2008R2 65313 151 | #define System_RTLConsts_SWindows2000 65314 152 | #define System_RTLConsts_SWindowsXP 65315 153 | #define System_RTLConsts_SWindowsServer2003 65316 154 | #define System_RTLConsts_SWindowsServer2003R2 65317 155 | #define System_RTLConsts_SWindowsServer2012 65318 156 | #define System_RTLConsts_SWindowsServer2012R2 65319 157 | #define System_RTLConsts_SWindowsServer2016 65320 158 | #define System_RTLConsts_SWindows8 65321 159 | #define System_RTLConsts_SWindows8Point1 65322 160 | #define System_RTLConsts_SWindows10 65323 161 | #define System_RTLConsts_sObserverUnsupported 65324 162 | #define System_RTLConsts_sObserverMultipleSingleCast 65325 163 | #define System_RTLConsts_sObserverNoInterface 65326 164 | #define System_RTLConsts_sObserverNoSinglecastFound 65327 165 | #define System_RTLConsts_SArgumentOutOfRange 65328 166 | #define System_RTLConsts_SArgumentNil 65329 167 | #define System_RTLConsts_SGenericItemNotFound 65330 168 | #define System_RTLConsts_SGenericDuplicateItem 65331 169 | #define System_RTLConsts_SInsufficientRtti 65332 170 | #define System_RTLConsts_SParameterCountMismatch 65333 171 | #define System_RTLConsts_SNonPublicType 65334 172 | #define System_RTLConsts_SByRefArgMismatch 65335 173 | #define System_RTLConsts_SServiceNotFound 65336 174 | #define System_RTLConsts_SVersionStr 65337 175 | #define System_RTLConsts_SSPVersionStr 65338 176 | #define System_RTLConsts_SVersion32 65339 177 | #define System_RTLConsts_SVersion64 65340 178 | #define System_RTLConsts_SWindows 65341 179 | #define System_RTLConsts_SWindowsVista 65342 180 | #define System_RTLConsts_SWindowsServer2008 65343 181 | #define System_RTLConsts_sNoConstruct 65344 182 | #define System_RTLConsts_sInvalidTimeoutValue 65345 183 | #define System_RTLConsts_sSpinCountOutOfRange 65346 184 | #define System_RTLConsts_sTimespanTooLong 65347 185 | #define System_RTLConsts_sInvalidTimespanDuration 65348 186 | #define System_RTLConsts_sTimespanValueCannotBeNan 65349 187 | #define System_RTLConsts_sCannotNegateTimespan 65350 188 | #define System_RTLConsts_sInvalidTimespanFormat 65351 189 | #define System_RTLConsts_sTimespanElementTooLong 65352 190 | #define System_RTLConsts_SNoContext 65353 191 | #define System_RTLConsts_SNoContextFound 65354 192 | #define System_RTLConsts_SNoIndex 65355 193 | #define System_RTLConsts_SNoSearch 65356 194 | #define System_RTLConsts_SNoTableOfContents 65357 195 | #define System_RTLConsts_SNoTopics 65358 196 | #define System_RTLConsts_SNothingFound 65359 197 | #define System_RTLConsts_SThreadExternalWait 65360 198 | #define System_RTLConsts_SThreadStartError 65361 199 | #define System_RTLConsts_SThreadExternalCheckTerminated 65362 200 | #define System_RTLConsts_SThreadExternalSetReturnValue 65363 201 | #define System_RTLConsts_SParamIsNil 65364 202 | #define System_RTLConsts_SParamIsNegative 65365 203 | #define System_RTLConsts_SInputBufferExceed 65366 204 | #define System_RTLConsts_SInvalidCharsInPath 65367 205 | #define System_RTLConsts_SPathTooLong 65368 206 | #define System_RTLConsts_SPathNotFound 65369 207 | #define System_RTLConsts_SPathFormatNotSupported 65370 208 | #define System_RTLConsts_SFileNotFound 65371 209 | #define System_RTLConsts_SLocalTimeInvalid 65372 210 | #define System_RTLConsts_hNoFilterViewer 65373 211 | #define System_RTLConsts_sArgumentOutOfRange_Index 65374 212 | #define System_RTLConsts_sInvalidStringAndObjectArrays 65375 213 | #define System_RTLConsts_SNoComSupport 65376 214 | #define System_RTLConsts_SPropertyException 65377 215 | #define System_RTLConsts_SReadError 65378 216 | #define System_RTLConsts_SReadOnlyProperty 65379 217 | #define System_RTLConsts_SRegCreateFailed 65380 218 | #define System_RTLConsts_SRegGetDataFailed 65381 219 | #define System_RTLConsts_SRegSetDataFailed 65382 220 | #define System_RTLConsts_SResNotFound 65383 221 | #define System_RTLConsts_SSeekNotImplemented 65384 222 | #define System_RTLConsts_SSortedListError 65385 223 | #define System_RTLConsts_SUnknownGroup 65386 224 | #define System_RTLConsts_SUnknownProperty 65387 225 | #define System_RTLConsts_SWriteError 65388 226 | #define System_RTLConsts_SThreadCreateError 65389 227 | #define System_RTLConsts_SThreadError 65390 228 | #define System_RTLConsts_SThreadExternalTerminate 65391 229 | #define System_RTLConsts_SDuplicateName 65392 230 | #define System_RTLConsts_SDuplicateString 65393 231 | #define System_RTLConsts_SFCreateErrorEx 65394 232 | #define System_RTLConsts_SFOpenErrorEx 65395 233 | #define System_RTLConsts_SIniFileWriteError 65396 234 | #define System_RTLConsts_SInvalidFileName 65397 235 | #define System_RTLConsts_SInvalidImage 65398 236 | #define System_RTLConsts_SInvalidName 65399 237 | #define System_RTLConsts_SInvalidProperty 65400 238 | #define System_RTLConsts_SInvalidPropertyPath 65401 239 | #define System_RTLConsts_SInvalidPropertyValue 65402 240 | #define System_RTLConsts_SInvalidRegType 65403 241 | #define System_RTLConsts_SListCapacityError 65404 242 | #define System_RTLConsts_SListCountError 65405 243 | #define System_RTLConsts_SListIndexError 65406 244 | #define System_RTLConsts_SMemoryStreamError 65407 245 | #define System_SysConst_SCharIndexOutOfBounds 65408 246 | #define System_SysConst_SByteIndexOutOfBounds 65409 247 | #define System_SysConst_SInvalidCharCount 65410 248 | #define System_SysConst_SInvalidDestinationIndex 65411 249 | #define System_SysConst_SInvalidCodePage 65412 250 | #define System_SysConst_SInvalidEncodingName 65413 251 | #define System_SysConst_SNoMappingForUnicodeCharacter 65414 252 | #define System_SysConst_SInvalidStringBaseIndex 65415 253 | #define System_RTLConsts_SAncestorNotFound 65416 254 | #define System_RTLConsts_SAssignError 65417 255 | #define System_RTLConsts_SBitsIndexError 65418 256 | #define System_RTLConsts_SCantWriteResourceStreamError 65419 257 | #define System_RTLConsts_SCheckSynchronizeError 65420 258 | #define System_RTLConsts_SClassNotFound 65421 259 | #define System_RTLConsts_SDuplicateClass 65422 260 | #define System_RTLConsts_SDuplicateItem 65423 261 | #define System_SysConst_SShortDayNameMon 65424 262 | #define System_SysConst_SShortDayNameTue 65425 263 | #define System_SysConst_SShortDayNameWed 65426 264 | #define System_SysConst_SShortDayNameThu 65427 265 | #define System_SysConst_SShortDayNameFri 65428 266 | #define System_SysConst_SShortDayNameSat 65429 267 | #define System_SysConst_SLongDayNameSun 65430 268 | #define System_SysConst_SLongDayNameMon 65431 269 | #define System_SysConst_SLongDayNameTue 65432 270 | #define System_SysConst_SLongDayNameWed 65433 271 | #define System_SysConst_SLongDayNameThu 65434 272 | #define System_SysConst_SLongDayNameFri 65435 273 | #define System_SysConst_SLongDayNameSat 65436 274 | #define System_SysConst_SCannotCreateDir 65437 275 | #define System_SysConst_SInvalidSourceArray 65438 276 | #define System_SysConst_SInvalidDestinationArray 65439 277 | #define System_SysConst_SShortMonthNameOct 65440 278 | #define System_SysConst_SShortMonthNameNov 65441 279 | #define System_SysConst_SShortMonthNameDec 65442 280 | #define System_SysConst_SLongMonthNameJan 65443 281 | #define System_SysConst_SLongMonthNameFeb 65444 282 | #define System_SysConst_SLongMonthNameMar 65445 283 | #define System_SysConst_SLongMonthNameApr 65446 284 | #define System_SysConst_SLongMonthNameMay 65447 285 | #define System_SysConst_SLongMonthNameJun 65448 286 | #define System_SysConst_SLongMonthNameJul 65449 287 | #define System_SysConst_SLongMonthNameAug 65450 288 | #define System_SysConst_SLongMonthNameSep 65451 289 | #define System_SysConst_SLongMonthNameOct 65452 290 | #define System_SysConst_SLongMonthNameNov 65453 291 | #define System_SysConst_SLongMonthNameDec 65454 292 | #define System_SysConst_SShortDayNameSun 65455 293 | #define System_SysConst_SNotImplemented 65456 294 | #define System_SysConst_SObjectDisposed 65457 295 | #define System_SysConst_SAssertError 65458 296 | #define System_SysConst_SAbstractError 65459 297 | #define System_SysConst_SModuleAccessViolation 65460 298 | #define System_SysConst_SOSError 65461 299 | #define System_SysConst_SUnkOSError 65462 300 | #define System_SysConst_SShortMonthNameJan 65463 301 | #define System_SysConst_SShortMonthNameFeb 65464 302 | #define System_SysConst_SShortMonthNameMar 65465 303 | #define System_SysConst_SShortMonthNameApr 65466 304 | #define System_SysConst_SShortMonthNameMay 65467 305 | #define System_SysConst_SShortMonthNameJun 65468 306 | #define System_SysConst_SShortMonthNameJul 65469 307 | #define System_SysConst_SShortMonthNameAug 65470 308 | #define System_SysConst_SShortMonthNameSep 65471 309 | #define System_SysConst_SVarTypeAlreadyUsedWithPrefix 65472 310 | #define System_SysConst_SVarTypeNotUsableWithPrefix 65473 311 | #define System_SysConst_SVarTypeTooManyCustom 65474 312 | #define System_SysConst_SVarTypeCouldNotConvert 65475 313 | #define System_SysConst_SVarTypeConvertOverflow 65476 314 | #define System_SysConst_SVarOverflow 65477 315 | #define System_SysConst_SVarInvalid 65478 316 | #define System_SysConst_SVarBadType 65479 317 | #define System_SysConst_SVarNotImplemented 65480 318 | #define System_SysConst_SVarUnexpected 65481 319 | #define System_SysConst_SExternalException 65482 320 | #define System_SysConst_SAssertionFailed 65483 321 | #define System_SysConst_SIntfCastError 65484 322 | #define System_SysConst_SSafecallException 65485 323 | #define System_SysConst_SMonitorLockException 65486 324 | #define System_SysConst_SNoMonitorSupportException 65487 325 | #define System_SysConst_SExceptTitle 65488 326 | #define System_SysConst_SInvalidFormat 65489 327 | #define System_SysConst_SArgumentMissing 65490 328 | #define System_SysConst_SDispatchError 65491 329 | #define System_SysConst_SReadAccess 65492 330 | #define System_SysConst_SWriteAccess 65493 331 | #define System_SysConst_SExecuteAccess 65494 332 | #define System_SysConst_SInvalidAccess 65495 333 | #define System_SysConst_SVarArrayCreate 65496 334 | #define System_SysConst_SVarArrayBounds 65497 335 | #define System_SysConst_SVarArrayLocked 65498 336 | #define System_SysConst_SInvalidVarCast 65499 337 | #define System_SysConst_SInvalidVarOp 65500 338 | #define System_SysConst_SInvalidVarNullOp 65501 339 | #define System_SysConst_SInvalidVarOpWithHResultWithPrefix 65502 340 | #define System_SysConst_SVarTypeOutOfRangeWithPrefix 65503 341 | #define System_SysConst_SInvalidInput 65504 342 | #define System_SysConst_SDivByZero 65505 343 | #define System_SysConst_SRangeError 65506 344 | #define System_SysConst_SIntOverflow 65507 345 | #define System_SysConst_SInvalidOp 65508 346 | #define System_SysConst_SZeroDivide 65509 347 | #define System_SysConst_SOverflow 65510 348 | #define System_SysConst_SUnderflow 65511 349 | #define System_SysConst_SInvalidPointer 65512 350 | #define System_SysConst_SInvalidCast 65513 351 | #define System_SysConst_SAccessViolationArg3 65514 352 | #define System_SysConst_SAccessViolationNoArg 65515 353 | #define System_SysConst_SStackOverflow 65516 354 | #define System_SysConst_SControlC 65517 355 | #define System_SysConst_SPrivilege 65518 356 | #define System_SysConst_SException 65519 357 | #define System_SysConst_SUnknown 65520 358 | #define System_SysConst_SInvalidInteger 65521 359 | #define System_SysConst_SInvalidFloat 65522 360 | #define System_SysConst_SInvalidDate 65523 361 | #define System_SysConst_SInvalidTime 65524 362 | #define System_SysConst_SInvalidDateTime 65525 363 | #define System_SysConst_SInvalidTimeStamp 65526 364 | #define System_SysConst_SInvalidGUID 65527 365 | #define System_SysConst_STimeEncodeError 65528 366 | #define System_SysConst_SDateEncodeError 65529 367 | #define System_SysConst_SOutOfMemory 65530 368 | #define System_SysConst_SInOutError 65531 369 | #define System_SysConst_STooManyOpenFiles 65532 370 | #define System_SysConst_SAccessDenied 65533 371 | #define System_SysConst_SEndOfFile 65534 372 | #define System_SysConst_SDiskFull 65535 373 | STRINGTABLE 374 | BEGIN 375 | Vcl_Consts_SStyleInvalidParameter, L"%s parameter cannot be nil" 376 | Vcl_Consts_SStyleFeatureNotSupported, L"Feature not supported by this style" 377 | Vcl_Consts_SStyleNotRegistered, L"Style '%s' is not registered" 378 | Vcl_Consts_SStyleUnregisterError, L"Cannot unregister the system style" 379 | Vcl_Consts_SStyleNotRegisteredNoName, L"Style not registered" 380 | Vcl_Consts_sBeginInvokeNoHandle, L"Cannot call BeginInvoke on a control with no parent or window handle" 381 | System_Win_ComConst_SOleError, L"OLE error %.8x" 382 | System_Win_ComConst_SNoMethod, L"Method '%s' not supported by automation object" 383 | System_Win_ComConst_SVarNotObject, L"Variant does not reference an automation object" 384 | System_Win_ComConst_STooManyParams, L"Dispatch methods do not support more than 64 parameters" 385 | Vcl_Consts_SLogin, L"Login" 386 | Vcl_Consts_STrayIconRemoveError, L"Cannot remove shell notification icon" 387 | Vcl_Consts_SWindowsVistaRequired, L"%s requires Windows Vista or later" 388 | Vcl_Consts_STaskDlgButtonCaption, L"Button%d" 389 | Vcl_Consts_STaskDlgRadioButtonCaption, L"RadioButton%d" 390 | Vcl_Consts_SInvalidTaskDlgButtonCaption, L"Caption cannot be empty" 391 | Vcl_Consts_SStyleLoadError, L"Unable to load style '%s'" 392 | Vcl_Consts_SStyleLoadErrors, L"Unable to load styles: %s" 393 | Vcl_Consts_SStyleRegisterError, L"Style '%s' already registered" 394 | Vcl_Consts_SStyleClassRegisterError, L"Style class '%s' already registered" 395 | Vcl_Consts_SStyleNotFound, L"Style '%s' not found" 396 | Vcl_Consts_SStyleClassNotFound, L"Style class '%s' not found" 397 | Vcl_Consts_SStyleInvalidHandle, L"Invalid style handle" 398 | Vcl_Consts_SStyleFormatError, L"Invalid style format" 399 | Vcl_Consts_SStyleHookClassRegistered, L"Class '%s' is already registered for '%s'" 400 | Vcl_Consts_SStyleHookClassNotRegistered, L"Class '%s' is not registered for '%s'" 401 | Vcl_Consts_SIconToClipboard, L"Clipboard does not support Icons" 402 | Vcl_Consts_SCannotOpenClipboard, L"Cannot open clipboard: %s" 403 | Vcl_Consts_SInvalidMemoSize, L"Text exceeds memo capacity" 404 | Vcl_Consts_SInvalidPrinterOp, L"Operation not supported on selected printer" 405 | Vcl_Consts_SNoDefaultPrinter, L"There is no default printer currently selected" 406 | Vcl_Consts_SDuplicateMenus, L"Menu '%s' is already being used by another form" 407 | Vcl_Consts_SDockedCtlNeedsName, L"Docked control must have a name" 408 | Vcl_Consts_SDockTreeRemoveError, L"Error removing control from dock tree" 409 | Vcl_Consts_SDockZoneNotFound, L" - Dock zone not found" 410 | Vcl_Consts_SDockZoneHasNoCtl, L" - Dock zone has no control" 411 | Vcl_Consts_SDockZoneVersionConflict, L"Error loading dock zone from the stream. Expecting version %d, but found %d." 412 | Vcl_Consts_SPromptArrayTooShort, L"Length of value array must be >= length of prompt array" 413 | Vcl_Consts_SPromptArrayEmpty, L"Prompt array must not be empty" 414 | Vcl_Consts_SUsername, L"&Username" 415 | Vcl_Consts_SPassword, L"&Password" 416 | Vcl_Consts_SDomain, L"&Domain" 417 | Vcl_Consts_SmkcSpace, L"Space" 418 | Vcl_Consts_SmkcPgUp, L"PgUp" 419 | Vcl_Consts_SmkcPgDn, L"PgDn" 420 | Vcl_Consts_SmkcEnd, L"End" 421 | Vcl_Consts_SmkcHome, L"Home" 422 | Vcl_Consts_SmkcLeft, L"Left" 423 | Vcl_Consts_SmkcUp, L"Up" 424 | Vcl_Consts_SmkcRight, L"Right" 425 | Vcl_Consts_SmkcDown, L"Down" 426 | Vcl_Consts_SmkcIns, L"Ins" 427 | Vcl_Consts_SmkcDel, L"Del" 428 | Vcl_Consts_SmkcShift, L"Shift+" 429 | Vcl_Consts_SmkcCtrl, L"Ctrl+" 430 | Vcl_Consts_SmkcAlt, L"Alt+" 431 | Vcl_Consts_SOutOfRange, L"Value must be between %d and %d" 432 | Vcl_Consts_sAllFilter, L"All" 433 | Vcl_Consts_SMsgDlgYes, L"&Yes" 434 | Vcl_Consts_SMsgDlgNo, L"&No" 435 | Vcl_Consts_SMsgDlgOK, L"OK" 436 | Vcl_Consts_SMsgDlgCancel, L"Cancel" 437 | Vcl_Consts_SMsgDlgHelp, L"&Help" 438 | Vcl_Consts_SMsgDlgAbort, L"&Abort" 439 | Vcl_Consts_SMsgDlgRetry, L"&Retry" 440 | Vcl_Consts_SMsgDlgIgnore, L"&Ignore" 441 | Vcl_Consts_SMsgDlgAll, L"&All" 442 | Vcl_Consts_SMsgDlgNoToAll, L"N&o to All" 443 | Vcl_Consts_SMsgDlgYesToAll, L"Yes to &All" 444 | Vcl_Consts_SMsgDlgClose, L"&Close" 445 | Vcl_Consts_SmkcBkSp, L"BkSp" 446 | Vcl_Consts_SmkcTab, L"Tab" 447 | Vcl_Consts_SmkcEsc, L"Esc" 448 | Vcl_Consts_SmkcEnter, L"Enter" 449 | Vcl_Consts_SNoMDIForm, L"Cannot create form. No MDI forms are currently active" 450 | Vcl_Consts_SImageCanvasNeedsBitmap, L"Can only modify an image if it contains a bitmap" 451 | Vcl_Consts_SControlParentSetToSelf, L"A control cannot have itself as its parent" 452 | Vcl_Consts_SCannotDragForm, L"Cannot drag a form" 453 | Vcl_Consts_SVMetafiles, L"Metafiles" 454 | Vcl_Consts_SVEnhMetafiles, L"Enhanced Metafiles" 455 | Vcl_Consts_SVIcons, L"Icons" 456 | Vcl_Consts_SVBitmaps, L"Bitmaps" 457 | Vcl_Consts_SVTIFFImages, L"TIFF Images" 458 | Vcl_Consts_SVJPGImages, L"JPEG Images" 459 | Vcl_Consts_SVPNGImages, L"PNG Images" 460 | Vcl_Consts_SVGIFImages, L"GIF Images" 461 | Vcl_Consts_SMsgDlgWarning, L"Warning" 462 | Vcl_Consts_SMsgDlgError, L"Error" 463 | Vcl_Consts_SMsgDlgInformation, L"Information" 464 | Vcl_Consts_SMsgDlgConfirm, L"Confirm" 465 | Vcl_Consts_SParentGivenNotAParent, L"Parent given is not a parent of '%s'" 466 | Vcl_Consts_SMDIChildNotVisible, L"Cannot hide an MDI Child Form" 467 | Vcl_Consts_SVisibleChanged, L"Cannot change Visible in OnShow or OnHide" 468 | Vcl_Consts_SCannotShowModal, L"Cannot make a visible window modal" 469 | Vcl_Consts_SScrollBarRange, L"Scrollbar property out of range" 470 | Vcl_Consts_SPropertyOutOfRange, L"%s property out of range" 471 | Vcl_Consts_SMenuIndexError, L"Menu index out of range" 472 | Vcl_Consts_SMenuReinserted, L"Menu inserted twice" 473 | Vcl_Consts_SMenuNotFound, L"Sub-menu is not in menu" 474 | Vcl_Consts_SNoTimers, L"Not enough timers available" 475 | Vcl_Consts_SNotPrinting, L"Printer is not currently printing" 476 | Vcl_Consts_SPrinting, L"Printing in progress" 477 | Vcl_Consts_SPrinterIndexError, L"Printer index out of range" 478 | Vcl_Consts_SInvalidPrinter, L"Printer selected is not valid" 479 | Vcl_Consts_SDeviceOnPort, L"%s on %s" 480 | Vcl_Consts_SGroupIndexTooLow, L"GroupIndex cannot be less than a previous menu item's GroupIndex" 481 | Vcl_Consts_SUnknownClipboardFormat, L"Unsupported clipboard format" 482 | Vcl_Consts_SUnknownStreamFormat, L"Unsupported stream format" 483 | Vcl_Consts_SOutOfResources, L"Out of system resources" 484 | Vcl_Consts_SNoCanvasHandle, L"Canvas does not allow drawing" 485 | Vcl_Consts_SInvalidTextFormatFlag, L"Text format flag '%s' not supported" 486 | Vcl_Consts_SInvalidImageSize, L"Invalid image size" 487 | Vcl_Consts_SInvalidImageList, L"Invalid ImageList" 488 | Vcl_Consts_SReplaceImage, L"Unable to Replace Image" 489 | Vcl_Consts_SInsertImage, L"Unable to Insert Image" 490 | Vcl_Consts_SImageIndexError, L"Invalid ImageList Index" 491 | Vcl_Consts_SImageReadFail, L"Failed to read ImageList data from stream" 492 | Vcl_Consts_SImageWriteFail, L"Failed to write ImageList data to stream" 493 | Vcl_Consts_SWindowDCError, L"Error creating window device context" 494 | Vcl_Consts_SWindowClass, L"Error creating window class" 495 | Vcl_Consts_SCannotFocus, L"Cannot focus a disabled or invisible window" 496 | Vcl_Consts_SParentRequired, L"Control '%s' has no parent window" 497 | System_RTLConsts_sObserverNoMulticastFound, L"No multi cast observer with ID %d was added to the observer collection" 498 | System_RTLConsts_sObserverNotAvailable, L"Observer is not available" 499 | System_RTLConsts_SInvalidDateString, L"Invalid date string: %s" 500 | System_RTLConsts_SInvalidTimeString, L"Invalid time string: %s" 501 | System_RTLConsts_SInvalidOffsetString, L"Invalid time Offset string: %s" 502 | System_RTLConsts_sMustWaitOnOneEvent, L"Must wait on at least one event" 503 | System_RTLConsts_sBeginInvokeDestroying, L"Cannot call BeginInvoke on a TComponent in the process of destruction" 504 | Vcl_Consts_SInvalidBitmap, L"Bitmap image is not valid" 505 | Vcl_Consts_SInvalidIcon, L"Icon image is not valid" 506 | Vcl_Consts_SInvalidMetafile, L"Metafile is not valid" 507 | Vcl_Consts_SInvalidPixelFormat, L"Invalid pixel format" 508 | Vcl_Consts_SInvalidImage, L"Invalid image" 509 | Vcl_Consts_SScanLine, L"Scan line index out of range" 510 | Vcl_Consts_SChangeIconSize, L"Cannot change the size of an icon" 511 | Vcl_Consts_SChangeWicSize, L"Cannot change the size of a WIC Image" 512 | Vcl_Consts_SUnknownExtension, L"Unknown picture file extension (.%s)" 513 | System_RTLConsts_SWindows7, L"Windows 7" 514 | System_RTLConsts_SWindowsServer2008R2, L"Windows Server 2008 R2" 515 | System_RTLConsts_SWindows2000, L"Windows 2000" 516 | System_RTLConsts_SWindowsXP, L"Windows XP" 517 | System_RTLConsts_SWindowsServer2003, L"Windows Server 2003" 518 | System_RTLConsts_SWindowsServer2003R2, L"Windows Server 2003 R2" 519 | System_RTLConsts_SWindowsServer2012, L"Windows Server 2012" 520 | System_RTLConsts_SWindowsServer2012R2, L"Windows Server 2012 R2" 521 | System_RTLConsts_SWindowsServer2016, L"Windows Server 2016" 522 | System_RTLConsts_SWindows8, L"Windows 8" 523 | System_RTLConsts_SWindows8Point1, L"Windows 8.1" 524 | System_RTLConsts_SWindows10, L"Windows 10" 525 | System_RTLConsts_sObserverUnsupported, L"Observer is not supported" 526 | System_RTLConsts_sObserverMultipleSingleCast, L"Cannot have multiple single cast observers added to the observers collection" 527 | System_RTLConsts_sObserverNoInterface, L"The object does not implement the observer interface" 528 | System_RTLConsts_sObserverNoSinglecastFound, L"No single cast observer with ID %d was added to the observer collection" 529 | System_RTLConsts_SArgumentOutOfRange, L"Argument out of range" 530 | System_RTLConsts_SArgumentNil, L"Argument must not be nil" 531 | System_RTLConsts_SGenericItemNotFound, L"Item not found" 532 | System_RTLConsts_SGenericDuplicateItem, L"Duplicates not allowed" 533 | System_RTLConsts_SInsufficientRtti, L"Insufficient RTTI available to support this operation" 534 | System_RTLConsts_SParameterCountMismatch, L"Parameter count mismatch" 535 | System_RTLConsts_SNonPublicType, L"Type '%s' is not declared in the interface section of a unit" 536 | System_RTLConsts_SByRefArgMismatch, L"VAR and OUT arguments must match parameter type exactly" 537 | System_RTLConsts_SServiceNotFound, L"Specified Login Credential Service not found" 538 | System_RTLConsts_SVersionStr, L"%s (Version %d.%d, Build %d, %5:s)" 539 | System_RTLConsts_SSPVersionStr, L"%s Service Pack %4:d (Version %1:d.%2:d, Build %3:d, %5:s)" 540 | System_RTLConsts_SVersion32, L"32-bit Edition" 541 | System_RTLConsts_SVersion64, L"64-bit Edition" 542 | System_RTLConsts_SWindows, L"Windows" 543 | System_RTLConsts_SWindowsVista, L"Windows Vista" 544 | System_RTLConsts_SWindowsServer2008, L"Windows Server 2008" 545 | System_RTLConsts_sNoConstruct, L"Class %s is not intended to be constructed" 546 | System_RTLConsts_sInvalidTimeoutValue, L"Invalid Timeout value: %s" 547 | System_RTLConsts_sSpinCountOutOfRange, L"SpinCount out of range. Must be between 0 and %d" 548 | System_RTLConsts_sTimespanTooLong, L"Timespan too long" 549 | System_RTLConsts_sInvalidTimespanDuration, L"The duration cannot be returned because the absolute value exceeds the value of TTimeSpan.MaxValue" 550 | System_RTLConsts_sTimespanValueCannotBeNan, L"Value cannot be NaN" 551 | System_RTLConsts_sCannotNegateTimespan, L"Negating the minimum value of a Timespan is invalid" 552 | System_RTLConsts_sInvalidTimespanFormat, L"Invalid Timespan format" 553 | System_RTLConsts_sTimespanElementTooLong, L"Timespan element too long" 554 | System_RTLConsts_SNoContext, L"No context-sensitive help installed" 555 | System_RTLConsts_SNoContextFound, L"No help found for context %d" 556 | System_RTLConsts_SNoIndex, L"Unable to open Index" 557 | System_RTLConsts_SNoSearch, L"Unable to open Search" 558 | System_RTLConsts_SNoTableOfContents, L"Unable to find a Table of Contents" 559 | System_RTLConsts_SNoTopics, L"No topic-based help system installed" 560 | System_RTLConsts_SNothingFound, L"No help found for %s" 561 | System_RTLConsts_SThreadExternalWait, L"Cannot wait for an externally created thread" 562 | System_RTLConsts_SThreadStartError, L"Cannot call Start on a running or suspended thread" 563 | System_RTLConsts_SThreadExternalCheckTerminated, L"Cannot call CheckTerminated on an externally created thread" 564 | System_RTLConsts_SThreadExternalSetReturnValue, L"Cannot call SetReturnValue on an externally create thread" 565 | System_RTLConsts_SParamIsNil, L"Parameter %s cannot be nil" 566 | System_RTLConsts_SParamIsNegative, L"Parameter %s cannot be a negative value" 567 | System_RTLConsts_SInputBufferExceed, L"Input buffer exceeded for %s = %d, %s = %d" 568 | System_RTLConsts_SInvalidCharsInPath, L"Invalid characters in path" 569 | System_RTLConsts_SPathTooLong, L"The specified path is too long" 570 | System_RTLConsts_SPathNotFound, L"The specified path was not found" 571 | System_RTLConsts_SPathFormatNotSupported, L"The path format is not supported" 572 | System_RTLConsts_SFileNotFound, L"The specified file was not found" 573 | System_RTLConsts_SLocalTimeInvalid, L"The given \"%s\" local time is invalid (situated within the missing period prior to DST)." 574 | System_RTLConsts_hNoFilterViewer, L"No help viewer that supports filters" 575 | System_RTLConsts_sArgumentOutOfRange_Index, L"Index out of range (%d). Must be >= 0 and < %d" 576 | System_RTLConsts_sInvalidStringAndObjectArrays, L"Length of Strings and Objects arrays must be equal" 577 | System_RTLConsts_SNoComSupport, L"%s has not been registered as a COM class" 578 | System_RTLConsts_SPropertyException, L"Error reading %s%s%s: %s" 579 | System_RTLConsts_SReadError, L"Stream read error" 580 | System_RTLConsts_SReadOnlyProperty, L"Property is read-only" 581 | System_RTLConsts_SRegCreateFailed, L"Failed to create key %s" 582 | System_RTLConsts_SRegGetDataFailed, L"Failed to get data for '%s'" 583 | System_RTLConsts_SRegSetDataFailed, L"Failed to set data for '%s'" 584 | System_RTLConsts_SResNotFound, L"Resource %s not found" 585 | System_RTLConsts_SSeekNotImplemented, L"%s.Seek not implemented" 586 | System_RTLConsts_SSortedListError, L"Operation not allowed on sorted list" 587 | System_RTLConsts_SUnknownGroup, L"%s not in a class registration group" 588 | System_RTLConsts_SUnknownProperty, L"Property %s does not exist" 589 | System_RTLConsts_SWriteError, L"Stream write error" 590 | System_RTLConsts_SThreadCreateError, L"Thread creation error: %s" 591 | System_RTLConsts_SThreadError, L"Thread Error: %s (%d)" 592 | System_RTLConsts_SThreadExternalTerminate, L"Cannot terminate an externally created thread" 593 | System_RTLConsts_SDuplicateName, L"A component named %s already exists" 594 | System_RTLConsts_SDuplicateString, L"String list does not allow duplicates" 595 | System_RTLConsts_SFCreateErrorEx, L"Cannot create file \"%s\". %s" 596 | System_RTLConsts_SFOpenErrorEx, L"Cannot open file \"%s\". %s" 597 | System_RTLConsts_SIniFileWriteError, L"Unable to write to %s" 598 | System_RTLConsts_SInvalidFileName, L"Invalid file name - %s" 599 | System_RTLConsts_SInvalidImage, L"Invalid stream format" 600 | System_RTLConsts_SInvalidName, L"''%s'' is not a valid component name" 601 | System_RTLConsts_SInvalidProperty, L"Invalid property value" 602 | System_RTLConsts_SInvalidPropertyPath, L"Invalid property path" 603 | System_RTLConsts_SInvalidPropertyValue, L"Invalid property value" 604 | System_RTLConsts_SInvalidRegType, L"Invalid data type for '%s'" 605 | System_RTLConsts_SListCapacityError, L"List capacity out of bounds (%d)" 606 | System_RTLConsts_SListCountError, L"List count out of bounds (%d)" 607 | System_RTLConsts_SListIndexError, L"List index out of bounds (%d)" 608 | System_RTLConsts_SMemoryStreamError, L"Out of memory while expanding memory stream" 609 | System_SysConst_SCharIndexOutOfBounds, L"Character index out of bounds (%d)" 610 | System_SysConst_SByteIndexOutOfBounds, L"Start index out of bounds (%d)" 611 | System_SysConst_SInvalidCharCount, L"Invalid count (%d)" 612 | System_SysConst_SInvalidDestinationIndex, L"Invalid destination index (%d)" 613 | System_SysConst_SInvalidCodePage, L"Invalid code page" 614 | System_SysConst_SInvalidEncodingName, L"Invalid encoding name" 615 | System_SysConst_SNoMappingForUnicodeCharacter, L"No mapping for the Unicode character exists in the target multi-byte code page" 616 | System_SysConst_SInvalidStringBaseIndex, L"Invalid StringBaseIndex" 617 | System_RTLConsts_SAncestorNotFound, L"Ancestor for '%s' not found" 618 | System_RTLConsts_SAssignError, L"Cannot assign a %s to a %s" 619 | System_RTLConsts_SBitsIndexError, L"Bits index out of range" 620 | System_RTLConsts_SCantWriteResourceStreamError, L"Can't write to a read-only resource stream" 621 | System_RTLConsts_SCheckSynchronizeError, L"CheckSynchronize called from thread $%x, which is NOT the main thread" 622 | System_RTLConsts_SClassNotFound, L"Class %s not found" 623 | System_RTLConsts_SDuplicateClass, L"A class named %s already exists" 624 | System_RTLConsts_SDuplicateItem, L"List does not allow duplicates ($0%x)" 625 | System_SysConst_SShortDayNameMon, L"Mon" 626 | System_SysConst_SShortDayNameTue, L"Tue" 627 | System_SysConst_SShortDayNameWed, L"Wed" 628 | System_SysConst_SShortDayNameThu, L"Thu" 629 | System_SysConst_SShortDayNameFri, L"Fri" 630 | System_SysConst_SShortDayNameSat, L"Sat" 631 | System_SysConst_SLongDayNameSun, L"Sunday" 632 | System_SysConst_SLongDayNameMon, L"Monday" 633 | System_SysConst_SLongDayNameTue, L"Tuesday" 634 | System_SysConst_SLongDayNameWed, L"Wednesday" 635 | System_SysConst_SLongDayNameThu, L"Thursday" 636 | System_SysConst_SLongDayNameFri, L"Friday" 637 | System_SysConst_SLongDayNameSat, L"Saturday" 638 | System_SysConst_SCannotCreateDir, L"Unable to create directory" 639 | System_SysConst_SInvalidSourceArray, L"Invalid source array" 640 | System_SysConst_SInvalidDestinationArray, L"Invalid destination array" 641 | System_SysConst_SShortMonthNameOct, L"Oct" 642 | System_SysConst_SShortMonthNameNov, L"Nov" 643 | System_SysConst_SShortMonthNameDec, L"Dec" 644 | System_SysConst_SLongMonthNameJan, L"January" 645 | System_SysConst_SLongMonthNameFeb, L"February" 646 | System_SysConst_SLongMonthNameMar, L"March" 647 | System_SysConst_SLongMonthNameApr, L"April" 648 | System_SysConst_SLongMonthNameMay, L"May" 649 | System_SysConst_SLongMonthNameJun, L"June" 650 | System_SysConst_SLongMonthNameJul, L"July" 651 | System_SysConst_SLongMonthNameAug, L"August" 652 | System_SysConst_SLongMonthNameSep, L"September" 653 | System_SysConst_SLongMonthNameOct, L"October" 654 | System_SysConst_SLongMonthNameNov, L"November" 655 | System_SysConst_SLongMonthNameDec, L"December" 656 | System_SysConst_SShortDayNameSun, L"Sun" 657 | System_SysConst_SNotImplemented, L"Feature not implemented" 658 | System_SysConst_SObjectDisposed, L"Method called on disposed object" 659 | System_SysConst_SAssertError, L"%s (%s, line %d)" 660 | System_SysConst_SAbstractError, L"Abstract Error" 661 | System_SysConst_SModuleAccessViolation, L"Access violation at address %p in module '%s'. %s of address %p" 662 | System_SysConst_SOSError, L"System Error. Code: %d.\r\n%s%s" 663 | System_SysConst_SUnkOSError, L"A call to an OS function failed" 664 | System_SysConst_SShortMonthNameJan, L"Jan" 665 | System_SysConst_SShortMonthNameFeb, L"Feb" 666 | System_SysConst_SShortMonthNameMar, L"Mar" 667 | System_SysConst_SShortMonthNameApr, L"Apr" 668 | System_SysConst_SShortMonthNameMay, L"May" 669 | System_SysConst_SShortMonthNameJun, L"Jun" 670 | System_SysConst_SShortMonthNameJul, L"Jul" 671 | System_SysConst_SShortMonthNameAug, L"Aug" 672 | System_SysConst_SShortMonthNameSep, L"Sep" 673 | System_SysConst_SVarTypeAlreadyUsedWithPrefix, L"Custom variant type (%s%.4x) already used by %s" 674 | System_SysConst_SVarTypeNotUsableWithPrefix, L"Custom variant type (%s%.4x) is not usable" 675 | System_SysConst_SVarTypeTooManyCustom, L"Too many custom variant types have been registered" 676 | System_SysConst_SVarTypeCouldNotConvert, L"Could not convert variant of type (%s) into type (%s)" 677 | System_SysConst_SVarTypeConvertOverflow, L"Overflow while converting variant of type (%s) into type (%s)" 678 | System_SysConst_SVarOverflow, L"Variant overflow" 679 | System_SysConst_SVarInvalid, L"Invalid argument" 680 | System_SysConst_SVarBadType, L"Invalid variant type" 681 | System_SysConst_SVarNotImplemented, L"Operation not supported" 682 | System_SysConst_SVarUnexpected, L"Unexpected variant error" 683 | System_SysConst_SExternalException, L"External exception %x" 684 | System_SysConst_SAssertionFailed, L"Assertion failed" 685 | System_SysConst_SIntfCastError, L"Interface not supported" 686 | System_SysConst_SSafecallException, L"Exception in safecall method" 687 | System_SysConst_SMonitorLockException, L"Object lock not owned" 688 | System_SysConst_SNoMonitorSupportException, L"Monitor support function not initialized" 689 | System_SysConst_SExceptTitle, L"Application Error" 690 | System_SysConst_SInvalidFormat, L"Format '%s' invalid or incompatible with argument" 691 | System_SysConst_SArgumentMissing, L"No argument for format '%s'" 692 | System_SysConst_SDispatchError, L"Variant method calls not supported" 693 | System_SysConst_SReadAccess, L"Read" 694 | System_SysConst_SWriteAccess, L"Write" 695 | System_SysConst_SExecuteAccess, L"Execution" 696 | System_SysConst_SInvalidAccess, L"Invalid access" 697 | System_SysConst_SVarArrayCreate, L"Error creating variant or safe array" 698 | System_SysConst_SVarArrayBounds, L"Variant or safe array index out of bounds" 699 | System_SysConst_SVarArrayLocked, L"Variant or safe array is locked" 700 | System_SysConst_SInvalidVarCast, L"Invalid variant type conversion" 701 | System_SysConst_SInvalidVarOp, L"Invalid variant operation" 702 | System_SysConst_SInvalidVarNullOp, L"Invalid NULL variant operation" 703 | System_SysConst_SInvalidVarOpWithHResultWithPrefix, L"Invalid variant operation (%s%.8x)\n%s" 704 | System_SysConst_SVarTypeOutOfRangeWithPrefix, L"Custom variant type (%s%.4x) is out of range" 705 | System_SysConst_SInvalidInput, L"Invalid numeric input" 706 | System_SysConst_SDivByZero, L"Division by zero" 707 | System_SysConst_SRangeError, L"Range check error" 708 | System_SysConst_SIntOverflow, L"Integer overflow" 709 | System_SysConst_SInvalidOp, L"Invalid floating point operation" 710 | System_SysConst_SZeroDivide, L"Floating point division by zero" 711 | System_SysConst_SOverflow, L"Floating point overflow" 712 | System_SysConst_SUnderflow, L"Floating point underflow" 713 | System_SysConst_SInvalidPointer, L"Invalid pointer operation" 714 | System_SysConst_SInvalidCast, L"Invalid class typecast" 715 | System_SysConst_SAccessViolationArg3, L"Access violation at address %p. %s of address %p" 716 | System_SysConst_SAccessViolationNoArg, L"Access violation" 717 | System_SysConst_SStackOverflow, L"Stack overflow" 718 | System_SysConst_SControlC, L"Control-C hit" 719 | System_SysConst_SPrivilege, L"Privileged instruction" 720 | System_SysConst_SException, L"Exception %s in module %s at %p.\r\n%s%s\r\n" 721 | System_SysConst_SUnknown, L"" 722 | System_SysConst_SInvalidInteger, L"'%s' is not a valid integer value" 723 | System_SysConst_SInvalidFloat, L"'%s' is not a valid floating point value" 724 | System_SysConst_SInvalidDate, L"'%s' is not a valid date" 725 | System_SysConst_SInvalidTime, L"'%s' is not a valid time" 726 | System_SysConst_SInvalidDateTime, L"'%s' is not a valid date and time" 727 | System_SysConst_SInvalidTimeStamp, L"'%d.%d' is not a valid timestamp" 728 | System_SysConst_SInvalidGUID, L"'%s' is not a valid GUID value" 729 | System_SysConst_STimeEncodeError, L"Invalid argument to time encode" 730 | System_SysConst_SDateEncodeError, L"Invalid argument to date encode" 731 | System_SysConst_SOutOfMemory, L"Out of memory" 732 | System_SysConst_SInOutError, L"I/O error %d" 733 | System_SysConst_STooManyOpenFiles, L"Too many open files" 734 | System_SysConst_SAccessDenied, L"File access denied" 735 | System_SysConst_SEndOfFile, L"Read beyond end of file" 736 | System_SysConst_SDiskFull, L"Disk full" 737 | END 738 | 739 | /* c:\program files (x86)\embarcadero\studio\19.0\lib\Win32\release\Controls.res */ 740 | /* C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\uMain.dfm */ 741 | /* C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\MyMQTT.res */ 742 | /* C:\Users\join\Desktop\10.2-Project\Delphi-TMQTT2\MyMQTT.drf */ 743 | --------------------------------------------------------------------------------