[non VCL] - Fehler bei WM_GETTEXT

[Rastaman]

Nabend.
Also ich habe einen Dialog in einer Resource, den ich dann lade.
Inhalt: Edit, Button, Listbox.
Jetzt war mein eigentliches Ziel mit der Listbox experimentieren, allerdings wurde daraus nix, da ich den Text aus dem Edit irgendwie nicht bekomme. Die ID vom Edit ist 102, und obwohl der Code keinen Sinn macht, funktioniert er nicht. Das Edit ist danach leer

Delphi-Quellcode:

function DlgFunc(hwnd: HWND; uMsg: UINT; wParam: WPARAM;
                 lParam: LPARAM): Bool; stdcall;
var
  s: PAnsiChar;
begin
  Result := True;
  if uMsg = WM_COMMAND then
  begin
    if HiWord(wParam) = BN_CLICKED then
      if LoWord(wParam) = 3 then
      begin
        edit := GetDlgItem(hwnd, 102);
        SendMessage(edit, WM_GETTEXT, 0, Integer(@s));
        SendMessage(edit, WM_SETTEXT, 0, Integer(@s));
      end;
  end
  else
    Result := False;
end;

Nix is ok - non VCL oh weh

[muRR]

Da du offensichtlich mit Dialogen arbeitest, solltest du auch SendDlgItemMessage verwenden. Probier's mal aus.

[Rastaman]

Delphi-Quellcode:

        SendDlgItemMessage(hwnd, 102, WM_GETTEXT, 0, Integer(@s));
        SendDlgItemMessage(hwnd, 101, LB_ADDSTRING, 0, Integer(@s));

Es wird ein Eintrag hinzugefügt in der Listbox(ID = 101), aber der ist immer leer

//Edit: Grad gesehen:

Zitat:

Using SendDlgItemMessage is identical to retrieving a handle to the specified control and calling the SendMessage function.

Heisst: Die Funktionen entscheiden sich bis auf die Parameter nicht...

[muRR]

Das oben war auch nur ein Formalhinweis. Dein Fehler liegt hier:

WM_GETTEXT

Zitat:

wParam
Specifies the maximum number of TCHARs to be copied, including the terminating null character.

Windows NT/2000/XP:ANSI applications may have the string in the buffer reduced in size (to a minimum of half that of the wParam value) due to conversion from ANSI to Unicode.

Du hast 0 angegeben.

[Luckie]

Auch Edits und Listboxen werden in meinen Tutorials behandelt, warum liest du sie nicht einfach mal?

[Rastaman]

Ja das hat ich auch schon ausprobiert aber da kommt ab 8 Zeichen immer der Error Code 216.
In der Hilfe steht dann

Zitat:

The image file %1 is valid, but is for a machine type other than the current machine.

Image file

[Luckie]

Wenn du einen PChar nimmst, dann solltest du vorher mal Speicher reservieren.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: PChar;
begin
  GetMem(s, length(Edit1.Text)+1);
  try
    SendMessage(Edit1.Handle, WM_GETTEXT, length(Edit1.Text)+1, Integer(@s[0]));
    ShowMessage(s);
  finally
    FreeMem(s, length(Edit1.Text)+1);
  end;
end;

Und damit du genau weißt, wie viel Speicher du brauchst, guckst du vorher mit WM_GETTEXTLENGTH wie lang der Text im Edit ist.

Und noch ein heißer Tipp: Lad dir das PSDK runter: http://www.microsoft.com/downloads/d...displaylang=en Da kannst du imme rmal schenll die Parameter nachschlagen. Selbst ich weiß nie, wie rum die Parameter bei WM_GETTEXT gehören.

Noch was: Für Dialoge gibt es auch spezielle Dialog-Funktionen, die einem das Leben einfacher machen. Hier wäre das zum Beispiel: GetDlgItemText.

[Olli]

Zitat von Gerrit89:

Ja das hat ich auch schon ausprobiert aber da kommt ab 8 Zeichen immer der Error Code 216.

... und wollen wir wetten, daß dies ein Laufzeitfehler von Delphi und nicht ein Windows-Fehlercode ist?!

[Luckie]

Stimmt. 216 ist nämlich die Access Violation und die kommt, weil du für deinen PChar keinen Speicher alloziierst.

[Rastaman]

Probier ich gleich ma aus. Hab vergessen Prog und Dialog zu speichern