Кодировка, OpenOffice Calc

[Dane]

Написал програмку на Lazarus для работы с Calc. Все почти хорошо, только есть такая проблема

строка:
FDocument.getSheets.insertNewByName(SheetName, SheetOrderNum);
дает в названии листа:
慃汲扳摡倠慬慺

FDocument.getSheets.insertNewByName(SheetName, 'Carlsbad Plaza');
дает нормальное название листа

Чувствую, что грабли в кодировке, но не могу понять - где?
Помогите, плз

[Padre_Mortius]

а что за переменная SheetOrderNum?

есть подозрение что дело не в кодировке, а в этой переменной

[Dane]

Извините, это моя ошибка:
Вторая строка должна выглядеть так
FDocument.getSheets.insertNewByName('Carlsbad Plaza', SheetOrderNum);
SheetOrderNum - индекс втавляемого листа (integer)
SheetName - имя вставляемого листа (string)

[Padre_Mortius]

Под какой системой работаете и какая системная локаль (если под Linux)?
Какая версия fpc и Lazarus?

[v-t-l]

и какие средства доступа к ООо используются?

[Dane]

Работаю под Windows.
Lazarus 0.9.25
Использую OLE

[Padre_Mortius]

тестовый пример можно увидеть как это все реализуется?

[Dane]

Как реализован класс

Код: Выделить всё

...
const
  ooTemplateExt = '.xlt';

  TOOCellInfo = record
     ColCount:integer;
     RowCount:integer;
  end;

  TOOCalc = class
    FObj: Variant;
    FDocument: Variant;
    FDesktop: Variant; // OpenOffice desktop reference (not used now)
    FActiveSheet: Variant; // Active sheet
    FVisible: Boolean;
  private
    function FileName2URL(AFileName: String): Variant;
    function CreateParam(AName: string; AData: Variant): Variant;
    function CreateValue(AName: string; AData: Variant): Variant;
    procedure SetVisible(const Value: Boolean);
  public
    constructor Create(AFileName: String);
    destructor Destroy; override;

    function ActivateSheet(AIndex: Integer): Boolean;
    procedure FreeDocument(ACloseApp: Boolean);
    procedure Load(AFileName: String);
    procedure New;
    function InsertSheet(SheetName:String; SheetOrderNum: integer): boolean;
    function RenameSheet(AIndex:integer; SheetName: String): Boolean;

    property Visible: Boolean read FVisible write SetVisible;
  end;

implementation

{ TOOCalc }

function TOOCalc.ActivateSheet(AIndex: Integer): Boolean;
begin
  Result := False;
  if not VarIsNull(FDocument) then
  begin
    FActiveSheet := FDocument.getSheets.getByIndex(AIndex - 1);
    Result:= True;
    Sleep(50); //Asyncronus, so better give it time to make the change
  end;
end;

function TOOCalc.InsertSheet(SheetName: String; SheetOrderNum: integer): Boolean;
begin
  Result := False;
  if not VarIsNull(FDocument) then
  begin
    if (SheetOrderNum<0) or (SheetOrderNum>FDocument.getSheets.getCount()) then
       SheetOrderNum := FDocument.getSheets.getCount();
    FDocument.getSheets.insertNewByName(SheetName, SheetOrderNum);
    Result:= True;
    Sleep(50); //Asyncronus, so better give it time to make the change
  end;
end;

function TOOCalc.RenameSheet(AIndex:integer; SheetName: String): Boolean;
var
   SheetObj : Variant;
begin
  Result := False;
  if not VarIsNull(FDocument) then
  begin
    SheetObj := FDocument.getSheets.getByIndex(AIndex-1);
    SheetObj.setName(SheetName);
    Result:= True;
    Sleep(50); //Asyncronus, so better give it time to make the change
  end;
end;


constructor TOOCalc.Create(AFileName: String);
begin
  FObj := CreateOleObject('com.sun.star.ServiceManager');
  if VarIsEmpty(FObj) or VarIsNull(FObj) then
    raise Exception.Create('═хтючьюцэю яюфэ Є№ com-ёхЁтхЁ "com.sun.star.ServiceManager"');
  FVisible := False;
  FDocument := Null;
  if AFileName = '' then // new document
    New
  else
    Load(AFileName);
end;

function TOOCalc.CreateParam(AName: string; AData: Variant): Variant;
begin
  Result := VarArrayCreate([0, 0], varVariant);
  Result[0] := CreateValue(AName, AData);
end;

function TOOCalc.CreateValue(AName: string; AData: Variant): Variant;
var
  Reflection: Variant;
begin
  Reflection:= FObj.createInstance('com.sun.star.reflection.CoreReflection');
  Reflection.forName('com.sun.star.beans.PropertyValue').createObject(Result);
  result.Name := AName;
  if not VarIsNull(AData) then
    result.Value:= AData;
