Red de conocimiento informático - Aprendizaje de código fuente - ¡Obtenga IP local en lenguaje sencillo y muestre cómo obtener el código fuente!

¡Obtenga IP local en lenguaje sencillo y muestre cómo obtener el código fuente!

Versión 2

. Soporta especificaciones de biblioteca. Subrutina _button2_clicked cuadro de edición 2. contenido = subrutina_fetch_ip_address (" ") Subrutina Subrutina_Fetch_IP_Address, tipo de texto

. Parámetro Parameter_variable, tipo de texto

. Variable local Local_output_buffer_length, entero

. Variable local Local_array, bytes, "0"

. Variables locales Local_IP_adapter_information, IP_adapter_information

Variables locales Texto de dirección Local_P, texto de dirección IP_

. Variable local Local_Next_Structure_Address, entero

. Variable local local_temporary, conjunto de bytes

. Variable local local_count, entero Obtener información del adaptador (0, local_output_buffer_length)

. Si es verdadero (local_output_buffer_length > 0)

redefine la matriz (local_array, false, local_output_buffer_length - 1)

.

si es verdadero (fetch_adapter_info1_(local_array[1], local_output_buffer_length) = 0)

local_next_structure_address = fetch_variable_address (local_array[1])

determina el encabezado del bucle (local_next_structure_address > 0)

p>

Copiar memoria_ (local_IP_adapter_information, local_next_structure_address, 640)

local_temporary = buscar conjunto de bytes en blanco (buscar miembros de la matriz (local_IP_adapter_information.IpAddressList.IpAddress.IpAddr))

.

p>

.El primer bucle del bucle de conteo (obtener miembro de la matriz (local_IPAdapterInfo.IpAddressList.IpAddress.IpAddr), local_count)

local_temporary [local_count] = local_IPAdapterInfo.IpAddressList.IpAddress.

.Fin del ciclo de conteo ()

Local_Next_Structure_Address = Local_IP_Adapter_Info.IpAddressList.IpAddress.Dirección de la estructura siguiente

.Fin del ciclo de juez ()

Devolver (obtener datos del grupo de bytes (local_temporal, #textual,))

Cliente 1. Enviar datos (cuadro de edición 2. Contenido). Si es verdadero, finaliza. Si es verdadero, final

Devolución ("")

Cliente 1.