Fórum Converter VB6 para Delphi(object pascal) #535535

Attribute VB_Name = "module_disconnect"
Option Explicit

Private MIB_TCPTABLE As MIB_TCPTABLE

' Disconnects an IP
Public Sub disconnect(ByVal ip As String)
    Dim i As Integer
    Dim local_port, remote_ip As String
    Dim tcp_table As MIB_TCPTABLE
    
    get_tcp_table tcp_table, Len(MIB_TCPTABLE), 0
    
    For i = 0 To tcp_table.dwNumEntries - 1
    
        local_port = ntohs(tcp_table.table(i).dwLocalPort)
        remote_ip = ip_to_human(tcp_table.table(i).dwRemoteAddr)
        
        If local_port = Application.text_server_port And remote_ip = ip Then
        
            tcp_table.table(i).dwState = MIB_TCP_STATE.DELETE_TCB
            
            set_tcp_entry tcp_table.table(i)
            
        End If
        
    Next i

End Sub

Function ip_to_human(ByVal ip As String) As String
    ip_to_human = Asc(Mid(ip, 1, 1)) & "." & Asc(Mid(ip, 2, 1)) & "." & Asc(Mid(ip, 3, 1)) & "." & Asc(Mid(ip, 4, 1))
End Function