Zwischenablage Zugriff verweigert

[himitsu]

Ist zwar irgendwie nicht ganz verständlich/konsequent,
aber ein ELSE ohne ON IF gibt es eh nicht.

Also mit ON gibt es, falls kein ELSE vorhanden, ein implizites else raise; .





OMG, ein raise TObject.Create; würde also durch alle Try-Except durchrauchen, welche ein ON ohne ELSE enthalten, was in der RTL/VCL praktisch fast immer so ist,

mit wenigen Ausnahmen, weswegen aus einem TButton-Click doch nicht die ganze Anwendung komplett verreckt.

Delphi-Quellcode:

procedure TWinControl.MainWndProc(var Message: TMessage);
begin
  try
    ...
  except
    Application.HandleException(Self);
  end;

[Uwe Raabe]

Zitat von himitsu:

OMG, ein raise TObject.Create; würde also durch alle Try-Except durchrauchen, welche ein ON ohne ELSE enthalten

Das würde ein raise EProgrammmerNotFound.Create('Hurz') aber vermutlich auch. Aber vielleicht hat ja einer ein on E: TObject do da stehen.

[himitsu]

EProgrammerNotFound und ENotImplemented normal nicht, da sie eine "Exception" sind und nicht vor EAbort erben, werden sie behandelt und auch angezeigt.
(nutze ich gern für Marker "nicht eingebaut, weil war bisher nicht nötig" und "nicht eingebaut, weil hatte noch niemnand Lust/Zeit")



Per se ist in Pascal/Delphi die Exception-Behandlung so ausgelegt, dass "Exceptions" nicht von Exception erben müssen,
auch wenn es blöd ist, da die Standard-ExceptionBenahndlung in SysUtils und Co. mindestens "Exception" verlangt, z.B. die beiden ShowExceptions und da bei ON normal überall eigentlich immer mindestens Exception-Typen angegeben werden.

ABER, kommt die Exception z.B. aus eine DLL (ohne Laufzeitpackages), dann hat die DLL andere Exception-Classes, als wie die EXE. ... die beiden Seiten sind nicht nur nicht vom selben "Exception" geerbt ... nichtmal vom selben TObject.

[haentschman]

Moin...

...inzwischen hatte ich 2 Arbeitsstationen mit:

Zitat:

Cannot read clipboard after fifty attempts.

...nichtmal mehrmaliges Öffnen bringt das.

Clipboard.AsText macht intern ein Open/Close...

Was kann ich sonst machen?

Statt dem raise ein Exit bringt mir keinen Fehler, aber auch kein Paste...

[Rollo62]

Vielleicht lohnt es mal zu schauen wo die Unterschiede VCL zu FMX sind:

FMX:

Delphi-Quellcode:

function TWindowsClipboardService.GetText: string;
var
  Data: THandle;
  TextData: string;
begin
  Result := string.Empty;
  OpenClipboard(0);
  try
    Data := GetClipboardData(CF_UNICODETEXT);
    if Data <> 0 then
    begin
      TextData := PChar(GlobalLock(Data));
      try
        Result := TextData;
      finally
        GlobalUnlock(Data);
      end;
    end;
  finally
    CloseClipboard;
  end;
end;

VCL:

Delphi-Quellcode:

procedure TClipboard.Open;
begin
  if FOpenRefCount = 0 then
  begin
    FClipboardWindow := Application.Handle;
    if FClipboardWindow = 0 then
    begin
      FClipboardWindow := AllocateHWnd(MainWndProc);
      FAllocated := True;
    end;
    if not OpenClipboard(FClipboardWindow) then
      raise EClipboardException.CreateResFmt({$IFNDEF CLR}@{$ENDIF}SCannotOpenClipboard,
        [SysErrorMessage(GetLastError)]);
    FEmptied := False;
  end;
  Inc(FOpenRefCount);
end;

function TClipboard.GetAsText: string;
var
  Data: THandle;
begin
  Open;
  Data := GetClipboardData(CTextFormat);
  try
    if Data <> 0 then
{$IF DEFINED(CLR)}
      Result := Marshal.PtrToStringUni(GlobalLock(Data))
{$ELSE}
      Result := PChar(GlobalLock(Data))
{$ENDIF}
    else
      Result := '';
  finally
    if Data <> 0 then
      GlobalUnlock(Data);
    Close;
  end;
end;

Mir fällt da auf das FMX einfach immer mit Handle OpenClipboard(0), während VCL ein Handle übergibt OpenClipboard(FClipboardWindow);
Könnte das einen Unterschied bei den Exceptions machen ?

[haentschman]

Danke...

...ich schau mir das an.