FreePascal.ru

По статусу сокетов:
Почему то система умеет видеть состояние моих сокетов
http://joxi.ru/LmGGj98ueLZygm
Вот бы мне такое через TTCPBlockSocket посмотреть?
Думал что в исходниках найду ответ:
function TBlockSocket.InternalCanRead(Timeout: Integer): Boolean;
var
TimeVal&#58 ...

Спасибо за наводку!
Маленькое уточнение:
Если в одном потоке TList наполняется, а в другом циклом анализируется - что использовать?
Потоков на добавление один, а тех кто "крутить" несколько.

olegy123
Параметры проекта -> параметры компилятора -> отладка : включить Heaptrc

Не нахожу такого.
http://joxi.ru/YmEGNz8u0WLQbA

Держу открытый сокет для подключений:
Socket.Bind('0.0.0.0','57777');
Socket.setLinger(true,10000);
проверяю есть ли новый клиент:

repeat
if Socket.CanRead(100) then
begin
......
end;
until Terminated;

Но в при наступлении какого-то момента ...

olegy123
Все верно.. еще бы добавить синхронизацию

С этого места поподробней пожалуйста.

Lazarus 1.6 работает нормально.
Для 1.8 устанавливаю следующие пакеты

root@localhost Downloads]# rpm -Uvh fpc-3.0.4-1.x86_64.rpm
Preparing... ################################# [100%]
Updating / installing...
1:fpc-3.0.4-1 ...

Да, скорее всего у меня не правильная схема работы с сокетами.
У меня получается на каждый коннект клиента создается отдельный поток. Так во все примерах в synapse.

Socket.CreateSocket;//создаем новый сокет
//связываем сокет с локальным адресом
Socket.Bind(Socket.LocalName,'57778 ...

В том то и проблема, что дополнительной информации о ошибке - нет.
На федоре 28 - все норм, компилится без проблем.
Значит пора обновлятся )

Решил посмотреть на версию 1.8.4 на федоре 23 (64бит).
При компиляции базового, пустого, проекта получаю ошибку:
Error while linking.
Exit code 256

Не могу понять чего не хватает.

Тогда еще один вопрос.
Когда я подключаюсь к серваку по
то могу ли я получить какой-то "идентификатор коннекта" от сервера?

Проверяй после каждой операции CanRead()

Даже когда клиенты отключились, после CanRead(10)/CanWrite(10), значение Socket.LastError равняется 0 !!
А Socket.SendString('test') дает ошибку.
Но мне нужно проверить не посылая данных.

попробуй ловить HR_ReadCount с value = 0.
К сожалению HR_ReadCount не происходит.
Скорее всего, проблема в том, что я смотрю на статус сокета-сервера.
Какие есть варианты, чтобы понять, что клиент отвалился?
Я могу циклом перебрать клиентов. Но что проверять? CanRead и CanWrite не означают что ...

На серваку ловлю конекты и создаю каждому отдельный поток.
Socket.CreateSocket;//создаем новый сокет
//связываем сокет с локальным адресом
Socket.Bind(Socket.LocalName,'57778');
repeat
if Socket.CanRead(100) then
begin
T:=TProxyThread.Create(True,Socket.Accept ...

Использую synapse
Клиент подключается серверу
sock.Connect('localhost', port);
Сервер видит это и через Socket.OnStatus показывает
HR_Accept: Log.Lines.Add('Accept '+TTCPBlockSocket(Sender).GetRemoteSinIP);

Но когда клиент говорит sock.CloseSocket; сервер не ...

что там с памятью делаете что заканчивается?

Судя по документации, там что не делай, но количество одновременно запущенных потоков ограничено. У меня затыкается, приблизительно, на 120 штук.

вам нужен семафор.

Есть готовые решения от лазаруса?