|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Server Socket и ClientSocket в Delphi7
Народ!Help me!Я тут писал одну прогу с компонентами из Delphi такими как :ServerSocket и ClientSocket.Мне кажется,они есть в 3,4,5, дельфях.Но у меня стоит седьмая,и их в ней нет!Там есть какие-то TcpClient &Server.Пробовал использовать их,но уних недоступен ряд таких функций как:SendText , ReceiveText(в Событиях их нет) и другое.Расширение Socket он вообще не воспринимает(например TcpClient.Socket).Подскажите как мне их заставить правильно работать,или в седьмой дельфи они объявляются по-другому?
|
#2
|
||||
|
||||
Без паники, ServerSocket и ClientSocket в семёрке есть. Только по умолчанию не установлены. Сделай
Component => Install Packages => Add => "C:/.../.../Delphi7/Bin/", и там файлик "dclsockets7.bpl"... Сокеты должны появиться. Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 13.04.2009 в 16:00. |
Этот пользователь сказал Спасибо PhoeniX за это полезное сообщение: | ||
thoril3144857 (17.08.2017)
|
#3
|
|||
|
|||
Спасибо огромное,popyurv!Прогу за пять минут нарезал.А то неделю тупил с этим TcpServer и К°.
|
#4
|
|||
|
|||
Напишу в этой теме пожалуй свой вопрос по сокетам: как организовать схему взаимодействия клиент-сервер на этих компонентах так, чтобы когда включается сервер, автоматически подсоединялись клиенты. Дело в том, что клиентские прогаммы являются резидентными на компьютерах-клиентах и не имеют пользовательского интерфейса )
|
#5
|
||||
|
||||
Цитата:
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#6
|
|||
|
|||
сделал примерно так, только не 5 минут а 1 сек:
Цитата:
Вроде и работает, тока потом при простое около часа выдает сообщения что типа буфер сокета слишком мал или типа того каждую секунду. |
#7
|
||||
|
||||
Цитата:
во вторых ошибки Client\ServerSocket обрабатывай событием OnError, Active никаких Raise он не поднимает TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |