AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Einfacher Funktionsaufuruf aus .dll -> Fehler
Thema durchsuchen
Ansicht
Themen-Optionen

Einfacher Funktionsaufuruf aus .dll -> Fehler

Ein Thema von craash · begonnen am 6. Mär 2009 · letzter Beitrag vom 6. Mär 2009
Antwort Antwort
Seite 1 von 2  1 2      
craash

Registriert seit: 23. Nov 2008
Ort: Mühlacker
79 Beiträge
 
Delphi 7 Enterprise
 
#1

Einfacher Funktionsaufuruf aus .dll -> Fehler

  Alt 6. Mär 2009, 15:35
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
uses Delphi 5 Std. / TurboDelphi 2006
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: Einfacher Funktionsaufuruf aus .dll -> Fehler

  Alt 6. Mär 2009, 15:37
Ersetze den String im Interface der Dll mal durch PChar
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Einfacher Funktionsaufuruf aus .dll -> Fehler

  Alt 6. Mär 2009, 15:38
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.
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Einfacher Funktionsaufuruf aus .dll -> Fehler

  Alt 6. Mär 2009, 15:40
Zitat:
@roter Kasten
einfach nur durch PChar ersetzen reicht da nicht Zwinkern
So war es ja gemeint
Markus Kinzler
  Mit Zitat antworten Zitat
craash

Registriert seit: 23. Nov 2008
Ort: Mühlacker
79 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Einfacher Funktionsaufuruf aus .dll -> Fehler

  Alt 6. Mär 2009, 15:46
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
uses Delphi 5 Std. / TurboDelphi 2006
  Mit Zitat antworten Zitat
craash

Registriert seit: 23. Nov 2008
Ort: Mühlacker
79 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: Einfacher Funktionsaufuruf aus .dll -> Fehler

  Alt 6. Mär 2009, 16:00
(sry wegen doppelpost)

entferne ich sharemem aus der uses-klausel läuft alles einwandfrei ....allerdings bin ich jetzt etwas verwirrt
uses Delphi 5 Std. / TurboDelphi 2006
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#7

Re: Einfacher Funktionsaufuruf aus .dll -> Fehler

  Alt 6. Mär 2009, 16:06
ShareMem war ja nur für String notwendig
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#8

Re: Einfacher Funktionsaufuruf aus .dll -> Fehler

  Alt 6. Mär 2009, 16:08
WideStrings werden intern anders verwaltet als (Ansi)Strings und benötigen deshalb diese Borland DLL nicht.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#9

Re: Einfacher Funktionsaufuruf aus .dll -> Fehler

  Alt 6. Mär 2009, 16:08
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.
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat
craash

Registriert seit: 23. Nov 2008
Ort: Mühlacker
79 Beiträge
 
Delphi 7 Enterprise
 
#10

Re: Einfacher Funktionsaufuruf aus .dll -> Fehler

  Alt 6. Mär 2009, 16:09
achso ok

dann bedanke ich mich für die hilfe
uses Delphi 5 Std. / TurboDelphi 2006
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:06 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz