Me tira el siguiente error:
Error '13' en tiempo de ejecución:
No coinciden los tipos.
Al darle depurar:
Cita:
Es una aplicación Cliente/Servidor, el código mostrado esta en el cliente.Public Sub ConfigRead()
Dim Buffer As String
Buffer = String(200, " ")
GetPrivateProfileString "CLIENT", "ServerPort", "7777", Buffer, 200, INI_FILE
Buffer = RTrim(Buffer)
Buffer = Left(Buffer, Len(Buffer) - 1)
WritePrivateProfileString "CLIENT", "ServerPort", Buffer, INI_FILE
Puerto = CLng(Buffer) <- Esto aparece remarcado de amarillo.
Buffer = String(200, " ")
GetPrivateProfileString "CLIENT", "ServerIP", "HostIP", Buffer, 200, INI_FILE
Buffer = RTrim(Buffer)
Buffer = Left(Buffer, Len(Buffer) - 1)
WritePrivateProfileString "CLIENT", "ServerIP", Buffer, INI_FILE
Host = Buffer
Buffer = String(200, " ")
GetPrivateProfileString "CLIENT", "Level", "0", Buffer, 200, INI_FILE
Buffer = RTrim(Buffer)
Buffer = Left(Buffer, Len(Buffer) - 1)
WritePrivateProfileString "CLIENT", "Level", Buffer, INI_FILE
TraceLevel = Buffer
Send2Log "Interpretando Información Base..."
Send2Log "Puerto Remoto: " & Puerto
Send2Log "Dirección IP del Servidor: " & Host
End Sub
Dim Buffer As String
Buffer = String(200, " ")
GetPrivateProfileString "CLIENT", "ServerPort", "7777", Buffer, 200, INI_FILE
Buffer = RTrim(Buffer)
Buffer = Left(Buffer, Len(Buffer) - 1)
WritePrivateProfileString "CLIENT", "ServerPort", Buffer, INI_FILE
Puerto = CLng(Buffer) <- Esto aparece remarcado de amarillo.
Buffer = String(200, " ")
GetPrivateProfileString "CLIENT", "ServerIP", "HostIP", Buffer, 200, INI_FILE
Buffer = RTrim(Buffer)
Buffer = Left(Buffer, Len(Buffer) - 1)
WritePrivateProfileString "CLIENT", "ServerIP", Buffer, INI_FILE
Host = Buffer
Buffer = String(200, " ")
GetPrivateProfileString "CLIENT", "Level", "0", Buffer, 200, INI_FILE
Buffer = RTrim(Buffer)
Buffer = Left(Buffer, Len(Buffer) - 1)
WritePrivateProfileString "CLIENT", "Level", Buffer, INI_FILE
TraceLevel = Buffer
Send2Log "Interpretando Información Base..."
Send2Log "Puerto Remoto: " & Puerto
Send2Log "Dirección IP del Servidor: " & Host
End Sub
Espero puedan ayudarme y de antemano muchas gracias.