DLL + forms = problemer ???

1) Hvordan kalder du din DLL? Skriv venligst kildekoden? Har du husket StdCall?

2) Application.terminate eller close skal helst ikke bruges - benyt hellere self.close. og husk at brug Action := caFree ved Form.Onclose

3) jeg bør nævne at nedenstående er direkte en kopi af Borrisholt kildekode og altså ikke noget jeg selv har fundet ud af...

Jeg kalder en DLL på følgende måde - det der løste problemet for mig var "DLL_PROCESS_DETACH"


//==============================================

library BlandeAnlaegDLL;


uses
  SysUtils,
  Classes,
  Forms,
  Windows,
  activeX,
  BlandeAnlgsData_Unit in 'BlandeAnlgsData_Unit.pas' {Form10},
  DatoTimePicker in 'DatoTimePicker.pas' {Form2},
  Unit2 in 'Unit2.pas' {Form3};

var
  DllApplication : TApplication;
{$R *.RES}

function BlandeAnlaegDLLForm(ParentApplication:TApplication;ParentForm:TForm;var FileNameStringSaveAs :shortstring;var TestCompiling:boolean): integer; stdcall;
begin
  Application := ParentApplication;
  coinitialize(nil);
  Form10 := TForm10.Create(ParentForm);
  form10.FileNameStringSaveAs2 := FileNameStringSaveAs;
  SetCurrentDir(FileNameStringSaveAs);
  form10.TestCompiling := TestCompiling;
  Form10.Showmodal;
  Result := 1;
  //Result := Form1.Heltal;
  Form10.free;
end;


procedure DLLUnloadProc(Reason: Integer); register;
begin
  if Reason = DLL_PROCESS_DETACH then
    Application := DllApplication;
end;


exports
  BlandeAnlaegDLLForm;

begin
DllApplication := Application;
DLLProc := @DLLUnloadProc;
end.

HEJ

Tak for svaret.

Det sjove er: En nat jeg ikke kunne sove stod jeg op og startede PC'en. efter et par Solitaire (7-kabalen) fik jeg lyst til at arbejde lidt med Delphi og DLL-problemet. Oprettede en DLL (FILE - NEW- Other -> OSV), lagde en ny form ind, lagde en enkelt funktion (showform)
..
Form1 := TForm1.create(nil);
(*  her kom koden da det virkede *)
Form1.showModal;
Form1.Free;
..

Kompilerede og kørte. Og det virkede uden nogen form for problemer. (Altså INGEn 213, 217 eller noget som helst...)

(Så fik jeg blod på tanden) ... 

da jeg endelig lagde mig igen (06:30) havde jeg en MAIN form med 4 buttons (som hver kaldte sin DLL med en database åbning i hver DLL (samme base i alle 4 DLL'er (for at teste ));

Åbnede og lukkede de 4 DLL'er uafhængigt af hinanden, testede oppe og nede --> Men uanset hvad jeg end gjorde så virkede det --
INGEN FEJL - ingen 213' ingen 217, ingen fejl overhovedet - og det bedste -  heller ikke når jeg lukkede programmet OG delphi...

Så egentlig har jeg løst det selv, men din kode / Borrisholts indeholder noget jeg kan bruge i anden sammenhæng, så jeg vi synes at den kode er 30 point værd - ikke ??

IF Answer = 'JA' then
  Drop_et_svar('ja');

Kristian

Kr

PS: I den nye kode bruger jeg ikke Appl--.Terminate;
kun Close, men måske skal jeg anvende


procedure DLLUnloadProc(Reason: Integer); register;
begin
  if Reason = DLL_PROCESS_DETACH then
    Application := DllApplication;
end;

Vil prøve det senere (i nat kan jeg nemlig godt sove

ZZZZZZZZ  (hehe)  )

KR

svar ;-)