Object variable not set

[emyztik]

Public Type sockaddr_in
    sin_family       As Integer
    sin_port         As Integer
    sin_addr         As Long
    sin_zero(1 To 8) As Byte
End Type
 
Dim addr As sockaddr_in
Dim ip As String
[b]ip = inet_ntoa(addr.sin_addr)[/b]

It errors "Object variable or With block variable not set" on the bold line. I researched this on MSDN and it says I have to "Dim something As Object" and "Set someting = ????" for it to work. What must I be doing?

MSDN article = http://msdn.microsoft.com/library/de...gobjnotset.asp

[Dave Sell]

try:

Set ip = inet_ntoa(addr.sin_addr)

[emyztik]

When doing this:

Dim ip As String
    Set [b]ip =[/b] inet_ntoa(Addr.sin_addr)

The error is on the bold line saying "Object required".

When I do this:

Dim ip As Object
    Set ip = [b]inet_ntoa[/b](addr.sin_addr)

It errors on the bold line saying "Type mismatch".

[Inuyasha1782]

Well what does inet_ntoa() return?

You would just have to define "ip" as what ever it returns.

Type Mismatch in that case means your using the wrong type of variable to store the returned data the function gives to you.

[emyztik]

inet_ntoa() returns a Long

Dim ip As Long
    Set [b]ip[/b] = inet_ntoa(Addr.sin_addr)

Error "Object required". It goes back and forth everytime I changed something.

EDIT: saw you edited your post. how do you think this can be fixed?

[randem]

Public Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source _
    As Any, ByVal length As Long)
Public Declare Function lstrlen Lib "kernel32.dll" Alias "lstrlenA" (ByVal lpString As Any) As Long
 
Dim ip as Long
Dim ipString as string
ip = inet_ntoa(Addr.sin_addr)
' Copy the result into a string variable.
ipString = Space(lstrlen(ip))