Arbeiten mit PChar

[Gambit]

Hallo,

ich habe hier eine Funktion die als Parameter den Typ PChar erwartet:

Delphi-Quellcode:

function Translate(Src, Dest: PChar; ToOem: Boolean): Integer; virtual;

Angenommen ich habe jetzt einen String den ich nach "Dest" umwandeln will dann funzt nicht:

Delphi-Quellcode:

procedure test;
var srcString, DestString: PChar;
begin
  srcString:= ...;
  Translate(PChar(srcString), DestString, false);
end;

Bekomm ich eine Speicherzugriffsverletzung...

wie müsste es denn richtig heißen?

Gruß

Gambit

[Luckie]

Du musst für deinen DestString natürlich auch erst noch Speicher mit GetMem reservieren.

[Binärbaum]

Zitat:

Zitat von Gambit

..

Delphi-Quellcode:

function Translate(Src, Dest: PChar; ToOem: Boolean): Integer; virtual;

Angenommen ich habe jetzt einen String den ich nach "Dest" umwandeln will dann funzt nicht:

Delphi-Quellcode:

procedure test;
var srcString, DestString: PChar;
begin
  srcString:= ...;
  Translate(PChar(srcString), DestString, false);
end;

...
wie müsste es denn richtig heißen?

Du müsstest die Zeile mit Translate(...); folgendermaßen ändern:

Delphi-Quellcode:

Translate(srcString, DestString, false);

Da SrcString schon vom Typ PChar ist, muss er nicht mehr nach PChar gecastet werden.

MfG
Binärbaum

[Binärbaum]

Zitat:

Zitat von Luckie

Du musst für deinen DestString natürlich auch erst noch Speicher mit GetMem reservieren.

Ging das nicht auch mit StrAlloc(...)? :gruebel:

[Gambit]

Zitat:

Zitat von Binärbaum

Da SrcString schon vom Typ PChar ist, muss er nicht mehr nach PChar gecastet werden.

MfG
Binärbaum

Achne, das ist nat. mein Fehler, srcString soll vom Typ String sein. Es liegt wohl an der von Lucky geschilderten Tatsache, dass ich Speicher reservieren muss. Weiß jetzt nur nicht genau wie...

[Oxmyx]

Zitat:

Zitat von Gambit

Achne, das ist nat. mein Fehler, srcString soll vom Typ String sein. Es liegt wohl an der von Lucky geschilderten Tatsache, dass ich Speicher reservieren muss. Weiß jetzt nur nicht genau wie...

Wenn du ein Stringliteral schon während der Kompilierzeit zuweist, reserviert der Compiler automatisch Speicher dafür. Zum Beispiel:

Delphi-Quellcode:

var
  str: PChar;
begin
  str := 'Beispieltext';
end;

In deinem Fall ist das aber anders, da zur Kompilierzeit noch nichts zugewiesen wird. Daher musst du erst genug Speicher reservieren, in dem dann dein String Platz findet. Also etwa so:

Delphi-Quellcode:

var
  SrcStr, DestStr: PChar;
begin
  SrcStr := 'Beispieltext';
  GetMem(DestStr, Length(SrcStr));
  Translate(SrcStr, DestStr, False);
  
  // ...und am Ende nicht vergessen:
  FreeMem(DestStr);
end;

[Gambit]

jau Danke, jetzt hab' ichs begriffen. Funktion bringt bringt nur leider nicht das gewünschte Ergenbnis(der String sieht immer noch genauso aus)... :(

[Binärbaum]

Zitat:

Zitat von Oxmyx

Delphi-Quellcode:

var
  SrcStr, DestStr: PChar;
begin
  SrcStr := 'Beispieltext';
  GetMem(DestStr, Length(SrcStr));
  Translate(SrcStr, DestStr, False);
  
  // ...und am Ende nicht vergessen:
  FreeMem(DestStr);
end;

Man sollte den Speicher reservieren, bevor man etwas in den PChar schreibt.

[Muetze1]

Moin!

Zitat:

Zitat von Binärbaum

Man sollte den Speicher reservieren, bevor man etwas in den PChar schreibt.

Ja, und? Wo ist das Problem? Macht das irgendwer hier anders?

MfG
Muetze1

[Khabarakh]

Will Gambit es nicht einfach so :gruebel: ?

Delphi-Quellcode:

procedure test;
var srcString, DestString: string;
begin
  srcString:='a';
  DestString:='bb';
  Translate(PChar(srcString), PChar(DestString), false);
end;

[Muetze1]

Moin!

Die Funktion kann im Worst-Case Fall doppelt so lange Zeichenketten zurück geben, also:

Delphi-Quellcode:

procedure test(Const ASrcString: String);
var DestString: string;
begin
  SetLength(DestString, 2*Length(ASrcString));
  Translate(PChar(ASrcString), PChar(DestString), false);
  // Hier noch mit SetLength() den DestString auf die zurück gegebene Anzahl von zeichen kürzen...
end;

MfG
Muetze1

[Pseudemys Nelsoni]

was genau ist ein "Worst-Case Fall" ? ich meine wieso koennen doppelt soviele zeichen zurückgegeben werden ?

[Gambit]

Zitat:

Zitat von Khabarakh

Will Gambit es nicht einfach so :gruebel: ?

Delphi-Quellcode:

procedure test;
var srcString, DestString: string;
begin
  srcString:='a';
  DestString:='bb';
  Translate(PChar(srcString), PChar(DestString), false);
end;

Nene, so wollte ich es nicht, würde auch nicht funzen...

Ich würde viel jetzt viel lieber wissen, warum die Funktion nicht das tut was sie soll...

[Luckie]

Zitat:

Zitat von Gambit

Ich würde viel jetzt viel lieber wissen, warum die Funktion nicht das tut was sie soll...

Tja gute Frage. Aber ohne die Implementierung zu kennen, wird dir das wohl auch niemand sagen können. Aber: neue Frage, neuer Thread.

[Oxmyx]

Zitat:

Zitat von Binärbaum

Man sollte den Speicher reservieren, bevor man etwas in den PChar schreibt.

Nicht, wenn man ein Stringliteral schon zur Kompilierzeit zuweise. Dann nicht. In allen anderen Fällen schon.

[Gambit]

jepp und wenn ich anstelle von translate

Delphi-Quellcode:

OemToCharBuff(Pointer(S), Pointer(S), Length(S));

benutze, wo ich's mit der Speicherreservierung genauso handhaben muss, funzt es auch. Warum TDataSet.translate nicht funzt obwohl es genau das machen soll was OemToCharBuff macht, weiß ich auch nicht...