[Aless]

Народ!Help me!Я тут писал одну прогу с компонентами из Delphi такими как :ServerSocket и ClientSocket.Мне кажется,они есть в 3,4,5, дельфях.Но у меня стоит седьмая,и их в ней нет!Там есть какие-то TcpClient &Server.Пробовал использовать их,но уних недоступен ряд таких функций как:SendText , ReceiveText(в Событиях их нет) и другое.Расширение Socket он вообще не воспринимает(например TcpClient.Socket).Подскажите как мне их заставить правильно работать,или в седьмой дельфи они объявляются по-другому?

[PhoeniX]

Без паники, ServerSocket и ClientSocket в семёрке есть. Только по умолчанию не установлены. Сделай
Component => Install Packages => Add => "C:/.../.../Delphi7/Bin/", и там файлик "dclsockets7.bpl"... Сокеты должны появиться.

[Aless]

Спасибо огромное,popyurv!Прогу за пять минут нарезал.А то неделю тупил с этим TcpServer и К°.

[alexnov]

Напишу в этой теме пожалуй свой вопрос по сокетам: как организовать схему взаимодействия клиент-сервер на этих компонентах так, чтобы когда включается сервер, автоматически подсоединялись клиенты. Дело в том, что клиентские прогаммы являются резидентными на компьютерах-клиентах и не имеют пользовательского интерфейса )

[AleD]

Сообщение от alexnov

Напишу в этой теме пожалуй свой вопрос по сокетам: как организовать схему взаимодействия клиент-сервер на этих компонентах так, чтобы когда включается сервер, автоматически подсоединялись клиенты. Дело в том, что клиентские прогаммы являются резидентными на компьютерах-клиентах и не имеют пользовательского интерфейса )

ну дык мне кажется тут всё просто, создай окно приёма сообщений, таймер (API'вский) и каждый, например, 5 минут проверяй, робит ли серв.

[alexnov]

сделал примерно так, только не 5 минут а 1 сек:

procedure TForm1.TimerConnectionTimer(Sender: TObject);
begin
if ClientSocket1.Active=false then
try
ClientSocket1.Active:=true;
except
ShowMessage('no connection');
end;

end;

Вроде и работает, тока потом при простое около часа выдает сообщения что типа буфер сокета слишком мал или типа того каждую секунду.

[AleD]

Сообщение от alexnov

сделал примерно так, только не 5 минут а 1 сек:


Вроде и работает, тока потом при простое около часа выдает сообщения что типа буфер сокета слишком мал или типа того каждую секунду.

во первых зачем каждую секунду? утечка памяти, ищи, какой то буфер переполняется, а больше 2 гигов незя
во вторых ошибки Client\ServerSocket обрабатывай событием OnError, Active никаких Raise он не поднимает