DLL Programmierung

[DIET3RIX]

Hey Leute,

ich hab jetzt ein bissle Zeit und hab beschlossen mich ma wieder mit Delphi zu beschäftigen.
Buch aufgeschlagen -> Dynamic Link Libraries, kligt ganz gut.

Eine DLL geschrieben und erzeugt (TangensDLL.dll):

Delphi-Quellcode:

library TangensDLL;

uses
  SysUtils,
  Classes;

function Tangens(Wert:double): Double; stdcall;
begin
  Result := sin(Wert)/cos(Wert);
end;

exports
  Tangens;

begin
end.

So, danach kommt statisches Importieren.

Delphi-Quellcode:

unit TangensEXE;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
              
function Tangens(Wert: double): double; external 'TangensDLL.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  vResult: double;
begin
  try
    vResult := Tangens(45);
  except
    ShowMessage('Die Funktion Tangens existiert nicht.');
  end;

  Edit1.Text := FloatToStr(vResult);
end;

end.

Wenn ich jetzt den Button drücke, dann bekomme ich "1,61977519054386" raus.
Aber Tangens von 45° ist doch 1.

Im Buch steht, dass "function Tangens(Wert: double): double; external 'TangensDLL.dll';" im interface-Abschnitt stehen muss, aber wo endet interface und wenn ich die Zeile direkt unter interface tippe, dann bekomme ich immer jede Menge Fehlermeldungen.

THX voraus

[SirThornberry]

schau dir mal in der hilfe sin und cos an. Da steht etwas von Bogenmaß

[CCRDude]

Wenn Du als stdcall exportierst, musst Du es auch als stdcall importieren.

Sonst kommen schonmal "Fantasywerte" zustande, weil die Aufrufkonventionen sich in der Übergabe von Parametern unterscheiden.

[DIET3RIX]

und wie mache ich das?
Also das Beispiel hab ich aus dem Buch übernommen.

@ SirThornberry

ich hab da nicht wirklich was gefunden. Da steht nur das es im Bogenmaß ausgegeben wird, aber mit dem Bogenmaß kann ich nichts anfangen.

[messie]

Bogenmaß heißt, daß Du statt Grad Bogenmaß eingeben musst (2*Pi = 360°). Also Deine Eingabe nach Dreisatz durch 360 teilen und mit 2*Pi multiplizieren. Dann kommt auch 1 beim Tangens raus.

Grüße, Messie

[DIET3RIX]

Sorry, aber das verstehe ich nicht.

Zitat von messie:

Bogenmaß heißt, daß Du statt Grad Bogenmaß eingeben musst (2*Pi = 360°).

Wie soll ich die 45° eingeben? Ist Bogenmaß != Grad bei der Eingabe?

Zitat von messie:

Also Deine Eingabe nach Dreisatz durch 360 teilen und mit 2*Pi multiplizieren. Dann kommt auch 1 beim Tangens raus.

Nach Dreisatz? Nach welchen?

Sorry, aber wenn man nicht weiß wie's gemeint ist, dann ist es echt schwer nachvollziehen.

[Thorben_Ko]

http://de.wikipedia.org/wiki/Bogenma%C3%9F

sollte eig alles erklären

[SirThornberry]

oder einfach die funktionen DegToRad und RadToDeg nutzen. Wenn die Funktion also Bogenmaß haben will und du das ganze in Grad angeben willst gehts so: FunktionWelcheBogenmaßErwartet(DegToRad(45))

[CCRDude]

Zitat von DIET3RIX:

und wie mache ich das?
Also das Beispiel hab ich aus dem Buch übernommen.

So:

Delphi-Quellcode:

function Tangens(Wert: double): double; external 'TangensDLL.dll'; stdcall;
function Tangens(Wert: double): double; stdcall; external 'TangensDLL.dll';

Weiß gerade nicht auswendig, ob es egal ist wo das stdcall steht
Aufrufkonvention muss halt identisch sein mit dem, was Du vorher geschrieben hattest in der DLL, und dort wird ja auch stdcall gesetzt:
function Tangens(Wert:double): Double; stdcall;

[DIET3RIX]

Oke, vielen Dank an euch.

DegToRad, das hab ich gebraucht

CCRDude
function Tangens(Wert: double): double; stdcall; external 'TangensDLL.dll'; so muss das aussehen. Setzt man stdcall am ende, so kommt da 'ne Fehlermeldung:

Zitat:

[Fehler] TangensEXE.pas(27): Deklaration von 'Tangens' unterscheidet sich von vorheriger Deklaration

Vielen Dank an alle die mir versucht haben zu helfen.