[Sky.NET]

При повторном использовании процедуры
Сlipboard.SetTextBuf(PChar(Text));
Вылетает ошибка
"Сannot open clipboard. Отказано в доступе.".
Потом нормально, потом опять ошибка. И так через раз.
Пробовал также
Сlipboard.AsText := Text;
Та же ошибка через раз....
Пол интернета перерыл...
Как исправить?

[v1s2222]

Код правильный, просто буфер обмена в это время использует другое приложение (возможно, твое, в другом потоке).

[Sky.NET]

Значит когда я первый раз использовал процедуру, то нужно как-то закрыть буфер?
Clipboard.Close; не помогает.
Скрыть ошибку не получается (try except, {I-})

[Assistant]

я когда то делал так (и ошибок никаких не было):

Код:

1 2 3 4 5 6 7 8 9 10 11

<b>uses</b> Clipbrd;   ..................... <b>begin</b>   <b>try</b>     Clipboard.AsText := Edit1.Text; <font color="Navy">// запись в буфер обмена</font>   <b>except</b>     ShowMessage(<font color="Navy">'Error write to buffer'</font>);   <b>end</b>;   Edit1.Text := Clipboard.AsText; <font color="Navy">// чтение из буфера обмена</font> <b>end</b>;

P.S.: если запускать из под Delphi, то try..except не работают, отладчик всё равно ошибку покажет

[Sky.NET]

Пробовал я так. Всё равно ошибку показывает.

[NumLock]

а если попробовать вместо Clipboard использовать MyClipboard:
http://data.cod.ru/92920
ShowMessage можно удалить, нужны только для вывода last-error ошибки, чтобы понять.

[Duss]

Попробуйте так:

edit1.SelectAll;
edit1.CopyToClipboard;

[Sky.NET]

Сообщение от Duss

Попробуйте так:

edit1.SelectAll;
edit1.CopyToClipboard;

Также через раз.

[Duss]

Сообщение от Sky.NET

Также через раз.

Выложи больше кода, конечно вряд ли, но вдруг что-то где-то не так.

[Sky.NET]

Используется глобальная горячая клавиша [Ctrl] + [C] и прога перехватывает данную комбинацию не давая выполниться её виндовой процедуре. Пробовал вместо имитации посылать всякие сообщения чужому окну, но безрезультатно.
В общем делаю следующее:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

<...> procedure TForm1.WM_Hotkey(var Msg: TWMHotkey); <...> begin <...>      if Msg.HotKey = KeyID[7] then        begin // Убираем зарегистрированную клавишу          UnRegisterHotkey(Handle, KeyID[7]); // Имитируем нажатие [Ctrl] + [C] (в чужом окне)          keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);          keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), 0, 0);          keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), KEYEVENTF_KEYUP, 0);          keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0); // Регистрируем клавишу заново          RegisterHotkey(Handle, KeyID[7], MOD_CONTROL, 67); <...> // Считываем из буфера          buff := Clipboard.AsText;          for I1 := 0 to LBQuestions.Items.Count - 1 do            if Pos(buff, LBQuestions.Items.Strings[I1]) <> 0 then            begin              LBQuestions.Selected[I1] := True;              ListQuestion;              Break;            end;        end; <...> end; <...> procedure TForm1.ListQuestion; <...> begin <...> // Пишем в буфер      Clipboard.SetTextBuf(PChar(Copy(S, 1, p1 - 1))); // При повторном проходе - "Сannot open clipboard. Отказано в доступе." <...> end; <...>

Это все манипуляции с буфером, которые я провожу в программе.
Окно программы практически всё время неактивно (работаю в чужом окне).

[Страдалецъ]

Так вы нигде его не открываете, вот и не работат. Последовательность работы с буфером та-же что и с файлом:

Код:

1 2 3

Clipboard.Open; //Что-то делаете с ним Clipboard.Close;