Zitat von
himitsu:
Include gibt es sozusagen auch in Delphi, allerdings nicht so wie in PHP, denn diese Dateien werden nur beim Kompilieren eingebunden.
Du kanns also Dateien einbinden, mußt aber das Programm neu Komilieren und die neue EXE ausliefern.
> [
oh]{$I Datei}[/
oh], oder [
oh]{$Include Datei}[/
oh]
Das möchte ich ja nicht.
Und bei dem:
Zitat:
[add]
das ist ja nur ein Tut zum dynamischen einbinden einer
DLL/Funktion.
Wie sieht denn deine
DLL und die EXE aus? (jeweils der Quellcode)
Also ich habe noch nichts eigenees gemacht sondern einfach die
dll und exe von diesem Tut genommen. Aber das geht bei mir nicht.
Die
Dll sieht so aus:
Delphi-Quellcode:
library Project1;
uses
SysUtils,
Classes;
{$R *.RES}
function addiere(zahl1, zahl2: integer): integer; stdcall;
begin
result := zahl1+zahl2;
end;
exports
addiere;
begin
end.
Und die EXE sieht so aus:
Delphi-Quellcode:
unit Unit1;
interface
type
TSummenFunktion =
function(zahl1, zahl2: integer): integer;
function addieren(zahl1, zahl2: integer): integer;
implementation
{$R *.DFM}
function addieren(zahl1, zahl2: integer): integer;
var SummenFunktion: TSummenFunktion;
Handle: THandle;
begin
Handle := LoadLibrary(PChar('
rechnen.dll'));
if Handle <> 0
then begin
@SummenFunktion := GetProcAddress(
Handle, '
addiere');
if @SummenFunktion <>
nil then begin
result := addieren(12,3);
end;
FreeLibrary(
Handle);
end;
end;
end.
Bei mir funktionierts jedenfalls nicht
