Indy SSL에서 일반 소켓 펌프

Question

일반 TCP 서버에 SSL 프론트를 제공해야하므로 원래 서버를 일반 상태로 유지하면서 외부에 SSL 연결을 제공하는 "펌프"응용 프로그램을 만들고 있습니다.

저는 SSL 요구 사항을 지원하기 위해 Indy 구성 요소를 사용하려고하지만 SSL 포트에서 데이터를 가져올 수 없습니다. 나는 다음과 같은 이벤트 처리기에 TIdTCPServer.OnExecute 할당 :

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 = 서버 측 (SSL을 추가하려는 TCP 서버의 클라이언트).

이제 정리가 필요하다는 것을 알고 있으며 1ms 대기는 꽤 아니지만 문제를 공격하기 전에 데이터를 받고 싶습니다.

내 ReadBytes가 호출되지 않습니다. cs.Readable()을 사용할 때 true을 한 번 만 받았지만 여전히 읽을 수는 없었습니다.

펌프를 만들려면 어떻게해야합니까? 데이터를 가져 오지 않는 이유는 무엇입니까?

Answer 1

TIdTCPServer 대신 TIdMappedPortTCP 구성 요소를 직접 사용해보십시오. TIdMappedPortTCP은 클라이언트와 다른 서버간에 데이터를주고받는 모든 작업을 처리합니다. TIdMappedPortTCP으로의 인바운드 연결이 암호화 된 경우에도 기본적으로 두 번째 서버로의 아웃 바운드 연결은 암호화되지 않습니다.