Delphi proxy transparente para una conexión TCP

Question

¿Alguien sabe de algún ejemplo de una aplicación proxy de sockets TCP escrita en Delphi? Estoy construyendo una pequeña aplicación de intermediario que necesita escuchar conexiones de socket en un puerto TCP dado, leer un paquete de datos XML enviado a través de la conexión, atender la solicitud vía TCP a un servidor seleccionado de un grupo de servidores back-end disponibles, y entregar la respuesta resultante a la conexión TCP de origen.

Estoy muy familiarizado con la programación a nivel de TCP y socket, pero preferiría encontrar código de muestra como punto de partida. Si hay algo disponible, se ahorraría mucho tiempo y esfuerzo ya que no necesitaría reinventar la rueda. Recuerdo ver un pequeño proxy TCP escrito en Delphi en 2003/2004, pero parece haber perdido la pista del enlace.

Answer 1

¿Está buscando una implementación de proxy de calcetines? De lo contrario, solo comience con un servidor (http probablemente sería un buen comienzo) y desarrolle la capacidad de procesar su paquete de datos XML de entrada y realice las llamadas apropiadas. Algo así como el marco Synapse lo convertiría en un proyecto bastante simple. Si agarras Synapse, obtén la última versión de SVN. Es compatible con todas las últimas versiones de Delphi.

Existe una demo de httpproxy para synapse disponible, que podría ayudar si desea implementar algo más tradicional. Un buen servidor http inicial example también está disponible.

Answer 2

IPWorks de nSoftware se debe considerar como una alternativa comercial a Synapse. También tienen algunos adaptadores Biztalk disponibles.

He usado tanto Synapse como IPWorks, y ambos son bastante buenos. No he usado los adaptadores BizTalk referenciados.

BizTalk Adapters

IPWorks