AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi UpdateResource/TResourceStream Probleme mit Delphi 2009
Thema durchsuchen
Ansicht
Themen-Optionen

UpdateResource/TResourceStream Probleme mit Delphi 2009

Ein Thema von BlueStarHH · begonnen am 20. Aug 2009 · letzter Beitrag vom 20. Aug 2009
Antwort Antwort
BlueStarHH

Registriert seit: 28. Mär 2005
Ort: Hamburg
848 Beiträge
 
Delphi 11 Alexandria
 
#1

UpdateResource/TResourceStream Probleme mit Delphi 2009

  Alt 20. Aug 2009, 15:40
Hallo,

die nachfolgenden Funktionen habe ich mit einem Delphi 5 Projekt problemlos genutzt. Damit kann man Strings als Resource in eine EXE schreiben und wieder auslesen. Beim Auslesen ist der ausgelesene String nur halb so lang wie das Original. Wie kann man das lösen?

Delphi-Quellcode:
function LoadStrFromResDef(const ResName, Default: string): string;
var
  ResStream: TResourceStream;
begin
  if FindResource(HInstance, PChar(AnsiUpperCase(ResName)), RT_STRING) = 0 then
    Result := Default
  else
  begin

    ResStream := TResourceStream.Create(HInstance, AnsiUpperCase(ResName), RT_STRING);
    try
      SetLength(Result, ResStream.Size);
      ResStream.ReadBuffer(Result[1], ResStream.Size);
    finally
      ResStream.Free
    end;
  end;
end;

function SaveStrToRes(const FileName: string; Data: TStringList): Boolean;

  procedure SplitKeyValue(const s: string; out Key, Value: string; Separator: string = '=');
  var
    P: Integer;
  begin
    P := Pos(Separator, s);
    if P < 1 then
    begin
      Key := s;
      Value := '';
    end
    else
    begin
      Key := Copy(s, 1, P - 1);
      Value := Copy(s, P + Length(Separator), Length(s));
    end;

  end;

var
  hInst: Cardinal;
  Key, Value: string;
  i: Integer;
begin
  Result := False;
  if FileExists(FileName) and (Data.Count > 0) then
  begin
    hInst := BeginUpdateResource(PChar(FileName), False);
    if hInst > 0 then
      try
        for i := 0 to Data.Count - 1 do
        begin
          SplitKeyValue(Data[i], Key, Value);
          Result := UpdateResource(hInst, RT_STRING, PChar(AnsiUpperCase(Key)), LANG_NEUTRAL, @Value[1], Length(Value)) and Result;

          //if not result then
          // showmessage(IntToStr(GetLastError));
        end;

      finally
        EndUpdateResource(hInst, False);
      end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Strings: TStringList;
begin

  Strings := TStringList.Create;
  try
    Strings.Add('Key1=Value1');
    Strings.Add('Key2=Value2');
    SaveStrToRes('Bsp.exe', Strings)
  finally
    Strings.Free;
  end;
end;

Und in der Bsp.exe
Caption := LoadStrFromResDef('Key1', 'DEF');
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.993 Beiträge
 
Delphi 12 Athens
 
#2

Re: UpdateResource/TResourceStream Probleme mit Delphi 2009

  Alt 20. Aug 2009, 15:45
In D2009 ist String ein UnicodeString

und demnach doppelt so lang, wie seine Längenangabe ... dieses mußt du natürlich anpassen

beim Scheiben * Length(S) * SizeOf(Char)
und beim Lesen * SetLength(S, DataSize div SizeOf(Char));
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
BlueStarHH

Registriert seit: 28. Mär 2005
Ort: Hamburg
848 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: UpdateResource/TResourceStream Probleme mit Delphi 2009

  Alt 20. Aug 2009, 16:05
OK, danke. Ist es nicht besser man schreibt

Delphi-Quellcode:
var
  s: string
begin
 Length(S) * SizeOf(s[1])
...
statt

Length(S) * SizeOf(Char) Bei der ersten Lösung hat man dann die richtige Größe auch wenn sich der Typ von s mal ändern sollte. Kann ich denn auch SizeOf(s[1]) schreiben, wenn s leer ist? Eigenlich müsste das doch eine Schutzverletzung geben, da es kein erstes Element gibt? Läuft aber ohne Probleme.
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: UpdateResource/TResourceStream Probleme mit Delphi 2009

  Alt 20. Aug 2009, 16:09
SizeOf muss den übergebenen Ausdruck nicht auswerten, sondern nur dessen Typ ermitteln. Und der Compiler weiß eben, dass s[x] immer ein Char ist.
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz