Текущий архив: 2002.08.19;
Скачать: CL | DM;
Вниз
Кириллица в Corel+Delphi Найти похожие ветки
← →
Edvin (2002-08-05 17:01) [0]Здравствуйте!
При передаче текста из Delphi в Corel через OLE на английском нет проблем,
но русский текст не передается.
Может кто-нибудь встречался с такой проблемой?
← →
Ученик (2002-08-05 17:08) [1]А если русский текст содержиться в переменной типа WideString ?
← →
Edvin (2002-08-06 12:39) [2]Тот же эффект!
А ввобще все выглядит так:
Procedure Replace(s_find, s_repl: WideString);
var ObjID, FirstObjID:longint;
s_global:string;
fpos:integer;
begin
cdr.SelectAllObjects;
cdr.SelectNextObject(true);
FirstObjID := cdr.GetObjectsCDRStaticID;
Repeat
if 4=cdr.GetObjectType then // если это текст
begin
s_global:=cdr.GetTextString;
fpos:=pos(s_find,s_global);
if fpos>0 then
cdr.SetTextString(fpos-1,fpos+length(s_find)-1, s_repl);
end;
cdr.SelectNextObject(true);
ObjID := cdr.GetObjectsCDRStaticID;
Until ObjID = FirstObjID;
end;
А сам вызов:
CVersion: integer;
text: string;
text1: WideString;
begin
CVersion:=10;
text1:="ууу";
if CVersion=10 then CreateOleObject("CorelDraw.Application.10");
CDR:=CreateOleObject(Format("CorelDraw.Automation.%d",[CVersion]));
cdr.FileOpen("C:\card.cdr");
cdr.SetDocVisible(True);
Replace("111",text1);
← →
KSergey (2002-08-06 13:59) [3]Попробуйте обратить внимание каким шрифтом набран в кореле исходный текст. Возможно, это шрифт без символов кирилицы. Для эксперимента замените один русский текст на другой, тоже русский. Это позволит убедиться, что исходно стоял "нормальны" русский шрифт.
← →
Edvin (2002-08-06 14:25) [4]Дело в том что я это делал, пробовал такой вариант:
В Кореле набирал текст в текстовом объекте русскими буквами
и сохранял, после этого в Дельфи для текстового поля выставлял опции типа русский текстб шрифт ставил одинаковый и в Дельфи и Корелеб после этого запускал и если в Дельфи в текстовом поле
была хотя бы одна русская буква в Кореле текстовый объект "минимизировался" в точку, если все буквы латинские то никаких проблем.
Попробовал простой вариант: скопировал CTRL+C в текстовом поле
программы, открыл Корел и CTRL+V в текстовом объекте рисунка,
никаких проблем...
Но вот как реализовать это в Дельфи или Corel Script не знаю...
Страницы: 1 вся ветка
Текущий архив: 2002.08.19;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.006 c
