Блог

Я должен предоставить интерфейс SSL для обычного TCP-сервера, поэтому я создаю приложение «pump», которое обеспечит SSL-соединение с внешней средой, в то время как исходный сервер может оставаться простым.

Я пытаюсь использовать компоненты Indy для поддержки своих потребностей в SSL, но, похоже, я не могу получить какие-либо данные с SSL-порта. Я назначил TIdTCPServer.Выполняем следующий обработчик событий:

 procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
 c:TIdTCPClient;
 cs,ss:TIdIOHandler;
 b:TBytes;
begin
 c:=TIdTCPClient.Create(Self);
 try
   c.Host:='127.0.0.1';
   c.Port:=60675;
   c.ConnectTimeout:=500;
   c.Connect;
   ss:=c.IOHandler;
   cs:=AContext.Connection.IOHandler;
   while (cs.Connected) and (ss.Connected) do
    begin
     if cs.CheckForDataOnSource(1) then
      begin
       try
        cs.ReadBytes(b,1,False);
       except on e:Exception do
        Memo1.Lines.Add(e.Message); //BAD out of Thread context
       end;
       if Length(b)>0 then
        ss.Write(b);
      end;
     if ss.CheckForDataOnSource(1) then
      begin
       ss.ReadBytes(b,1,False);
       if Length(b)>0 then
        cs.Write(b);
      end;
    end;
 finally
   c.Free;
 end;
end;
  

К TCP-серверу подключен обработчик SSL. Я сделал то же самое на обычном HTTP-сервере, и он работал нормально, поэтому я предполагаю, что проблема не в моей настройке SSL.

cs = Клиентская сторона (серверный сокет) и ss = Серверная сторона (клиент для TCP-сервера, к которому я пытаюсь добавить SSL).

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

Ни один из моих readBytes не вызывается. Когда я использовал cs.Readable() , я получаю true только один раз, но я все еще не мог читать.

Что я могу сделать, чтобы создать перекачку? Почему я не получаю данные?

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