DLL-Problem - Die 2.

[CalganX]

Hi,
diesmal liegt das Problem in der DLL... Die DLL sieht wie folgt aus:

Delphi-Quellcode:

library Project2;

uses
  SysUtils, Dialogs, Menus, Forms,
  Classes;

function install(Syntaxmenu: TMenuItem): boolean; export;
var
  NewItem: TMenuItem;
begin
  try
    NewItem := TMenuItem.Create(Syntaxmenu);
    NewItem.Caption := 'TEST';
    NewItem.Visible := true;
    result := true;
  except
    result := false;
  end;
end;

exports
  install;

{$R *.res}

begin
end.

Wenn ich die DLL nun lade mit:

Delphi-Quellcode:

    DLLHandle := LoadLibrary(PChar(OpenDialog2.FileName));
  if DLLHandle <> 0 then begin
    InstFuncPtr := GetProcAddress(DLLHandle,'install');
    if InstFuncPtr <> nil then begin
      @InstFunc := InstFuncPtr;
      if InstFunc(Syntaxhighlighting1) then begin
        {...}
      end;
      InstFuncPtr := nil;
    end else ShowMessage('Plugin-DLL ist Fehlerhaft');
  end;
  FreeLibrary(DLLHandle);

Dann stürzt der mit Haufenweiser Ausnahmefehlern ab... Bis ich dann alles mit den Taskmanager beenden muss...

Chris

[sakura]

Da die Delphi-Komponenten mit Ansi/Wide-Strings arbeiten, musst Du sowohl in der DLL als auch im Projekt selbst, die unit ShareMem einbinden.

Dann sollte es gehen.

[CalganX]

Hm... Jetzt kommt wieder ein AF! Aber das ist ein anderer, als zuvor.

Chris

[jbg]

Zitat von sakura:

die unit ShareMem einbinden.

Und zwar als aller erste Unit.
uses ShareMem, Windows, Messages, SysUtils, Classes, ...

[CalganX]

Hi,
supi jetzt kommt kein Error mehr...
Problem ist nur: Es wird kein Menü-Eintrag erstellt...

Chris

[CalganX]

Ups.. Lag am falschen Menü... Das Problem ist nun: Wenn ich über das Parentmenü gehe, dann kommt ein Error...

Chris