Fehler beim Benutzen von DLL Procedure

[Lucifer]

Hallo.



Ich habe ein Problem wenn ich eine Procedure benutze welche ich in einer DLL eingetragen habe.
Wenn ich die Procedure in der Unit des Programms deklariere und definiere dann funktioniert alles problemlos.

Wenn ich sie aber über eine DLL benutze bekomme ich eine Fehlermeldung.

das ist die DLL

Delphi-Quellcode:

library map;

{ 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,
  Grids,
  StdCtrls,
  Classes;

{$R *.res}

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
  f:          TextFile;
  iTmp, i, k: Integer;
  strTemp:    String;
begin
  AssignFile(f, FileName);
  Reset(f);
  with StringGrid do
  begin
    // Get number of columns
    Readln(f, iTmp);
    ColCount := iTmp;
    // Get number of rows
    Readln(f, iTmp);
    RowCount := iTmp;
    // loop through cells & fill in values
    for i := 0 to ColCount - 1 do
      for k := 0 to RowCount - 1 do
      begin
        Readln(f, strTemp);
        Cells[i, k] := strTemp;
      end;
  end;
  CloseFile(f);
end;


exports
  LoadStringGrid;

begin

end.

und ich benutz sie so:

Delphi-Quellcode:

...

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
external 'map.dll'

...

LoadStringGrid(frmMapMv.sgMap, land+'.mp');

in land steht nur welche datei geladen werden muss.

Die Fehlermeldung ist

Zitat:

Invalid Pointer Operation

Im Attachment liegen Bilder zu den Errors

[Jakob Ullmann]

Setze mal statt

Delphi-Quellcode:

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);

->

Delphi-Quellcode:

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName); stdcall;

und

Delphi-Quellcode:

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName); external 'map.dll'

->

Delphi-Quellcode:

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName); stdcall; external 'map.dll';

[Die Muhkuh]

Ein Problem dürfte auch sein, dass TFileName ein String ist. Siehe dazu den Kommentar in der DLL

[DeddyH]

Ich verstehe nicht, wieso den Kommentar nie jemand liest, schließlich schreibt Borland/CodeGear/Dingsdatorero den ja nicht umsonst rein *koppschüttel*.

[Die Muhkuh]

Vielleicht wusste der TE nicht, dass TFileName im Endeffekt ein String ist.

[Lucifer]

Die erste Variante mit stdcall hatt nicht geklappt

Dann zur ShareMem:

Wenn ich sie benutze dann kann ich zwar die Dateien laden, aber es kommt dauern nach beenden des Programms

Zitat:

Runtime Error 217 at 00413CB8

Wie ich dass dann mit TFileName ändern kann weis ich nicht.

[Die Muhkuh]

Verwende PChars anstatt Strings

[DeddyH]

Zitat:

To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters.

Das steht da oben.

[hoika]

Hallo,

hast du denn nun ShareMem als erstes in Dll UND Programm eingebunden ?

Cells[] eines StringGrids ist ja auch vom Typ String


Heiko

[mirage228]

Alternativ auch WideString. Damit hast du -quasi- die selbe Funktionalität wie bei strings ohne die Einschränkung mit ShareMem u.dgl. :)

mfG
mirage228

[Lucifer]

ja ich hab ShareMem als erste Unit in beiden drin.
Kommt trotzdem Pointer Error aber diesmal NUR wenn ich Programm schliesse.

Und ohne ShareMem:

also das mit PChar und WideString muss dann so aussehen:?

land ist ein string.

Delphi-Quellcode:

LoadStringGrid(frmMapMv.sgMap,WideString(land+'.mp'));

Delphi-Quellcode:

LoadStringGrid(frmMapMv.sgMap,PChar(land+'.mp'));

[DeddyH]

Außerdem ist es in "normalen" DLLs IIRC nicht möglich, VCL-Objekte zu übergeben.

[Lucifer]

Wie soll ich dann am Besten solche Proceduren einbinden?
Möchte nicht unbedingt danach die Main Unit voll mit Proceduren haben.

[Die Muhkuh]

Lag es doch in eine andere Unit aus. Muss ja keine DLL sein für sowas.

[Lucifer]

och wie blöd
Danke das wäre wohl echt das Einfachste und Unumständlichste.

Hätte mir dieses ganze Problem erspart.

Vielen Dank