Clipboard Кодировка

← →
Iriss (2009-06-04 15:06) [0]

Добрый день,
Проблема:
копирую данные из StringGrid в Excel через Clipboard(мне так нужно).

пользуюсь этим кодом:
s := "";
for i := 1 to 5 do begin
for j := 1 to 5 do
s := s + StringGrid1.Cells[j,i] + #9;
s:= s+#13#10;
end;
Clipboard.AsText:= s;

Проблема только в том, что русские буквы в Excel кракозяблами показывает.
Как исправить эту проблему с кодировкой?
Спасибо

← →
ganda (2009-06-04 15:18) [1]

В CodeGear 2009 такой проблемы нету. Ниже версий выход по моему один

посмотри функции GetClipboardData и SetClipboardData в юните Windows думаю они тебе помогут

← →
Palladin © (2009-06-04 15:22) [2]

Есть и другие способы передачи данных в Эксель. Сдался тебе этот клипбоард...

← →
sniknik © (2009-06-04 15:26) [3]

> Как исправить эту проблему с кодировкой?
включи русский для программы перед выполнением кода.
либо меняй кодировку в клипборде. т.к. по умолчанию она туда из активной попадает (имхо, глюк vcl)

← →
супирмегахакер (2009-06-04 15:27) [4]

LoadKeyboardLayout("00000419", KLF_ACTIVATE);

← →
супирмегагигахакер (2009-06-04 15:31) [5]

var
h:THandle;
begin
Clipboard.Open;
Clipboard.AsText := Memo1.Text;
h := Clipboard.GetAsHandle(CF_TEXT);
SetClipboardData(CF_LOCALE, h);
Clipboard.Close;
end;

← →
супирмегахакер (2009-06-04 15:32) [6]

> супирмегагигахакер (04.06.09 15:31) [5]

у мну проще ;)

← →
Iriss (2009-06-04 15:39) [7]

Спасибо всем, помогли решить

Clipboard Кодировка Найти похожие ветки