Вверх ↑
Ответов: 775
Рейтинг: 168
#1: 2023-10-22 13:40:58 ЛС | профиль | цитата
Использование для передачи данных между программами Finger протокола.
https://en.wikipedia.org/wiki/Finger_(protocol)
https://datatracker.ietf.org/doc/html/rfc1288
Эмулятор Finger daemon сервера
Add(MainForm,2953706,42,168)
{
Caption="fingerd"
link(onCreate,10116780:doOpen,[])
}
Add(TCP_Server,10116780,119,182)
{
Port=79
Point(doCloseAll)
link(onRead,7510436:doSeparateMT,[])
}
Add(Memo,4863913,273,140)
{
Left=550
Top=160
Align=5
ScrollBars=3
}
Add(StrList,7708657,329,161)
{
Strings=#4:logo|5:table|4:text|3:dir|
Point(onGetIndex)
Point(doGetIndex)
link(onGetIndex,14893126:doIndex,[])
}
Add(DoData,14474108,434,168)
{
link(onEventData,13607571:doEvent1,[(473,174)(473,230)(81,230)(81,202)])
link(Data,14893126:Var,[(440,159)(426,159)(426,208)(384,208)])
}
Add(StrList,690153,385,112)
{
Strings=#65: +------------------------------------------+----+----+--------+|65: | Description | Qt | Un | Price ||65: +------------------------------------------+----+----+--------+|65: | Double-action Quickstart II rem. L=740mm | 1 | PC | 98,66 ||65: | Spray gun for udder washer | 20 | PC | 17,77 ||65: | COMBI-cock ?51 mm cpl. | 10 | PC | 63,43 ||65: | Milk hose ? 24/14 x 2750 | 32 | PC | 9,76 ||65: | Service no.1 RDS MAX double box | 1 | PC | 250,51 ||65: | Spiral spring for tube filter | 3 | PC | 43,2 ||65: | V-belt spz 1087 | 4 | PC | 5,91 ||65: +------------------------------------------+----+----+--------+|
}
Add(MT_MultiData,7510436,168,182)
{
link(onData1,14776647:doEvent1,[])
link(onData2,2953706:doCaption,[(207,195)(207,160)(32,160)(32,174)])
}
Add(Hub,13607571,91,196)
{
link(onEvent1,10116780:doSend,[])
link(onEvent2,10116780:doCloseAll,[])
}
Add(StrList,6345444,343,112)
{
Strings=#37: __ __ _ _____ _____ _____ |37: | | |_| _ | __| | |37: | | | |__ | | | | |37: |__|__|_|__|__|_____|_|_|_| |11: |0:|
}
Add(GetIndexData,14893126,378,168)
{
Count=3
link(onIndex,14474108:doData,[])
link(Data1,6345444:Text,[(384,152)(349,152)])
link(Data2,690153:Text,[])
link(Data3,9596827:Text,[(398,152)(433,152)])
}
Add(Hub,14776647,231,182)
{
link(onEvent1,4863913:doAdd,[(256,188)(256,146)])
link(onEvent2,14287908:doTrim,[])
}
Add(Trim,14287908,273,189)
{
Mode=7
link(onTrim,7708657:doGetIndex,[])
}
Add(StrList,9596827,427,112)
{
Strings=#561:Разнообразный и богатый опыт говорит нам, что внедрение современных методик обеспечивает актуальность существующих финансовых и административных условий. Мы вынуждены отталкиваться от того, что разбавленное изрядной долей эмпатии, рациональное мышление не даёт нам иного выбора, кроме определения новых предложений. Банальные, но неопровержимые выводы, а также элементы политического процесса набирают популярность среди определенных слоев населения, а значит, должны быть превращены в посмешище, хотя само их существование приносит несомненную пользу обществу!|
}

Клиент – программа Finger входящая в состав Windows
Add(MainForm,2953706,35,126)
{
Width=834
Height=454
}
Add(WinExec,13803038,287,126)
{
FileName="finger"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
link(onConsoleResult,5719053:doAdd,[])
}
Add(StrCat,16051520,238,140)
{
Str2="@localhost"
link(onStrCat,13803038:doConsoleExec,[])
}
Add(Memo,5719053,343,140)
{
Width=818
Height=415
Align=5
Font=[Consolas,12,0,0,204]
ScrollBars=2
}
Add(StrList,7708657,189,133)
{
Strings=#4:logo|5:table|4:text|0:|0:|
Point(doGetString)
Point(onGetString)
link(onGetString,16051520:doStrCat,[])
}
Add(Hub,529464,154,154)
{
link(onEvent1,5719053:doClear,[(179,160)(179,181)(326,181)(326,153)])
link(onEvent2,7708657:doGetString,[])
}
Add(Menu,8590123,98,147)
{
Menu=#4:logo|5:table|4:text|
Point(onSelectNum)
link(onSelectNum,529464:doEvent1,[])
}


Проверено на
- Windows 10 (x64)
- Hiasm v4.05 build 186 (delphi) rev - 2404
карма: 15

0
Редактировалось 1 раз(а), последний 2023-10-22 13:45:28