процедура странно работает

[aesoem]

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

hash для каждого клиента уникален, это чт ото вроде идентификатора

Procedure DetaliseClientAddConnect(hash:String);
var
i:Integer;
add_cleint:Boolean;
begin

add_cleint:=true;
for I := 0 to logform.DetaliseClintC.Items.Count-1 do
    if logform.DetaliseClintC.Items.Item[i].Caption=hash then
    begin

        logform.DetaliseClintC.Items.Item[i].SubItems.Strings[0]:=inttostr(strtoint(logform.DetaliseClintC.Items.Item[i].SubItems.Strings[0])+1);
         add_cleint:=false; //не создаю запись а добавляю к имеющейся
         break;
    end;

 if add_cleint=true then {если не найдено такого ЦУ в списке}
   with logform.DetaliseClintC.Items.Add do
   begin
     caption:=hash;
     subitems.Add('1');
   end;


end;

в словах
при подключении пк к терминалу я ищу идентификатор(hash) данного пк в списке с отчетом, если такого идентификатора нет, создаю его и указываю что подключался один раз (считая это первое подключение раз не найден)
Если идентификатор (hash) все же найден, то увиличиваю число в subitems(1) на +1.


Все может работать нормально день, два... А иногда вижу вот такую картину
В теории, цифры помеченных синем цветом строк должны были приплюсовываться к выделенной строке
В связи с чем происходит добавление уже имеющейся строки? причем время от времени. значение hash - 100% неидентичны

[dmitriegorovih]

возможно проблема с потоками попробуйте завернуть через вот такое

