Problem bei Resource und Unicode

[OttoFragt]

Hallo Delphi Praxis

Ich versuche mit einem Programm einen String in ein anderes zu schreiben um diesen dannach wieder auszulesen.
Hier der Code bisher:

Damit schreibe ich die Daten in die Datei:

Code:

Function WriteResData(sServerFile: string; pFile: pointer; Size: integer; Name: String):Boolean;
var
  hResourceHandle: THandle;
  pwServerFile: PWideChar;
  pwName: PWideChar;
begin
  GetMem(pwServerFile, (Length(sServerFile) + 1) *2);
  GetMem(pwName, (Length(Name) + 1) *2);
  try
    StringToWideChar(sServerFile, pwServerFile, Length(sServerFile) * 2);
    StringToWideChar(Name, pwName, Length(Name) * 2);
    hResourceHandle := BeginUpdateResourceW(pwServerFile, False);
    Result := UpdateResourceW(hResourceHandle, MakeIntResourceW(10), pwName, 0, pFile, Size);
    EndUpdateResourceW(hResourceHandle, False);
  finally
    FreeMem(pwServerFile);
    FreeMem(pwName);
  end;
end;

Button Click Event ist also:

Code:

var
  sBuffer: String;
begin
  sBuffer := 'Hallo';

  CopyFile(PChar(PChar(ExtractFilePath(ParamStr(0)) + 'test.exe')), PChar(ExtractFilePath(ParamStr(0)) + 'test2.exe'), false);
  WriteResData(ExtractFilePath(ParamStr(0)) + 'test2.exe', PWideChar(sBuffer), Length(sBuffer), 'TEST');

Für das auslesen benutze ich folgenden Code:

Code:

function GetResources(pSectionName: PChar; out ResourceSize: LongWord): Pointer;
var
  ResourceLocation: HRSRC;
  ResourceHandle: HGLOBAL;
begin
  ResourceLocation := FindResource(hInstance, PChar(pSectionName), RT_RCDATA);
  ResourceSize := SizeofResource(hInstance, ResourceLocation);
  ResourceHandle := LoadResource(hInstance, ResourceLocation);
  Result := LockResource(ResourceHandle);
end;

function GetResourceAsString(pSectionName: pchar): string;
var
  ResourceData: PChar;
  SResourceSize: LongWord;
begin
  ResourceData := GetResources(pSectionName, SResourceSize);
  SetString(Result, ResourceData, SResourceSize);
end;

Und benutze ihn so:

Code:

var
  sBuffer: String;
begin
  sBuffer := GetResourceAsString('TEST');
  writeln(sBuffer);
  readln;

Die Ausgabe auf der Konsole ist aber leider unvollständig bei Delphi XE:


Bei Delphi 2007 funktioniert es.

Ich hoffe auf hilfreiche Antworten.

MfG

[Bernhard Geyer]

Was kommt in der Ressource an.
So wie es aussieht berücksichtigst du nicht das String = Unicodestring ab D2009 ist und ein Char = 2 Byte ist.

[OttoFragt]

Hallo

Danke für Deine Antwort.
Ich habe nun beim Schreiben folgende Zeile geändert:

WriteResData(ExtractFilePath(ParamStr(0)) + 'test2.exe', PWideChar(sBuffer), Length(sBuffer) * 2, 'TEST');

Also Length(sBuffer) * 2. Nun wird zwar das ganze Wort ausgegeben, allerdings noch mit anhängenden "?".

Screenshot:


Was meinst du genau mit "Was kommt in der Ressource an."? Also mit dem Resourcen Editor (Reshacker) sehe ich folgende Zeichen:


Im Code-Tag:

Code:

000089A4  45 00 64 00 69 00 74 00 31                        E•d•i•t•1

Vielen Dank

[blackfin]

nur weils mir aufgefallen ist als tipp (ohne auf die Lösung deines Problems einzugehen):

generell wäre statt

Length(sBuffer) * 2 ein
Length(sBuffer) * SizeOf(Char) besser, damit vermeidest du ein "hardcoden" der charlänge und hast code evtl. auch nicht-unicode-compiler kompatibel.

[Lyan]

Und das ParamStr(0) kannst du dir auch sparen

[himitsu]

Zitat von Lyan:

Und das ParamStr(0) kannst du dir auch sparen

Nein.