For win95/delphi 2.0 and up. Unit MyCom // A testcomponent for communicating with RS-232 // developed by JKl productions // // This is freware and mainly produced, because I // couldn't find any such component with source for // Delphi. // The product is meant as a test component, and // errors etc. may still occur but I haven't found // anything serious. // There is still lot's of space for improvement etc. // and you are welcome to update and use this unit. // Commu, a testform to check if everything is working correctly. XON/XOFF check is not yet implemented. So good luck with communication. For comments and ideas, adress to Jesper Kleis Email: CAVA@Image.DK { the following contains additional files that should be included with this file. To extract, you need XX3402 available with the SWAG distribution. 1. Cut the text below out, and save to a file .. filename.xx 2. Use XX3402 : xx3402 d filename.xx 3. The decoded file should be created in the same directory. 4. If the file is a archive file, use the proper archive program to extract the members. { ------------------ CUT ----------------------} *XX3402-007632-220897--72--85-48419---------COM.ZIP--1-OF--2 I2g1--E++++6+BJX3WBqKWC9cE2++9k0+++8++++IYJ-F2p39ZFMJ2qGEKzPA+m3vk5w5rXf 7LC411hgdkLd+eH-Ja1RVZsJWMa3Ge6VIUbwvoQdvZf+-kjUSznsm-pZiDfotTD8MFU51yjy 6tXYc6lxhyUKTt6Ly13h8RPLOUIP24Gl32R8a+FCOe0jK78rFbkuetoAwCjdkzfHiWYQLX1E W+uC2nkQ+cmNL95W8L2hO2Kz-wyUrmbXpKFg0B5s38Ot5BoGXaVBMMFxYpUekOIvFT-OPB62 LCk+PqUBV8ZYWlKnWSvPZDrQ2pxNOii6FYK4kPEFrsmKZOMdA4T810WqJndh81s264h9VaAF qABU9hWMeAkO-NCVtg8MDFLyrpibp8srWo-mlo+bsB5QOA35NPhUf7DIVfCNUsY8p6Wi4-EF EIWLtMnQEejtG+pH3m9x9RxigOoPKguHeLig8XiUTE3z+ZpEbW3JS8LwIbwhtMlKkeEinswz JwyDixqfVW4Fk6FGAIC1F8RpHkFb6USVO3L9zxphI4cbhNgjFXLQY9p1kkfbAX6fK9RsE-sl km4UtqvlDFcTjg7qwrTnPFzB4TjvEnLu-p-9+kEI++++0+0kI+wX1kVE9Mo+++1C++++0E++ +2BDHIpJ9YFEIWgcmYwjGglJQAvDnGqptiLWtGchHWratJ7EQAgjmWrK+P4+QUeNSEfeE3ej 693MLO2O74RM0tPofMF7UpZU-K-neZK039HoUZm1Oo4wdBHon1mESgS0UdnAtAGGnDkwDQyw n79Al7nAeZFfR0bbchH2YZGEDFcVMBhok+smpAFE4JGO-lF9nIjFsyI0+3-9+kEI++++0+-l M-MXPSdIiGE-++1Y+E++0E+++2BDHIpJ9YFDFYqEIIz0A-G3rtTgjv+k2KDu+4k60X6NW2ds 88D0ZR2qPFTILyxC7x4LPyTQovjQbDJ+bHGJkan0cASWACWnJVUAc-6UVFo0Rv+XM+nQ+kw6 7Z-He2Sc4N+-HtXBUFlM+2jU4SY8uULe3ScB8XycwsWYglSnsYOGr5izZCFu7L2f93iFL5nd FinIqRvKrwmcsayEP8ZtoIxGa0PxBOYlXEu1A3VDG-tx+JCiVrILC4RKCJqtqTP1yXuIh8cI DOpxAK7PvQTmLG4OYgkR9sstTEgKRRfR4Dztz1RflRqfuotRqsbjFPwybwLFHRlipEzHHt26 KlXGXdFYzde2X0WQAWHgtb75DOj1L5-H519i1gmTh0BgwR6qWlYrz0GQABWPJx7vN1xEGkA2 3+++++U+54kC6rMRxuaL+E++P+A+++Y+++-1HopBJGtGFJCBIv3ib2+E5E98IJX-FLdTuR7z s6gG0ISul9zW+gZoY4ctiO0oJVHt1YE-IWVQr2SsH2ZrbAvmygrgQW9F8QdPrUonvwrS+fg2 923X9Dz4vrSHvcCSpAvDrkSHTibuJu-5fcmSowXZcXmrUERiiet1t6eFWlQWUMSguwH00cKT 9K1Hg2nj75K3ABqdgypOViEv48myvPVEga3hwJy4dta-wzLAU8QDSX5o+Yk+dIn5samO6CVV I2JCMV+RVXEYKgFCvtx4ZGiuGl8bfpIFdcjBTSnoDYr9D8rpIPwdlj9VI1wSROL4hhODoCY9 2-TNky3Euk2tusYOavOh7+xMJtiqOPHyGLO0NBHBjg62UtoUXXKmGbFdGDOuUZxoNx0uhfcI YVoQHiT0uXP88drBjxnCzjwFoRHigDxHdcWvTq2Hz-UWYrSymP2Zk+ljyTeNu+9qm55lPCbz WylXXfU5jFT2JoHgAhxoWACBPwn9kdXL0D20wTcXpb+ZKzA1TOBDx7KyUtzd3b50z3nkOT-c iEkuDVJwWXlu+p-9+kEI++++0++nMVMXCtBbpRE3++-Y4+++-k+++2BDHGtEEJChKChjsXUE zpudzsAzb2Gsxe7Gu1u0i7B6cMTIPjS+jOioKepAMeVrYnUL4peoqjzxD5NSt+4VjLtcv7bT DCkNSwOg+meEnTnyuQbd0Eo2WNPM6H-NQw7DHl1uVkMiSy9bu6tkXZR2XaNPzYZEHstg1rAC d7g6VszI+F69FAG+CKOF9nzL35hglQx-qImshcUYwqsfXNuXoPBEQqJSP2A0c1Y6Rh++CO1R IBAqA-0O-2hacTZk9EE9yddq2v3pC4HD5QZ6lX595UvlqdJoOKn-AjchLV+Dw4eEUXymGBG+ 9ojUOmnkY3PUdFsQII2eKJmkQ32ZdNFr0pPIi3R3j0cEvwB64OnQaQjmnclQ8a+1s-iHVXAG i2IJknx7IB6vdnu7E3cB2WHVrsYf9IXu5T3NkMRiqEShgpAmeGOLpSFiBPZLHPue7fydquVS FEf3MSeIEuNJj8qqwOuOz9t6bi2BoGQ294GnUaRL3G2QPUIdV3-G3Wc0htG9oYtTJDjI8MJ+ NROPIgeDDTNIrcM53iluwQ0Kmpq8IjCq8czT3MokrxQaz7UGFgkVvXcWCgRhXnfT1IVJ2YbU zS6PQIGvV3L7r-E9CRsE0lREEuUy7Sdz+lxo77duf6z6ISWfcx1Rcx0xcx-jXY8zDEfxvWXo yuDEbSD0ovZc06TuNYQ20p8B1GCuYIkhxUBxp3DY2gT12FOI-FnxJA1pEZdAQKdK+NAqJ9rR s+WaehdOQRLJTM+TSgEbUJ-GEDblmlHxOZuDvuE0FmcG6AW759f6EUj4D681kF7vb0UBiJCU p7fvnqvaGsUXeF+OYJJQKQMnkI77ayFcR+RnSf6U8leczY8tN+p2h0M8yIH36r8MvmCLkHl3 6eGex3NWEpqiXPFkaz8THuKLnoakNfdgQsZCVYNOnAjki1Q+C+kZlh+Bkkvuf7TUsK8BymMd +XB5nt0VPxqm0RLM1CPkANk3T5889lCIuaU4QzUMxU6ytYGW7bZB1zQTf65xW0BX7e6tYzhg QC6hHIYrtyFNh1DUS3l2nXFmDBu3GjQ14RhyYas6bNsYOJSF5ThjunFaR7bYb5UY+TclaifE oc+8WXr8GIH25nwDl-ogGDxdg284OcBA+OvrguCFS3fqQqyZy7zxZ3cakJxfwji3IeC7iHv9 x4V+i6ZR3lYrFCUZ4IeYrKUpSqhNugVYNn3ljWdt4sRkDpW1pUEOlxPN7--n7jokc5mPqdCn lCyRjlPuh0C-hAXxKc0AQfTKvEBpRMzXSnPvo6eCKomwXXfsa5nnf1ly32IgecRvS0LVAgMk sjp4aLeUbuX7pOdRIYR4X9VXAtQUMnOOLwybvQD4uxiHcskLP2zbgkOqutiRpxVyiDzEk5Nx uzFWqzPhhBaSpnRWfv5RPAzfqvfLvTZsrA-sTNScCkhzuynq3PIhl42TRuwBF8r--F6AqMgk pntkoq5fEDnKmIsFe5PUvPFUnloByYmz116Gp03RAiuqhXKUGH53b8U3g4KWuQ7GyvEVUI14 uCyjhcuENbM8nCjNB4BS3dWXOMvN9H0bYkwr4PRLtBvCfVCi1Yz1OuayGIwPEP8dWozu63QR VnJchTd5VyoaLEPN70iM9444gBF+BZxhkRi3kaibQR84RyRbfQwu1ZxOZEcV00xE8AJe329U Le-EWhIcJA3yUIOEepA74T6GZJ6iJhYccSfTQKZ09Oa59+EbH6voqs+9S4hkpHSxsUuEM6A4 zo8XpZM9By-L53TzdaCGNy8g-KbbxW+b0my9m-cIqvTomAqqL-1Tl7nHJM+AuTctnma5dEHM nkZAmFDQEEeOIHDOiJliFbQwlUYcqQ5jbiL1HINxZt5iDcNLsZOEssd-PeCkqeGVJd5veGiy OpIHHBBy0XRfU+yyopza8mW0lKOjd-3AxHCXYKDvTl56fg7Vye7HvntfQB5LRDJaH3xu4Jqx 2rDoPYmD5vJJed7bOsvJWpZ7jGh6tT94VCxzI2g1--E++++6+C-X3WCsvXBLDkg+++kV+++7 ++++HJZ1HooiI23HnJZPQm6r3bsSJzYze4cT11Jh-XnXX6CrhlNXQAXMABgk2qSb2dTc3YOP dYIYBGuGqjyytyXG3skRHz8m9ZSXZgvtnZJ5ZrvnVjG6NYf5MfIK4QgoKEV7s4qJNnmaaaTr t65f7MaalmRjHksDU0BV4tO8BIj6T2iyzt0GhFF75agiAcI2VaWqt6f+zo8m-mcNcJZ0JdFb uROFgmEUQlPHL12mAWmlmBAYCk6JC-1HP2hI5Wx7eNdFF6ZQlUnJB2mL93ojSQj7N3sL39pW 37Wc6hGMK+63e6rVM368eEXHQEio+s4OdmYFQNl9Agwp4N2ZrH0XYwUR1mWaZyULlGELiGdY UtIUpI8YEVwd6VN2fObJZj+Ju9NV8vE2-HekV4l3Hh-31mk33FbFUiHfV4ffBDGDFaR0E5Gf wCzEVEbEZ85X0OA892gYIkck1BLrH8qN7-xGlYpcm+-WY5N7jzStxwzFWhunpiK5ksD1+kEb BxiyK7rX8wwoYkjEr6kd-gm2z+-V2EwUskMY+0iodZjp0Sm3JXyZGa5LZOEEY-WvF8OZk23E RUIzZtmasZs301PJGJz9J-ZlSfg4GPA9aWRVMxvdh6DtqnMwCWTsD5a5nrRbyDnq4xDznbGx DHAzdx1LBe1aPrvurV7pHYwgm3bPk-Wu7UXIImrK3pmfg83+ZieQ-if2XbmYYaiakwOzaFH- 72a0+QEziC+NZRiqyyoMoYie8M02vpehAwAe7D1p7nSR+-sby5W9XrTsCAL5BzVsXswnUn-A lMBnIYUOrp4Ns3E7PWTXixj7Q6UoAsX6+7AoL2gFgmGLX1Ga92gUeZom2zDzg3WT1zcWMT0C MPhbgca7tsMC1xM+gEdzFeGJEpm37ANsYEOyqIbFF+T46ZBOtf2KYjEZkllgx0MD4NAUf0Ex 7q91dCE7CoSiIXKk7YCdNACZnaZuHhuw6JCaGPt4P-nX6YCSFNuNBfZWSd9fIjbnrR3FxgmU wQrCS8bCp-CEleu95W2BIrejG-TAtxbx5dkBnhi4zLY8laVY0HRIYZpWOAu3G-bBxi0fq4XM w6oR4JLW99bMMaHaKoG57qiK5hypmt-OeXdF5L3ev0MBg-ycfFSSETLYpukGbKP-KKRAK73I WQVwnj+BpQnCqi2Yws2g2jvQ1IopFGglWv5dixR0vWMBO+V25yq+FU7DX6I3yyPkuzjQxALi -7dnLZ0v4c+XfZbeMic4XjUGsWLXLANyz6rhbDNQlVkLop3RLnQbK98H4g-pClZ1Nrx7NRYn 549LRvr6iX0TdnkiKaf72YC7NFsnnlFh1DCOGPoZYwmvhida6VZBmU+wc9pY89781+1DUL0q UsaC-OCBTkrEkXEhmU9R1Q3To1nJl7HiwnevRu9n7wF+CFXrud4ISzJUefA9NG8p9IDaQBPi nS5sJszn4tBW-wXZ-SfYIwF0LRcgwJ1ypICRvS-IWfh90zTas2n0C0nHxY-9hkvg4WWYRabh 22kxZcJ0zhLXl49JqQ4kCFK1--RqvDUV4go4hiZNzxNtzsXHt3uB3Lc8LaWLnBwKSFDZaSMf FYGKPii+cylTSOL6KJ-HvLQYHr8xbl64U7FZWRZ0ZBIgMjRQOHD51UzsOdqO9FSp0wzVELK7 ovUKhdtPu7-X1c-anFdZGsOyHYVQMr4f+8NvBmnnr4RhBzHdujCj4lO7tzCc4xc2AfbE1Kh7 s2DP1MiM9W-QrR15OM2-k3TfyH3v66qV+diPbhyJaKusc8ZWSzrabC3KQ-nPI6bgx97zUGI1 TUmQNeipLp3ezZaUm7xPwNlbjyOg4peXyO7OtzGGNPOSlOZEP2an7+J5abdihNo-D9XFf51S wiNfOzPEn69EFan6YLCBCRYsuYxiXZuDAXoHImoPe48nKSs7OrxLUz2U4jLjcY5jYUVNj7hY 1hf-S7EykHbtC-XT1Kt5oxZcT-IAFxS1ixtg3coiDgo4RyB7RBCv1hfKWh40N29XmduP1FXM Ufc55RmPseBNQIKlHqZQALpBZLofUAM+-+A6UogUyUKR2a-ULU7XQ48eT2YK0oiDCyoiBbc+ ***** END OF BLOCK 1 ***** *XX3402-007632-220897--72--85-23226---------COM.ZIP--2-OF--2 pA6V0SXUrcjcfiAf9A4hy3BIPxg33SvJioxUbNFYi7ZzUUm5D-bixdwUkm3DVbCh6ACZ7mf6 miK4qDB0RvxivmdGnM3WDtoNwbHa794TnUkJRCyzSN9iTJIzQpHdvcz1OQJvxWmnbx+A3Ktq 8itnQuaW9E7SjupaWjw4JAD9mcP6X9bJBLHPZsPT6nJ9Ya6h9sbQ6au7maqE9kmX-FZWhEjx UOR6tO8WMD47tuo3vgqvMOxcYoZ24ay7KePYquOnqKU-I9VZ+ViUJFwM1ciFsR0PHpWeq7wK yEHZvGBGR5FpBYzrniNszh8WI8rcKiPv0vctuPKSDkBJeXRT22DkxryoxkKW4Xx1RytfN4JX qNWmR-4MsKMZkvlilEb0efPbp3JRRCNaPlvDvGcGa1iQucuzcfgR0nhykQYSJwmDLyjXW8Yw pRrkuAWu58xkia2PfqQudmEFCzs-eEqX-Zv4Z6bFf5UHzkfInh3fqmtGg1PQxgDCnHC+VZWX +AmfnfDSXNpr5tyC8nuHHhGW08mpQqSSDfJFe-sOdvJ1MnK8LI8Zd3jmdRpesOfr2ptBi7o1 6KBseNzVyDuBVTJx-rqTgilS9wp-hSaW+58ywCDCHxoE1vicnFTyIvCO0nxUhP9v-NQ6kPL- AH1-S16AleDfZqL46rRfbwmJEr3rJ-m7xyHqLz+86PCehyhyke2WMNrd2OA7KZspzCgAfjgT hTBibmaIVp7TMqphq11IdkzGv0xDgIyX0lxkttxR-xG93-fpIAPHv-k1w2vEyMhl98NBxQfY 4PI6iGUiMDNeuJrz3tEgdmYkDnzLLrXjJ7X1BbzUN3R+PuXulOxFUwrLJYyqULxElrEOlP+D rbszD-Vwjfi6-foDfrdY9VbxVHlEFF8avIY-XCDNCgQvPm1gnuOYy+AJ05MoMX-85ahlfA+l HO9sTINHD8Jaxs0+ll3aqGybIQaCrkakcs2LDw0eXz3AiLqCTl-Jy5gYtFYvli3QqKw6xdi- N2a9LCyC8LCvrlzQ1ODSnG1+piEn+5sOakwFy-vRTil3cxaDHhXbkLXKSRL9W52R3USoSA4Z obUkrj02mKCpNX3Tw7XUvPaJ1y79U7B5+6f3+iGx-02OXOxSZTOOigOn-1w7sGpF7IuCzbdu yOfeLykU1QZWlXTgqDf9SDTMAXvbvCXqf1rwR5pRU1YMAgwL0mPl8whNaumNXAo5enlBDFzS XFJ8sw4EUcdKLsSF47SjIld1YqT49mPB59V54ZvrfWfaK1zyCQGx+DWZm9ezt2fMVgTgG-2w QBh90cV6E-uKD3sW-pqjIuHLUZ1nyEbwNytwtZiG8skFkhEqZvtEK9hahsCPXvATGvhGeadO KIJ2fYjxXOo8h+S6znuznrnmXjllQNZKWsgtpdgj9TffOjQy7SnxyJuVA2PL10a5jbtuqNPf NR7zDnncLoSLgyVJ5yiDAXu1JpREk72fXdZSemchklHBdZKa06iMN9zaHCbRAUMAow2AdS+O yK6Vk6B0GdszZc25cZRxz-69577aOgKJAXgPEKVgDe40+qZaPk59P3b0k7mlf7U75avwEfHl 5s-JoirlPajrep4lg8qe3ytv3nUH+QFl+PMtID63WqZlSMObJ3M+VeGubTQdoWVNuuhTQGAa n0ragvj5bSxQzxTaw8liHSI9XvL5TSSd87ZkhFO8pGsanFLURys8oClDrJp-tLUvTD90gbPF KwXljQIZfW8Bcmb3Sq-p35klujpIfG5kqw9Tzk3EGkA23+++++U+GqEK6p2U1k2m-E++7-++ ++Q+++-1HooiF2NBfJR9PyBI39tytBdd4ePEXV1A7Uk9-cFcYWNxk+9VdCZIh2oagNV8613C QdBORLkXqtpCqG+V6T2j28jFPBalMwaG7Tk1zU1fkTRVyzd-iibaq2vwbSzQQvtvnjLfBK1q ygDH-eVjP4o+M+tuRKXqg9RcZ8VJHx+gIDs+WcaLgZBuOYy10yKZ--wXSrsF8Bx6KgRO-XNq 6LhzfMTRs7ACRf0bfIyQdvMvlRQaSV3Iu-wA7jxPdYxbpU9-uiacBf7QjnN0bXpXy33ksu+8 oDhiloBKU9EpsdnRJkTq0yHs+yERitA9yRYOwQvxJc3a4ZR-U3rpq7pV4fmgYxWJFl69LVvm qCIrsx+ft4JjMN25rPH4TKy8D-Zc6PpXHmupAjaTrU7EBcwwT9Iow6hmRBAESCEBbeDTE7GX bo3AJCrUlS98hGwnJ-8+tcYpFUuYZXhQdkurSRnjF53LMrSeMJpBEFfP395rC5On+1j+Ld1- vX1g-gICCDPxD3PfKc3Zq3ZsWw4TdOXTnQDVkD9gs0O1PcjcOB5j3N0D+fkQtwVrFLUIyo2S jhtnw5Jh2efAkov4ltvcMwZxj7rrcNnrnn9ETPNFTU6dv6C0j7zrSnoWcp+8Mlme-rMAIYOl P7xly7A6Tfx2RsHqlgHjSbXNlRTiWSo5OwQ-KYEAJT9UVpj5gxqt9o4poOnLcRdg2RjO7zNU hps5Ug+nMF-3W42wi7AkCjrH-fJBObScPJ5PdbOLqXpexsLk714wQgTUcVAXzDci6dFOI4d1 OFR8Sp+G+t+n+J1NcY+ImNqYG1v1ICZDdp+xT6tQe-iqOrYrhINw7lNBmEHZgxoU-bIbwd2O I4Zw5COZ8N0f64ukdTvGWr9-ChxrbBO6OCwZSvO1LFRBUgFH8KuiOxFFr3o3DN8R8evfHeeh DvOwuPLZ6OW5irWPvgMY9+V+mHmQqc3m5guEV3jt+KEvojo2dOZY-cIeWh1eCNvBl6uk4exn z-scb0ygdGizUxG+yHgSA9wY+oMzFPtjnN2jedX3J08a6LPs9Svd3GW60N0pb8639Vj6joHH A+sFKwyCCTZ7OiT4AX34mCLBvFvBl6xF7fuAY3h7QmMjplNg1Q6G2f3ERpkg0QRXt56dTbwf FyI6-LY8FO+UrXV3IHZql4D3fm0Ll5ZGXIBzog3HgFd859L49fkWKadcTVftSYgMSsRafKgC WwsbuxlJ7WyQcGYmT5+9kx+Q0LLAAXG94LV4tfSicLAmH8x-nX9g31CoF6NJOm+AeHIcKMNK AIBPnB9bhqEdv-l0Iwkmh6gNRgIpf41E4ICjJxEhCQLi0bqql5OF01Hi3z7qH3Iatp2mR6HC f8Pa0vzV8ZJH3Pu8qwP8XUgDjzeqMsvchHgOoijVQ+Wpw1cwDXhWBmSXfbUoMFqFErCdN+Qp tGJ6lTAkbohZV6GZtTGwJpmdTO4LfDFy75fDOLYz8Z94zE49jWaZDonayEyHnN5p5BKAexYA SHL9fwpgFyVNCJIQzDwrGXgZWfzmcjUWyIU7JvJB4z5s7V1cM1l6XD-rQT7jwVIQ3wqFN1Pe 7dbCMH+OQH0C-getCBPYawX5VmZF3EsLbTSxCbCo9IsayOC0gnRNJJ5-ed4XX-sWUZGHLY4E 3cGGwlxpuD1PkPELm6DIBjFXBo1SQwiFdm42zeNJq3zIghcxcbdFzrYRsY537B9cqdO1ttLY hZ5hVF6VJK6b6nXnuLa2CjUHQA4FoItqjYcAyNW-2e1T7SF8Lrr3LboMjUfy+p-9+E6I+-E+ +++6+BJX3WBqKWC9cE2++9k0+++8++++++++++2+6+++++++++-GFI32HIIiJ3VII2g-+VE+ 3+++++U+g3+D6kw6I0qB++++nU++++Y++++++++++E+U++++mE2++2BDHIpJ9YFEIZ-9+E6I +-E++++6+53U3WBhuZGt7+2++CE-+++7++++++++++2+6++++5o0++-1HopBJGt2HoNEGk20 3++I++++0++QP+sXRVrreNQ-++-g+k++0E+++++++++++0++++16+k++EoxBHJIiIYJHI2g- +VE+3+++++U+Aq6K6niHNxLI-E++N-U+++Q++++++++++E+U++++VUI++2BDHGtEEJBEGk20 3++I++++0+1UMlMXiCsnJnw9+++A6E++0E+++++++++-+0++++-z0k++HJZ1HooiI23HI2g- +VE+3+++++U+GqEK6p2U1k2m-E++7-++++Q++++++++++++U++++tFM++2BDHGt2FYpEGkI4 ++++++Q+-k-y+E++D-k+++++ ***** END OF BLOCK 2 *****