TThread.Synchronize(TThread.CurrentThread,procedure
begin
end;

[aesoem]

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

возможно проблема с потоками попробуйте завернуть через вот такое

TThread.Synchronize(TThread.CurrentThread,procedure
begin
end;

можно чуть подробнее? Synchronize(вызов процедуры)?

многопоточность я не использую в программе

[3D Hunter]

при реагировании на какое событие вызывается ваша процедура DetaliseClientAddConnect? сокеты работают в асинхронном режиме по событийной модели? другими словами, кто вызывает в коде метод DetaliseClientAddConnect?

[dmitriegorovih]

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

можно чуть подробнее? Synchronize(вызов процедуры)?

многопоточность я не использую в программе

Дело в том что событие которые вызывает данную процедуру является не потокобезопасным поэтому в том месте где вы вызываете процедуру обверните её вот так

TThread.Synchronize(TThread.CurrentThread,procedure
begin
DetaliseClientAddConnect(hash:String);
end;

Есть мысля что программа из разных мест пытается получить доступ к компоненту и в определенных случаях не получает его, а возвращает пустой список. Что бы проверить это нужно жёстко залогировать все.

[aesoem]

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

Дело в том что событие которые вызывает данную процедуру является не потокобезопасным поэтому в том месте где вы вызываете процедуру обверните её вот так

TThread.Synchronize(TThread.CurrentThread,procedure
begin
DetaliseClientAddConnect(hash:String);
end;

Есть мысля что программа из разных мест пытается получить доступ к компоненту и в определенных случаях не получает его, а возвращает пустой список. Что бы проверить это нужно жёстко залогировать все.

TThread.Synchronize(TThread.CurrentThread,procedure
begin
logunit.DetaliseCenterAddConnect(temp.Strings[1]);
end;

[dcc32 Error] DataUnit.pas(275): E2029 ')' expected but ';' found

я что-то не допечатал?) плаваю я в потоках...

[aesoem]

Сообщение от 3D Hunter

при реагировании на какое событие вызывается ваша процедура DetaliseClientAddConnect? сокеты работают в асинхронном режиме по событийной модели? другими словами, кто вызывает в коде метод DetaliseClientAddConnect?

serversocket,событие onRead

[aesoem]

procedure TData.TerminalToCenterClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
temp,otvet : tstrings;
i : integer;
begin

temp:=tstringlist.Create;
otvet:=tstringlist.Create;
temp.Text:=socket.ReceiveText;
TRY


if temp.Strings[0]='[hash]' then //получен хеш новое соединение
  begin
       {поиск всех клиентов данного центра и обнуление счетчика отпавки в сон}
  for I := 0 to mainform.ClientList.Items.Count-1 do
    if mainform.ClientList.Items.Item[i].SubItems.Strings[0]=temp.Strings[1] then
    mainform.ClientList.Items.Item[i].SubItems.Strings[6]:=inttostr(Optinsform.TimeOutEdit1.Value*60); //обнуляю время ожиданяи сервера до уъода вспчку


    {обновление иноформации об данном цу}
  for I := 0 to mainform.CenterList.Items.Count-1 do
  if mainform.CenterList.Items.Item[i].Caption=socket.RemoteAddress+':'+inttostr(socket.Handle) then
      begin
        mainform.CenterList.Items.Item[i].SubItems.Strings[0]:=temp.Strings[1];
        mainform.CenterList.Items.Item[i].SubItems.Strings[1]:=temp.Strings[2];

        if License.ACtivation(temp.Strings[1])<>'-1' then
        mainform.CenterList.Items.Item[i].ImageIndex:=1 else   mainform.CenterList.Items.Item[i].ImageIndex:=0;

      end;


      //высылаю в ответ список кмов согласно текущему хешу!

  for I := 0 to mainform.ClientList.Items.Count-1 do
    if mainform.ClientList.Items.Item[i].SubItems.Strings[0]=temp.Strings[1] then
      begin //найден км, отправляю его в центр управления
         otvet.Clear;
         otvet.Add('[next_client]');//идентификатор пакета
         otvet.Add(mainform.ClientList.Items.Item[i].Caption);//данные как связатся терминалу именно с данным клиентом
         otvet.Add(mainform.ClientList.Items.Item[i].SubItems.Strings[1]);//кол-во ядер
         otvet.Add(mainform.ClientList.Items.Item[i].SubItems.Strings[2]);//архитектура цп
         otvet.Add(mainform.ClientList.Items.Item[i].SubItems.Strings[3]);//майнер установлен какой
         otvet.Add(mainform.ClientList.Items.Item[i].SubItems.Strings[4]);//его статус
         otvet.Add(mainform.ClientList.Items.Item[i].SubItems.Strings[5]);//с каким параметром запущен
         if socket.Connected then

         socket.SendText(otvet.Text);

         sleep(500);
      end;

TThread.Synchronize(TThread.CurrentThread,procedure
begin
logunit.DetaliseCenterAddConnect(temp.Strings[1]);
end;


  end
       else
{РЕЖИМ ПЕРЕАДРЕСАЦИИ ОТ ЦЕНТРА УПРАВЛЕНИЯ КЛИЕНТУ}
{состав пакета}
//0: Неизвестный ТЕРМИНАЛУ идентификатор комманды в квадратных скобках
//1: уникальный номер центра управления hash (для того чтобы знать кому ответить)
//2: идентификатор подключения клиентского модуля

   for  I := 0 to mainform.ClientList.Items.Count-1 do
   if ((mainform.ClientList.Items.Item[i].Caption=temp.Strings[2]) and (TerminalToClient.Socket.Connections[i].Connected)) then
       begin
       TerminalToClient.Socket.Connections[i].SendText(temp.Text);
       logform.Memo1.Lines.Add('переадресован пакет в КМ:');
       logform.Memo1.Lines.Add('Клиент: '+temp.Strings[2]);
       logform.Memo1.Lines.Add('пакет: ');
       logform.Memo1.Lines.Add(temp.Text);
       end;




logform.Memo1.Lines.Add(temp.Text);


EXCEPT
END;
 otvet.Free;
temp.Free;
end;

[dmitriegorovih]

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

TThread.Synchronize(TThread.CurrentThread,procedure
begin
logunit.DetaliseCenterAddConnect(temp.Strings[1]);
end;

[dcc32 Error] DataUnit.pas(275): E2029 ')' expected but ';' found

я что-то не допечатал?) плаваю я в потоках...

TThread.Synchronize(TThread.CurrentThread,procedure
begin
logunit.DetaliseCenterAddConnect(temp.Strings[1]);
end);

[aesoem]

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

TThread.Synchronize(TThread.CurrentThread,procedure
begin
logunit.DetaliseCenterAddConnect(temp.Strings[1]);
end);

спасибо, откорректировал свой код, часа 3 полет нормальный... глянем что к утру будет)