Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c