Wie Caretposition in RichEdit setzen?

[xaromz]

Hallo,

hier mal meine Routinen:

Delphi-Quellcode:

type
  TBufferClass = class(TObject)
    Buffer: AnsiString;
    Position: Integer;
  end;

function StringSave(dwCookie: LongInt; pbBuff: PByte;
  cb: LongInt; var pcb: LongInt): LongInt; stdcall;
var
  S: PString;
begin
  Result := NoError;

  S := PAnsiString(dwCookie);
  try
    S^ := S^ + PChar(pbBuff);
    pcb := cb;
  except
    Result := $0002; // WriteError
  end;
end;

function StringLoad(dwCookie: LongInt; pbBuff: PByte;
  cb: LongInt; var pcb: LongInt): LongInt; stdcall;
var
  BC: TBufferClass;
  S: PAnsiString;
begin
  Result := NoError;

  BC := TBufferClass(dwCookie);

  try
    pcb := 0;
    try
      pcb := cb;
      if pcb > Length(BC.Buffer) - BC.Position then
        pcb := Length(BC.Buffer) - BC.Position;

      if pcb > 0 then
      begin
        S := PAnsiString(BC.Buffer);
        Inc(S, BC.Position);

        Move(S^, pbBuff^, pcb);
        BC.Position := BC.Position + pcb;
      end;
    except
      Result := $0003; // ReadError
    end;
  finally
  end;
end;

procedure LoadRichEditFromString(Handle: THandle; S: AnsiString);
var
  EditStream: TEditStream;
  BC: TBufferClass;
begin
  BC := nil;
  try
    BC := TBufferClass.Create;
    BC.Buffer := S;
    BC.Position := 0;
    with EditStream do
    begin
      dwCookie := Integer(BC);
      pfnCallBack := @StringLoad;
      dwError := 0;
    end;
    SendMessage(Handle, EM_STREAMIN, SF_RTF, Longint(@EditStream));
  finally
    BC.Free;
  end;
end;

function SaveRichEditToString(Handle: THandle): AnsiString;
var
  EditStream: TEditStream;
  S: AnsiString;
begin
  try
    with EditStream do
    begin
      dwCookie := Integer(@S);
      pfnCallBack := @StringSave;
      dwError := 0;
    end;

    SendMessage(Handle, EM_STREAMOUT, SF_RTF, Longint(@EditStream));
  finally
    Result := S;
  end;
end;

Wichtig sind nur die beiden Routinen am Ende. Diese lesen bzw. schreiben den kompletten Inhalt eines RichEdits,

Gruß
xaromz

[Armageddon]

Danke xaromz,

aber irgendwie bin ich entweder zu blöd oder ich weiß auch nicht an was es liegt. :wall:
Egal welches Beispiel das ich bisher gefunden habe benutze, ich bekomme immer Zugriffsverletzungen sobald es ein RichEdit ist das in einer fremden Anwendung läuft. Ich weiß das es ein RichEdit ist welches in der fremden Anwendung ist, ich weiß das Handle und ich weiß daß das Programm welches das fremde RichEdit enthält mit Delphi programmiert wurde. Das müßte doch reichen verflixt noch eins. Habe mal ein paar Screenshots angehängt.

Hoffe es weiß jemand Rat.

[Flocke]

Es könnte daran liegen, dass der Prozess, dem das RichEdit gehört, einen anderen Adressraum hat. Hast du mal einen Breakpoint in "StringSave" gesetzt und geschaut was dort passiert?

[Armageddon]

Ohje jetzt scheint es kompliziert zu werden. Ich kann mir zwar Vorstellen was Du meinst aber ich weiß beim besten Willen nicht wie ich das anstellen soll. Das komische ist das dies auch passiert wenn ich ein leeres form nehme darauf ein RichEdit platziere dieses kompilieren lasse. Dann starte etwas reinschreibe, das Handle mit dem WinSpy herausfinde. Und schließlich versuche es miot meiner Anwwendung die das ja können soll, heraus zu streamen. Pling, plong, Außnahmefehler ohne Ende ist das Ergebnis. Es ist zum Heulen.

:wall:

[Flocke]

Wenn meine Vermutung stimmt, dann kann das RichEdit der fremden Anwendung ja noch nicht einmal etwas mit dem Inhalt der EditStream-Struktur anfangen.

Ich habe mehrere Lösungsansätze vor Auge (VirtualAllocEx im fremden Adressraum, Pipes), aber die sind alle alles andere als einfach.

[Nachtrag]

Wahrscheinlich ist von der Komplexität her dein erster Ansatz über die Zwischenablage wirklich der einfachste... auch wenn es für den User unangenehm ist, dass der Inhalt der Zwischenablage verändert wird und dass die Position im RichEdit verändert wird.

[Armageddon]

Also bleib ich doch bei der guten alten Zwischenablage. Die Leute die das Programm benutzen werden haben zu 99% sowieso nichts in der Windowszwischenablage. Von daher zu verschmerzen.

Nimmt man den Programm-Code um Daten von RichEdit1 an RichEdit2 in der gleichen Anwendung zu streamen dann gehts. Ist halt jammerschade das es von fremden Anwendungen aus so kompliziert ist. Vielleicht findet sich ja mal jemand der das in den Griff bekommt und der Allgemeinheit den Code zur Verfügung stellt.

Trotzdem Danke.