Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Кодировка при вставке в буфер

Автор: Fomaa 31.7.2007, 13:43

Подскажите я исползую

Код


clipboard.AsText:=dmodule1.IBKartkaZAYAVITEL.AsString

а при вставке из буфера текст получается с другой кодировкой. как установить кодировку?

Автор: Yanis 4.8.2007, 23:42

Цитата(Fomaa @ 31.7.2007, 14:43

)

а при вставке из буфера текст получается с другой кодировкой.

С "другой" это какой?

Автор: MetalFan 5.8.2007, 09:13

Цитата(Yanis @ 4.8.2007, 23:42

)

С "другой" это какой?

с кривой) сталкивался с таким! "ломка" кодировки происходит тогда, когда например в англ.раскладке клавы копируешь кириллический текст в другую прогу...
лечил как-то так:

Код


  procedure SetClipboardText( const AText: string );
  var
    h:THandle;
  begin
    Clipboard.Open;
    Clipboard.AsText := AText;
    h := Clipboard.GetAsHandle(CF_TEXT);
    SetClipboardData(CF_LOCALE, h);
    Clipboard.Close;
  end;

Автор: Yanis 5.8.2007, 10:34

Ну ты либо допиши функцию, либо в процедуру переделай ;-)

Автор: MetalFan 5.8.2007, 11:23

Yanis, ааа) эта привычка делать всегда функции меня не раз из-за неприсвоенного Result'а подводила)))