Uso de Delphi para desarrollar software de video chat (ⅲ)
) Coloque un control de imagen en el formulario de la ventana del programa para recibir el contenido de la imagen, luego coloque un título de control Tbutton y coloque un componente UDPServer para recibir. Aquí, el IdUDPServer de Indy se utiliza para recibir videos en línea, como se muestra en la figura.
Recibir código del botón
puerto predeterminado del servidor idudp:=; //Recibir puerto del servidor idudp Activo:= true; //Habilitar
código de evento UDPRead de IdUDPServer;
var jpg:TJpegImage; comenzar a probar jpg:= TJpegImage Create; jpg LoadFromStream(Adata); final de excepción de imagen jpg; La transmisión se comprime en JPG. Tanto el servidor como el receptor usan unidades jpeg, por lo que se debe agregar jpeg para su uso.
Código de cliente de software de video chat completo
Unidad; la interfaz utiliza el mensaje de Windows SysUtils cuadro de diálogo de formulario de control gráfico de clase variable STD ctrl idbase componente id componente idudp base idudp servidor ext ctrl JPEG IdSocketHandle; formulario t = clase (formulario t) Imagen: ti Imagen; IdUDPServer: botón tiudpserver: clic en el botón de proceso T (remitente: al objeto IdUDPServer UDPRead (remitente: TObjectAData: t stream; un enlace: TIdSocketHandle); declaración} público {declaración pública} formulario endvar: implementación de TForm { $ R * dfm } proceso Botón TForm Haga clic (remitente: al objeto); puerto predeterminado de startiddudpserver: =; // puerto de recepción del servidor idudp Activo: = verdadero; ; procesar TForm IdUDPServer UDPRead (remitente: TObjectAData: t stream; un enlace: TIdSocketHandle); var jpg: TJpegImage; fin de excepción de jpg; ; end
Bien, este es el código del programa. La transferencia de video comienza ejecutando un servidor de software de video chat en su computadora. En la red (el segmento de red es
Si el contenido del video que desea recibir es claro, puede configurar la calidad de compresión jpg:=;(El valor puede ser de hasta. Cuanto mayor sea el valor, más clara será la imagen. Por supuesto, la transmisión la velocidad será más lenta cuanto más clara sea la imagen, mayor será el tamaño del paquete. Si se excede el límite de paquetes UDP, la imagen estará incompleta)
Servidor de software de video chat
Chat. cliente de software
Cuatro comentarios finales
Lishi Xinzhi/Article/program/Delphi/201311/24738