Open Office in Delphi integrieren

[Kagegan1337]

Hallo liebe com,
bin zwar recht neu hier in dem Forum und auch nicht der erfahrenste delphispezialist.
Zur Zeit lerne ich in der Fachoberschule ein wenig mit Delphi zu arbeiten, langweile mich dort aber ziemlich, also kam mein Lehrer auf die gloreiche Idee mir eine Sonderaufgabe zu geben. Ich solle doch gemessene Werte über eine "Vellemann Karte" aufnehmen und direkt in Detei speichern. Die Werte sollen in einem Array und einem Stringgrid ausgelesen werden. Okay das war zu einfach. Jetzt soll ich diese Werte allerdings an MS Excel übergeben und da mein Lehrer davon keine Ahnung soll ich das auch gleich dokumentieren. Da ich auf meinem Heim-PC kein MS Excel habe sondern nur Open Office dachte ich mir, ich schreibe die Dokumentation über das Übergeben von Daten and Open Office. Feststellen musste ich jetzt das mir ja noch die Komponenten fehlen das mit Delphi auszuführen. Also googelomaten eingeschalten, 'n zip runtergeladen in den die Units zum Installieren von OO Automatisierung enthalten sind und zack da is mein Problem. Laut der nebeiliegen PDF sind die Units einfach zu installieren, aber mir wird beim komperlieren immer der Fehler > Undefinierter Bezeichner: 'ValueFromIndex' < angezeigt. Und nu frag ich euch woran das liegen könnte.
Danke schon mal im Vorraus und bitte seid gnädig was mein Vorwissen angeht
Quellcode der Unit

Code:

unit OOTable;

interface

uses Classes, Contnrs, ooObject, Variants;

type
  TOOTable=class(TObject)
  private
    FvTable: Variant;

  protected
    property vTable:Variant read FvTable;
  public
    constructor create(AvTable:Variant); reintroduce;
    procedure pInitialize(AiRows, AiCells:Integer);

    procedure pSetTableValues(AoStringList:TStringList);
  end;

implementation

uses SysUtils;

{ TOOTable }

constructor TOOTable.create(AvTable:Variant);
begin
  FvTable:=AvTable;
end;

procedure TOOTable.pInitialize(AiRows, AiCells: Integer);
begin
  if NOT VarIsEmpty(vTable) then begin
    vTable.initialize(AiRows,AiCells);
  end;
end;

procedure TOOTable.pSetTableValues(AoStringList: TStringList);
var iIndex:Integer;
  vCell:OleVariant;
  aCellName, aCellValue:String;
begin
  if NOT VarIsEmpty(vTable) then begin
    for iIndex := 0 to AoStringList.Count - 1 do begin
      aCellName:=AoStringList.Names[iIndex];
      aCellValue:=AoStringList.ValueFromIndex[iIndex];
      vTable.getCellByName(aCellName).SetString(aCellValue);
    end;
  end;
end;

end.

[Der schöne Günther]

Wenn ich es auf die Schnelle richtig sehe, hatte TStrings vor Delphi 7 noch keine 'ValueFromIndex' -Property. Mit welcher Delphi-Version arbeitet ihr? Noch älter als 7?

[Kagegan1337]

Also wir arbeiten mit Delphi 6, also schon einer älteren. Nur laut der PDF des Entwicklers soll das ab Delphi 5 funktionieren.
Hast du sonst eine andere Idee wie ich OO in delphi einbinden kann?

[Olli73]

Immer schän die Delphi-Version angeben!

Du kannst es ggf. so abändern:

http://www.delphidabbler.com/tips/130

[Ginko]

Ich frag mich warum so wenig Lehrer auf die Idee kommen Lazarus zu nutzen...

MfG

[Kagegan1337]

ja das mit der Version hatte ich mir auch fest vorgenommen als das forum erst nach dem Thema durchsucht hatte und naja letzlich doch vergessen, aber danke für die hilfe, ich werde es mal versuch es so irgendwie abzuändern^^
danke nochmal

[Kagegan1337]

Zitat von Ginko:

Ich frag mich warum so wenig Lehrer auf die Idee kommen Lazarus zu nutzen...

MfG

Was auch immer das sein soll^^ ich frag mich warum wir mir Delphi arbeiten. Nichts gegen Delphi, ist eigentlich eine sehr angehme Sprache, aber nach unserem Abschluss ist es eigentlich selbstverständlich das wir auf die HAW( Hochschule für Angewandte wissenschaften ) gehen und dort ist C/C++ Standart.

[wom]

Hallo zusammen,

wo finde ich den ooObject als Download ?

wom

[Lemmy]

Hallo,

eine mögliche Implementierung gibts z.b. hier:
http://sourceforge.net/projects/oo-automation/

am besten die Sourcen per SVN holen, im Zip stecken imho noch ein paar zusätzliche Dateien...

Grüße