Har 'unit' skal bruge 'library'

Dit spørgsmål giver ikke mening. Derfor har du ingen svar fået på det !

Hvis du vil have en DLL fil skal du vælge det under New projekt.

Forskellen (mend projektet er i Delphi) er at DPR filen startet med "library" og ikke med "program". Hvis du har en unit du ønsker at bruge i Din DLL fil skal du bare use den på samme måde som i en Exe fil !

Jens B

Tak for svaret, Jens. Det som jeg ikke lige fik nævnt er, at det er reverse engineering. Derfor har jeg selv siddet og rodet med det. Og jeg tror faktisk at det endte med at være nogenlunde.

{ Code start }

library ACSDLL;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  Classes,
  Windows,
  Inifiles,
  ComObj,
  ActiveX,
  Dialogs; // Not nessesary at this point, but required for userdialogs

{$R *.res}

const // Global Constants - All used for MS Access interaction
  acViewNormal  = $00000000;
  acViewDesign  = $00000001;
  acViewPreview  = $00000002;
  acAdd          = $00000000;
  acEdit        = $00000001;
  acReadOnly    = $00000002;
  acWindowNormal = $00000000;
  acHidden      = $00000001;
  acIcon        = $00000002;
  acDialog      = $00000003;
 
var // Global Variables
  Nix, Access: Variant; // Access variable is the MS Access Database
  FormName, DB, FFilePath: string;

function Init(var S: PChar): Integer; export;
var IniFile : TIniFile;
    buffer  : array [0..255] of char;
    S1      : string;

begin
  CoInitialize(nil);
  GetWindowsDirectory(buffer,SizeOf(buffer));
  S      := 'Vis alle i Access';
  S1      := string(buffer)+'\ACS4000.ini';
  IniFile := TIniFile.Create(S1);
  with IniFile do
  begin
    FormName := ReadString('DLL','FormName','Hovedvindue');
    DB      := ReadString('DLL','Database','C:\ACSTEST\TEST_DAB.mdb');
    Free;
  end; // With
  try
    { open the Access application }
    Access := GetActiveOleObject('Access.Application');
  except
    Access := CreateOleObject('Access.Application');
  end; // Try
  Access.Visible := True;
  try
    { open the database
      The second parameter specifies whether you want to open the
      database in Exclusive mode }
    Access.OpenCurrentDatabase(DB, False);
    { open the form
      The value for the second parameter should be one of acViewDesign,
      acViewNormal, or acViewPreview. acViewNormal, which is the default }
    Access.DoCmd.OpenForm(FormName, acViewNormal, Nix, Nix, acEdit, acWindowNormal, Nix);
    Result := 0;
  except
    Result := -1;
  end; // Try
end; // function Init

function Done: Integer; export;
begin
  OleUninitialize;
  Result := 0;
end; // function Done

function FindCustomer(Navn: PChar): Integer; export;
var S : string;
    V : Integer;
    C : Int64;

begin
  S := string(Navn);
  Val(S,C,V);
  if V = 0 then
  begin
    S := Format('([Telefon] = ''%d'') OR ',[C]);  //OR
    S := S + Format('([Primær nummerserie fra] <= ''%d'' AND [Primær nummerserie til] >= ''%d'')',[C,C]);
    S := S + Format(' OR ([Sekundær nummerserie fra] <= ''%d'' AND [Sekundær nummerserie til] >= ''%d'')',[C,C]);
    Access.DoCmd.OpenForm(FormName,acViewNormal,Nix,S,acEdit,acWindowNormal,Nix);
    Result := 0;
  end // If
  else
    Result :=-1;
  end; // function FindCustomer

function DLLUserCmd(S: PChar): Integer; export;
begin
  Access.DoCmd.ShowAllRecords;
  Result := 0;
end; // function DLLUserCmd

exports Init;
exports Done;
exports FindCustomer;
exports DLLUserCmd;

begin

end. // library TestDLL

{ Code end }

Yep nemlig, og hvis du ville bruge nogle funktioner fra en unit, skal du blot use den

Jeg har dog stadig lige et spørgsmål vedrørende 'string' i forhold til 'PChar'. Det er vist ikke så godt med 'string'. Kan jeg i dette tilfælde bare udskifte uden problemer? Det samme gør sig sådan set gældende for 'val' og 'en-anden-jeg-ikke-lige-kan-huske'

Du kan bare bruge Stenge blot du følger de anvisninger der er i toppen af din fil. Ellers brug ShortString, eller Pchar. Og ja det skulle ikke betyde noget

Et andet spørgsmål der har givet mig rigtig mange kvaler. Denne DLL skal erstatte en eksisterende DLL i et program. Der er også et ønske om et brugerinterface. En af mine 'S' variabler skal trigge et spørgsmål til brugeren. Eksempelvis: 'Vil du se denne bruger i Access? (Y/N). Problemet er at al arbejde skal foregå i Dll'en. Mener du det vil være meget svært? Jeg tror det må være noget med at Init kalder en function, der prompter brugeren (funtion UserPropt), og returnerer en 'boolean' (eller lignende) til Init. function UserPrompt skal så kalde en 'Messagebox' rutine. Er dette helt skævt?

Fik udskiftet alle 'string' med 'ShortString' og den compiler uden problemer. Tak for det.