Скачать: CL | DM;

Потоки   Найти похожие ветки 

← →
Manulo ©   (2004-02-09 15:20) [0]

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

---

← →
Digitman ©   (2004-02-09 15:38) [1]

> Как можно ту часть кода, которая отвечает за подключение
> к порту "запихнуть" в отдельный поток


а почему бы не только эту часть, а весь транспорт не разместить в доп.потоке ?

или ты в принципе не понимаешь как организовать вычисления в доп.потоках ? это ж разные вещи

---

← →
Manulo ©   (2004-02-09 15:44) [2]

можно сказать, что непонимаю. Я никогда не работал с дополнительными потоками. Если не трудно, расскажи как сделать

---

← →
Digitman ©   (2004-02-09 16:03) [3]

TTransportThread = TThread
private
FRemoteHost: String;
FRemotePort: Integer;
FClient: TTCPClient;
...
protected
procedure Execute; override;
public
constructor Create(Host: String; Port: Integer; CreateSuspended: Boolean = false);

end;

constructor TTransportThread.Create(Host: String; Port: Integer; CreateSuspended: Boolean);
begin
FRemoteHost:= Host;
FRemotePort:= Port;
inherited Create(CreateSuspended);
end;

procedure TTransportThread.Execute;
begin
try
FClient := TTCPClient.Create(nil);
try
FClient.Host := FRemoteHost;
FClient.Port := FRemotePort;
FClient.Active := True;
// ... здесь принимаем-передаем все что нужно
finally
FClient.Free;
end;
except
//..лог исключений
end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c