Das Problem liegt darin, dass dll in Fortran mit Hilfe von Fortran-Compiler geschrieben wurde. Delphi findet schon Funtion in dieser Dll, ich kann die sogar aufrufen, aber ich bekomme total falschen Wert. Hier ist ein Teil von meiner Quellcode:

zusammenfalten · markieren

Delphi-Quellcode:

function VPUNK(t2:integer) : integer; external 'quelle.dll'; // rufe diese funktion VPUNK auf.

implementation

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject);
var cPfad, c1 : string;
     a,t2: integer;
begin
  t2 := 3;
  a := VPUNK(t2); // verwende sie
  c1:= inttostr(a);

Statt 6 bekomme ich so ein Ergebnis: -2334563. Und ich weiß jetzt nicht genau, wo liegt der Fehler: entweder in Dll oder ich mache in meiner Code was falsch? Danke. 8)

Hi egal,

verwende doch bitte die [delphi]-Tags

......

Zitat von sakura:

Hi egal,

verwende doch bitte die [delphi]-Tags

......

ok, habe geändert

Schreib mal den betreffenden Quellcodeteil komplett hin. Mit den Bruchstücken kann man nicht viel anfangen.

Vielleicht liegt es daran:
function VPUNK(t2:integer) : integer; external 'quelle.dll'; stdcall; In der Regel werden DLL-Funktionen mit der Aufrufkonvention stdcall deklariert, sollte das auch nicht klappen kannst du es auch mal mit cdecl probieren.

Zitat von Luckie:

Schreib mal den betreffenden Quellcodeteil komplett hin. Mit den Bruchstücken kann man nicht viel anfangen.

zusammenfalten · markieren

Delphi-Quellcode:

 
function VPUNK(t2:integer) : integer; external 'quelle.dll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var cPfad, c1 : string;
     a,t2: integer;
begin
  t2 := 3;
  a := VPUNK(t2);
  c1:= inttostr(a);

Ist so besser?

Zitat von scp:

Vielleicht liegt es daran:
function VPUNK(t2:integer) : integer; external 'quelle.dll'; stdcall; In der Regel werden DLL-Funktionen mit der Aufrufkonvention stdcall deklariert, sollte das auch nicht klappen kannst du es auch mal mit cdecl probieren.

Mit stdcall bekomme ich Fehlermeldungen:

Zitat:

[Fehler] Unit1.pas(27): Deklaration von 'VPUNK' unterscheidet sich von vorheriger Deklaration

, wenn stdcall am Ende von Funktionsdeklaration steht und wenn vor external, dann bekomme ich eine Zugriffsverletzung in meiner Dll.

Das mit den unterschiedlichen Deklarationen kommt vermutlich daher, dass du stdcall sowohl oben als auch unten bei der procedur anschreiben musst, also so:

markieren

Delphi-Quellcode:

function VPUNK(t2:integer) : integer; external 'quelle.dll'; stdcall;
.
.
.
function VPUNK(t2:integer) : integer; external 'quelle.dll'; stdcall; // rufe diese funktion VPUNK auf.
t2: integer;
t2 := 3;
a := VPUNK(t2); // verwende sie.

Denk ich mal (ist zwar doof beschreiben, aber ich denke man sieht, was gemeint ist )

Hab mich verguckt, ist natürlich murks, was ich da geschrieben hab.
Du musst sowohl im Code der DLL ein stdcall; ranhängen als auch in der Unit, in der du sie verwendest.

Und jetzt noch die Funktion in der DLL und wie du sie exportiert hast. Dann kann man dir eventuell weiterhelfen.

Zitat von Ultimator:

Das mit den unterschiedlichen Deklarationen kommt vermutlich daher, dass du stdcall sowohl oben als auch unten bei der procedur anschreiben musst, also so:

markieren

Delphi-Quellcode:

function VPUNK(t2:integer) : integer; external 'quelle.dll'; stdcall;
.
.
.
function VPUNK(t2:integer) : integer; external 'quelle.dll'; stdcall; // rufe diese funktion VPUNK auf.
t2: integer;
t2 := 3;
a := VPUNK(t2); // verwende sie.

Denk ich mal (ist zwar doof beschreiben, aber ich denke man sieht, was gemeint ist )

ich habe jetzt die ganze Quellcode angelegt, guck mal da bitte. Verstehe nicht ganz, wo muss ich stdcall noch einmal schreiben, wenn ich schon am Anfang bekomme meine Fehlermeldung.