Mam bibliotekę DLL :
library Przyklad;
uses
SysUtils,
Classes,
WinSock;
{$R *.res}
function IP(text:pansichar):pansichar;
type pu_long = ^u_long;
var WSAData : TWSAData;
HostEnt : PHostEnt;
InAddr : TInAddr;
begin
If WSAStartup($101, WSAData)<>0 Then
Result := pchar('Niemogę pobrać IP z tego hosta')
else begin
HostEnt:=GetHostByName(pchar(Text));
InAddr.S_addr:=u_long(pu_long(HostEnt^.h_addr_list^)^);
Result := pchar(inet_ntoa(InAddr));
End;
WSACleanup;
end;
function BOT(text : string):pansichar;
begin
result:=ip(pchar(text));
end;
exports
IP name 'IP',
BOT name 'BOT';
begin
end.
I jak z niej wywołuję funkcję BOT to z 2 sekundy jak by się przywiesił i się pokazuje błąd