Einfacher Funktionsaufuruf aus .dll -> Fehler

[craash]

hi,

ein neuer tag ein neues problem

heute konnte ich mich endlich dazu durchringen, einen versuch zu wagen, ein paar funktionen die ich oft nutze in eine .dll zu packen, bisher hatte ich da respektvollen abstand gehalten

gesagt getan, anhand dieses dt-tutorials habe ich dann meine erste .dll erstellt, testweise bisher mit nur einer funktion.

die .dll sieht dann folgendermaßen aus (die funktion ist hier aus der code-lib)

Delphi-Quellcode:

library MyNetFunctions;

uses
  SysUtils,
  Classes,
  winsock,
  MNetFunctions in 'MNetFunctions.pas';

{$R *.RES}

///////////////////////////////////////////////////////////////////////
//////
////
//


function localip:string; stdcall; //gibt die lokale netzwerkadresse (lan) als string zurück
var
WSA : TWSAData;
ILen : integer;
PHst : PChar;
PHEn : PHostEnt;
begin
WSAStartup( $0101, WSA );
ILen := $FF;
PHst := StrAlloc( ILen );
gethostname( PHst, ILen );
PHEn := gethostbyname( PHst );

with PHEn^ do result:=format(
'%d.%d.%d.%d',
[ord(h_addr^[ 0 ]), ord(h_addr^[ 1 ]),
ord(h_addr^[ 2 ]), ord(h_addr^[ 3 ])]
);

{Nuke the string}
StrDispose( PHst );

{Dust and Clean}
WSACleanup;

end;

//
////
//////
///////////////////////////////////////////////////////////////////////


exports
       localip;

begin
end.

die aufrufende unit

Delphi-Quellcode:

unit MNetFunctions;

interface
         function localip():string; stdcall;

implementation
         function localip():string; stdcall;
         external 'MyNetFunctions.dll';

end.

aufgerufen im hauptprogramm (MNetFunctions und sharemem (wenn das wichtig ist?) sind eingebunden)
wird die funktion testweise wie folgt aufgerufen

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage(localip);
end;

das funktioniert auch alles wunderbar, beim create wird die ip angezeigt, dann allerdings gefolgt von einer "Ungültige[n] Zeigeroperation" und das Programm stürzt ab


könntet ihr mir evtl. auf die sprünge helfen wo mein fehler liegt? ..wäre sehr nett


mfg