1object PartnerForm: TPartnerForm 2 Left = 233 3 Height = 550 4 Top = 137 5 Width = 748 6 Caption = 'PartnerForm' 7 ClientHeight = 550 8 ClientWidth = 748 9 Color = clBtnFace 10 Constraints.MaxHeight = 554 11 Constraints.MaxWidth = 748 12 Constraints.MinHeight = 550 13 Constraints.MinWidth = 748 14 Font.Color = clWindowText 15 Font.Height = -11 16 Font.Name = 'Tahoma' 17 OnClose = FormClose 18 OnCreate = FormCreate 19 OnDestroy = FormDestroy 20 LCLVersion = '1.0.12.0' 21 Visible = True 22 object PageControl: TPageControl 23 Left = 0 24 Height = 441 25 Top = 86 26 Width = 748 27 ActivePage = TabBRecv 28 Align = alBottom 29 TabIndex = 1 30 TabOrder = 5 31 object TabBSend: TTabSheet 32 Caption = 'BSend' 33 ClientHeight = 409 34 ClientWidth = 742 35 object Label1: TLabel 36 Left = 608 37 Height = 14 38 Top = 8 39 Width = 25 40 Caption = 'R_ID' 41 ParentColor = False 42 end 43 object Label4: TLabel 44 Left = 608 45 Height = 14 46 Top = 48 47 Width = 20 48 Caption = 'Size' 49 ParentColor = False 50 end 51 object DataGrid: TStringGrid 52 Left = 0 53 Height = 415 54 Top = 0 55 Width = 601 56 Align = alLeft 57 ColCount = 17 58 DefaultColWidth = 32 59 DefaultDrawing = False 60 DefaultRowHeight = 18 61 Font.CharSet = ANSI_CHARSET 62 Font.Color = clWindowText 63 Font.Height = -12 64 Font.Name = 'Courier New' 65 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] 66 ParentFont = False 67 RowCount = 4097 68 TabOrder = 0 69 TitleFont.CharSet = ANSI_CHARSET 70 TitleFont.Color = clWindowText 71 TitleFont.Height = -12 72 TitleFont.Name = 'Courier New' 73 OnDrawCell = DataGridDrawCell 74 OnExit = DataGridExit 75 OnKeyPress = DataGridKeyPress 76 end 77 object Ed_R_ID: TEdit 78 Left = 605 79 Height = 21 80 Top = 24 81 Width = 105 82 TabOrder = 1 83 Text = '$00000001' 84 end 85 object EdAmount: TEdit 86 Left = 605 87 Height = 21 88 Top = 64 89 Width = 105 90 TabOrder = 2 91 Text = '256' 92 end 93 object BsendBtn: TButton 94 Left = 607 95 Height = 25 96 Top = 104 97 Width = 102 98 Caption = 'BSend' 99 OnClick = BsendBtnClick 100 TabOrder = 3 101 end 102 object AsBsendBtn: TButton 103 Left = 607 104 Height = 25 105 Top = 144 106 Width = 102 107 Caption = 'Async BSend' 108 OnClick = AsBsendBtnClick 109 TabOrder = 4 110 end 111 object ChkSend: TCheckBox 112 Left = 607 113 Height = 19 114 Top = 184 115 Width = 80 116 Caption = 'Cyclic BSend' 117 OnClick = ChkSendClick 118 TabOrder = 5 119 end 120 end 121 object TabBRecv: TTabSheet 122 Caption = 'BRecv' 123 ClientHeight = 415 124 ClientWidth = 740 125 ImageIndex = 1 126 object lbldump: TLabel 127 Left = 4 128 Height = 14 129 Top = 8 130 Width = 100 131 Caption = 'Data Dump : 0 bytes' 132 ParentColor = False 133 end 134 object Label8: TLabel 135 Left = 529 136 Height = 14 137 Top = 8 138 Width = 25 139 Caption = 'R_ID' 140 ParentColor = False 141 end 142 object Label13: TLabel 143 Left = 532 144 Height = 14 145 Top = 156 146 Width = 63 147 Caption = 'Timeout (ms)' 148 ParentColor = False 149 end 150 object BRecvLbl: TLabel 151 Left = 504 152 Height = 53 153 Top = 245 154 Width = 186 155 Alignment = taCenter 156 Caption = 'After pressing this button, '#10'You should "Bsend" in the PLC. '#10'If not, after "timeout" ms the function '#10'will return errParRecvTimeout' 157 ParentColor = False 158 WordWrap = True 159 end 160 object RxMemo: TMemo 161 Left = 4 162 Height = 375 163 Top = 26 164 Width = 492 165 Font.CharSet = ANSI_CHARSET 166 Font.Color = clWindowText 167 Font.Height = -11 168 Font.Name = 'Courier New' 169 ParentFont = False 170 ReadOnly = True 171 ScrollBars = ssVertical 172 TabOrder = 0 173 WordWrap = False 174 end 175 object EdR_ID_In: TEdit 176 Left = 529 177 Height = 21 178 Top = 26 179 Width = 130 180 ReadOnly = True 181 TabOrder = 1 182 end 183 object DataLed: TStaticText 184 Left = 529 185 Height = 19 186 Top = 59 187 Width = 59 188 Alignment = taCenter 189 BorderStyle = sbsSingle 190 Caption = 'DATA' 191 Color = clBtnFace 192 ParentColor = False 193 TabOrder = 2 194 Transparent = False 195 end 196 object EdTimeout: TEdit 197 Left = 529 198 Height = 21 199 Top = 172 200 Width = 132 201 TabOrder = 3 202 Text = '5000' 203 end 204 object BRecvBtn: TButton 205 Left = 532 206 Height = 25 207 Top = 208 208 Width = 102 209 Caption = 'BRecv' 210 OnClick = BRecvBtnClick 211 TabOrder = 4 212 end 213 end 214 object TabStat: TTabSheet 215 Caption = 'Statistics' 216 ClientHeight = 409 217 ClientWidth = 742 218 ImageIndex = 2 219 object Label10: TLabel 220 Left = 8 221 Height = 15 222 Top = 35 223 Width = 61 224 Caption = 'Bytes sent' 225 ParentColor = False 226 end 227 object Label11: TLabel 228 Left = 8 229 Height = 15 230 Top = 67 231 Width = 86 232 Caption = 'Bytes received' 233 ParentColor = False 234 end 235 object EdSent: TEdit 236 Left = 109 237 Height = 24 238 Top = 32 239 Width = 135 240 ReadOnly = True 241 TabStop = False 242 TabOrder = 0 243 Text = '0' 244 end 245 object EdRecv: TEdit 246 Left = 109 247 Height = 24 248 Top = 64 249 Width = 135 250 ReadOnly = True 251 TabStop = False 252 TabOrder = 1 253 Text = '0' 254 end 255 end 256 end 257 object SB: TStatusBar 258 Left = 0 259 Height = 23 260 Top = 527 261 Width = 748 262 Panels = < 263 item 264 Text = 'Connecting' 265 Width = 100 266 end 267 item 268 Width = 100 269 end 270 item 271 Width = 200 272 end> 273 SimplePanel = False 274 end 275 object GR_Remote: TGroupBox 276 Left = 212 277 Height = 73 278 Top = 7 279 Width = 207 280 Caption = 'Remote Partner (PLC)' 281 ClientHeight = 55 282 ClientWidth = 203 283 TabOrder = 1 284 object Label5: TLabel 285 Left = 13 286 Height = 14 287 Top = 7 288 Width = 11 289 Caption = 'IP' 290 ParentColor = False 291 end 292 object Label6: TLabel 293 Left = 129 294 Height = 14 295 Top = 7 296 Width = 55 297 Caption = 'TSAP (hex)' 298 ParentColor = False 299 end 300 object Label7: TLabel 301 Left = 152 302 Height = 24 303 Top = 22 304 Width = 7 305 Alignment = taCenter 306 Caption = '.' 307 Font.Color = clWindowText 308 Font.Height = -19 309 Font.Name = 'Tahoma' 310 Font.Style = [fsBold] 311 ParentColor = False 312 ParentFont = False 313 end 314 object EdRemoteIP: TEdit 315 Left = 10 316 Height = 21 317 Top = 22 318 Width = 98 319 TabOrder = 0 320 Text = '192.168.0.65' 321 end 322 object EdRemTsapHI: TEdit 323 Left = 114 324 Height = 21 325 Top = 22 326 Width = 35 327 Alignment = taCenter 328 TabOrder = 1 329 Text = '10' 330 end 331 object EdRemTsapLO: TEdit 332 Left = 162 333 Height = 21 334 Top = 22 335 Width = 37 336 Alignment = taCenter 337 TabOrder = 2 338 Text = '02' 339 end 340 end 341 object StartBtn: TButton 342 Left = 422 343 Height = 25 344 Top = 14 345 Width = 63 346 Caption = 'Start' 347 OnClick = StartBtnClick 348 TabOrder = 2 349 end 350 object StopBtn: TButton 351 Left = 422 352 Height = 25 353 Top = 54 354 Width = 63 355 Caption = 'Stop' 356 OnClick = StopBtnClick 357 TabOrder = 3 358 end 359 object GR_local: TGroupBox 360 Left = 3 361 Height = 73 362 Top = 7 363 Width = 207 364 Caption = 'Local Partner (Smart7)' 365 ClientHeight = 55 366 ClientWidth = 203 367 TabOrder = 0 368 object Label2: TLabel 369 Left = 13 370 Height = 14 371 Top = 7 372 Width = 11 373 Caption = 'IP' 374 ParentColor = False 375 end 376 object Label3: TLabel 377 Left = 129 378 Height = 14 379 Top = 7 380 Width = 55 381 Caption = 'TSAP (hex)' 382 ParentColor = False 383 end 384 object Label9: TLabel 385 Left = 152 386 Height = 24 387 Top = 22 388 Width = 7 389 Alignment = taCenter 390 Caption = '.' 391 Font.Color = clWindowText 392 Font.Height = -19 393 Font.Name = 'Tahoma' 394 Font.Style = [fsBold] 395 ParentColor = False 396 ParentFont = False 397 end 398 object EdLocalIP: TEdit 399 Left = 10 400 Height = 21 401 Top = 22 402 Width = 98 403 TabOrder = 0 404 Text = '0.0.0.0' 405 end 406 object EdLocTsapHI: TEdit 407 Left = 114 408 Height = 21 409 Top = 22 410 Width = 35 411 Alignment = taCenter 412 TabOrder = 1 413 Text = '10' 414 end 415 object EdLocTsapLO: TEdit 416 Left = 162 417 Height = 21 418 Top = 22 419 Width = 37 420 Alignment = taCenter 421 TabOrder = 2 422 Text = '02' 423 end 424 end 425 object RGMode: TRadioGroup 426 Left = 488 427 Height = 81 428 Top = 3 429 Width = 103 430 AutoFill = True 431 Caption = 'BSend As Mode' 432 ChildSizing.LeftRightSpacing = 6 433 ChildSizing.TopBottomSpacing = 6 434 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 435 ChildSizing.EnlargeVertical = crsHomogenousChildResize 436 ChildSizing.ShrinkHorizontal = crsScaleChilds 437 ChildSizing.ShrinkVertical = crsScaleChilds 438 ChildSizing.Layout = cclLeftToRightThenTopToBottom 439 ChildSizing.ControlsPerLine = 1 440 ClientHeight = 63 441 ClientWidth = 99 442 ItemIndex = 0 443 Items.Strings = ( 444 'Polling' 445 'Idle wait' 446 'Callback' 447 ) 448 OnClick = RGModeClick 449 TabOrder = 4 450 end 451 object ARGMode: TRadioGroup 452 Left = 595 453 Height = 81 454 Top = 3 455 Width = 151 456 AutoFill = True 457 Caption = 'BRecv Mode' 458 ChildSizing.LeftRightSpacing = 6 459 ChildSizing.TopBottomSpacing = 6 460 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 461 ChildSizing.EnlargeVertical = crsHomogenousChildResize 462 ChildSizing.ShrinkHorizontal = crsScaleChilds 463 ChildSizing.ShrinkVertical = crsScaleChilds 464 ChildSizing.Layout = cclLeftToRightThenTopToBottom 465 ChildSizing.ControlsPerLine = 1 466 ClientHeight = 63 467 ClientWidth = 147 468 ItemIndex = 2 469 Items.Strings = ( 470 'Sync with polling' 471 'Sync with idle wait' 472 'Async with callback' 473 ) 474 OnClick = ARGModeClick 475 TabOrder = 7 476 end 477 object TLed: TTimer 478 Interval = 300 479 OnTimer = TLedTimer 480 left = 680 481 top = 472 482 end 483 object TBsend: TTimer 484 Enabled = False 485 Interval = 500 486 OnTimer = TBsendTimer 487 left = 640 488 top = 472 489 end 490 object TStat: TTimer 491 Interval = 100 492 OnTimer = TStatTimer 493 left = 680 494 top = 424 495 end 496 object TBRecv: TTimer 497 Enabled = False 498 Interval = 50 499 OnTimer = TBRecvTimer 500 left = 640 501 top = 424 502 end 503end 504