A†QDò'l›y/zXôú–p)..\..\PuntoVenta\SISTEMA\PuertoSerial.pasj›y/rPuertoSerial.DFM9šy/dComDrv32:ôúfTCommPortDriverE(g.TCommPortDriverë°ìgTCommPortDriver.ConnectedïÂí#gTCommPortDriver.SendDataïÂí#gTCommPortDriver.ConnectïÂí#gTCommPortDriver.DisconnectïÂí#g"TCommPortDriver.SetComPortBaudRateïÂí#fTComPortBaudRateiÁLg"TCommPortDriver.SetComPortDataBitsïÂí#fTComPortDataBitsn¤á|g TCommPortDriver.SetComPortParityïÂí#fTComPortParity’g'TCommPortDriver.SetComPortSwHandshakingïÂí#fTComPortSwHandshakingÎÄgshNONE&Gulg'TCommPortDriver.SetComPortHwHandshakingïÂí#fTComPortHwHandshakingƒ¡YghhRTSCTSÜ(g shXONXOFF'GulgTCommPortDriver.SetComPortïÂí#fTComPortNumberàgTCommPortDriver.ToggleDTRïÂí#gTCommPortDriver.ToggleRTSïÂí#cdComCtrlsÇc&f TStatusBaráê4…g.TStatusBarº»UIgTStatusBar.SetSimpleTextïÂí#cdStdCtrlsÇc&fTMemoá+AfTButtonÝ•êg.TMemoºüaÜg.TButton¶f<®cdExtCtrlsÇc&fTPanel02afTRadioGroup¾µ_jg.TPanel ßR%g.TRadioGroup—†€.cdDialogsÇc&cdFormsÇc&fTFormH×Ë)g.TForm!¨ìígTCustomForm.AlignControlsïÂí#gTCustomForm.CreateParamsïÂí#gTCustomForm.CreateWindowHandleïÂí#gTCustomForm.CreateWndïÂí#gTCustomForm.DefaultHandlerïÂí#gTCustomForm.DefinePropertiesïÂí#gTCustomForm.DestroyWindowHandleïÂí#gTCustomForm.GetClientRectïÂí#gTCustomForm.LoadedïÂí#gTCustomForm.NotificationïÂí#gTCustomForm.PaintWindowïÂí#gTCustomForm.ReadStateïÂí#gTCustomForm.SetParentïÂí#gTCustomForm.ValidateRenameïÂí#gTCustomForm.WndProcïÂí#gTCustomForm.CreateïÂí#gTCustomForm.DestroyïÂí#gTCustomForm.SetFocusïÂí#gTCustomForm.WantChildKeyïÂí#gTCustomForm.CloseïÂí#cdControlsÇc&gTWinControl.CreateHandleïÂí#gTWinControl.DestroyWndïÂí#gTWinControl.GetClientOriginïÂí#gTWinControl.GetDeviceContextïÂí#gTWinControl.ShowControlïÂí#gTWinControl.InvalidateïÂí#gTWinControl.RepaintïÂí#gTWinControl.SetBoundsïÂí#gTWinControl.UpdateïÂí#gTControl.GetDragImagesïÂí#gTControl.SetDragModeïÂí#gTControl.SetNameïÂí#gTControl.SetEnabledïÂí#cdGraphicsÇc&cdClassesÇc&gTComponent.WriteStateïÂí#gTComponent.SafeCallExceptionïÂí#gTPersistent.AssignToïÂí#gTPersistent.AssignïÂí#cdSysUtilsík…šgIntToStrößocdMessagesík…šcdWindowsík…šgkeybd_eventvœÏõgGetLastError¹:ÄgMessageBeep.Î™cdSysInitík…šcdSystemík…šfTObjectâ’!ŠfChar^Éy^fPointerKæÄ§fInteger`õL gTObject.NewInstanceïÂí#gTObject.FreeInstanceïÂí#f AnsiString„HDfString„HDfWordü@ÆÍfBooleanaÁU©g@HandleAnyException÷ŸøQg@DoneExcept÷ŸøQg@LStrAddRef÷ŸøQg @LStrToString÷ŸøQg @PStrNCpy÷ŸøQg@LStrClr'›’@g@HandleFinally÷ŸøQg@LStrFromStringRŸ!ïfPCharÎ“[gLengthg@LStrLenO¸:Äg@LStrToPChar÷ŸøQgFalse¹jÊQgTrueºjÊQg @LStrCatN÷ŸøQg @LStrArrayClr÷ŸøQgOrdgDeleteg@LStrDelete÷ŸøQgDecgIncg @LStrLAsg÷ŸøQg @LStrFromCharp¸g@LStrCat÷ŸøQgStringOfCharg@LStrOfChar÷ŸøQg @LStrCat3÷ŸøQc& .TFormaSerial€½sA.*TFormaSerialˆäNR}0 FormaSerialæò´k}0 CadenaLectoræ¾ …P2 .1f4(TecleaTecla”*!key( Resultf*þc(AgregaCadenaÐ6!cadf$øc(LectorSerial€ª™WCp$!cadF$#Result$c(TFormaSerial.QuitBtnClick€ïÂí#6!Self0!Senderc(TFormaSerial.TxMemoKeyPress€ïÂí#q6!Self0!Sender"Key sf$øc(TFormaSerial.ConnectBtnClick€ïÂí#6!Self0!Senderc(TFormaSerial.DisconnectBtnClick€ïÂí#¨6!Self0!Senderc(TFormaSerial.BaudRateRGClick€ïÂí#06!Self0!Senderc(TFormaSerial.DataBitsRGClick€ïÂí#06!Self0!Senderc(TFormaSerial.ParityRGClick€ïÂí#06!Self0!Senderc(TFormaSerial.HandshakingRGClick€ïÂí#è6!Self0!Senderc(TFormaSerial.ComPortRGClick€ïÂí#6!Self0!Senderc(TFormaSerial.ApplyCommSettings€ïÂí#E6!Self0 wasConnected*c(TFormaSerial.ClrInMemoClick€ïÂí#$6!Self0!Senderc(TFormaSerial.ClrOutMemoClick€ïÂí#$6!Self0!Senderc(TFormaSerial.SetDTRBtnClick€ïÂí#6!Self0!Senderc(TFormaSerial.ClrDTRBtnClick€ïÂí#6!Self0!Senderc(TFormaSerial.SetRTSBtnClick€ïÂí#6!Self0!Senderc(TFormaSerial.ClrRTSBtnClick€ïÂí#6!Self0!Senderc(&TFormaSerial.CommPortDriverReceiveData€ïÂí#! 6!Selff0ø!Sender!DataPtr !DataSize&" p, sf$ð i" c((TFormaSerial.CommPortDriverReceivePacket€ïÂí#¡ 6!Self0!Sender!Packetf ø!DataSize&" p, sf$ðc(TFormaSerial.RxMemoChange€ïÂí#6!Self0!Senderc(Finalization€÷ŸøQ\! 6c(PuertoSerial€!6cG0]FV Á@¨v,CommPortDriverq,Panel1, StatusBar‘,TxMemo¡, ConnectBtn±, DisconnectBtnÁ,QuitBtnÑ, ComPortRGá, BaudRateRGñ, DataBitsRG,ParityRG, HandshakingRG!,RxMemo1,Panel2A,Panel3Q, ClrInMemoa, ClrOutMemoq, SetDTRBtn, ClrDTRBtn‘, SetRTSBtn¡, ClrRTSBtn±-QuitBtnClickô9-TxMemoKeyPressôE-ConnectBtnClickôY-DisconnectBtnClickôe-BaudRateRGClickôq-DataBitsRGClickô}- ParityRGClickô‰-HandshakingRGClickô•-ComPortRGClickô¡-ClrInMemoClickô¹-ClrOutMemoClickôÅ-SetDTRBtnClickôÑ-ClrDTRBtnClickôÝ-SetRTSBtnClickôé-ClrRTSBtnClickôõ-CommPortDriverReceiveDataô-CommPortDriverReceivePacketô!-RxMemoChangeô=-ApplyCommSettingsôcK8:D4€ÿÿÿ@D<B:ýD4ýlM9@À°0½ÜCommPortDriveràPanel1ä StatusBarèTxMemoì ConnectBtnð DisconnectBtnôQuitBtnø ComPortRGü BaudRateRG DataBitsRGParityRG HandshakingRGRxMemoPanel2Panel3 ClrInMemo ClrOutMemo SetDTRBtn$ ClrDTRBtn( SetRTSBtn, ClrRTSBtnQuitBtnClickTxMemoKeyPressConnectBtnClickDisconnectBtnClickBaudRateRGClickDataBitsRGClick ParityRGClickHandshakingRGClickComPortRGClickClrInMemoClickClrOutMemoClickSetDTRBtnClickClrDTRBtnClickSetRTSBtnClickClrRTSBtnClick CommPortDriverReceiveData"CommPortDriverReceivePacketRxMemoChangeTFormaSerialTFormaSerial@;PuertoSerialU‹ìQSVWfƒø0r4fƒøZs.3ÒUh7dÿ2d‰"jjjPè3ÀZYYd‰ë éèŠEÿ_^[Y]ÃU‹ìÄüþÿÿ‰Eü‹Eüè3ÀUh]dÿ0d‰ …üþÿÿ‹Uü¹ÿè•üþÿÿ¸±è3ÀZYYd‰hdEüèÃéëð‹å]ÃU‹ìS‹Ú3ÀUh.dÿ0d‰ ‹Ãºè3ÀZYYd‰h5Ãéëø[]ÃèÃU‹ìjSVW‹ñ‹Ø3ÀUhÏdÿ0d‰ ‹ƒÜè„À„ŒŠ, …‚‹ƒè‹€0‹ÿR…À~[‹ƒè‹€0‹ÿR‹ÐJMü‹ƒè‹€0‹8ÿW‹EüèP‹Eüè‹Ð‹ƒÜYè‹Ö¹‹ƒÜèë‹Ö¹‹ƒÜè3ÀZYYd‰hÖEüèÃéëð_^[Y]ÃU‹ìjjSVW‹Ø3ÀUhÕdÿ0d‰ ‹Ãè‹ƒÜè„ÀtN‹ƒì3Òè‹ƒð²è‹ƒäºìè3ÀUhrdÿ0d‰ 3ÀZYYd‰ëHéèë( ^4 :jR 8...6 .0 "" >0J:0J(.,&ú2*ÈB0J(.`4B"^,&*D6*D"(&2*Ò4*D"(F&Z0zl‘¥’0$X“”Ä@pBxþ% 2-@05(5jþ9@== þE`pI4Q4IYþQYþY`pR]4]´þ]ü]Íþe@iipþq@uu.þ}@.þ‰@.þ•@™™äþ¡ `p@±µ*µÞþ±þ¹@½½"þÅ@ÉÉ"þÑ@ÕÕþÝ@ááþé@ííþõ@ùùþ€p >ö öþÅ þ!þ!` p%B515™þ% þ= I M a