Ich benutze folgenden Code, um einen String aus der Registry zu lesen:

zusammenfalten · markieren

Delphi-Quellcode:

function TMpuRegistry.ReadString(const ValueName: string; var Value: string):
  LongInt;
var
  cbData: Integer;
  lpType: DWORD;
  Buffer: PChar;
begin
  // get size of required data
  result := RegQueryValueEx(FhkResult, PChar(ValueName), nil, @lpType, @Value,
    @cbData);
  if cbData <> 0 then
  begin
    GetMem(Buffer, cbData);
    try
      result := RegQueryValueEx(FhkResult, PChar(ValueName), nil, @lpType,
        @Buffer, @cbData);
      Value := string(Buffer); // <- hier AccessViolation
    finally
      FreeMem(Buffer);
    end;
  end;
end;

An der markierten Stelle bekomme ich leider immer eine AV. Integer lesen geht problemlos, wenn ich Buffer als Integer deklariere, lesen. Wo steckt da jetzt schon wieder der Teufel?

Lass einfach die harte Typwandlung weg
Value := Buffer; Delphi schafft es auch so.

Hi.

Delphi schafft es nur so...

Nein, das war es nicht. Beim Debuggen wird mir kein Hint angezeigt, wenn ich mit der Maus auf die variable Buffer zeige. Result ist aber 0 (= ERROR_SUCCESS).

zusammenfalten · markieren

Delphi-Quellcode:

function TMpuRegistry.ReadString(const ValueName: string; var Value: string):
  LongInt;
var
  cbData: Integer;
  lpType: DWORD;
  Buffer: PChar;
begin
  // get size of required data
  result := RegQueryValueEx(FhkResult, PChar(ValueName), nil, @lpType, @Value, @cbData); // Delphi mag es nicht, wenn man ihm beim String-Handling dazwischenpfuscht (@Value)........ :-)
  if cbData <> 0 then
  begin
    GetMem(Buffer, cbData);
    try
      result := RegQueryValueEx(FhkResult, PChar(ValueName), nil, @lpType,
        @Buffer, @cbData);
      Value := string(Buffer); // <- hier AccessViolation
    finally
      FreeMem(Buffer);
    end;
  end;
end;

Hast du jetzt irgendwas geändert? Ich verstehe deinen Kommentar nicht.

Habs:

markieren

Code:

function TMpuRegistry.ReadString(const ValueName: string; var Value: string):
  LongInt;
var
  cbData: Integer;
  lpType: DWORD;
  Buffer: PChar;
begin
  // get size of required data
  result := RegQueryValueEx(FhkResult, PChar(ValueName), nil, @lpType, nil,
    @cbData);
  if cbData <> 0 then
  begin
    GetMem(Buffer, cbData);
    try
      result := RegQueryValueEx(FhkResult, PChar(ValueName), nil, @lpType,
        @Buffer[u][b][0][/b][/u], @cbData);
      Value := Buffer; // <- hier AccessViolation
    finally
      FreeMem(Buffer);
    end;
  end;
end;

Zitat von Luckie:

Hast du jetzt irgendwas geändert? Ich verstehe deinen Kommentar nicht.

neee... habe nichts geändert.... die WinAPI hat wohl, je nach Wert von cbData mehr oder weniger vom String-Pointer überschrieben (insofern in das String-Handling eingegriffen)...
und bei der Zuweisung Value := Buffer; hat dann der Compiler die reguläre String-Freigabe eingefügt, die dann wiederum auf einer empirischen Speicheradresse stattgefunden hat...

aber beim 2. Mal lesen meines Kommentares musste ich auch feststellen, dass er nicht gerade aussagekräftig ist....

Zitat von Basilikum:

die WinAPI hat wohl, je nach Wert von cbData mehr oder weniger vom String-Pointer überschrieben

Nein das war es wohl eher nicht. Buffer ist ein Array auf eine Zeichenfolge und da hat einfach nur der Index [0] gefehlt, damit er weiß an welcher Stelle das erste Zeichen steht.

Dieses Beschaffen von Speicher mit GetMem ist doch überflüssig.

zusammenfalten · markieren

Delphi-Quellcode:

function TMpuRegistry.ReadString(const ValueName: string; var Value: string):
  LongInt;
var
  cbData: Integer;
  lpType: DWORD;
begin
  // get size of required data
  result := RegQueryValueEx(FhkResult, PChar(ValueName), nil, @lpType, nil,
    @cbData);

  if Result=ERROR_SUCCESS then
  begin
    SetLength(Value, cbData); // Speicherplatz im Ausgabestring reservieren
    result := RegQueryValueEx(FhkResult, PChar(ValueName), nil, @lpType,
        PChar(Value), @cbData);
  end;
end;

Aber so wie du es machst geht es nicht. Letzte Zeile beo PChar(Value):

Zitat:

[Error] MpuRegistry.pas(84): Incompatible types: 'Char' and 'Byte'

Außerdem weiß ich so, was ich mache.