Make(delphi) ver(4.01 build 177) Add(MainForm,2949319,133,231) { Left=1 Top=200 Caption="" BorderStyle=3 DragForm=0 Point(onClose) link(onCreate,12182161:doEvent1,[]) link(onClose,784287:In,[(181,258)(181,272)]) } Add(TCP_ServerEx,4557003,252,252) { link(onRead,3855631:doEvent1,[]) } BEGIN_SDK Add(EditMultiEx,9971778,3,3) { WorkCount=#31:##open=Устанавливает соединение|37:doSend=Отсылает данные в порт клиента|28:doClose=Закрывает соединение| EventCount=#28:onRead=Приём данных из порта|71:onConnect=Событие происходит при успешном соединении клиента с сервером|67:onDisconnect=Событие происходит при отсоединении клиента от сервера| VarCount=#65:Active=Содержит 1 если соединение активно, и 0 в противном случае|19:IP=IP адрес клиента| DataCount=#32:Data=Данные для отправки клиенту| Width=140 Height=70 link(doSend,916654:doSend,[(23,16)(23,27)]) link(doClose,916654:doClose,[(23,23)(23,20)]) link(Active,916654:Active,[(9,58)(48,58)]) link(IP,916654:IP,[(16,58)(55,58)]) } Add(TCP_Connection,916654,42,14) { link(onRead,9971778:onRead,[(108,20)(108,9)]) link(onConnect,9971778:onConnect,[(108,27)(108,16)]) link(onDisconnect,9971778:onDisconnect,[(108,34)(108,23)]) link(Data,9971778:Data,[(48,8)(9,8)]) } END_SDK Add(FormatStr,14028257,805,504) { Mask="%2Content-Length: %1\r\r\n\n" link(onFString,5832223:doWork2,[]) link(Str1,13595950:Size,[]) link(Str2,2893471:Text,[(818,492)(853,492)]) } Add(StrList,2893471,847,378) { Strings=#15:HTTP/1.1 200 OK|26:Server: owned/1.0.0(Win32)|17:Connection: close|38:Content-Type: text/html; charset=utf-8| } Add(Hub,2110309,420,357) { OutCount=6 link(onEvent1,12171322:In,[(444,363)(444,349)]) link(onEvent2,4451343:doData,[(511,370)(511,384)]) link(onEvent3,12491279:doConvert,[(506,377)(506,454)]) link(onEvent4,14028257:doString,[(500,384)(500,510)]) link(onEvent5,2154460:doData,[(494,391)(494,552)]) link(onEvent6,14268192:In,[(444,398)(444,412)]) } Add(HubEx,5832223,861,497) { Angle=3 link(onEvent,11187330:In,[(865,475)]) } Add(Hub,3855631,350,252) { OutCount=3 link(onEvent2,6994143:doSearch,[]) link(onEvent3,2110309:doEvent1,[(392,272)(392,363)]) } Add(BlockFind,6994143,399,259) { IncludeBlock=1 StartBlock="cmd=" EndBlock="&go=console" link(onSearch,3367882:doString,[]) } Add(StrList,16631531,847,147) { Strings=#23:GET /send=1210 HTTP/1.1|0:|20:cmd=test&send=Submit| } Add(MultiElementEx,620572,588,378) { link(onHTML,1135614:doAdd,[]) link(console,266419:Var,[]) link(ip,12282900:LoacalIP,[(601,348)(643,348)]) } BEGIN_SDK Add(EditMultiEx,12664219,21,21) { WorkCount=#9:doGenHTML| EventCount=#6:onHTML| DataCount=#7:console|2:ip| Width=650 Height=438 VOffset=84 HOffset=294 link(doGenHTML,6048338:doEvent1,[]) } Add(DoData,5379448,217,105) { Data=String() link(onEventData,3232300:doEvent1,[]) } Add(Hub,6048338,147,105) { OutCount=14 link(onEvent1,5379448:doData,[]) link(onEvent2,7268424:doData,[]) link(onEvent3,9182666:doData,[]) link(onEvent4,6566633:doData,[]) link(onEvent5,12498343:doData,[]) link(onEvent6,6714963:doString,[]) link(onEvent7,13549671:doData,[]) link(onEvent8,15129920:doString,[]) link(onEvent9,7273850:doData,[]) link(onEvent10,9104282:doData,[]) link(onEvent11,5698673:doData,[]) link(onEvent12,13338473:doData,[]) link(onEvent13,1602009:doData,[]) link(onEvent14,11400699:doData,[]) } Add(DoData,7268424,224,112) { Data=String() link(onEventData,3232300:doEvent2,[]) } Add(DoData,9182666,231,119) { Data=String() link(onEventData,3232300:doEvent3,[]) } Add(DoData,6566633,238,126) { Data=String() link(onEventData,3232300:doEvent4,[]) } Add(DoData,12498343,245,133) { Data=String() link(onEventData,3232300:doEvent5,[]) } Add(DoData,13549671,259,147) { Data=String(
) link(onEventData,3232300:doEvent7,[]) } Add(FormatStr,15129920,371,154) { DataCount=1 Mask=") link(onEventData,3232300:doEvent12,[]) } Add(DoData,1602009,511,189) { Data=String() link(onEventData,3232300:doEvent13,[]) } Add(DoData,11400699,518,196) { Data=String() link(onEventData,3232300:doEvent14,[]) } Add(FormatStr,6714963,315,140) { DataCount=1 Mask="" link(onFString,3232300:doEvent6,[]) link(Str1,12664219:console,[]) } Add(Hub,3232300,609,105) { InCount=14 OutCount=1 link(onEvent1,12664219:onHTML,[]) } END_SDK Add(Host,12282900,630,287) { } Add(MemoryStream,13595950,798,378) { } Add(LineBreak,4582792,693,483) { link(Out,6101882:doEvent1,[]) Primary=[14268192,-238,-77] } Add(Memo,1135614,665,378) { Left=2 Top=2 Width=390 Height=270 ScrollBars=2 } Add(DoData,4451343,546,378) { link(onEventData,620572:doGenHTML,[]) } Add(DoData,2154460,553,546) { link(onEventData,5832223:doWork3,[(865,552)]) link(Data,7952889:Var2,[(559,517)(671,517)]) } Add(Convertor,12491279,700,448) { Mode=12 link(onResult,13595950:doCopy,[(748,454)(748,384)]) link(Data,7952889:Var3,[(706,436)]) } Add(GetDataEx,7952889,658,427) { link(Data,1135614:Text,[]) } Add(LineBreak,7259797,581,420) { link(Out,1135614:doClear,[(638,426)(638,391)]) Primary=[12171322,-126,-77] } Add(LineBreak,16341004,133,301) { link(Out,4557003:doSend,[(232,307)(232,265)]) Primary=[11187330,756,168] } Add(WinExec,15572207,560,189) { FileName="cmd.exe" Mode=5 Point(doConsoleExec) Point(doConsoleInput) Point(onConsoleResult) Point(doConsoleTerminate) Point(onConsoleTerminate) link(onConsoleResult,9372994:doCharset,[]) } Add(LineBreak,7382116,441,203) { link(Out,15572207:doConsoleExec,[]) Primary=[15586570,-189,7] } Add(LineBreak,490286,721,252) { Type=1 link(Data,1731804:Text,[]) Primary=[266419,-133,56] } Add(Hub,12182161,196,245) { link(onEvent1,15586570:In,[(231,251)(231,216)]) link(onEvent2,4557003:##open,[]) } Add(LineBreak,13875845,511,224) { link(Out,15572207:doConsoleTerminate,[(551,230)(551,223)]) Primary=[784287,-315,42] } Add(Charset,9372994,630,196) { link(onCharset,1731804:doAdd,[]) } Add(FormatStr,3367882,441,259) { DataCount=1 Mask="%1\13\10" link(onFString,15572207:doConsoleInput,[(489,265)(489,216)]) } Add(StrList,1731804,721,196) { } Add(Hub,6101882,742,483) { link(onEvent1,13595950:doClear,[(777,489)(777,391)]) link(onEvent2,604610:In,[]) } Add(LineBreak,1755693,672,210) { link(Out,1731804:doClear,[(712,216)(712,209)]) Primary=[604610,105,280] }