Вверх ↑
Этот топик читают: Гость
Ответов: 2125
Рейтинг: 159
#16: 2006-11-07 12:43:51 ЛС | профиль | цитата
Что-то я в Вашем примере TCP_ServerEx не вижу
карма: 1

0
Ответов: 9906
Рейтинг: 351
#17: 2006-11-07 13:13:46 ЛС | профиль | цитата
Ну дык, наверное, пожелание-то, чтобы ты его туда втулил
карма: 9

0
Ответов: 13
Рейтинг: 0
#18: 2006-11-07 13:36:27 ЛС | профиль | цитата
А всё уже я его применил в эту схему..Разобрался.Не сразу допёрло что надо всю эту схему в контейнер запихать..
карма: 1

0
Ответов: 2125
Рейтинг: 159
#19: 2006-11-07 14:07:46 ЛС | профиль | цитата
Ну вот А я старался code_549
карма: 1

0
файлы: 1code_549.txt [5KB] [496]
Ответов: 13
Рейтинг: 0
#20: 2006-11-07 20:53:58 ЛС | профиль | цитата
Да посмотрел всёравно,вроде у меня последняя версия,но не нашлось много точек в схеме..
карма: 1

0
Ответов: 2125
Рейтинг: 159
#21: 2006-11-07 21:16:13 ЛС | профиль | цитата
У меня тоже пары точек не нашлось, пришлось дописать
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#22: 2006-11-11 18:33:54 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-06-21 04:12:36
карма: 0

0
Ответов: 2125
Рейтинг: 159
#23: 2006-11-11 21:18:44 ЛС | профиль | цитата
При установке TCP_ServerEx надо устанавливать и остальные прилагаемые файлы.
карма: 1

0
Ответов: 345
Рейтинг: 1
#24: 2006-11-15 07:42:34 ЛС | профиль | цитата
У меня вышибает ошибку при компиляции программы
Build start...
Generated code
Create project...
Command line: dcc32.exe "C:\Program Files\HiAsm\Elements\Delphi\code\_проба.dpr" "-UC:\Program Files\HiAsm\чат\." -Q "-EC:\Program Files\HiAsm\чат\
Borland Delphi Version 12.0 Copyright (c) 1983,98 Inprise Corporation

C:\Program Files\HiAsm\Elements\Delphi\code\TCP.pas(82) Warning: Return value of function 'MWnd' might be undefined

C:\Program Files\HiAsm\Elements\Delphi\code\TCP.pas(117) Warning: Return value of function 'ListenFunc' might be undefined

C:\Program Files\HiAsm\Elements\Delphi\code\TCP.pas(122) Warning: Return value of function 'ReadFunc' might be undefined

C:\Program Files\HiAsm\Elements\Delphi\code\TCP.pas(16) Hint: Private symbol 'FHandle' declared but never used

C:\Program Files\HiAsm\Elements\Delphi\code\hiTCP_Client.pas(38) Warning: Method 'Destroy' hides virtual method of base type 'TObject'

C:\Program Files\HiAsm\Elements\Delphi\code\hiTCP_Client.pas(84) Hint: Variable 'dt' is declared but never used in 'THITCP_Client._OnRes'

C:\Program Files\HiAsm\Elements\Delphi\code\hiTCP_Client.pas(23) Hint: Private symbol '_OnError' declared but never used

C:\Program Files\HiAsm\Elements\Delphi\code\hiTCP_ServerEx.pas(51) Error: Undeclared identifier: 'AddInstance'

C:\Program Files\HiAsm\Elements\Delphi\code\hiTCP_ServerEx.pas(54) Error: Undeclared identifier: 'Attach'

C:\Program Files\HiAsm\Elements\Delphi\code\hiTCP_ServerEx.pas(65) Error: Undeclared identifier: 'RemoveInstance'

C:\Program Files\HiAsm\Elements\Delphi\code\_проба.dpr(12) Fatal: Could not compile used unit 'hiTCP_ServerEx.pas'
End build

[size=-2]------ Добавлено в 06:00
Всё заработало