end;

destructor TOOCalc.Destroy;
begin
  FreeDocument(False);
  FObj := Null;
  inherited;
end;

function TOOCalc.FileName2URL(AFileName: String): Variant;
begin
  result:= '';
  if LowerCase(Copy(AFileName, 1, 8)) <> 'file:///' then
    Result := 'file:///';
  Result := Result + StringReplace(AFileName, '\', '/', [rfReplaceAll, rfIgnoreCase]);
end;

procedure TOOCalc.FreeDocument(ACloseApp: Boolean);
begin
  if not VarIsNull(FDocument) then
  begin
    if ACloseApp then
      FDocument.Dispose;
    FActiveSheet := Null;
    FDocument := Null;
  end;
end;

procedure TOOCalc.Load(AFileName: String);
var
  Param: Variant;
begin
  FreeDocument(True);
  FDesktop := FObj.CreateInstance('com.sun.star.frame.Desktop');

  Param := VarArrayCreate([0, 1], varVariant);
  Param[0] := CreateValue('AsTemplate', True); //AnsiCompareStr(ExtractFileExt(AFileName), ooTemplateExt) = 0);
  Param[1] := CreateValue('Hidden', not Visible);

  FDocument := FDesktop.LoadComponentFromURL(FileName2URL(AFileName), '_blank', 0, Param);
  ActivateSheet(1);
end;

procedure TOOCalc.New;
begin
  FreeDocument(True);
  FDesktop := FObj.CreateInstance('com.sun.star.frame.Desktop');
    //Create the document...
  FDocument:= FDesktop.LoadComponentFromURL('private:factory/scalc', '_blank', 0, CreateParam('Hidden', not Visible));
  ActivateSheet(1);
end;

procedure TOOCalc.SetVisible(const Value: Boolean);
begin
  if Value = FVisible then
    Exit;
  if VarIsNull(FDocument) then
    Exit;
  FDocument.getCurrentController.getFrame.getContainerWindow.setVisible(Value);
  FVisible := Value;
end;
...

юнит

Код: Выделить всё

...
var
  Form1: TForm1;
   OObj:TOOCalc;
   OObj2:TOOCalc;

begin
   OObj := TOOCalc.Create(SrcFileName.Text);
   OObj2 := TOOCalc.Create(TrgFileName.Text);
   OObj2.ActivateSheet(1);
   CHotelName := 'New Hotel';
   OObj2.RenameSheet(1, CHotelName);
   ...
end;
...

Помогите, плз. Очень надо решить проблему!!!

[Dane]

Есть поправки. После долгих изучений вопроса могу сказать, что точно проблема в кодировке. Подскажите куда можно ткнуться, чтобы посмотреть стандартные функции перекодировки FPC?

[Attid]

в поиск по сайту обсуждалось, стандартных средств очень мало.

[Dane]

Хмм. Не помогает. Ничего не понимаю: в ячейку вставляется на "ура", а в ярлык - квадратики (одна и таже переменная).

[Attid]

а самим ОО не жаловался ? там есть где нибуть форум техподдержки ?
или стукнись к нашим кто русский сборку делает , они же еще что-то около 200 патчей накладывают которые спецефичны для русского языка.

[Dane]

На форум OpenOffice я залез в самую первую очередь и, конечно, там тоже уже наследил :0) Пока вразумительных ответов не получал. Понятно, что изначальная кодировка OpenOffice - UTF8. Но поведение с именованием ярлыка мне не очень понятно. Интересно, что если в том, что бросается на название листа (переменная SheetName) есть латинские буквы 'w' или 'p' то они отображаются правильно среди квадратиков.

[AAlexA]

Подобная ситуация, но русский текст не вставляется даже в ячейку,

Код: Выделить всё

 OO := CreateOleObject('com.sun.star.ServiceManager');
  Desktop := OO.createInstance('com.sun.star.frame.Desktop');
   Document := Desktop.LoadComponentFromURL(
                  'private:factory/scalc', '_blank', 0,
                  VarArrayCreate([0, -1], varVariant));
  Sheets := Document.GetSheets;
  Sheet := Sheets.getByIndex(0);
  Cell := Sheet.getCellByPosition(0, 0);
  Cell.setString(t);    

латиница вставляется нормально если t вариант или widestring. При t:string каждый вставляемый символ удваивается. При этом на Делфи 7 всё работает нормально. Кто может что посоветовать?

Добавлено спустя 1 час 16 минут 36 секунд:
Со вставкой текста в ячейку проблема решилась опцией компилятора
{$codepage utf-8}
Лазарус 0.9.25
Опен Офис 2.4.1