\u041a\u0430\u043a \u043f\u043e\u0441\u044b\u043b\u0430\u0442\u044c \u0438 \u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u0441 COM \u043f\u043e\u0440\u0442\u0430, \u043c\u0435\u043d\u044f\u0442\u044c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b (\u0431\u0438\u0442\u044b \u0434\u0430\u043d\u043d\u044b\u0445, \u0447\u0435\u0442\u043d\u043e\u0441\u0442\u044c…)
\n<\/p>\n
\u041a\u0430\u043a \u043f\u043e\u0441\u044b\u043b\u0430\u0442\u044c \u0438 \u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u0441 COM \u043f\u043e\u0440\u0442\u0430, \u043c\u0435\u043d\u044f\u0442\u044c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b (\u0431\u0438\u0442\u044b \u0434\u0430\u043d\u043d\u044b\u0445, \u0447\u0435\u0442\u043d\u043e\u0441\u0442\u044c...)\n\n\u042f \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e \u0434\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0435 \u043a\u043e\u043c\u0430\u043d\u0434\u044b:\nvar dcb : tdcb;\ncom : thandle;\ncom:=createfile('com2',generic_read+generic_write,0,nil,open_existing,file_attribute_normal,0);\n\u0434\u043b\u044f \u043e\u0442\u043a\u0440\u044b\u0442\u0438\u044f,\ngetcommstate(com,dcb);\ndcb.baudrate := cbr_9600;\ndcb.bytesize := 8;\ndcb.parity := 2;\nsetcommstate(com,dcb);\n\u0434\u043b\u044f \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438,\nwritefile(com,buffer,count,respond,nil);\nreadfile(com,buffer,count,respond,nil);\n\u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b.\n\u041e\u0442\u0432\u0435\u0442 3:\n\u041d\u0438\u0436\u0435 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d \u043a\u043b\u0430\u0441\u0441 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b\n\u0441 com-\u043f\u043e\u0440\u0442\u043e\u043c. \u041f\u0440\u043e\u0442\u0435\u0441\u0442\u0438\u0440\u043e\u0432\u0430\u043d \u0432 windows 95.\n\u041a\u043b\u0430\u0441\u0441 \u0432\u044b\u0434\u0435\u0440\u043d\u0443\u0442 \u0438\u0437 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442\u0430, \u0442\u0430\u043a \u0447\u0442\u043e \u043d\u0435 \u0440\u0443\u0447\u0430\u044e\u0441\u044c\n\u0432 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u0438 \u0441 \u043f\u0435\u0440\u0432\u043e\u0433\u043e \u0440\u0430\u0437\u0430, \u043e\u0434\u043d\u0430\u043a\u043e \u0432\u0441\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438\n\u0440\u0430\u0431\u043e\u0442\u044b \u0441 com \u043e\u0447\u0435\u0432\u0438\u0434\u043d\u044b.\n\nunit unit1;\ninterface\nuses\nwindows;\ntype\ntcomport = class\nprivate\nhfile: thandle;\npublic\nconstructor create;\ndestructor destroy; override;\nfunction initcom(baudrate, portno: integer; parity: char;\ncommtimeouts: tcommtimeouts): boolean;\nprocedure closecom;\nfunction receivecom(var buffer; size: dword): integer;\nfunction sendcom(var buffer; size: dword): integer;\nfunction clearinputcom: boolean;\nend;\nimplementation\nuses\nsysutils;\nconstructor tcomport.create;\nbegin\ninherited;\nclosecom;\nend;\ndestructor tcomport.destroy;\nbegin\nclosecom;\ninherited;\nend;\ncommtimeouts: tcommtimeouts): boolean;\nvar\nfilename: string;\ndcb: tdcb;\nportparam: string;\nbegin\nresult := false;\nfilename:='com'+inttostr(portno); {\u0438\u043c\u044f \u0444\u0430\u0439\u043b\u0430}\nhfile := createfile(pchar(filename),\ngeneric_read or generic_write,0,nil,\nopen_existing,file_attribute_normal,0 );\nif hfile = invalid_handle_value then exit;\n\/\/\u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0430 \u0442\u0440\u0435\u0431\u0443\u0435\u043c\u044b\u0445 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432\ngetcommstate(hfile,dcb );\/\/\u0447\u0442\u0435\u043d\u0438\u0435 \u0442\u0435\u043a\u0443\u0449\u0438\u0445 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432 \u043f\u043e\u0440\u0442\u0430\nportparam:='baud='+inttostr(baudrate)+' parity='+parity+' data=8 stop=1 '+\n'octs=off';\nif buildcommdcb(pchar(portparam),dcb) then begin\nresult:=setcommstate(hfile,dcb) and\nsetcommtimeouts(hfile,commtimeouts);\nend;\nif not result then closecom;\nend;\nprocedure tcomport.closecom;\nbegin\nif hfile< > invalid_handle_value then\nclosehandle(hfile);\nhfile:=invalid_handle_value;\nend;\nfunction tcomport.receivecom(var buffer; size: dword): integer;\nvar\nreceived: dword;\nbegin\nif hfile=invalid_handle_value then\nraise exception.create('\u041d\u0435 \u043e\u0442\u043a\u0440\u044b\u0442\u0430 \u0437\u0430\u043f\u0438\u0441\u044c \u0432 com \u043f\u043e\u0440\u0442');\nif readfile(hfile,buffer,size,received,nil) then begin\nresult:=received;\nend\nelse raise exception.create('\u041e\u0448\u0438\u0431\u043a\u0430 \u043f\u0440\u0438\u0435\u043c\u0430 \u0434\u0430\u043d\u043d\u044b\u0445: '+inttostr(getlasterror));\nend;\nfunction tcomport.sendcom(var buffer; size: dword): integer;\nvar\nsended: dword;\nbegin\nif hfile=invalid_handle_value then\nraise exception.create('\u041d\u0435 \u043e\u0442\u043a\u0440\u044b\u0442\u0430 \u0437\u0430\u043f\u0438\u0441\u044c \u0432 com \u043f\u043e\u0440\u0442');\nif writefile(hfile,buffer,size,sended,nil) then begin\nresult:=sended;\nend\nelse raise exception.create('\u041e\u0448\u0438\u0431\u043a\u0430 \u043f\u0435\u0440\u0435\u0434\u0430\u0447\u0438 \u0434\u0430\u043d\u043d\u044b\u0445: '+inttostr(getlasterror));\nend;\nfunction tcomport.clearinputcom: boolean;\nbegin\nif hfile=invalid_handle_value then\nraise exception.create('\u041d\u0435 \u043e\u0442\u043a\u0440\u044b\u0442\u0430 \u0437\u0430\u043f\u0438\u0441\u044c \u0432 com \u043f\u043e\u0440\u0442');\nresult:=purgecomm(hfile,purge_rxclear);\nend;\nend.\n\u041e\u0442\u0432\u0435\u0442 4:\n1) \u041e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043f\u043e\u0440\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u0444\u0443\u043d\u043a\u0438\u044e\nhcom := createfile('com2',generic_write or\ngeneric_read,0,nil,open_existing,0,0);\n2) \u0414\u043b\u044f \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u044f\/\u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0438 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432 \u043f\u043e\u0440\u0442\u0430 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\ngetcommstate(hcom, dcb);\nsetcommstate(hcom, dcb);\n4) \u0414\u043b\u044f \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0438 \u0432\u0441\u044f\u043a\u0438\u0445 \u0442\u0430\u0439\u043c\u0430\u0443\u0442\u043e\u0432 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0442\u0441\u044f \u0444\u0443\u043d\u043a\u0446\u0438\nsetcommmask(hcom,ev_rxchar or ev_err);\ngetcommtimeouts(hcom,defaultcommtouts);\nsetcommtimeouts(hcom,defaultcommtouts);\n5) \u0414\u043b\u044f \u043f\u043e\u0441\u044b\u043b\u043a\u0438\/\u0447\u0442\u0435\u043d\u0438\u044f, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 \u0431\u0430\u0439\u0442\u0430, \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0439\u0442\u0435\nwritefile(hcom,value,1,dw,nil);\nreadfile(hcom,x,1,dw,nil);\n\u041e\u0442\u0432\u0435\u0442 5:\n\u041f\u0440\u0435\u0436\u0434\u0435 \u0432\u0441\u0435\u0433\u043e \u043e\u043f\u0438\u0448\u0438\u0442\u0435 \u0432 private \u0438\u043b\u0438 public (\u043a\u0430\u043a \u0412\u0430\u043c \u0443\u0434\u043e\u0431\u043d\u0435\u0435)\nhcom : thandle;\n\u0422\u0435\u043f\u0435\u0440\u044c \u0432 formcreate \u0412\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u0443\u043a\u0430\u0437\u0430\u0442\u044c (\u0434\u043b\u044f \u043f\u043e\u0440\u0442\u0430 com1)\nhcom := createfile('com1',generic_read+generic_write, 0, nil, open_existing, 0, 0);\nif hcom = invalid_handle_value then begin\ndwerror := getlasterror(); \/\/ \u0422\u043e\u043b\u044c\u043a\u043e \u043e\u043f\u0438\u0448\u0438\u0442\u0435 \u043f\u0440\u0435\u0434\u0432\u0430\u0440\u0438\u0442\u0435\u043b\u044c\u043d\u043e dwerror : dword;\nshowmessage('com port error ' + inttostr(dwerror));\nend;\n\u0422\u0435\u043f\u0435\u0440\u044c \u0412\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u0447\u0438\u0442\u0430\u0442\u044c \u0438\u0437 \u043f\u043e\u0440\u0442\u0430\nbool readfile(\nhandle hfile, \/\/ handle of file to read\nlpvoid lpbuffer, \/\/ address of buffer that receives data\ndword nnumberofbytestoread, \/\/ number of bytes to read\nlpdword lpnumberofbytesread, \/\/ address of number of bytes read\nlpoverlapped lpoverlapped \/\/ address of structure for data\n);\n\u0438 \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c \u0432 \u043f\u043e\u0440\u0442\nbool writefile(\nhandle hfile, \/\/ handle to file to write to\nlpcvoid lpbuffer, \/\/ pointer to data to write to file\ndword nnumberofbytestowrite, \/\/ number of bytes to write\nlpdword lpnumberofbyteswritten, \/\/ pointer to number of bytes written\nlpoverlapped lpoverlapped \/\/ pointer to structure needed for overlapped i\/o\n);\n\u041e\u043f\u0438\u0441\u0430\u043d\u0438\u044f readfile \u0438 writefile \u0432\u0437\u044f\u0442\u044b \u0438\u0437 help delphi 5. \u0422\u0430\u043c \u0436\u0435 \u0412\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u043d\u0430\u0439\u0442\u0438 \u043e\u0440\u0438\u0441\u0430\u043d\u0438\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u0439\ngetcommstate\nsetcommstate\nescapecommfunction\ngetcommtimeouts\nsetcommtimeouts\n\u0438 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0434\u0440\u0443\u0433\u0438\u0445, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0442\u043e\u0436\u0435 \u043c\u043e\u0433\u0443\u0442 \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u0438\u0442\u044c\u0441\u044f \u043f\u0440\u0438 \u0440\u0430\u0431\u043e\u0442\u0435 \u0441 \u043f\u043e\u0440\u0442\u0430\u043c\u0438. \u041a\u0441\u0442\u0430\u0442\u0438, \u0441 \u0442\u0435\u043c \u0436\u0435 \u0443\u0441\u043f\u0435\u0445\u043e\u043c \u0412\u044b \u043c\u043e\u0436\u0435\u0442\u0435\n\u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0438 \u043f\u043e\u0440\u0442\u044b lpt. \u0427\u0438\u0442\u0430\u0439\u0442\u0435 help !!!!!!!\n\u0412\u0441\u0435 \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u043d\u044b\u0435 \u0412\u044b\u0448\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043e\u0442\u043d\u043e\u0441\u044f\u0442\u0441\u044f \u043a winapi \u0438 \u043c\u043e\u0433\u0443\u0442 \u0431\u044b\u0442\u044c\u044c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u044b \u0432 \u043b\u044e\u0431\u043e\u0439 \u0432\u0435\u0440\u0441\u0438\u0438 delph\n<\/div><\/pre>\n<\/p>\n","protected":false},"excerpt":{"rendered":"
\u041a\u0430\u043a \u043f\u043e\u0441\u044b\u043b\u0430\u0442\u044c \u0438 \u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u0441 COM \u043f\u043e\u0440\u0442\u0430, \u043c\u0435\u043d\u044f\u0442\u044c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b (\u0431\u0438\u0442\u044b \u0434\u0430\u043d\u043d\u044b\u0445, \u0447\u0435\u0442\u043d\u043e\u0441\u0442\u044c…)<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[433,451],"tags":[497,1226,211,212,1428,1538,1582,1592,1782,1860],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/509"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=509"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/509\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=509"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=509"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=509"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}