[size=-2]------ Добавлено в 07:42
Ну во запустил прогу а другие компы подключится не могут
вот приммер
Add(TCP_ServerEx,4763630,168,193)
{
link(onRead,5150951:doAdd,[])
link(onConnect,5753698:doEvent1,[(210,206)(210,254)(88,254)(88,290)])
link(onDisconnect,6999214:doMessage,[(191,213)(191,269)])
link(Data,8898691:Text,[(174,185)(174,192)])
}
BEGIN_SDK
Add(EditMultiEx,2636834,3,3)
{
WorkCount=#28:doClose=закрывает соединение|16:doSend=отправить|
EventCount=#6:onRead|9:onConnect|12:onDisconnect|
VarCount=#6:Active|2:IP|
DataCount=#24:Data=данные для отправки|
link(doClose,2731795:doClose,[(19,9)(19,111)])
link(doSend,2731795:doSend,[(19,16)(19,118)])
link(Active,2731795:Active,[(9,170)(41,170)])
link(IP,2731795:IP,[(16,170)(48,170)])
}
Add(TCP_Connection,2731795,35,105)
{
link(onRead,2636834:onRead,[(185,111)(185,9)])
link(onConnect,2636834:onConnect,[(185,118)(185,16)])
link(onDisconnect,2636834:onDisconnect,[(185,125)(185,23)])
link(Data,2636834:Data,[(41,54)(9,54)])
}
END_SDK
Add(GetData,3124487,154,256)
{
link(Data,4763630:Active,[(160,241)(174,241)])
}
Add(Hub,5753698,98,284)
{
link(onEvent1,8721564:doCompare,[(138,290)(138,346)])
link(onEvent2,8309248:doCompare,[(138,297)(138,311)])
}
Add(If_else,8721564,154,340)
{
Op2=Integer(1)
link(onFalse,11383307:doMessage,[])
link(Op1,3124487:Data1,[])
}
Add(If_else,8309248,154,305)
{
Op2=Integer(0)
link(onFalse,5349469:doMessage,[(191,318)(191,311)])
link(Op1,3124487:Data2,[(160,297)(167,297)])
}
Add(Message,11383307,196,340)
{
Message="готово"
Caption="моединение"
}
Add(Message,5349469,196,305)
{
Message="не подключен"
Caption="моединение"
}
Add(Button,1870089,98,242)
{
Left=10
Top=130
Width=70
Caption="отправить"
link(onClick,4763630:doSend,[(145,248)(145,206)])
}
Add(Button,3516874,98,193)
{
Left=340
Top=100
Width=45
Caption="откл"
link(onClick,4763630:doClose,[(149,199)(149,199)])
}
Add(Edit,8898691,168,151)
{
Left=10
Top=100
Width=320
Hint="данные для отправки"
Text="данные для отправки"
}
Add(Memo,5150951,238,193)
{
Left=10
Top=10
Width=370
}
Add(Message,6999214,196,263)
{
Message="Дисконект"
Caption="Дисконект"
}
Add(Edit,2869430,238,263)
{
Left=200
Top=130
Width=185
link(Str,4763630:IP,[(244,248)(181,248)])
}
карма: 0

0
Ответов: 2125
Рейтинг: 159
#25: 2006-11-15 12:49:17 ЛС | профиль | цитата
А стартовать сервер кто будет? Обычно я соединяю MainForm onCreate с точкой TCP_ServerEx ##open, которую надо добавить ручками.
карма: 1

0
Ответов: 345
Рейтинг: 1
#26: 2006-11-15 20:33:34 ЛС | профиль | цитата
дык что-то я не понял на сервере или внутри . где и как можно доавить эту точку
карма: 0

0
Ответов: 2125
Рейтинг: 159
#27: 2006-11-15 20:48:17 ЛС | профиль | цитата
Чтобы добавить точку нужно зайти внутрь и выбрать EditMultiEx (который является как-бы фоном) Проще всего тнуть в границу. Появятся его свойства. Отредактировать WorkCount, вписав ##open
карма: 1

0
Ответов: 345
Рейтинг: 1
#28: 2006-11-15 21:06:21 ЛС | профиль | цитата
все понял спасио. А вот как зделать чтоб при подключению к моему или не.... моему серваку клиенты узнавали мой ip
карма: 0

0
Ответов: 3851
Рейтинг: 159
#29: 2006-11-15 23:22:50 ЛС | профиль | цитата
DRON писал(а):
все понял спасио. А вот как зделать чтоб при подключению к моему или не.... моему серваку клиенты узнавали мой ip

что-то я не понял, обычно наоборот - клиент должен знать IP, к которому он хочет подключиться
карма: 0
начавший
0
Ответов: 345
Рейтинг: 1
#30: 2006-11-16 00:37:07 ЛС | профиль | цитата
Андрей., допустим есть ощбий сервер с которого отправляются данные о подключенных к нему клиентах,вновь приывшим и уже подключенным клиентам,чтоб можно было уже по списку подключиться к тому кому хочешь.
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)