Strings und Ansistrings, Nullterminiert?

[SyntaxXx]

Guten Abend zusammen,
ich bin gerade dabei, ein kleines Tool zu schreiben.

Jetzt habe ich folgendes Probblem.

Ich habe Tool A, in das ich einen Text eingebe.
Dieser Text wird gespeichert.
Tool B soll diesen Text nun wieder auslesen.

Problem an der Sache ist, dass ich hierbei die Windos API benutze.
Und jetzt habe ich ein Problem.

Wenn ich den Text als "Delphi"-String speicher, und dann auslese, bekomme ich eine ganz wirre Zeichenfolge angezeigt.
Jetzt habe ich mich schlau gemacht und herrausgefunden, dass Delphi Stings nicht das selbe sind wie String von Windows.
Weil dort irgendwie die Nulltermienierung fehlt.

Ok dachte ich mir, dann arbeite ich halt mit Ansistrings. Dort sind die Strings ja nullterminiert.
Doch das hat nichts verändert. Immernoch die komische Zeichenkette.

Dann habe ich aber einen Tipp gelesen, dass man einfach an den Text ein #0 anhängen soll, um so die Nullterminierung manuell zu setzen.
Das habe ich gemacht und siehe da, es hat funktioniert.

Doch jetzt frage ich mich, warum das so geht, aber nicht mit Ansstrings?
Der Text wurde bei beiden Versuchen in einem Editfeld eingegeben.

[Bernhard Geyer]

Welche Windows-API? in was sind beide Programme geschrieben? Wie schaut ein Beispiel mit "Komischen" Zeichen aus (Text Ursprung <-> Text komisch).
Hätte da schon eine Idee was du falsch machst.

[SyntaxXx]

1. Also Programmiert in Delphi.
2. UpdateResource etc. wird benutzt.

3.1 Eingangstext = Test
3.2 Ausgangstext = http://i40.tinypic.com/a0lam8.png

[himitsu]

Ja, Delphi-Strings sind Nullterminiert, als Kompatibilität zum PChar, obwohl sie selber allerdingt ein Längenbyte (Integer) besitzen.

Castet man einen String nach PChar, AnsiString nach PAnsiChar oder UnicodeString/WideString nach PWideChar, greift die Compilermagic, welche die Referenzzählung der Delphi-Strings beachtet und zusätzlich noch den Leer-String besonders behandelt.


Und ab Delphi 2009 mußt du mit Unicode aufpassen.
PS: Rate mal, warum man im Forenprofil angeben kann, was man nutzt?


In Deinem Fall hast du den AnsiString wohl radikal nach PWideChar gecastet ... das macht man nicht.
Oder du hast dich verpointert und statt den Textdaten einen Zeiger auf die Variable ... das ist auch falsch,

Und da du nicht verrätst, wie dein Code aussieht, wird dir auch keiner helfen können.

[NickelM]

Ganz einfach.
Windows verwendet PChar.
PChar ist ein Pointer(Adresse) zum Anfang des Textes, aber nicht wo er aufhört.
Jedoch kannst du mit einem #0 am Ende des Textes, bevor du ihn an die API übergibst, sagen dort hört der Text auf.
Delphi-Strings können solche #0 (Nullterminiert) Zeichen anzeigen, bzw. speichern, PChar kann dies nicht, wenn er ein #0 erkennt, beendet er den Text.

Also in etwa so:

Delphi-Quellcode:

var S : String;
begin
S := 'Hallo' + #0; //Diesen String als PChar gecastet übergeben.
end;

Das Gleiche gilt für AnsiStrings, jedoch vorsicht. Caste nicht einen String(Unicode) zu PAnsiChar.
Das würde auch komishce Zeichen ergeben. Oder umgekehrt.

P.S. : Verdammt war jemand schneller

[SyntaxXx]

Sorry, meine vorherige Antwort sollte garnicht so "böse" rüberkommen wie es jetzt aussieht xD.

Jop Forumprofil wird geupdated.
Also ich benutze Delphi RAD Studio XE.

Also wie ich schon ansprach, muss ich einen String in einen AnsiString umwandeln.
Dachte es reicht, wenn ich einfach

Code:

Text := AnsiString(Edit1.Text);

schreibe.

