Dll implementation

[ghost007]

Hallo,
ich hab nun lange nicht mehr mit dlls geatbeitet und bin nun dabei eine neue zu erstellen.
Nur will die irgendwie nicht wie ich will.
Folgender code:

Delphi-Quellcode:

library Project1;

uses
  ShareMem,
  SysUtils,
  Classes;

type
  TMyRec = record
  x : integer;
  y : integer;
  title  : String;
end;

function GetKoord(x,y:integer;title:string):string; stdcall;

implementation

begin

function GetLang(x,y:integer;title:string):string;
 begin
  result:='test';
 end;

end.

Liefert mir folgende Fehlermeldung:

Zitat von Delphi 7:

';' expected but 'IMPLEMENTATION' found

was mach ich falsch ?

MfG - Ghost007

[STS301]

versuche es einmal so:

Delphi-Quellcode:

library Project1;

uses
  ShareMem,
  SysUtils,
  Classes;
{$R *.RES}
type
  TMyRec = record
  x : integer;
  y : integer;
  title  : String;
end;

implementation

function GetLang(x,y:integer;title:string):string; stdcall;
begin
  result:='test';
end;

begin

end.

[DelphiKlaus]

Hey,

wenn ich das richtig in Erinnerung habe, kommt das Schlüsselwort implementation nur bei Units vor. Bei Libraries machts ja auch keinen Sinn. Aber in einer Library sollten die zu exportierenden Funktionen gekennzeichnet sein.

MfG

Klaus

[DenSchub]

Einfach ohne "implementation", dann geht das:

Delphi-Quellcode:

library Project1;

uses
  ShareMem,
  SysUtils,
  Classes;
{$R *.RES}
type
  TMyRec = record
  x : integer;
  y : integer;
  title  : String;
end;


function GetLang(x,y:integer;title:string):string; stdcall;
begin
  result:='test';
end;

begin

end.

[ghost007]

jup, geht.

//EDIT:
Nur wenn ich die dll wie folgt in ein projekt einbinde:
function GetLang(form,lang,control:string):string; stdcall; external 'Projekt1.dll'; Dann passiert noch nichts. (Beim kompilieren)
Verwende ich die funktion jedoch z.b. wie folgt:
ShowMessage(GetLang(1,2,'bla')); Dann sagt er mir, gleich beim kompilieren:

Zitat von Delphi 7:

Die Abwendung konnte nicht richtig initialisiert werden (0xc000007b).

[wido]

Wenn Du den Code oben übernommen hast, dann fehlt Dir eine wichtige Kleinigkeit: Du hast keine Funktionen exportiert. Probier es mal so:

Delphi-Quellcode:

library Project1; 

uses 
  ShareMem, 
  SysUtils, 
  Classes;
 
{$R *.RES}
 
type 
  TMyRec = record 
  x : integer; 
  y : integer; 
  title  : String; 
end; 

function GetLang(x,y:integer;title:string):string; stdcall; 
begin 
  result:='test'; 
end; 

// Liste der exportierten Funktionen durch , getrennt: exports Funktion1, Funktion2, ... ;
exports GetLang;

begin 
end.

Die Funktion wirst Du übrigens ausschließlich in Delphi Anwendungen nutzen können, weil Du ausschließlich Strings benutzt. Damit zerstörst Du sämtliche Kompatibilität. Denk auch daran ebenfalls in Deiner Anwendung ShareMem als ERSTE Unit vor allen anderen Units einzubinden und die BORLNDMM.DLL mit Deiner Anwendung und DLL auszuliefern.

Alternativ kann ich Dir auch gerne erklären, wie Du ohne das BORLNDMM.DLL und ShareMem Geraffel aus kommst und deine DLL auch kompatibel zu anderen Programmiersprachen gestaltest.

[ghost007]

Zitat von wido:

Alternativ kann ich Dir auch gerne erklären, wie Du ohne das BORLNDMM.DLL und ShareMem Geraffel aus kommst und deine DLL auch kompatibel zu anderen Programmiersprachen gestaltest.

Hi,
die kompatibilität brauch ich nicht, da diese dll zu 100% nur von mir verwendet wird. Aber das angebot mit dem "Geraffel" nehm ich liebend gern an.

MfG - Ghost007

//EDIT: das mit dem exports wars ... wie konnte ich das nur vergessen

[wido]

Zitat von ghost007:

die kompatibilität brauch ich nicht, da diese dll zu 100% nur von mir verwendet wird. Aber das angebot mit dem "Geraffel" nehm ich liebend gern an.

Naja, wieso erstellst Du überhaupt ne DLL und packst die Funktionen nicht einfach in ne stink normale Unit, wenn eh nur Du die Sachen verwenden willst?

[ghost007]

Zitat von wido:

Zitat von ghost007:

die kompatibilität brauch ich nicht, da diese dll zu 100% nur von mir verwendet wird. Aber das angebot mit dem "Geraffel" nehm ich liebend gern an.

Naja, wieso erstellst Du überhaupt ne DLL und packst die Funktionen nicht einfach in ne stink normale Unit, wenn eh nur Du die Sachen verwenden willst?

hm,
das ist eigentlich ne gute frage ... bin mir mal gedanken da drüber machen. Meld mich nochmal wenn ich die dll doch haben will ^^

Danke

[STS301]

für Updates sind die .dlls handlicher als die eingebundenen Units