AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

DLL Programmierung

Ein Thema von DIET3RIX · begonnen am 8. Jun 2007 · letzter Beitrag vom 8. Jun 2007
Antwort Antwort
Seite 1 von 2  1 2   
DIET3RIX

Registriert seit: 21. Feb 2006
Ort: Bonn
78 Beiträge
 
Delphi 2007 Professional
 
#1

DLL Programmierung

  Alt 8. Jun 2007, 13:39
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
Dieter
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: DLL Programmierung

  Alt 8. Jun 2007, 13:42
schau dir mal in der hilfe sin und cos an. Da steht etwas von Bogenmaß
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
CCRDude
(Gast)

n/a Beiträge
 
#3

Re: DLL Programmierung

  Alt 8. Jun 2007, 13:52
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.
  Mit Zitat antworten Zitat
DIET3RIX

Registriert seit: 21. Feb 2006
Ort: Bonn
78 Beiträge
 
Delphi 2007 Professional
 
#4

Re: DLL Programmierung

  Alt 8. Jun 2007, 14:00
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.
Dieter
  Mit Zitat antworten Zitat
messie

Registriert seit: 2. Mär 2005
Ort: Göttingen
1.592 Beiträge
 
Delphi 2009 Professional
 
#5

Re: DLL Programmierung

  Alt 8. Jun 2007, 14:06
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
  Mit Zitat antworten Zitat
DIET3RIX

Registriert seit: 21. Feb 2006
Ort: Bonn
78 Beiträge
 
Delphi 2007 Professional
 
#6

Re: DLL Programmierung

  Alt 8. Jun 2007, 14:22
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.
Dieter
  Mit Zitat antworten Zitat
Thorben_Ko

Registriert seit: 8. Jun 2007
86 Beiträge
 
#7

Re: DLL Programmierung

  Alt 8. Jun 2007, 14:26
http://de.wikipedia.org/wiki/Bogenma%C3%9F

sollte eig alles erklären
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#8

Re: DLL Programmierung

  Alt 8. Jun 2007, 14:30
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))
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
CCRDude
(Gast)

n/a Beiträge
 
#9

Re: DLL Programmierung

  Alt 8. Jun 2007, 14:33
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;
  Mit Zitat antworten Zitat
DIET3RIX

Registriert seit: 21. Feb 2006
Ort: Bonn
78 Beiträge
 
Delphi 2007 Professional
 
#10

Re: DLL Programmierung

  Alt 8. Jun 2007, 14:41
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.
Dieter
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 02:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf