Zwischenablage Zugriff verweigert

[Uwe Raabe]

Zitat von haentschman:

Vieleicht können sie die Schleife in TClipboard.Open einbauen.

Das wird aus Kompatibilitätsgründen wohl nicht passieren. Ich könnte mir eher eine Lösung dieser Art vorstellen (später mal direkt in TClipboard):

Delphi-Quellcode:

type
  TClipboardHelper = class helper for TClipboard
    function TryOpen(MaxTries: Integer = 50; Delay: Integer = 20): Boolean;
  end;

function TClipboardHelper.TryOpen(MaxTries: Integer = 50; Delay: Integer = 20): Boolean;
begin
  var cnt := 0;
  while True do begin
    try
      Open;
      Exit(True);
    except
      on EClipboardException do begin
        Inc(cnt);
        if cnt < MaxTries then
          Sleep(Delay)
        else
          Exit(False);
      end;
    end;
  end;
end;

Das erfordert aber eine Anpassung aller Open-Aufrufe.

[haentschman]

...ich habe das mal im TcxCustomTextEdit.PasteFromClipboard integriert

Delphi-Quellcode:

procedure TcxCustomTextEdit.PasteFromClipboard;
var
  ANewSelStart: Integer;
  ANewText, S: string;

  function GetClipboardText: string;
  var
    RetryCount: Integer;
    Success: Boolean;
  begin
    RetryCount := 0;
    Success := False;
    while not Success do
    begin
      try
        Result := Clipboard.AsText;
        Success := True;
      except
        on EClipboardException do
        begin
          Inc(RetryCount);
          if RetryCount < 50 then
          begin
            Sleep(20)
          end
          else
          begin
            raise Exception.Create('Cannot read clipboard after fifty attempts');
            // Exit(''); // Alternativ statt raise
          end;
        end
        else
          raise;
      end;
    end;
  end;

begin
  if Clipboard.HasFormat(CF_TEXT) then
  begin
    if Focused then
    begin
      BeginUserAction;
      try
        S := GetClipboardText;
        if CanChangeSelText(S, ANewText, ANewSelStart) then
          InnerEdit.CallDefWndProc(WM_PASTE, 0, 0);
      finally
        EndUserAction;
      end;
    end
    else
      SelText := GetClipboardText;
  end;
end;

[Uwe Raabe]

Man sollte eigentlich nie eine simple Exception werfen, da man damit dem Aufrufer die Möglichkeit nimmt, selektiv auf diese zu reagieren. Besser wäre hier wieder eine EClipboardException oder ein schlichtes raise;

[Sinspin]

Gerade in dem Fall das bereits eine Exception ausgelößt worden ist, ist raise; wirklich am besten.
Du würdest sonst ja die anderen Exception Informationen verbergen.

[himitsu]

In diesem Fall ist es ja einfach, denn es gibt bereits eine "andere" Exception-Klasse.

Delphi-Quellcode:

else
begin
  raise EClipboardException.Create('Cannot read clipboard after fifty attempts');

Aber es ist ebenfalls extrem unschön, wenn man die eigentliche Exception sinnlos vernichtet.

Delphi-Quellcode:

else
begin
  raise EClipboardException.Create('Cannot read clipboard after fifty attempts'#10#10 + E.Message);

Delphi-Quellcode:

// hier bleibt im nächsten E.InnerException die ursprüngliche Exception erhalten
else
begin
  Exception.RaiseOuterException(EClipboardException.Create('Cannot read clipboard after fifty attempts');

Schade ist nur, dass hauseigenen im ShowException von Delphi so Eingies einfach grob fahrlässig vergessen wurde,
aber zumindestens innerhalb des Programms kommt man dennoch an InnerException ran.

[haentschman]

Boah-ey...

...ihr findet immer ein Haar in der Suppe.

Besser so?

Delphi-Quellcode:

except
  on E: EClipboardException do
  begin
    Inc(RetryCount);
    if RetryCount < 50 then
    begin
      Sleep(20)
    end
    else
    begin
      raise EClipboardException.Create('Cannot read clipboard after fifty attempts.' + sLineBreak + 'Originalmessage: (' +  E.Message + ')');
      // Exit(''); // Alternativ statt raise
    end;
  end
  else
    raise;
end;

[Uwe Raabe]

Zitat von haentschman:

...ihr findet immer ein Haar in der Suppe.

Das else raise ist überflüssig, da alle nicht durch on abgefragten Exceptions automatisch durchgeleitet werden