Cirilicna slova u Word dokument (ubaciti podatak iz koda)

Kolege, imam problem iz naslova.

Dakle, klijent je poslao jedan word template (dokument) u cirilici, koji treba popuniti podacima iz baze, ali su ovi u latinici.
U firmi imamo rutinu za prebacivanje karaktera (funkcije i u package-u i u bazi) koje rade promene koda karaktera. Kad se to iskombinuje sa CodePage-om na nekoj kontroli, to radi sasvim ok.
Medjutim, kad ja taj konvertovan podatak upisem u otvoreni word dokument, dobijem kuke i kvake.

Ima li ko ideju sta uraditi? E da, Delphi je 2007, znaci jos uvek ide klasican genericki string (AnsiString)...uh.

Hvala unapred!

Pozz

Kako popunjavas polja u Wordu, Ole automation ili neki drugi sistem?
Meni radi bez problema cirilica i latinica, samo je stos slati Unicode tekst ne ANSI. Dakle vidi da konvertujes tekst u Unicode pa da ga tako saljes.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

I ja mislim da je ANSI text. Verovatno ti je starija verzija Delphija 7 ili slično.

Igore, potpuno sam zaboravio kako se konvertuje Ansi u Unicode (bese MultiByteToWide...?). Secam se da je parametar CodePage (CP) zaguljen, treba provaliti koji je za srpsku cirilicu.
Hvala!

Pozz

MultiByteToWideChar a CP je 1251.
Samo pazi tu moras posebno hendlovati nj, lj, dj, dz.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Reseno

Znam za to sa 'duplim' slovima, nasa funkcija vec radi konverzije u ispravne cirilicne kodove. (doduse, ima i tu kvaka, ali retkih - recimo rec 'injekcija' )
Druze, hvala puno!

Pozz

Eh, uvek neka kvaka

Kolege, zna li neko zasto konverzija funkcijom MultiByteToWideChar() na nekim masinama radi, a na nekim NE?
Pretpostavio sam da ima veze sa instaliranim jezicima/kodnim stranama (konkretno Serbian Cyr); ispostavilo se da nema veze, nesto drugo je u pitanju.
Ima li neko ideju?

Pozz

Da pojasnim gresku:

1) funkcija koja radi konverziju ANSI stringa poziva prvi put MultiByteToWideChar() da bi dobila duzinu izlaznog unicode stringa.
2) Ukoliko je duzina ispravna (znaci poziv je uspeo), ponovo se poziva MultiByteToWideChar() sa prosledjenim unicode string parametrom (u ovom slucaju Result).
3) E sad: OBA poziva prodju, inace bi Result bio prazan string, to je postavljeno na pocetku funkcije. Ali umesto konverzije, drugi poziv MultiByteToWideChar() samo prepise ANSI 'kuke i kvake' u unicode 'kuke i kvake'.

Od 4 probane masine, na jednoj nece da radi, to jest radi kako je opisano iznad; potpuna misterija.
Hvala za bilo kakav hint!

Pozz

P.S. Nema nikakve veze sa instaliranim jezickim podesavanjima (language bar), provereno.

Tipujem da su ti ulazni podaci pogresni, tipa ako napises "a" (ansi kod 97) i zatrazis konverziju u unicode po 1251 strani, neces dobiti cirilicno a vec, polazno, latinicno a.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odnosno za "'asšđčć" latinica daje:

97
115
1113
1088
1080
1078

a cirilica daje:

1072
1089
1096
1106
1095
1115


Moze da se ubaci TNTMemo i proveri sta prikazuje.