Denn das habe ich versucht aber es geht nicht.
Das ich den Pointer falsch gesetzt habe schließe ich mal aus, da ja wie gesagt alles wunderbar funktioniert, wenn ich folgendes schreibe:

Code:

Text := Edit1.Text + #0;

Hier also mein Code mit UpdateResource:

Code:

function AddString(text,delimiter : string) : Boolean;
var
  hUpdateRes : THandle;
  lpResLock : ^string;

begin

  lpResLock := @text;

  hUpdateRes := BeginUpdateResource('Ausgabe.exe', False);
  if hUpdateRes = 0 then
  showmessage('Could not open file');

  result := UpdateResource(hUpdateRes, RT_String, PChar(delimiter), 0, PChar(text), succ(length(text))*sizeof(char));
  EndUpdateResource(hUpdateRes, false);

end;

Und hier mein Ausruf:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
    AddString(DoXOr(AnsiString(Edit1.Text), 1000), 'TEXT1');
end;

DoXOr ist einfach nur eine kleine XOr verschlüsselung.


Wie gesagt, wenn ich die Funktion so aufrufe funktioniert es wunderbar:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
    AddString(DoXOr(Edit1.Text + #0), 1000), 'TEXT1');
end;

Edit:
Aber ich habe doch einen String, den ich in einen AnsiString wandeln muss.

Code:

AddString(DoXOr(AnsiString(Edit1.Text), 1000), 'TEXT1');

funktioniert also nicht so einfach ?



PS: Was heißt gecastet? xD Konvertiert?

[NickelM]

Verlangt DoXOr eine AnsiString oder String?
Hört sich so an, als würde DoXOr den String/AnsiString zu PChar/PAnsiChar casten (umwandeln).
Ab Delphi 2009 glaub ich, sind Strings Unicode d.h. 1 Zeichen = 2 Bytes.
1 AnsiZeichen = 1 Byte. Du kannst String einfach zu AnsiString casten, da Delphi die konvertieren von Unicode zu ANSI alleine macht.
Wenn du mit PAnsiChar und PChar arbeitest, musst du darauf achten den Text in den richtigen String zucasten. PChar = String, PAnsiChar = AnsiString.
Falls du einer String-Variable einen AnsiString zuweist, macht Delphi es auch von alleine.

Beim übergeben an eine API, musst entweder so:

Delphi-Quellcode:

var Text : PChar;
    AText : AnsiString;
begin
Text := PChar(String(AText));
end;

oder die APIs mit dem A am Ende nehmen, mit dennen kannst du AnsiString direkt senden.
z.b. SendMessageA;

Das würde es so gehen:

Delphi-Quellcode:

var Text : PAnsiChar;
    AText : AnsiString;
begin
Text := PAnsiChar(AText);
end;

EDIT: Succ brauchst du nicht.

Delphi-Quellcode:

  
result := UpdateResource(hUpdateRes, RT_String, PChar(delimiter), 0, PChar(text), succ(length(text))*sizeof(char));

[himitsu]

@NickelM: Wie gesagt, Delphi-String enthält schon eine #0 am Ende. Zusätzlich zum enthaltenen Text liegt diese hinter dem letzen Zeichen.

Ausnahme ist nur der ShortString / String[x].
WideString ist kein Delphi-String. Da drin ist ein OLE-String der WinAPI gekapselt.

[SyntaxXx]

Ich danke euch schonmal für die ganzen Antworten, aber irgendwie hilft mir das nicht wirklich.

Der Erste sagt:

Zitat:

Delphi-String enthält schon eine #0 am Ende

Der Andere sagt :

Zitat:

Du kannst String einfach zu AnsiString casten, da Delphi die konvertieren von Unicode zu ANSI alleine macht.

Was denn nun? xD
Wie gesagt, ich hab Edit1.Text ja zu nem AnsiString umgewandelt, was aber nicht geholfen hat.

Oder soll ich statt AnsiString, PChar benutzen?

Ich hab das Gefühl wir drehen uns im Kreis.
Ihr wisst woran es liegt und helft mir schon und dafür bin ich sehr dankbar. Aber irgendwie kommt es mir so vor, als wenn mir das alles noch nicht weiter hilft

Sorry für meine Unwissenheit.

[himitsu]

String-Resourcen sind schon immer Unicode (seit WinNT) und nun rate mal, in welchem Format du den "Text" an UpdateResource übergeben mußt.