Namtar,  ну так что компонент для VPN и PPPoE нужен ? куда кидать ?

[email protected] - сюда кидай! 

народ, есть вопрос! забил болт на vpn - соединение происходит напрямую. сервер создается через IdTCPServer так:

function TServerFrm.StartServer: Boolean;
var Binding : TIdSocketHandle;
begin
  Result:= False;
  if not StopServer then exit;
  TCPServer.Bindings.Clear;
  try
    Binding := TCPServer.Bindings.Add;
    Binding.IP := EdIP.Text;
    Binding.Port := StrToInt(EdPort.Text);

    TCPServer.Active := true;
    result := TCPServer.Active;

    ServerRunning := result;
  except
  on E : Exception
  do begin
     PnStatus.Caption:= E.Message;
     Result := false;
     ServerRunning := result;
     end;
  end;
end;

а клиент коннектится через IdTCPClient

procedure TForm1.Button1Click(Sender: TObject);
begin
  TCPClient.Disconnect;
  TCPClient.Host:= Edit1.Text;
  TCPClient.Port:= StrToInt(Edit2.Text);
  try
    TCPClient.Connect;
  except
  end;
end;

типа того. необходимо после того как я передал инфу с клиента (через TCPClient.WriteLn(Edit3.Text) ) чтобы от сервера вернулось тоже самое обратно на клиент (что-то наподобие обратной связи), т.к. будет графическое отображение изменений, и клиентов приконнекченных к серверу скорее всего будет больше 1-го! возможно ли это, и если да, то как и какими командами! заранее спасибо! 




Это сообщение отредактировал(а) Namtar - 21.10.2009, 21:45

Конечно нужен, сюда можешь выложить? т.к  очень интересует сей вопрос..

+1

аплодирую