delphi kan ikke finde dll hjælp

jeg kan godt smide koden op hvis det hjælper!!!

det kommer jo an på hvordan du loader din dll fil.

procedure Reset; external '..\En mappe\PDL.dll';

Eller med loadlibary.

smid din kode op ja tak

ok 2 sek

det her er dll'en


library PenniesLib;
{$DEFINE PENNIESLIB}




uses
  SysUtils,
  Classes,
  PenniesInt in '..\opgave 9.2\PenniesInt.pas';

//PenniesInt;

  function PenniesToCoins (TotPennies:word;
          CoinsRec: PCoinsRec): word; StdCall;
  begin
  Result := TotPennies; // Assign Value to Result
  { Calculate the Values for quarters, dimes, nickels, pennies}
  with CoinsRec^ do
  begin
    Quarters := TotPennies div 25;
    Dimes  := TotPennies div 10;
    TotPennies := TotPennies - Dimes * 10;
    Nickels    := TotPennies div 5;
    TotPennies := TotPennies - Nickels *5;
    Pennies    := TotPennies;
  end;
end;

{Export the function by name}
exports
  PenniesToCoins;
end.

det her er hoved aplicationen!!!.



unit MainForm;

interface

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

type
  TForm1 = class(TForm)
    lblTotal: TLabel;
    lblPennies: TLabel;
    lblNickels: TLabel;
    lblDimes: TLabel;
    lblquarters: TLabel;
    lblplbl: TLabel;
    lblnlbl: TLabel;
    lbldlbl: TLabel;
    lblqlbl: TLabel;
    btnMakeChange: TButton;
    meTotalPennies: TMaskEdit;
    procedure btnMakeChangeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
PenniesInt; // use an interfase unit


{$R *.DFM}

procedure TForm1.btnMakeChangeClick(Sender: TObject);
var
coinsRec:TCoinsRec;
TotPennies: word;
begin
TotPennies := PenniesToCoins(StrToInt(meTotalPennies.text),@CoinsRec);
with CoinsRec do
begin
lblQuarters.caption := IntToStr(quarters);
lblDimes.caption := IntToStr (Dimes);
lblNickels.caption:= IntToStr (Nickels);
lblPennies.caption:= IntToStr (Pennies);
end
end;

end.

og det er den 3 mappe!


unit PenniesInt;
{ Interface routine for PENNIES.DLL}

interface
type
{this record will hold the deminations after the converssions have
been made}

PCoinsRec = ^TCoinsRec;
TcoinsRec= record
quarters,
Dimes,
Nickels,
Pennies: word;
end;

{$IFNDEF PENNIESLIB}
{ Declare function with export keyword}

function PenniesToCoins (TotPennies: word;
CoinsRec : PCoinsRec): word;StdCall;
{$ENDIF}

implementation
{$IFNDEF PENNIESLIB}
{Define the import function }
function PenniesToCoins; external 'PENNIESLIB.DLL' name 'PenniesToCoins';
{$ENDIF}
end.

ok, hvad sker der i "PenniesInt" ?

yep der var den...

har du fundet fejlen!!!

det er vel ikke her fejlen er ...


implementation
{$IFNDEF PENNIESLIB}
{Define the import function }
function PenniesToCoins; external 'PENNIESLIB.DLL' name 'PenniesToCoins';
{$ENDIF}
end.

hvis jeg forstår dig rigtig er det denne linie du skal tilpasse din mappe:

function PenniesToCoins; external 'PENNIESLIB.DLL' name 'PenniesToCoins';

hvis dll'en ikke ligger i samme mappe som din exe, eller windows/system32 vil du i dette tilfælde få problemer.

skal nok være noget lign:

function PenniesToCoins; external '.\Mappe2\PENNIESLIB.DLL' name 'PenniesToCoins';

jeg prøver lige

jeg har været inde og redigere den til.

implementation
{$IFNDEF PENNIESLIB}
{Define the import function }
function PenniesToCoins; external '..\opgave 9.1\PenniesLib.dll' name 'PenniesToCoins';
{$ENDIF}
end.
   


men den melder samme fejl

Kan du ikke vise mig din mappe struktur?

MainMappe
--Mappe1    - Exe file
--Mappe2    - Dll fil...

duuuuuuuuuuuuuuuuutttttttttttt. soryyyy.
Det fordi jeg skal  compile aplicationen som ligger i mappe 9.5 først så virker det...

okay nice nok

tussind tak for hjælpen, men kan du ikke skrive et eller andet som svar !
så du kan få poinne .... :)

var så lidt.

Svar

Tussind tak!!!!!!