Announcement

**Gast_1** · 15.10.2003, 08:45

Hier nun die Antwort: 
Also bei der Excel-Automation mit Delphi gibt es zwei M�glichkeiten (und eine kleine dritte, dazu sp�ter) zu entwickeln. Die fr�he und die sp�te Bindung: 

1) fr�he Bindung --> man nutzt z. B. die "TExcel..."-Komponenten von Delphi (zu finden unter Servers) und hat so die M�glichkeit, Fehler mit dem Compiler zu erkennen und auch die Programmierhilfe zu nutzen. 
Nachteil: bestimmte Funktionen sind so nicht verf�gbar (z.B. Werte einer X-Achse zuweisen)
 
2) sp�te Bindung --> man arbeitet �ber OLE-Objekte mit Delphi, kann so aber keine Programmierhilfe nutzen und nicht auf den Compiler z�hlen, da Fehler erst zur Laufzeit erkannt werden k�nnen. Das ist ein wenig m�hsam, aber so sind ALLE Funktionen von Excel ansprechbar
3) man kann beides nutzen. An der Stelle, wo man mit den Delphi-Komponenten nicht weiterkommt, kann man �ber eine Interface-Verkn�pfung die sp�te Bindung nutzen und so die nicht unterst�tzten Funktionen ansprechen, - prim�r arbeitet man jedoch mit den Excel-Komponenten von Delphi. Diese Methode habe ich gew�hlt, da man so sehr komfortabel programmieren kann.
 
Ich habe Ihnen ein kleines Beispiel per Email geschickt. Das ist die fr�he Bindung, sollten Sie noch an die anderen Varianten interessiert sein, kann ich Ihnen da auch noch zahlreiche Beispiele schicken.
 
Hier noch das Beispiel zur sp�ten Bindung: 

procedure TForm1.Button1Click(Sender: TObject); 
{* Sebastian Hagedorn, September 2003 *} 
{* Excel starten, Werte in Worksheet einf�gen und ein Chart erzeugen was auf die eingetragenen *} 
{* Werte Bezug nimmt. *} 
var 
Excel, range : Variant; 
i : Integer; 
H : HResult; 
begin 
try 
H := (OleInitialize(nil)); // initialisieren 
if (H <> S_OK) and (H <> S_FALSE) then begin 
ShowMessage('Fehler bei der OLE-Initalisierung! Microsoft Excel konnte nicht gestartet werden.'); 
Exit; 
end; 
 
Excel := (CreateOleObject('Excel.Application')); 
Excel.Workbooks.add; 
Excel.Worksheets[1].Cells[1, 1] := ('Time'); 
Excel.Worksheets[1].Cells[1, 2] := ('Signal'); 
 
for i:=0 to 100 do begin 
Excel.Worksheets[1].Cells[i+2, 1] := (inttostr(trunc(i/2.9))); 
Excel.Worksheets[1].Cells[i+2, 2] := (inttostr(trunc(i*0.2))); 
end; 
 
{* f�ge ein Diagram ein *} 
Excel.Charts.add; 
{* Diagramm-Titel und Legende *} 
Excel.ActiveChart.HasLegend := (False); 
Excel.ActiveChart.HasTitle := (True); Excel.ActiveChart.ChartTitle.Characters.Text := ('Chromatogramm'); 
 
// Hintergrundfarbe des Diagramms 
Excel.ActiveChart.PlotArea.Select; 
Excel.Selection.Interior.ColorIndex := (2); Excel.Selection.Interior.Pattern := (xlsolid); 

// Typ des Diagramms --> Variable aus Excel_TLB Unit 
Excel.ActiveChart.ChartType := (xlline); 
Excel.ActiveChart.SetSourceData(Excel.Workbooks[1].Worksheets[1].range['A1:A100'], xlColumns); 
// die Werte der X-ACHSE aus der Spalte nehmen 
Excel.ActiveChart.SeriesCollection(1).XValues := ('=Tabelle1!Z1S2:Z'+inttostr(500)+'S2'); 
finally 
Excel.Visible := (True); 
end; 
end; 
 

Folgende Units werden f�r das Beispiel ben�tigt und m�ssen eingebunden werden: 
uses Variants, ActiveX, ComObj, Excel_TLB; 
 

MfG
Sebastian Hagedor

**Stefan Kraus** · 16.10.2003, 16:56

Hallo Sebastian,
vielen Dank f�r die rasche Hilfe. Noch ein Problem: Bei der sp�ten Bindung wird die Legende (hier Time) angezeigt, bei der fr�hen zeigt er als Legende Reihe1. Ich habe HasLegend auf True gesetzt. Wie kann ich bei der fr�hen Bindung die richtige Legende anzeigen?

Gru�
Stefan Krau

**Gast_1** · 16.10.2003, 17:25

Hallo Stefan,

also so ganz verstehe ich Dein Problem noch nicht, weil die Legende wird automatisch angezeigt, sprich alle Datenreihen die im Diagramm dargestellt werden. Sprich wenn Du haslegend auf True gesetzt hast, m�sste alles klappen. Erkl�re doch nochmal genauer oder schick mir die Beispiele mit einer kleinen Beschreibung.

MfG
Sebastia

Announcement

Excel-Automation

Excel-Automation

Comment

Comment

Comment