Für Delphi7 musst du entweder die
Unit SysUtils in die
Unit hostalive einbinden oder folgende Funktion unterhalb von implementation einfügen:
Delphi-Quellcode:
{ Memory management routines } // kommt aus SysUtils
function AllocMem(Size: Cardinal): Pointer;
begin
GetMem(Result, Size);
FillChar(Result^, Size, 0);
end;
Bernhard
EDIT: Ich machs mal genauer:
Zwischen
"function IcmpSendEcho(IcmpHandle: Cardinal; DestinationAddress: Cardinal; RequestData: Pointer; RequestSize: Word; RequestOptions: PIP_OPTION_INFORMATION; ReplyBuffer: Pointer; ReplySize: Cardinal; Timeout: Cardinal): Cardinal; stdcall; external 'Iphlpapi.dll' name 'IcmpSendEcho';"
und (also hier; etwa Zeile 40)
"function IsHostAlive(Hostname: String; pTripTime: PCardinal = nil; Timeout: Integer = 1000; TTL: Integer = 255): Boolean; "