PChar-Übergabe aus DLL - Satzendezeichen #0 stört

[s-off]

Hallo zusammen,

ich habe mich an diesem Beispiel orientiert, um die Kommunikation Anwendung <-> DLL zu steuern.
Es geht darum, Ressourcen aus einer DLL zu holen.

Das Ganze funktioniert auch wunderbar, bis das Stringende-Zeichen, also #0, im String auftaucht. Das Problem sollte bekannt sein. Leider funktioniert die von Luckie genannte Lösung bei mir nicht so wie erwartet, soll heissen, dass der Inhalt der Ressource nur bis zum Satzende-Zeichen geladen wird.

Hier der Code:
DLL

Delphi-Quellcode:

Function GetRessource(Res: String; PResult: PChar; PResultLength: Integer): Integer;
Var
   s: String;
Begin
   Result := 0;
   s := '';

   With TResourceStream.Create(HInstance, Res, RT_RCDATA) Do
   Try
      SetLength(s, Size);
      Read(s[1], Size);
   Finally
      Free;
   End;

   If Assigned(PResult) Then Begin
      StrLCopy(PResult, PChar(s), PResultLength);
   End;

   Result := Length(s);
End;

Hauptprogramm:

Delphi-Quellcode:

Type
   TGetRessource = Function(Res: String; PResult: PChar; PResultLength: Integer): Integer;

   TfrmMain = Class(TForm)
      Button1: TButton;
      Procedure Button1Click(Sender: TObject);
      Procedure FormCreate(Sender: TObject);
      Procedure FormDestroy(Sender: TObject);
   private
      DLLHandle: Integer;
      PGetRessource: TGetRessource;
   End;

Procedure TfrmMain.Button1Click(Sender: TObject);
Var
   PRes: PChar;
   PResLength: Integer;
Begin
   PRes := Nil;
   PResLength := 0;

   PResLength := PGetResByName('meine_ressource', Nil, 0);
   GetMem(PRes, PResLength + 1);
   PResLength := PGetResByName('meine_ressource', PRes, PResLength + 1);
End;

Procedure TfrmMain.FormCreate(Sender: TObject);
Begin
   Try
      DLLHandle := LoadLibrary(pchar('Ressource.dll'));
      If (DLLHandle <> 0) Then Begin

         @PGetRessource := GetProcAddress(DLLHandle, PChar('GetRessource'));
      End Else
         Raise Exception.CreateFmt('Ressource.dll not found', []);
   Except
      Raise;
   End;
End;

Procedure TfrmMain.FormDestroy(Sender: TObject);
Begin
   FreeLibrary(DLLHandle);
End;

Wäre nett, würde mir jemand auf die Sprünge helfen.

[Luckie]

Hm, warum so kompliziert? Lad doch die Ressource direkt mit der Exe aus der DLL. Als HInstance gibst du das Modul-Handle der DLL an, welches du mit GetModuleHandle ermitteln kannst.

Und ein Stringende-Zeichen ist nun mal ein Stringende-Zeichen.

[s-off]

Zitat von Luckie:

Hm, warum so kompliziert? Lad doch die Ressource direkt mit der Exe aus der DLL. Als HInstance gibst du das Modul-Handle der DLL an, welches du mit GetModuleHandle ermitteln kannst.

Ist so angefordert und funktioniert ja prinzipiell auch.

Zitat von Luckie:

Und ein Stringende-Zeichen ist nun mal ein Stringende-Zeichen.

Ja, das ist wohl war. Allerdings habe ich die Aussagen von Dir und Mütze so interpretiert, als sei es möglich, dieses Problem zu umgehen.

Gibt es da denn gar keine Möglichkeit, den kompletten String rüber zu bekommen?

[s-off]

Da es keine Lösung zu geben scheint, gebe ich nun einfach eine Instanz eines TMemoryStream zurück. Das funktioniert und ich hoffe, dass damit keine Probleme auftauchen

Danke trotzdem.

[Bernhard Geyer]

Zitat von s-off:

Da es keine Lösung zu geben scheint, gebe ich nun einfach eine Instanz eines TMemoryStream zurück. Das funktioniert und ich hoffe, dass damit keine Probleme auftauchen

Verwendest du gemeinsame Laufzeitpackages? Falles Nein, wirst du mit dieser Lösung über Kurz oder Lang Probleme haben (Ohne gemeinsame Laufzeitpackages ist Exe.TObject <> Dll.TObject).

[SirThornberry]

ich würde sagen es liegt an der Funktion StrLCopy, verwende doch einfach move wenn du alles kopieren willst. Denn StrLCopy kopiert (wenn ich mich nicht irre) alles bis zu #0 außer wenn vorher die Länge erreicht wurde.

Zudem hast du da einen Fehler in deiner Funktion der nur durch den richtigen Aufruf funktioniert.

Delphi-Quellcode:

If Assigned(PResult) Then Begin 
   StrLCopy(PResult, PChar(s), PResultLength); 
End;

Als länge übergibst du PResultLength. Was ist aber wenn PResultLength mal größer ist als die Länge von s? In deinem Fall klappts weil du vorher die exakte Länge ermittelst. Wenn man aber einfach pauschal mehr Speicher reserviert und diese Größe reingibt ist das nicht so gut weil du dann im schlimmsten Fall mehr kopieren wölltest als es zu kopieren gibt und somit auch versuchst speicher zu kopieren auf den du eventuell gar keinen Zugriff hast.