Замена текста в OpenOffice

← →
_Guest_ (2007-11-29 15:24) [0]

При замене текста в OpenOffice получаю ошибку: InterfaceOleWrapper_Impl::doInvoke

Литературу почитал, примеры посмотрел, макрос создал, в чем дело понять не могу. Вот код, неудобоваримый из-за того что убрал все промежуточные процедуры, что бы было понятно чего откуда, проверки тоже убрал пока.

procedure TFormEMBasis.oo2Click(Sender: TObject); var StarOffice, StarDesktop, Document, ooFrame, Struct, dispatcher : Variant; VariantArr, VariantArr1 : variant; begin StarOffice := CreateOleObject( "com.sun.star.ServiceManager" ); StarDesktop := StarOffice.createInstance("com.sun.star.frame.Desktop"); Document := StarDesktop.LoadComponentFromURL( "private:factory/swriter" , "_blank" , 0, VarArrayCreate([0, -1], varVariant)); ooFrame := Document.getCurrentController.getFrame; Dispatcher := StarOffice.CreateInstance("com.sun.star.frame.DispatchHelper"); VariantArr1 := VarArrayCreate([0, 0], varVariant); Struct := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); Struct.Name := "Text"; Struct.Value := "!!"; VariantArr1[0] := Struct; dispatcher.executeDispatch(ooFrame, ".uno:InsertText", "", 0, VariantArr1); VariantArr := VarArrayCreate([0, 18], varVariant); VariantArr[0] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[0].Name := "SearchItem.StyleFamily"; VariantArr[0].Value := 2; VariantArr[1] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[1].Name := "SearchItem.CellType"; VariantArr[1].Value := 0; VariantArr[2] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[2].Name := "SearchItem.RowDirection"; VariantArr[2].Value := true; VariantArr[3] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[3].Name := "SearchItem.AllTables"; VariantArr[3].Value := false; VariantArr[4] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[4].Name := "SearchItem.Backward"; VariantArr[4].Value := false; VariantArr[5] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[5].Name := "SearchItem.Pattern"; VariantArr[5].Value := false; VariantArr[6] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[6].Name := "SearchItem.Content"; VariantArr[6].Value := false; VariantArr[7] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[7].Name := "SearchItem.AsianOptions"; VariantArr[7].Value := false; VariantArr[8] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[8].Name := "SearchItem.AlgorithmType"; VariantArr[8].Value := 0; VariantArr[9] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[9].Name := "SearchItem.SearchFlags"; VariantArr[9].Value := 65536; VariantArr[10] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[10].Name := "SearchItem.SearchString"; VariantArr[10].Value := "!!"; VariantArr[11] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[11].Name := "SearchItem.ReplaceString"; VariantArr[11].Value := "22"; VariantArr[12] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[12].Name := "SearchItem.Locale"; VariantArr[12].Value := 255; VariantArr[13] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[13].Name := "SearchItem.ChangedChars"; VariantArr[13].Value := 2; VariantArr[14] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[14].Name := "SearchItem.DeletedChars"; VariantArr[14].Value := 2; VariantArr[15] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[15].Name := "SearchItem.InsertedChars"; VariantArr[15].Value := 2; VariantArr[16] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[16].Name := "SearchItem.TransliterateFlags"; VariantArr[16].Value := 1024; VariantArr[17] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[17].Name := "SearchItem.Command"; VariantArr[17].Value := 0; VariantArr[18] := StarOffice.Bridge_GetStruct("com.sun.star.beans.PropertyValue"); VariantArr[18].Name := "Quiet"; VariantArr[18].Value := true; dispatcher.executeDispatch(ooFrame, ".uno:ExecuteSearch", "", 0, VariantArr); StarOffice := Unassigned; end;

Ошибка возникает при выполнении dispatcher.executeDispatch(ooFrame, ".uno:ExecuteSearch", "", 0, VariantArr);

Документ с "!!" создается.
Кто может, помогите пожалуйста.

Да и еще: VariantArr[0].value если смотреть отладчиком возвращает Unknown type: 17
То же для VariantArr[1], VariantArr[8], VariantArr[13]-VariantArr[15], VariantArr[17]

← →
sniknik © (2007-11-29 15:59) [1]

http://delphimaster.net/view/1-1196340811/
спам

Замена текста в OpenOffice Найти похожие ветки