Error al copiar texto

[dec]

Hola,

Empezado por Faust

Pero si elimino el procedimiento WMChangeCBChain cómo sé si el handle al siguiente visor sigue siendo válido

Según la ayuda del SDK de Win32 sobre la función "SetClipboardViewer":

If the function succeeds, the return value identifies the next window in the clipboard viewer chain. If an error occurs or there are no other windows in the clipboard viewer chain, the return value is NULL. To get extended error information, call GetLastError.

Es decir, por eso Lepe recoge el resultado de dicha función en la variable "global" "NextClipboard", y es esta misma variable la que se utiliza después en la función "ChangeClipboardChain".

[Faust]

Gracias por sus respuestas camaradas, aunque he usado la solución de Lepe han continuado los errores en Office, por lo que yo creo que la solución es en saber si algún otro programa ha bloqueado temporalmente el portapapeles, pues así antes de extraer el contenido del portapapeles puedo preguntar si está disponible, y evitar el error de Office.

De nuevo gracias por su ayuda y les mando un afectuoso saludo.

[[seoane]]

Te propongo una solución, no utilizar la unit clipbrd y copiar el contenido del portapapeles usando solo funciones de la API. Para copiar el texto podemos usar una función como esta:

Código Delphi [-]
function LeerTexto: string;
var
  hText: THandle;
  pText: PChar;
begin
  Result:= EmptyStr;
  if IsClipboardFormatAvailable(CF_TEXT) then
    if OpenClipboard(0) then
    try
      hText:= GetClipboardData(CF_TEXT);
      if hText <> 0 then
      begin
        pText:= GlobalLock(hText);
        if pText <> nil then
        begin
          Result:= String(PChar(pText));
          GlobalUnlock(hText);
        end;
      end;
    finally
      CloseClipboard;
    end;
end;

La funcion anterior intentara copiar el texto del portapapeles, si no lo consigue devolvera una cadena vacia, pero no mostrara ningun error. Asi que podriamos utilizarla de la siguiente manera:

Código Delphi [-]
procedure TForm1.WMDrawClipboard(var Msg: TMessage);
var
  Str:   String;
begin
  Str:= LeerTexto;
  if Str <> EmptyStr then
    memo1.Lines.Add(Str);
  Msg.Result:= SendMessage(NextClipboard, Msg.Msg, Msg.wParam, Msg.LParam);
end;

¿Que te parece? por lo menos a mi ya no me sale ningún error al arrastrar en excel.

[[Lepe]]

Tengo un programa como he dicho, y me lee todo el contenido cada vez que se copia algo. Uso office 2002.

En casos de arrastrar y soltar, no me lee el portapapeles, ya no se "copia nada en esos momentos", incluso arrastrando desde excel a word y viceversa. Puede que un office de versión superior esté "haciendo virguerías".

Saludos

[[seoane]]

Lepe yo tampoco entiendo porque da ese error, así que monte el código tal como describíais y en el excel al arrastrar texto de una celda a otra me daba un error en mi aplicación. Con la función que puse ya no da errores mi aplicación, pero una de cada 3 veces (aproximadamente, no las conte ) excel muestra el error "No se puede vaciar el portapapeles", así que volvemos a estar en la misma

[[Lepe]]

Pues yo tampoco sé que pasa.

Acabo de hacer la prueba como dices, seoane, y efectivamente si se copia texto en el portapapeles con el office 2002.

Mi programa hace uso del Microsoft Agent y habla por los altavoces (parlantes) el texto que se copia. acabo de escribir en una celda "quillo no me asustes que me da una flojera del copon" y moviendo la celda 15 veces consecutivas, le ha dado una flojera...

En serio, al menos en mi ordenador no puedo reproducir el error. Me funciona correctamente.

Ahora mismo no sé como tendrá el código nuestro compañero, yo al menos no toco el Result del TMessage para nada. Tengo el presentimiento de que si el siguiente "visor del portapapeles" no es válido, se está devolviendo false en ese parámetro lo cual "podría provocar" que excel mostrase ese error ... no sé...

Saludos

[roman]

Un comentario: en algún momento de este hilo, eliminaron al procedimiento WMChangeCBCHain. Esto no debe hacerse porque es fundamental para preservar el orden de la cadena. El valor de la siguiente ventana que se obtiene al usar SetClipboardViewer puede cambiar durante la vida de la aplicación, por ejemplo si el siguiente visor se sale de la cadena. Por ello es que hay que manejar WM_CHANGECBCHAIN, para detectar esos cambios.

// Saludos

[[seoane]]

Parece que este error no es la primera vez que aparece, según este articulo de microsoft el programa GetRight provocaba el mismo error si tenia activada la función de Monitorizar el portapapeles:

http://support.microsoft.com/default...b;en-us;196620

Para colmo, acabo de volver a probar con el mismo código de antes y ahora no consigo que aparezca el error y me canse de arrastrar celdas Parece mas un capricho del excel que un error por nuestra parte.