ServerSocket свой-чужой

[Pavia]

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

OnAccept сделать...

На OnAccept вы можете только проверить допустимый IP адрес клиента или нет. Или в то время подключился или не в то время.

[Vidoc3000]

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

На OnAccept вы можете только проверить допустимый IP адрес клиента или нет. Или в то время подключился или не в то время.

А адекватных ответов нет? Зачем свой ответ кучу раз редактировать? 2 "профессионала" по набиванию постов...
Я же конкретно попросил пример или ссылку на статью, я не просил тут разводить дискуссию. Если вы все знаете, то какой толк от слов? Показал пример и все. Или это так сложно кинуть на форму ServerSocket и написать пару строк?

P.S. Ирония в подписях: Один за других ни чего не хочет делать, а другой хочет чтобы все сами отвечали на свои вопросы...

[p51x]

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

А адекватных ответов нет?

То, что вы не поняли ответов не делает их неадекватными.

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

Зачем свой ответ кучу раз редактировать?

Кто вам сказал про кучу? Исправления опечатки такую же запись делает, не знали?

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

2 "профессионала" по набиванию постов...

1 идиот, не в состоянии на простейщую логику.

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

Я же конкретно попросил пример или ссылку на статью, я не просил тут разводить дискуссию.

Дискусии тут нет. Какую статью вы хотите? Она вся умещается в пару предложений в моих предыдущих постах.

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

Если вы все знаете, то какой толк от слов?

Если вы не хотите разбираться или банально задуматься над ответами, то какой толк задавать вопросы?

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

Показал пример и все. Или это так сложно кинуть на форму ServerSocket и написать пару строк?

Вы готовы оплатить время работы программиста на написание вам примера?
Вы готовы оплатить среду разработки для программиста?

И что вы хотите в примере? Вам же уже написали - при акцепте запускаете таймер и ждете пакет авторизации, пришел - все хорошо, нет - закрыли соединение.

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

P.S. Ирония в подписях: Один за других ни чего не хочет делать, а другой хочет чтобы все сами отвечали на свои вопросы...

Ирония в том, что моя подпись, как лакмусовая бумажка, опять сработала.

[Pavia]

Vidoc3000
Если бы была качественная статья то, я бы её непременно привел. Но увы такой статьи нет. А во вторых ваш вопрос прост как 2х2=? Он не требует какой-то там теории. Всё что нужно вам рассказали в паре строк. p51x
Почему бы вам самостоятельно не написать такую статью?

Если хотите пример, то самый лучше что я видел лежит в Qt, а это Си++, а не Delphi. Но и то там не раскрыт вопрос бана по IP. А проверку бана как раз и можно, нужно поместить в OnAccept. - правда это ответ на другой вопрос. (по этой причине и отредактировал пост)

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

Или это так сложно кинуть на форму ServerSocket и написать пару строк?

Это уже просьба написать чат за вас, а это не пару строк.

Код для сервера:

procedure TPeer.Execute;
begin
  while not Terminated do
     begin
     Text:=self.ClientSocket.ReceiveText;  // Получаем текст от клиента, следует обернуть в обработчик исключений
     Setlength(Text,Length(Text)-2);
     if IsValid=False then
       begin
       // Если клиент не представился, не прошёл валидацию в первые 3 секунды, то убиваем его
       if (AliveTime.elapsed> 3000) then   
        begin
         self.Terminate;
        end;
       if Text='MAGIC_CHAT:' then  IsValid:=True;  // Валидация клиента
       end else
         Synchronize(synchAddDataToControl);
     end;
 ClientSocket.Close;
end;

Код клиента:

     if TcpClient1.Connect then
        begin
        TcpClient1.Sendln('MAGIC_CHAT:');
        end;

[Vidoc3000]

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

Vidoc3000
Если бы была качественная статья то, я бы её непременно привел. Но увы такой статьи нет. А во вторых ваш вопрос прост как 2х2=? Он не требует какой-то там теории. Всё что нужно вам рассказали в паре строк. p51x
Почему бы вам самостоятельно не написать такую статью?

Если хотите пример, то самый лучше что я видел лежит в Qt, а это Си++, а не Delphi. Но и то там не раскрыт вопрос бана по IP. А проверку бана как раз и можно, нужно поместить в OnAccept. - правда это ответ на другой вопрос. (по этой причине и отредактировал пост)


Это уже просьба написать чат за вас, а это не пару строк.

Код для сервера:

procedure TPeer.Execute;
begin
  while not Terminated do
     begin
     Text:=self.ClientSocket.ReceiveText;  // Получаем текст от клиента, следует обернуть в обработчик исключений
     Setlength(Text,Length(Text)-2);
     if IsValid=False then
       begin
       // Если клиент не представился, не прошёл валидацию в первые 3 секунды, то убиваем его
       if (AliveTime.elapsed> 3000) then   
        begin
         self.Terminate;
        end;
       if Text='MAGIC_CHAT:' then  IsValid:=True;  // Валидация клиента
       end else
         Synchronize(synchAddDataToControl);
     end;
 ClientSocket.Close;
end;

Код клиента:

     if TcpClient1.Connect then
        begin
        TcpClient1.Sendln('MAGIC_CHAT:');
        end;

Во первых, я не просил писать весь чат, а только кусок в котором блокируются левые соединения.
Во вторых, TCPclient и работа с потоками... извращения для обычного чата....

[Aliens_wolfs]

Во вторых, TCPclient и работа с потоками... извращения для обычного чата....

Вы напишите конкретно на каких модулях собираетесь реализовать эту идею.
Или вы хотите на голом WinSock все это сделать?
Да и сейчас же у вас есть сервер на чем он сделан?
Для быстрого создания чата я бы порекомендовал TClientSocket и TServerSocket.

[Vidoc3000]

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

Вы напишите конкретно на каких модулях собираетесь реализовать эту идею.
Или вы хотите на голом WinSock все это сделать?
Да и сейчас же у вас есть сервер на чем он сделан?
Для быстрого создания чата я бы порекомендовал TClientSocket и TServerSocket.

Да я сделал уже готовый проект чата на TClientSocket и TServerSocket. Уже засматриваюсь в сторону winsock на WSAAccept, но от такого изобилия информации у меня голова начинает болеть... Столько сайтов перерыл, а информации по моей проблеме слишком мало...

[p51x]

Или вы просто не умеет читайт и/или понимать.

[Aliens_wolfs]

Да я сделал уже готовый проект чата на TClientSocket и TServerSocket. Уже засматриваюсь в сторону winsock на WSAAccept

Вы вначале на этих компонентах потренируйтесь, они основаны на winsock, а потом подумайте стоит ли вам с winsock заморачиваться, сложновато будет.

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

[Vidoc3000]

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

Вы вначале на этих компонентах потренируйтесь, они основаны на winsock, а потом подумайте стоит ли вам с winsock заморачиваться, сложновато будет.

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

Сделал все по своему, оказывается это было легче, чем по форумам лазить) Клиент при коннекте отправляет на сервер свои настройки и если сервер не получает или они не верные просто дисконнектим. А за исходник спасибо