[Sharemem+DLL] String wird nicht korrekt erzeugt.

[himitsu]

ganz Ehlich, in Verbindung mit diesem Problem solltest du nicht auf die Innere Struktur eingehen (falls sich mal was ändert gibt's Progleme)

aber so als Tipp: System.PStrRec

insgesamt ist es besser/einfacher, wenn du garnicht erst versuchst solche Typen wir Strings, dynamische Arrays und Objecte über solche grenzen hinweg zu nutzen ... gibt hier zwar genug Thread, wo man mit aller gewalt sowas versucht, aber hier wären mit einem PChar viel Arbeit gespart.

[QuickAndDirty]

Zitat:

Zitat von nuclearping

Wie sieht denn so ein "Bookmarkstring" aus?

#0#0#10#111#0#0#0#23#0#0#0#0
Mit variabler länge und Inhalt

[QuickAndDirty]

Zitat:

Zitat von himitsu

ganz Ehlich, in Verbindung mit diesem Problem solltest du nicht auf die Innere Struktur eingehen (falls sich mal was ändert gibt's Progleme)

aber so als Tipp: System.PStrRec

insgesammt ist es besser/einfacher, wenn du garnicht erst versuchst solche Typen wir Strings, dynamische Arrays und Objecte über solche grenzen hinweg zu nutzen ... gibt hier zwar genug Thread, wo man mit aller gewalt sowas versucht, aber hier wären mit einem PChar viel Arbeit gespart.

Würde sharemem den normalen String in der Anwendung initialisieren, wäre das schon vollkommen ausreichend...
der Fehler geschieht ja auch wenn ich nur Sharemem eingebunden habe.

[himitsu]

die Lösung: du solltest den Speicher für die String-Variable richtig Initialisieren :warn:

Delphi-Quellcode:

GetMem(Bookmark^, sizeof(TBookmarkInfo));
FillChar(Bookmark^, sizeof(TBookmarkInfo), 0);
// oder halt gleich "New" - siehe Anhang

Das Problem ist nicht der übergebene String, sondern der nicht vorhandene, aber angeblich existierende alte String, welchen Delphi versucht freizugeben, bevor es den neuen String da reinspeichert.

und das nächste mal bitte alle Dateien zusammen anhängen ... wir müssen ja nicht mehr arbeit haben, als nötig, um da mal rein zu sehn :zwinker:

[QuickAndDirty]

Na da bin ich mal gespannt was ich da wieder falsch gemacht habe...
Danke schon mal im voraus.

[QuickAndDirty]

@himitsu :
Der angehängte Code verursacht doch die selbe Access Violation.
Wie sollte die unit denn richtiger weise aussehen?

[QuickAndDirty]

Ok, habs glaube ich, das mit new war ne gute idee.

Delphi-Quellcode:

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

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

    PBookmarkInfo(bookmark)^.BookmarkStr := testwert;
  end;
end;

Warum zum teufel geht das? und Getmem nicht?

[himitsu]

GetMem reserviert nur Speicher

New reserviert und initialisiert den Speicher

ein dynamische Arrays und Strings müssen initialisiert werden, da die Speicherverwaltung dieser Strukturen sonst falsche Daten bekommt, as zu Fehlern führt.


wenn man weiß, wie initialisert werden muß, kann man es auch selber machen.

Delphi-Quellcode:

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

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

    PBookmarkInfo(bookmark)^.BookmarkStr := testwert;
  end;
end;

[QuickAndDirty]

Also bei mir geht nur new
der andere Code schmeiß trotzt initialisierung mit fill char Fehler.


EDIT:
DOCH NICHT.

[himitsu]

hmm, eigentlich sollte beides gehn (bei mir lief Beides ... aber nur mal kurz unter D7 getestet)