------------ Дoбавленo в 19.33:
Addon писал(а):
а если убрать пробел, то запрос будет 100 пудов не верный------------ Дoбавленo в 18.00:
вот исправленный, отправка по enter работает, вот только теперь загвоздка в том, как сделать автоматический ответ на запрос PING от сервера и список пользователей канала, команда для запроса NAME #канал
Make(delphi)
ver(4.04 build 185)
Add(MainForm,6678,133,168)
{
Left=312
Top=322
Width=883
Height=691
Name="DREAM IRC V 1.0"
Caption="DREAM IRC V 1.0"
KeyPreview=1
Position=1
Point(doEnabled)
Point(onClose)
link(onCreate,14312505:doEvent1,[])
}
Add(TCP_Client,96010,413,280)
{
Port=6667
link(onRead,9379515:doWork3,[(464,286)(464,342)(509,342)(509,305)(471,305)])
link(onConnect,5182915:doData,[(520,293)(520,286)])
link(IP,10698017:Var2,[(419,222)(433,222)])
}
Add(Button,67336,133,224)
{
Left=15
Top=40
Width=145
Font=[Arial,8,0,0,1]
Caption="Подключиться к серверу"
link(onClick,2017107:doEvent1,[])
}
Add(Memo,1481653,595,210)
{
Left=200
Top=400
Width=575
Strings=#0:|0:|0:|0:|
ScrollBars=3
Point(SelText)
}
Add(ChildFormEx,4962049,539,210)
{
link(onReplace,1481653:doAdd,[])
}
BEGIN_SDK
Add(EditMultiEx,1257345,21,21)
{
WorkCount=#27:doVisible=форма регистрации|
EventCount=#34:onReplace=выдает замененные строки|24:onActivate=Открыта форма|26:onDeactivate=Закрыта форма|
VarCount=#8:Text=ник|11:Text1=канал|
DataCount=#11:Dest=сервер|
Width=734
Height=501
link(doVisible,16345553:doShowModal,[(28,27)(28,146)])
link(Text,10808687:Var2,[(27,420)(314,420)])
link(Text1,9950873:Var2,[(34,420)(370,420)])
}
Add(MainForm,16345553,35,105)
{
Left=35
Top=105
Width=321
Height=172
Visible=1
Position=1
Point(doVisible)
Point(onShow)
Point(doShowModal)
link(onShow,1257345:onActivate,[(411,132)(411,34)])
}
Add(Button,517459,119,322)
{
Left=130
Top=85
Width=105
Caption="Сохранить"
link(onClick,3521001:doEvent1,[(159,328)(159,265)])
}
Add(Replace,12758549,294,336)
{
SubStr="*-*"
link(onReplace,3498086:doAdd,[(331,342)(331,230)])
link(Dest,10808687:Var1,[(314,328)(305,328)(305,320)])
}
Add(Memo,1699612,245,231)
{
Left=165
Top=500
Width=620
Strings=#8:NICK *-*|34:USER DREAM IRC (TEST) irc./*/ :*-*|10:MODE *-* +|42:NOTICE DenoraServ :VERSION DREAM IRCTEST|42:NOTICE SecureServ :VERSION DREAM IRCTEST|35:NOTICE DEN :VERSION DREAM IRCTEST|12:PING *-* /*/|9:JOIN #*+*|9:MODE #*+*|8:WHO #*+*|11:MODE #*+* b|20:PRIVMSG #*+* :Я тут.|12:PING *-* /*/|0:|0:|
ScrollBars=2
Point(SelText)
}
Add(Edit,1939601,308,287)
{
Left=105
Top=20
Width=155
Text=""
}
Add(Memo,3498086,350,224)
{
Left=15
Top=355
Visible=1
link(onChange,5285489:doReplace,[(394,230)(394,286)(338,286)(338,342)])
}
Add(Replace,5285489,350,336)
{
SubStr="*+*"
link(onReplace,1257345:onReplace,[(568,342)(568,27)])
link(Str,3498086:Text,[])
link(Dest,9950873:Var1,[(370,332)(361,332)(361,327)])
}
Add(Edit,13758185,420,259)
{
Left=105
Top=45
Width=155
Text=""
}
Add(Label,2096278,98,56)
{
Left=15
Top=25
Width=51
Height=17
Caption="Ваш НИК"
}
Add(Label,6537627,98,70)
{
Left=20
Top=50
Width=35
Height=17
Caption="Канал"
}
Add(Hub,3521001,168,259)
{
link(onEvent1,16345553:doClose,[(194,265)(194,199)(23,199)(23,132)])
link(onEvent2,14112353:doReplace,[(217,272)(217,342)])
}
Add(Replace,14112353,245,336)
{
SubStr="/*/"
link(onReplace,12758549:doReplace,[])
link(Str,1699612:Text,[])
link(Dest,1257345:Dest,[(265,178)(27,178)])
}
Add(GetDataEx,10808687,308,315)
{
link(Data,1939601:Text,[])
}
Add(GetDataEx,9950873,364,322)
{
link(Data,13758185:Text,[(370,306)(426,306)])
}
END_SDK
Add(Host,2772336,301,126)
{
link(onIPByHost,11171879:doText,[])
link(IP,10698017:Var1,[(307,114)(369,114)(369,180)])
link(HostName,9243147:Text,[])
}
Add(Edit,11171879,427,133)
{
Left=15
Top=115
Width=150
Visible=1
Text=""
}
Add(Edit,9243147,308,77)
{
Left=15
Top=115
Width=150
Text=""
}
Add(Button,85596,133,287)
{
Left=15
Top=65
Width=145
Font=[Arial,8,0,0,1]
Caption="Отключиться от сервера"
link(onClick,96010:doClose,[])
}
Add(Label,16258274,14,42)
{
Left=45
Top=460
Width=123
Height=17
Caption="Поле ввода сообщения"
}
Add(Label,13490364,14,28)
{
Top=405
Width=230
Height=17
Caption="Список команд для регистрации на сервере"
}
Add(DoData,5182915,595,280)
{
link(onEventData,2405017:doWork3,[(639,286)(639,379)(398,379)])
link(Data,1481653:Text,[])
}
Add(Hub,2017107,252,224)
{
OutCount=3
link(onEvent1,2772336:doIPByHost,[(284,230)(284,139)])
link(onEvent2,96010:doOpen,[(346,237)(346,286)])
}
Add(Label,8940586,14,63)
{
Left=15
Top=90
Width=131
Height=17
Caption="сервер для подключения"
}
Add(Menu,11610264,98,42)
{
Menu=#4:Файл|1:(|13:список юзеров|1:-|5:Выход|1:)|11:О программе|0:|
}
Add(Hub,11522086,308,322)
{
link(onEvent1,2405017:doWork2,[])
link(onEvent2,9379515:doWork2,[(409,335)(409,251)])
}
Add(HubEx,2405017,394,322)
{
Angle=3
link(onEvent,96010:doSend,[(398,300)])
}
Add(HubEx,9379515,467,245)
{
Angle=3
link(onEvent,2461617:doString,[(471,242)(575,242)(575,262)])
}
Add(Hub,14312505,203,182)
{
OutCount=4
link(onEvent1,2772336:doHostByIP,[(242,188)(242,132)])
link(onEvent2,4962049:doVisible,[(378,195)(378,216)])
}
Add(StyleXP,3763549,14,105)
{
}
Add(GetData,11257062,147,25)
{
}
Add(Time,13110765,679,186)
{
Format="(h:m:s)"
}
Add(FormatStr,2461617,679,256)
{
link(onFString,5379272:doAdd,[(733,262)(733,264)])
link(Str1,13110765:FormatTime,[])
}
Add(Edit,10834851,140,399)
{
@Hint=#42:Поле для отправки сообщения клавишей Enter|
Left=227
Top=502
Width=601
Height=22
Text=""
link(onEnter,15672751:doString,[])
AddHint(-45,36,15,13,Text)
}
Add(FormatStr,15672751,203,406)
{
DataCount=3
Mask="PRIVMSG #%2 :%3
"
link(onFString,11522086:doEvent1,[(258,412)(258,328)])
link(Str2,4962049:Text1,[(216,327)(552,327)])
link(Str3,10834851:Text,[(223,394)(185,394)(185,443)(146,443)])
}
Add(RichEdit,5379272,755,258)
{
Left=167
Top=5
Width=690
Height=378
ScrollBars=3
Point(SelText)
Point(doSetSelStart)
Point(doSetSelLength)
}
Add(GetDataEx,10698017,427,175)
{
link(Data,11171879:Text,[])
}
Поиск
Друзья
Администрация