WM_GETTEXT + Unicode

**toms**

Hi,

Wie muss diese Funktion aussehen, wenn sie Unicode Strings zurückgeben sollte?

..SendMessage durch SendMessageW ersetzen und dann?

zusammenfalten · markieren

Delphi-Quellcode:

			function GetWindowText(wnd: HWND): string;

var

  TextLength: Integer;

  Text: PChar;

begin

  Result := '';

  if wnd = 0 then

    Exit;

  TextLength := SendMessage(wnd, WM_GETTEXTLENGTH, 0, 0);

  if TextLength <> 0 then

  begin

    GetMem(Text, TextLength + 1);

    SendMessage(wnd, WM_GETTEXT, TextLength + 1, Integer(Text));

    Result := Text;

    FreeMem(Text);

  end;

end;

**Luckie**

Musst du nicht die doppelte Länge an Speicher reservieren? WM_GETTEXTLENGTH gibt dochnur die Anzahl der Zeichen zurück:

Zitat:

Under certain conditions, the DefWindowProc function returns a value that is larger than the actual length of the text. This occurs with certain mixtures of ANSI and Unicode, and is due to the system allowing for the possible existence of double-byte character set (DBCS) characters within the text. The return value, however, will always be at least as large as the actual length of the text;

Aber Unicode verwendet doch 2 Byte pro Zeichen.

**toms**

So, habe mal ein wenig herumprobiert.
Wenn ich TextLength * 4 funktioniert's.
Stimmt's etwa so oder gibt's noch was anderes zu beachten?

zusammenfalten · markieren

Delphi-Quellcode:

			function GetWindowText(wnd: HWND): WideString;

var

  TextLength: Integer;

  Text: PWideChar;

begin

  Result := '';

  if wnd = 0 then

    Exit;

  TextLength := SendMessageW(wnd, WM_GETTEXTLENGTH, 0, 0);

  if TextLength <> 0 then

  begin

    GetMem(Text, TextLength * 2  + 1);

    SendMessageW(wnd, WM_GETTEXT, TextLength + 1, Integer(Text));

    Result := Text;

    FreeMem(Text);

  end;

end;

**Luckie**

Warum denn mal vier?

Mal zwei sollte reichen.

**toms**

Zitat:

Warum denn mal vier? Mal zwei sollte reichen.

Hab es auch zuerst mit mal 2 ausprobiert aber hat dann den Text abgeschnitten.
Funktioniert jetzt aber seltsamerweise mit Mal 2 (hatte wohl etwas anderes noch geändert)

**Luckie**

Zitat von toms:

Funktioniert jetzt aber seltsamerweise mit Mal 2 (hatte wohl etwas anderes noch geändert)

Hätte auch sonst mein Weltbild vom Unicode-Zeichensatz zerstört.

**Bernhard Geyer**

Zitat von Luckie:

Zitat von toms:

Funktioniert jetzt aber seltsamerweise mit Mal 2 (hatte wohl etwas anderes noch geändert)

Hätte auch sonst mein Weltbild vom Unicode-Zeichensatz zerstört.

Wieso? Unicode-Zeichen sind doch mit 4 Byte definiert (ist ja mittlerweile bis #$10FFFD definiert)? Windows verwendet jedoch bis NT nur die 2-Byte-Version von Unicode 2.0. Ab 2000 werden die Strings UTF-16-Codiert definiert.

Aber alles > #$FFFD ist eh noch nicht relevant.

Zitat von Luckie:

Zitat von toms:

Funktioniert jetzt aber seltsamerweise mit Mal 2 (hatte wohl etwas anderes noch geändert)

Hätte auch sonst mein Weltbild vom Unicode-Zeichensatz zerstört.

Zitat von Bernhard Geyer:

Wieso? Unicode-Zeichen sind doch mit 4 Byte definiert (ist ja mittlerweile bis #$10FFFD definiert)?

Ihr habt beide recht und unrecht. Das Problem ist, daß es verschiedene Bereiche von Unicode gibt und auch verschiedene Kodierungsmöglichkeiten - inklusive derer die mit 8bit pro Zeichen auskommen und dennoch ÜBER 64k Zeichen darstellen können (UTF8 nämlich). Entscheidend ist *hier* aber wie Windows das kodiert und das hat Barnhard schon erläutert. Daß sie mit 4 Byte definiert sind kann ich genauso verneinen, denn in 10 Jahren sind es vielleicht bereits 8 Byte (Minimum!) - und Minimum ist hier die wichtige Angabe.

Statt es mal 2 zu nehmen sollte man IMMER sizeof(WideChar) benutzen (denn die Definition von WideChar kann sich ändern). Außerdem sollte man zur Textlänge 1 addieren für die schließende #0.

WM_GETTEXT + Unicode

WM_GETTEXT + Unicode

Re: WM_GETTEXT + Unicode

Re: WM_GETTEXT + Unicode

Re: WM_GETTEXT + Unicode

Re: WM_GETTEXT + Unicode

Re: WM_GETTEXT + Unicode

Re: WM_GETTEXT + Unicode

Re: WM_GETTEXT + Unicode

Forumregeln

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#4 Re: WM_GETTEXT + Unicode 22. Okt 2004, 09:03 Warum denn mal vier? Mal zwei sollte reichen. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

toms (CodeLib-Manager) Registriert seit: 10. Jun 2002 4.648 Beiträge Delphi XE Professional	#5 Re: WM_GETTEXT + Unicode 22. Okt 2004, 09:08 Zitat: Warum denn mal vier? Mal zwei sollte reichen. Hab es auch zuerst mit mal 2 ausprobiert aber hat dann den Text abgeschnitten. Funktioniert jetzt aber seltsamerweise mit Mal 2 (hatte wohl etwas anderes noch geändert) Thomas
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#6 Re: WM_GETTEXT + Unicode 22. Okt 2004, 09:10 Zitat von toms: Funktioniert jetzt aber seltsamerweise mit Mal 2 (hatte wohl etwas anderes noch geändert) Hätte auch sonst mein Weltbild vom Unicode-Zeichensatz zerstört. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat