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

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

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

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

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