Считать данные

[Aleksandr]

На форме есть две вкладки на каждой вкладке есть Memo,Edit и две кнопки ConnectT и Disconnect. При нажатии на кнопку Connect я считываю данные с весов через сокет и записываю в Memo затем преобразовываю и записываю в базу. У меня не получается считывать данные со вторых весов. Вот мой код подключение

procedure TMainForm.Button1Click(Sender: TObject);
begin
  if Led0.Brush.Color = clRed then
    begin
    btnConnect.Enabled := False;
    IdThreadComponent1.Start;
  //  IdTCPClient1.Host := ADOTable2.FieldByName('IP').Value;
 //   IdTCPClient1.Port := StrToInt(ADOTable2.FieldByName('Com').Value);
      IdTCPClient1.Host :=labelIP1.Caption;
       IdTCPClient1.Port := StrToInt(LabelPort1.caption);

    IdTCPClient1.Connect(5000);
  
    Memo1.Enabled := True; Memo1.Color := clWindow;
    MainForm.AddLogWrite('Connect ...... ');
    RzGlyphStatus4.ImageIndex:=3;
    Led0.Brush.Color := clBlue;



    end
  else if Led0.Brush.Color = clBlue then ShowMessage('Процесс уже запущен !');
end;

Вот считываю

procedure TMainForm.Timer3Time(Sender: TObject);
var str: String;
  S, S1,d1: String;
  s3:real;
  a,b:integer;
  i1,i2: Integer;
  r,m : double;
  i:integer;

begin
    try
       repeat
  //       str:=rs232.ReadString();
         if str<>'' then begin
           Memo1.Lines.Add(str);

//********
Преобразовываю и записываю в базу
//*********
     end;
       until str='';
    except
       on E:Exception do begin
         Timer3.Enabled := False;
         ShowMessage(E.Message);
       end;
    end;

А как узнать с какого хоста идет поток?

[Slym]

ты сам то в своем проекте разбираешься? все в одном модуле... абсолютно все!!!
кидай весь проект

[Человек_Борща]

В событии OnClientSocketRead есть переменная Socket, в ней все что вам надо.

[Aleksandr]

Выкладываю полный исходник серверной части

[Slym]

вот только за одно за это уже наказывать надо

  Application.Initialize;
  Application.Title := 'Terminal com port';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TSQLForm, SQLForm);
  Application.CreateForm(TOptionForm, OptionForm);
  Application.CreateForm(TFindForm, FindForm);
  Application.CreateForm(TResultForm, ResultForm);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TFontForm, FontForm);
  Application.CreateForm(TfrmMyBrowser, frmMyBrowser);