Thread: [NEED HELP] Memory Leak GETIPFROMHOST

Hi Guys,

I have this code right here to retrive the IP-address from a hostname:

Code:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  winsock;

function GetIPFromHost(const HostName: string): string;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  i: Integer;
begin
  Result := '';
  phe := GetHostByName(PChar(HostName));
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  i := 0;
  while pPtr^[i] <> nil do
  begin
    Result := inet_ntoa(pptr^[i]^);
    Inc(i);
  end;
end;

var
wsaData: TWSAData;

begin

if (WSAStartup($0202, wsaData) <> 0) then begin
      Exit;
end;

while true do begin
sleep (1000);
GetIPFromHost ('localhost');
end;

it works fine and gives me the IP address.
Unfort. I need this function a couple of times to compare a DNS with an IP-address.

For some reason I get a big Memory Leak and the memory of my program increases very fast.
Why is that and how can I free the memory?

Thanks in advance.

Delphi must have some sort of free or flush argument for objects. If so, just do it at the end of each usage. Should help imo

I tried FreeandNil I tried phe:= NIL; and I tried freemem. All these make the whole program crash :/

You could try this, http://www.eurekalog.com/downloads_delphi.php

You can have it report exceptions on memory leaks or check out this : http://stackoverflow.com/questions/6...nder-delphi-xe

The string returned by inet_ntoa resides in memory that is allocated by Windows Sockets. The application should not make any assumptions about the way in which the memory is allocated. The string returned is guaranteed to be valid only until the next Windows Sockets function call is made within the same thread. Therefore, the data should be copied before another Windows Sockets call is made.

Source: MSDN.

Most likely that function allocates memory. You could shutdown WSA and see if the memory is freed. Same applies for GetHostByName.

GetHostByName(PChar(HostName));

Here you convert the string to a pChar, without freeing the memory. Probably that pChar isn't freed by delphi.