HiAsm
HiAsm
Вверх ↑
Форумы"Игра в слова"Отправка данных на сервер ← Ctrl123Ctrl →
Этот топик читают: Гость
Ответов: 1061
Рейтинг: 22
#16: 2012-01-31 13:33:38 ЛС | профиль | цитата
1nd1g0, странно, на форуме всё ок, а вот когда этот файл тхт открываешь в новом окне/вкладке, то кодировка почему-то меняется! Сделал принудительно, всё ок!
карма: 0

0
Ответов: 3889
Рейтинг: 362
#17: 2012-01-31 13:38:34 ЛС | профиль | цитата
RinniX писал(а):
странно, на форуме всё ок

Потому, что на форуме в заголовке страницы прописано, что кодировка UTF-8, а схемы сохраняются как отдельный текстовый файл, в котором нет отметок о кодировке, из-за чего браузер пытается угадать её, часто - не удачно. Рекомендую по возможности запретить браузеру открывать текстовые файлы и поставить на подхвате какой-нибудь блокнотозаменитель с автоопределением кодировки, может сильно помочь порою.
карма: 1

0
Ответов: 126
Рейтинг: 1
#18: 2012-01-31 20:36:05 ЛС | профиль | цитата
Вот в общем заготовка IRC клиента:
code_26700.txt
Не получается сделать отправку по Enter из поля((( не пойму где ошибка((
карма: 0

0
файлы: 1code_26700.txt [5.6KB] [203]
Ответов: 1061
Рейтинг: 22
#19: 2012-01-31 21:02:25 ЛС | профиль | цитата
Addon, теперь вообще кодировка не в какой кодировке не читает! Под спойлер код помести попробуй!
карма: 0

0
Ответов: 126
Рейтинг: 1
#20: 2012-01-31 21:13:33 ЛС | профиль | цитата 
Make(delphi)
ver(4.04 build 184)
Add(MainForm,6678,98,133)
{
 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)
 link(onCreate,4962049:doVisible,[(206,153)(206,209)])
}
Add(TCP_Client,96010,413,308)
{
 Port=6667
 link(onRead,16017099:doAdd,[(457,314)(457,265)])
 link(onConnect,5182915:doData,[(503,321)(503,335)])
 link(IP,11171879:Text,[(419,236)(377,236)])
}
Add(Button,67336,133,280)
{
 Left=20
 Top=15
 Width=145
 Font=[Arial,8,0,0,1]
 Caption="Подключиться к серверу"
 link(onClick,2017107:doEvent1,[(201,286)(201,258)])
}
Add(Memo,1481653,581,238)
{
 Left=240
 Top=370
 Width=575
 Strings=#0:|0:|0:|0:|
 ScrollBars=3
 Point(SelText)
}
Add(HilightMemo,16017099,469,259)
{
 Left=190
 Top=20
 Width=630
 Height=340
 Font=[Courier New,8,0,0,1]
 HilightFont=[Courier New,8,0,0,1]
 Point(doFind)
 Point(WordAtPos)
 Point(onVScroll)
 Point(onAddAutoComp)
 Point(SearchStr)
 link(onAddAutoComp,14949848:doWork1,[(513,279)(513,384)])
}
Add(ChildFormEx,4962049,525,203)
{
 link(onReplace,1481653:doAdd,[(573,209)(573,244)])
}
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[list][/list]
   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./*/ :*-*|12:MODE Proba +|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|26: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,364,280)
  {
   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,[])
  }
END_SDK
Add(Host,2772336,301,126)
{
 link(onIPByHost,11171879:doText,[])
 link(HostName,9243147:Text,[])
}
Add(Edit,11171879,371,133)
{
 Left=20
 Top=90
 Width=150
 Visible=1
 Text=""
}
Add(Edit,9243147,308,70)
{
 Left=20
 Top=90
 Width=150
 Text=""
}
Add(Button,85596,322,315)
{
 Left=20
 Top=40
 Width=145
 Font=[Arial,8,0,0,1]
 Caption="Отключиться от сервера"
 link(onClick,96010:doClose,[])
}
Add(Edit,3865319,70,378)
{
 @Hint=#42:Поле для отправки сообщения клавишей Enter|
 Left=195
 Top=460
 Width=620
 Text="Поле для отправки сообщения нажатием Enter"
 link(onEnter,7593483:doStrCat,[(114,391)(114,412)])
 AddHint(-57,109,175,26,Text)
}
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(StrCat,128958,147,371)
{
 link(onStrCat,14949848:doWork2,[(280,377)(280,384)])
 link(Str1,9903928:Result,[(153,359)(177,359)(177,450)(202,450)])
 link(Str2,3865319:Text,[(160,338)(167,338)(167,415)(76,415)])
}
Add(DoData,5182915,560,329)
{
 link(onEventData,14949848:doWork3,[(604,335)(604,398)(384,398)])
 link(Data,1481653:Text,[(566,306)(587,306)])
}
Add(Hub,2017107,238,252)
{
 OutCount=3
 link(onEvent1,2772336:doIPByHost,[(276,258)(276,139)])
 link(onEvent2,96010:doOpen,[(332,265)(332,314)])
}
Add(HubEx,14949848,380,378)
{
 Angle=3
 link(onEvent,96010:doSend,[(384,328)])
}
Add(StrCat,7593483,126,406)
{
 Str1="PRIVMSG #"
 link(onStrCat,9903928:doStrCat,[])
 link(Str2,4962049:Text1,[(139,352)(538,352)])
}
Add(StrCat,9903928,196,406)
{
 Str2=" :"
 link(onStrCat,128958:doStrCat,[(240,412)(240,394)(135,394)(135,377)])
 link(Str1,7593483:Result,[(202,394)(167,394)(167,450)(132,450)])
}
Add(Label,8940586,49,77)
{
 Left=10
 Top=65
 Width=175
 Height=17
 Caption="введите сервер для подключения"
}
карма: 0

0
Ответов: 1061
Рейтинг: 22
#21: 2012-01-31 22:02:22 ЛС | профиль | цитата
Addon, я имел ввиду под scroll!
------------ Дoбавленo в 22.02:
Addon, TCP клиент вижу, а где сервер?
карма: 0

0
Ответов: 126
Рейтинг: 1
#22: 2012-01-31 22:08:22 ЛС | профиль | цитата
а сервер там, где он стоит. это IRC клиент, а сервер нужно вводить. сначала регистрируешь свои данные (Ник- любой, канал - например: proba - без знака # впереди, потом в поле "введите сервер для подключения) вводим сервер для подключения, например ircline.ru, нажимаешь "Подключиться к сервер" и подключаешься. Только вот еще не сделал пинг, так что выкинет с сервера после третьего запроса от сервера.
карма: 0

0
Ответов: 1061
Рейтинг: 22
#23: 2012-01-31 22:22:33 ЛС | профиль | цитата
Addon, я IRC не пользуюсь, поэтому в этом тебе не помогу! А под scroll код всё таки спрячь.
карма: 0

0
Ответов: 1731
Рейтинг: 68
#24: 2012-01-31 22:47:02 ЛС | профиль | цитата
Addon, в схеме все напичкано.
3 StrCat можно заменить одним FormatStr.
Схема просто не РАЦИОНАЛЬНА.
карма: 1

0
Ответов: 126
Рейтинг: 1
#25: 2012-01-31 23:51:29 ЛС | профиль | цитата
подправьте, пожалуйста, если не сложно. и скажите как сделать отправку по enter?
карма: 0

0
Ответов: 1328
Рейтинг: 69
#26: 2012-02-01 00:31:41 ЛС | профиль | цитата
Addon, отправка происходит, ошибка в командах..

code_26704.txt
карма: 2

0
файлы: 1code_26704.txt [5.9KB] [300]
Ответов: 126
Рейтинг: 1
#27: 2012-02-01 10:31:48 ЛС | профиль | цитата
Konst, ваш код не открывается, выдает ошибку: List index out of bounds (2)
------------ Дoбавленo в 10.31:
Cosinus, вот, заменил, подскажи пожалуйста, почему не работает отправка по enter?
Make(delphi)
ver(4.04 build 184)
Add(MainForm,6678,98,133)
{
 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)
 link(onCreate,4962049:doVisible,[(206,153)(206,209)])
}
Add(TCP_Client,96010,413,308)
{
 Port=6667
 link(onRead,16017099:doAdd,[(457,314)(457,265)])
 link(onConnect,5182915:doData,[(503,321)(503,335)])
 link(IP,11171879:Text,[(419,236)(377,236)])
}
Add(Button,67336,133,280)
{
 Left=20
 Top=15
 Width=145
 Font=[Arial,8,0,0,1]
 Caption="Подключиться к серверу"
 link(onClick,2017107:doEvent1,[(201,286)(201,258)])
}
Add(Memo,1481653,581,238)
{
 Left=240
 Top=370
 Width=575
 Strings=#0:|0:|0:|0:|
 ScrollBars=3
 Point(SelText)
}
Add(HilightMemo,16017099,469,259)
{
 Left=190
 Top=20
 Width=630
 Height=340
 Font=[Courier New,8,0,0,1]
 HilightFont=[Courier New,8,0,0,1]
 Point(doFind)
 Point(WordAtPos)
 Point(onVScroll)
 Point(onAddAutoComp)
 Point(SearchStr)
 link(onAddAutoComp,14949848:doWork1,[(513,279)(513,384)])
}
Add(ChildFormEx,4962049,525,203)
{
 link(onReplace,13578457:doWork1,[(573,209)])
}
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|26: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,364,280)
  {
   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,[])
  }
END_SDK
Add(Host,2772336,301,126)
{
 link(onIPByHost,11171879:doText,[])
 link(HostName,9243147:Text,[])
}
Add(Edit,11171879,371,133)
{
 Left=20
 Top=90
 Width=150
 Visible=1
 Text=""
}
Add(Edit,9243147,308,70)
{
 Left=20
 Top=90
 Width=150
 Text="dreamterra.ru"
}
Add(Button,85596,322,315)
{
 Left=20
 Top=40
 Width=145
 Font=[Arial,8,0,0,1]
 Caption="Отключиться от сервера"
 link(onClick,96010:doClose,[])
}
Add(Edit,3865319,42,385)
{
 @Hint=#42:Поле для отправки сообщения клавишей Enter|
 Left=195
 Top=460
 Width=620
 Text="Поле для отправки сообщения нажатием Enter"
 link(onEnter,15848173:doString,[])
 AddHint(-26,98,175,26,Text)
}
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,560,329)
{
 link(onEventData,14949848:doWork3,[(604,335)(604,398)(384,398)])
 link(Data,1481653:Text,[(566,306)(587,306)])
}
Add(Hub,2017107,238,252)
{
 OutCount=3
 link(onEvent1,2772336:doIPByHost,[(276,258)(276,139)])
 link(onEvent2,96010:doOpen,[(332,265)(332,314)])
}
Add(HubEx,14949848,380,378)
{
 Angle=3
 link(onEvent,14750565:doWork3,[])
}
Add(Label,8940586,49,77)
{
 Left=10
 Top=65
 Width=175
 Height=17
 Caption="введите сервер для подключения"
}
Add(Timer,7158056,280,434)
{
 Interval=10000
 link(onTimer,9051745:doStrCat,[])
}
Add(StrCat,9051745,336,434)
{
 Str1="PING "
 link(onStrCat,14750565:doWork2,[(374,440)(374,370)])
 link(Str2,4962049:Text,[(349,334)(531,334)])
}
Add(HubEx,14750565,380,364)
{
 Angle=3
 link(onEvent,15442660:doWork3,[])
}
Add(FormatStr,15848173,133,392)
{
 DataCount=3
 Mask="PRIVMSG #%2 :%3"
 link(Str2,4962049:Text1,[(146,317)(538,317)])
 link(Str3,3865319:Text,[(153,380)(101,380)(101,429)(48,429)])
}
Add(HubEx,13578457,569,224)
{
 Angle=1
 link(onEvent,1481653:doAdd,[(573,244)])
}
Add(HubEx,15442660,380,350)
{
 Angle=3
 link(onEvent,96010:doSend,[(384,328)])
}
карма: 0

0
Ответов: 1731
Рейтинг: 68
#28: 2012-02-01 13:00:48 ЛС | профиль | цитата
нет компа под рукой
когда приду домой посмотрю
карма: 1

0
Ответов: 126
Рейтинг: 1
#29: 2012-02-01 13:01:46 ЛС | профиль | цитата
хорошо
карма: 0

0
Ответов: 1328
Рейтинг: 69
#30: 2012-02-01 19:11:08 ЛС | профиль | цитата
Addon, отправка присходит, попробуй пробел убрать после #%2
карма: 2

0
Форумы"Игра в слова"Отправка данных на сервер ← Ctrl123Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика