AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

RichEdit PasteFromClipboard OS Error 50

Ein Thema von Hobbycoder · begonnen am 26. Jun 2017 · letzter Beitrag vom 26. Jun 2017
 
Hobbycoder

Registriert seit: 22. Feb 2017
1.017 Beiträge
 
#9

AW: RichEdit PasteFromClipboard OS Error 50

  Alt 26. Jun 2017, 14:21
Da ich das ja nun anders gelöst habe, bekomme ich beim Einfügen ein anderes Problem.

Hier mal zur Übersicht die Funktionen, die ich aus o.G. thead übernommen habe:

Delphi-Quellcode:
type
  TEditStreamCallBack = function (dwCookie: Longint; pbBuff: PByte;
    cb: Longint; var pcb: Longint): DWORD; stdcall;

  TEditStream = record
    dwCookie: Longint;
    dwError: Longint;
    pfnCallback: TEditStreamCallBack;
  end;

function EditStreamInCallback(dwCookie: Longint; pbBuff: PByte;
cb: Longint; var pcb: Longint): DWORD; Stdcall;
var
  theStream: TStream;
  dataAvail: LongInt;
begin
  theStream := TStream(dwCookie);
  with theStream do
    begin
      dataAvail := Size - Position;
      Result := 0; {assume everything is ok}
      if dataAvail <= cb then
        begin
          pcb := Read(pbBuff^, dataAvail);
          if pcb <> dataAvail then {couldn't read req. amount of bytes}
            result := UInt(E_FAIL);
        end
      else
        begin
          pcb := Read(pbBuff^, cb);
          if pcb <> cb then
            result := UInt(E_FAIL);
        end;
    end;
end;

function EditStreamOutCallback(dwCookie: Longint; pbBuff: PByte; cb:
Longint; var pcb: Longint): DWORD; stdcall;
var theStream: TStream;
begin
  theStream := TStream(dwCookie);
  with theStream do
    begin
      if cb > 0 then
        pcb := Write(pbBuff^, cb);
      Result := 0;
    end;
end;

procedure GetRTFSelection( aRichEdit: TRichEdit; intoStream: TStream );
var editstream: TEditStream;
begin
  with editstream do
    begin
      dwCookie:= Longint(intoStream);
      dwError:= 0;
      pfnCallback:= EditStreamOutCallBack;
    end;
  aRichedit.Perform( EM_STREAMOUT, SF_RTF or SFF_SELECTION,
  longint(@editstream));
end;

procedure PutRTFSelection( aRichEdit: TRichEdit; sourceStream: TStream
);
var editstream: TEditStream;
begin
  with editstream do
    begin
      dwCookie:= Longint(sourceStream);
      dwError:= 0;
      pfnCallback:= EditStreamInCallBack;
    end;
  aRichedit.Perform( EM_STREAMIN, SF_RTF or SFF_SELECTION,
  longint(@editstream));
end;

procedure InsertRTF(aRichEdit:TRichEdit; s : String);
var aMemStream: TMemoryStream;
begin
  if Length(s) > 0 then
    begin
      aMemStream := TMemoryStream.Create;
      try
        aMemStream.Write(s[1],length(s));
        aMemStream.Position := 0;
        PutRTFSelection( aRichEdit, aMemStream );
      finally
        aMemStream.Free;
      end;
    end;
end;

procedure CopyRTF(aSource, aDest:TRichEdit);
var aMemStream: TMemoryStream;
begin
  aMemStream := TMemoryStream.Create;
  try
    GetRTFSelection(aSource, aMemStream );
    aMemStream.Position := 0;
    PutRTFSelection(aDest, aMemStream );
  finally
    aMemStream.Free;
  end;
end;
ich hole mir den selektierten Text mittels:
Delphi-Quellcode:
      CopyRTF(DestRTF, frmTT.redt_formattext);
        // Den kann man jetzt hier noch Bearbeiten
        frmTT.redt_formattext.Lines.SaveToStream(TT.FormatText); //TT.FormatText ist TMemoryStream
Speichere mir den in einer DB. Der Text enthält kein abschließenden Zeilenvorschub. (Den will ich auch gar nicht).

Später lade ich mir dann das ganze wieder in den MemoryStream und will das in ein RichText an Cursorposition einfügen:
    PutRTFSelection(DestRTF, TT.FormatText); Problem ist jetzt, dass dann hinter TT.FormatText ein Zeilenvorschub mit eingefügt wird.
Aus der DB wieder eingelesen wird der Stream korrekt, das habe ich geprüft. Also muss innerhalb der Procedure PutRTFSelection dieses irgendwie angefügt werden.
Leider ist mein Verständnis für den obigen Code nicht so groß, dass ich den Fehler so finde, und bräuchte diesbezüglich eure Unterstützung.

Danke.
Gruß Hobbycoder
Alle sagten: "Das geht nicht.". Dann kam einer, der wusste das nicht, und hat's einfach gemacht.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz