Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
2. Jul 2003
Und wie sähe jetzt deine Lösung aus? Ich hätte es im ersten Code dann noch mal mit lstrlen versucht.
Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
2. Jul 2003
So obiger Code führt angeblich zu einer AccessViolation. Hie rnoch mal eine Alternative:
var
szText: array of Char;
begin
setlength(szText, SendMessage(hFremdesMemo, WM_GETTEXTLENGTH, 0, 0)+1);
SendMessage(hFremdesMemo, WM_GETTEXT, length(szText), Integer(@szText));
Memo1.Text := String(szText);
end;
Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
1. Jul 2003
var
szText: PChar;
begin
GetMem(szText, SendMessage(hFremdesMemo, WM_GETTEXTLENGTH, 0, 0));
try
SendMessage(hFremdesMemo, WM_GETTEXT, length(szText), Integer(@szText));
Memo1.Text := String(szText);
finally
FreeMem(szText);
end;
Forum: Win32/Win64 API (native code)
Delphi
by Luckie,
1. Jul 2003
Ja.
Vorher mit WM_GETTEXTLENGTH die Anzahl der Zeichen holen und entsprechend Speicher anfordern.