Потоки и сеть

[ДралсяСошибками]

Добрый день.
Есть два потока для работы с сервером. В определённый момент требуется использовать сокет одного потока другим потоком, как правильно реализовать такую связь? Как их правильно объявить, чтобы обращаться к ним из любого потока?

[Slym]

"неправильно ты дядя Федор бутерброд ешь"
правильно архитектуру делать и геморрой рассосется
можно попросить из второго потока первый отправить/принять данные

[ДралсяСошибками]

А как например попросить?

[Slym]

Полноты картины - что потоки делают?

[ДралсяСошибками]

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

[Stilet]

Это ты FTP делаешь? Не пойму зачем первому потоку нужно знать когда второй закончит? Когда он закончит, пусть разрывает соединение. Или просто первым элементом передает передаваемый размер.

[ДралсяСошибками]

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

[evg_m]

использовать ОДИН поток с одним сокетом, в потоке предусмотреть переключатель качать то или иное.

Первый начинает качать файл

устанавливаем в РЕЖИМ1 и начинаем качать. (устанавливаем все нужные параметры)

когда он его докачивает, второй должен начать загрузку другого файла,

когда закончим устанавливаем РЕЖИМ2 и начинаем качать. (аналогично настраиваем нужные параметры)
когда закончим .....

while not terminated do 
  ReadFile1;
  ReadFile2;
end;

[ДралсяСошибками]

Это своего рода авторизация, в файлах служебные данные, система требует чтобы от одного компа было два коннекта с разными портами, если правило не соблюдается, то сервер рвёт соединение, такая вот логика, не мной придуманная

[ДралсяСошибками]

Почему нельзя, например так:

var
  Form1: TForm1;
  WSocket1: TSocket;
  WSocket2: TSocket;
  SocketThread1: TSocketThread;
  SocketThread2: TSocketThread;
  ...
procedure TSocketThread1.Execute;
  Send(WSocket1, Buff, SizeOf(Buff), 0);
  Send(WSocket2, Buff, SizeOf(Buff), 0);
  ...
procedure TSocketThread2.Execute;
  Send(WSocket2, Buff, SizeOf(Buff), 0);
  Send(WSocket1, Buff, SizeOf(Buff), 0);
  ...