Копирование буфера обмена не работает в службе на Win Server 2008 / Vista 64bit - PullRequest
Новая
       26

Копирование буфера обмена не работает в службе на Win Server 2008 / Vista 64bit

3 голосов
/ 03 февраля 2010

Обновление: эта проблема была решена.

Вы можете прочитать о решении здесь: Создание процесса в ненулевом сеансе из службы в windows-2008-server?

Спасибо всем!

Привет,

Я пытаюсь использовать Clipboard API (в Delphi) для извлечения изображений из документов Word.мой код работает нормально в Windows XP / 2003, но в 64-битной Windows 2008 это не работает.В Win 2008 я получаю сообщение о том, что Clipboard.Formats пуст и не содержит никакого формата.

Изображение, кажется, скопировано в буфер обмена (я вижу его в буфере обмена через Word), но когдаЯ пытаюсь спросить в буфере обмена, в каком формате он говорит, что у него нет форматов.

как получить программный доступ к буферу обмена на win 2008 / Vista?из того, что я знаю о 64-разрядной версии 2008 года, это может быть проблема безопасности ...

вот фрагмент кода:

Вот как я пытаюсь скопировать изображение в буфер обмена:

W.ActiveDocument.InlineShapes.Item(1).Select; // W is a word ole object
W.Selection.Copy;

и вот как я пытаюсь его вставить. 

  Clipboard.Open;
      Write2DebugFile('FormatCount = ' + IntToStr(Clipboard.FormatCount)); // FormatCount=0 
      For JJ := 1 to Clipboard.FormatCount Do
          Write2DebugFile('#'+ IntToStr(JJ) + ':' + IntToStr(Clipboard.Formats[JJ]));
      If (Clipboard.HasFormat(CF_BITMAP)) or
        (Clipboard.HasFormat(CF_PICTURE)) or
        (Clipboard.HasFormat(CF_METAFILEPICT)) then    // all HasFormat calls returns false.
      Begin
       Jpeg := TJPEGImage.Create;
       Bitmap := TBitmap.Create;
       Bitmap.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
       Jpeg.Assign(Bitmap);
       Jpeg.SaveToFile(JpgFileN);
       try Jpeg.Free; except; end;
       ResizeImage(JpgFileN,750);
       Write2DebugFile('Saving ' + JpgFileN);
      End
      else  Write2DebugFile('Doesnt have the right format');

Заранее спасибо, Итай

1 Ответ

2 голосов
/ 08 февраля 2010

AFAIR, похоже, что M $ не позволяет сервисам взаимодействовать с рабочим столом (что необходимо для использования буфера обмена) в Win2008.

...