Преобразование String в OleVariant

[vg169]

Имеется:

var S : String; V : OleVariant;
S := 'd:\Путь\Мой файл.docx';
V := S;

Результат: V содержит не указанный текст, а некие кракозябры.

Все это нужно для сохранения средствами OLE файла Word под этим именем. К сожалению, продукты от Microsoft не принимают параметров никакого типа, кроме OleVariant.

Спасибо за помощь.

[Stilet]

Во-первых: Просто передавай переменную S в метод сохранения.
Во-вторых:

V := OleVariant(S);

В-третьих:

V := 'd:\Путь\Мой файл.docx';

[Alter]

Опередили .

[vg169]

Спасибо за советы, но они проблему не решили.

V := OleVariant(S); Результат тот же, что и при простом присваивании
V := 'd:\Путь\Мой файл.docx'; Не катит, т.к. в действительности эта строка формируется программно, при этом используются данные из базы, которые по определению String.
В DelphiWorld и в других популярных справочниках ответа я тоже не нашел.

Неужели я первый наткнулся на такую ситуацию?

[Stilet]

в действительности эта строка формируется программно, при этом используются данные из базы, которые по определению String.

Ну и пусть в формировании учавствует не S а V, как будто бы это S...
Код в студию.

[vg169]

Вот код поподробнее.

var S : String; V : OleVariant;

S := 'D:\' + FieldbyName('Path').AsString + '\' + FieldByName('FNam').AsString;
V := S;
WordApplication.ActiveDocument.Save As(V, EmptyParam, EmptyParam, ,,,,, и т.д.

Кракозябры возникают в строке V := S;
Можно сразу объявить S как OleVariant. Тогда кракозябры появятся уже в предыдущей строке S := ...
Мне ясно, что проблема в кириллице, неясно как ее решить.
В процедуру WordApplication.SaveAs нельзя передавать никаких переменных, кроме OleVariant.

[Stilet]

Не знаю как у тебя но у меня нормательно работает такое:

_Document.SaveAs(ExtractFilePath(paramstr(0))+'\qq.doc');

Где - _Document:OleVariant = WordApplication.ActiveDocument

[vg169]

Сообщение от Stilet

Не знаю как у тебя но у меня нормательно работает такое:

_Document.SaveAs(ExtractFilePath(paramstr(0))+'\qq.doc');

Где - _Document:OleVariant = WordApplication.ActiveDocument

Так и у меня работает. Пока нет кириллицы в имени файла.

[Stilet]

ТОлько что попробовал:

ActiveDocument.SaveAs('c:\temp\Привет.doc');

Создало с именем Привет.doc...
Word 2003