program StringTester;

uses
  sharemem,
  Forms,
  Stringtest in 'Stringtest.pas' {Testform};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TTestform, Testform);
  Application.Run;
end.

unit Stringtest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  PBookmarkInfo = ^TBookmarkInfo;
  TBookmarkInfo = Record
    RecordID : Integer;
    BookmarkStr : String;
  end;

  PRecordInfo = ^TRecordInfo;
  TRecordInfo = record
    RecordIDStr: String;//Alternativ wenn Recno nicht unterstützt wird.
    RecordID: Pointer;
    BookmarkStr:String;//Alternativ wenn Recno nicht unterstützt wird.
    Bookmark: Pointer;

  end;

  TGetString = Function :String;

  TTestform = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


Const Datasize :integer = 100;//Einfach mal so als ersatz für GetDatasize

var
  Testform: TTestform;
  Buffer : Pointer;
  GetString : TGetString;
  lib:cardinal;

implementation

{$R *.dfm}

procedure TTestform.Button1Click(Sender: TObject);
Var testwert : string;
begin

  testwert := GetString; //String aus DLL!!!!!! über sharemem geholt
  //testwert := #1#2#3#4#5#6; //<-- dieser code geht auch nicht

  getmem(Buffer,Datasize + sizeof(TRecordInfo));
  Fillchar(Buffer^,Datasize + sizeof(TRecordInfo), #0);
  With PRecordInfo(Pointer(integer(Buffer) + Datasize))^ do
  begin
    GetMem(Bookmark , sizeof(TBookmarkInfo) );

    PBookmarkInfo(bookmark)^.BookmarkStr := testwert; //<---hier passiert eine
                                                      // Zugriffsverletzung,
                                                      
  end;
end;

procedure TTestform.FormCreate(Sender: TObject);
begin
  lib := Loadlibrary('Stringtestdll');
  @GetString := getProcAddress(lib,'GetString');
end;

procedure TTestform.FormDestroy(Sender: TObject);
begin
  FreeLibrary(lib);
end;

end.

library Stringtestdll;

{ Wichtiger Hinweis zur DLL-Speicherverwaltung: ShareMem muss sich in der
  ersten Unit der unit-Klausel der Bibliothek und des Projekts befinden (Projekt-
  Quelltext anzeigen), falls die DLL Prozeduren oder Funktionen exportiert, die
  Strings als Parameter oder Funktionsergebnisse übergeben. Das gilt für alle
  Strings, die von oder an die DLL übergeben werden -- sogar für diejenigen, die
  sich in Records und Klassen befinden. Sharemem ist die Schnittstellen-Unit zur
  Verwaltungs-DLL für gemeinsame Speicherzugriffe, BORLNDMM.DLL.
  Um die Verwendung von BORLNDMM.DLL zu vermeiden, können Sie String-
  Informationen als PChar- oder ShortString-Parameter übergeben. }
  

uses
  sharemem,
  SysUtils,
  Classes;

{$R *.res}

Function GetString : String;
Begin
  result := #6#2#3#4#5#6;
end;

Exports
  GetString;

begin
end.