Memo einer anderen Anwendung auslesen..

[Diablo9876]

Hallo, ich möchte eine Memo einer anderen Anwendung auslesen und den inhalt in eine Memo in meinem Program kopieren.
Aber die fremde Memo wird ständig aktualisiert.
Jetzt habe ich folgenden Code der funktioniert bis einer bestimmten Zeile in der anderen Memo, ab da bekomme ich die restlichen Daten nicht mehr in meiner memo kopiert. Ist der Buffer zu klein?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
buffer: array[0..1024] of Char;
begin
memo2.Clear;
SendMessage(strtoint(edit3.text), WM_GETTEXT, sizeof(buffer), Integer(@buffer));
memo2.lines.Add(String(buffer));
memo2.Update;
end;

[Luckie]

Zitat von Diablo9876:

Ist der Buffer zu klein?

Ja.

Vorher mit WM_GETTEXTLENGTH die Anzahl der Zeichen holen und entsprechend Speicher anfordern.

[Diablo9876]

Vorher mit WM_GETTEXTLENGTH die Anzahl der Zeichen holen und entsprechend Speicher anfordern.
Und wie mach ich das genau?

Entschuldigung hab das noch nie gemacht.

[Luckie]

Delphi-Quellcode:

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;

[Luckie]

So obiger Code führt angeblich zu einer AccessViolation. Hie rnoch mal eine Alternative:

Delphi-Quellcode:

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;

Eventuell hätte es beim ersten Code auch schon gereicht bei GetMem noch mal eins dazu zuaddieren.

[Christian Seehase]

Moin Luckie,

+1 kann nicht schaden, da WM_GETTEXTLENGTH die Länge ohne terminierende Null zurückgibt, wohingegen WM_GETTEXT gerne die Anzahl inclusive der Null hätte.... aber:
Ist der Buffer zu klein für den Text, wird halt weniger kopiert => keine AV.

Der Fehler im ersten Beispiel liegt wohl im length(szText).
Da Du den Speicher mit GetMem reservierst, wird dieser nicht initialisiert. Length auf einen PChar angewendet liefert allerdings die Anzahl Zeichen bis, exklusive, der ersten Null zurück.
Da ja eigentlich genügend Speicher für den enthaltenen Text reserviert war hätte das zwar nicht stören dürfen, ist aber doch ein gewisser Unsicherheitsfaktor.

[Luckie]

Und wie sähe jetzt deine Lösung aus? Ich hätte es im ersten Code dann noch mal mit lstrlen versucht.