TCPClient/Server - не робит

[100GRamm]

Всем привет! Такой, на мой взгляд, нерешаемый вопрос)))):
Пытаюсь понять работу TCPClient\Server.(D10L, D7) этот компонент совершенно непредсказуем
и не хочет работать! Максимум, что я от него добился- это передача одного сообщения
(Client->Server) :

-отправка из клиента---

procedure TCPCsend(Hst,prt,msgTcp:string);
var buf: array [0..255] of char;  gg:string ;  f,i:integer;  
begin
      gg:=msgTcp ;
      f:=length(gg) ;
      for I := 0 to f do buf[i]:=gg[i+1];
      ser.TcpC.RemoteHost  :=Hst;
      ser.TcpC.RemotePort  :=prt;
      ser.TcpC.Connect;
      ser.TcpC.SendTo(buf,sizeof(buf),ser.TcpC.GetSocketAddr(Hst,prt),0);
      ser.TcpC.Disconnect
end;

--Получение сервером---

procedure TSER.TcpSAccept(Sender: TObject; ClientSocket: TCustomIpClient);
begin
    memo1.Lines.Add(clientsocket.Receiveln());   
end;

Приходится постоянно переподлючать клиент, чтоб что - то проходило.
Кстати, это работает только на одной машине, если ставлю на разных (интернет),
то полный молчок(

Обшарил буквально все в инете- ничего путного не нашел, можно было бы , конечно через INDY?
ее у меня нет на D10 (bи не хочет устанавливаться) , а в D7 нет многих компонентов, которые мне нужны
Буду крайне признателен за реальную промощь (код, ссылки, свои размышления), СПАСИБО!

[betirsolt]

у меня в delphi 10 lite наоборот очень мало компонентов было...а почему ты не пользуешься сокетами????

[Lime]

Сообщение от 100GRamm

Всем привет! Такой, на мой взгляд, нерешаемый вопрос)))):
Пытаюсь понять работу TCPClient\Server.(D10L, D7) этот компонент совершенно непредсказуем
и не хочет работать! Максимум, что я от него добился- это передача одного сообщения
(Client->Server) :

-отправка из клиента---
procedure TCPCsend(Hst,prt,msgTcp:string);
var buf: array [0..255] of char; gg:string ; f,i:integer;
begin
gg:=msgTcp ;
f:=length(gg) ;
for I := 0 to f do buf[i]:=gg[i+1];
ser.TcpC.RemoteHost :=Hst;
ser.TcpC.RemotePort :=prt;
ser.TcpC.Connect;
ser.TcpC.SendTo(buf,sizeof(buf),ser .TcpC.GetSocketAddr(Hst,prt),0);
ser.TcpC.Disconnect
end;

--Получение сервером---
procedure TSER.TcpSAccept(Sender: TObject; ClientSocket: TCustomIpClient);
begin
memo1.Lines.Add(clientsocket.Receiv eln());
end;

Приходится постоянно переподлючать клиент, чтоб что - то проходило.
Кстати, это работает только на одной машине, если ставлю на разных (интернет),
то полный молчок(

Обшарил буквально все в инете- ничего путного не нашел, можно было бы , конечно через INDY?
ее у меня нет на D10 (bи не хочет устанавливаться) , а в D7 нет многих компонентов, которые мне нужны
Буду крайне признателен за реальную промощь (код, ссылки, свои размышления), СПАСИБО!

Проблема с Indy 10 ероятнее всего , у меня с Д2007 и Indy 10.ххх было много проблем касающихся стабильной и павильной работы) Вернулся к Д7 )

[100GRamm]

да, верно , господа говорите, я пошарю еще разок в WINSOCK там че то получалось, но до меня не дошло сразу, тем более ему и компонентов то не нужно - можно в библиотеку или в отдельный модуль проседуры писать.... но все же , как компонент работает- интересно, такое ощущение, что никак

[100GRamm]

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

у меня в delphi 10 lite наоборот очень мало компонентов было...а почему ты не пользуешься сокетами????

Winsock или ServerSocet/ClientSocket ? я ими некогда и не пользовался раньше

[100GRamm]

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

Проблема с Indy 10 ероятнее всего , у меня с Д2007 и Indy 10.ххх было много проблем касающихся стабильной и павильной работы) Вернулся к Д7 )

В D7 стоит Indy9 - по ней документвции нет, разбирался по десятке, что то даже получилось, но ее нет в D10L , да и хотелось бычто то друго))...

[betirsolt]

Сообщение от 100GRamm

Winsock или ServerSocet/ClientSocket ? я ими некогда и не пользовался раньше

ServerSocet/ClientSocket попробуй

[100GRamm]

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

ServerSocet/ClientSocket попробуй

Только что добавил из бина dclsockets70.bpl теперь в D7 есть такой компонент, хоршо бы такое проделать в D10L! Кто - нибудь знает кактуда добавлять , в МЕНЮ нет( и, кстати dclsockets100.bpl в инете не нашел, может какой другой? (уж больно сильно мне нравится эта среда!