dll einbinden

[BAMatze]

Hast du denn jetzt schon eine Lösung?

Schreibe mal, wie ich das mache: Also ich habe mehrere DLL´s für Perepherie-Geräte. Da wird mir z.B. eine Funktion gegeben in der Dokumentation für das Perepherie-Gerät, die lautet:

Delphi-Quellcode:

function MMC_COM_open(portnumber,baudrate:integer):integer;

Um diese in meinem Programm einzubinden habe ich sie wie folgt deklariert:

Delphi-Quellcode:

const ExtLib = 'MMC.DLL'
..
function MMC_COM_open(portnumber,baudrate:integer):integer;
            stdcall external ExtLib;

In deiner Unit kannst du sie dann ganz normal verwenden:

Delphi-Quellcode:

...
procedure Beispiel;
var iWert: integer;
begin
  // tue etwas
  iWert := function MMC_COM_open(1,9600);
  // tue weiteres
end;

gleiche Vorgehensweise nimmst du, wenn es sich nicht um Übergabewerte handelt, die den Typ Integer haben. Wenn du strings übergeben musst, kann es sein, dass du diese in PAnsiChar umcasten musst. Hier noch ein Bsp., wie ich eine Function einer DLL benutze, bei der ich dieses Umcasten verwenden muss:

Delphi-Quellcode:

MMC_sendCommand(PAnsiChar('SV'+inttostr(iGeschwindigkeit)));

[youuu]

hab es nun hinbekommen. Allerdings wenn ich nun mein Programm beende bekomme ich komischerweise diesen Fehler:

Siehe Anhang :)

[mkinzler]

Wie sieht dein Code nun aus?

[youuu]

hmm Problem scheint behoben, ich habe aus der DLL in uses einfach ShareMem gelöscht und habe es somit nur noch im Hauptprogramm stehen, seit dem tritt der Fehler nicht mehr auf.


War es ein Fehler ShareMem in die DLL zuschreiben?

[youuu]

Zitat:

Zitat von mkinzler

Wie sieht dein Code nun aus?

genauso wie davor ich habe nur eine kleineigkeit entdeckt die den Fehler auslöste und zwar:

DLL

Delphi-Quellcode:

function NFak(Val: Integer): INT64; stdcall;
begin
  if Val < 0 then
    raise Exception.Create('Val muss größer/gleich 0 sein.');
  if Val = 0 then
    Val := 1;
  Result := 1;
  repeat
      Begin
        Result := Result * Val;
        Dec(Val)
      End;
  until Val <= 1;
end;

Programm

Delphi-Quellcode:

function NFak(Val: Integer): INT64; external DLL; stdcall;

stdcall stand nicht an der gleichen Stelle wie in der DLL dies hat wohl den Fehler verursacht, als ich es geändert habe ging es.

[jaenicke]

Die Dateianhänge als Bitmap zu speichern ist keine gute Idee, wie wäre es mit .png oder meinetwegen auch .jpg? So sind die fast 3 MiB groß...

Wenn du mit Strings als Parameter oder Rückgabewert arbeitest, dann musst du gezwungenermaßen in DLL und Projekt (nicht Unit!) an erster Stelle ShareMem stehen haben.

[Luckie]

Zitat:

Zitat von youuu

Siehe Anhang :)

Ähm, du hast fast zwei drei MB große Dteien angehangen. Spätestens beim Upload hätte dir auffallen sollen, dass dies Bitmap nicht unbedingt das optimale Format ist. :roll:

[youuu]

Zitat:

Zitat von Luckie

Zitat:

Zitat von youuu

Siehe Anhang :)

Ähm, du hast fast zwei drei MB große Dteien angehangen. Spätestens beim Upload hätte dir auffallen sollen, dass dies Bitmap nicht unbedingt das optimale Format ist. :roll:

hab es ausversehen vergessen in jpg zu konverten :/ aber upload ging in 10 sek hab 16k leitung da merkt man nicht viel ^^