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

[mkinzler]

Ersetze den String im Interface der Dll mal durch PChar

[sirius]

Ja, in deinem Fall ist die Sharemem extrem wichtig. Und du musst die Sharemem in beiden Projekten an erster Stelle schreiben.

@roter Kasten
einfach nur durch PChar ersetzen reicht da nicht

Edit2: Aber statt string--> widestring nehmen würde gehen.

[mkinzler]

Zitat:

@roter Kasten
einfach nur durch PChar ersetzen reicht da nicht Zwinkern

So war es ja gemeint

[craash]

ersetze ich das funktionsergebnis durch widestring funktioniert alles super, wenn ich das hauptprogramm aber schließe kommt wieder "ungültige zeigeroperation"

/edit: pchar (angepasst) führt zum selben ergebnis

[craash]

(sry wegen doppelpost)

entferne ich sharemem aus der uses-klausel läuft alles einwandfrei ....allerdings bin ich jetzt etwas verwirrt

[mkinzler]

ShareMem war ja nur für String notwendig

[Luckie]

WideStrings werden intern anders verwaltet als (Ansi)Strings und benötigen deshalb diese Borland DLL nicht.

[sirius]

Zitat von craash:

entferne ich sharemem aus der uses-klausel läuft alles einwandfrei ....allerdings bin ich jetzt etwas verwirrt

Abgesehen, dass es nicht mehr notwendig ist, hattest du sharemem wohl nicht an erster Stelle in der Prohjektdatei (*.dpr) stehen.

[craash]

achso ok

dann bedanke ich mich für die hilfe