Datenbankinhalt grafisch im Web darstellen

[pnuernbe]

Liebe Delphi Freunde. Hab vor kurzem meine erste ISAPI dll
erstellt um Daten im Web aus einer Access Datenbank darzustellen.
Weiß jemand, mit welcher Komponente die Grafische Darstellung der Daten
im Web möglich ist ? Oder ob es überhaupt eine Möglichkeit gibt ?

[Phoenix]

Hi Pnuernbe,

erm, sorry, aber ich verstehe nicht so ganz, was Du willst.
Was genau verstehst Du unter "Daten grafisch darstellen"?

Aus Zahlen Tortendiagramme machen oder Texte tabellarisch auflisten?

Bitte gib uns ein paar mehr Infos

[pnuernbe]

Hab an ein Balkendiagramm gedacht....

[Phoenix]

das ist recht einfach.

Die Länge zu berechnen sollte ja kein Problem sein, und dann packt man
die Teile einfach in eine Tabelle (am besten fixe Breite), und packt darein eine Grafik. Die besteht aus x mal 1 Pixel (x ist in dem Fall die Breite des Diagrammes, nicht die Länge) und bindet das IMG mit der berechneten Länge ein.

[pnuernbe]

HHmmm Super Idee. Aber wie kann ich denn mit der ISAPI.dll Grafiken auslesen ? Benutze in meinem dynamischen Webdokument bis jetzt immer die Tags <#Tag> um Namen dynamisch darzustellen. Geht das so auch mit Grafiken ? Sieht Delphi wirklich keine Komponente für so was vor ?

[Phoenix]

Du legst Die Grafik fest ab und bindest diese auch Fest in die Seite mit ein. Dynamisch wird nur die Länge verlängert.

[pnuernbe]

Super, kann die größe meines Balkens (Blau1.gif) steuern.
Allerdings weiß ich nicht wie ich die größe des zweiten Balkens (Blau2.gif) steuern kann. Hab den Code eingefügt...vielleicht kannst Du mir ja helfen...?
Das Problem ist, das wohl mit ReplaceText immer nur ein Tag angesprochen werden kann.

//***********************HTML Tag**********************************
procedure TWebModule1.PPR_GrafikHTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings; var ReplaceText: String);
var Grafik0,Grafik1:string;//Variable
begin
Grafik0 := '';
Grafik0 := '100';//Wert festlegen

Grafik1:='';
Grafik1:='200';



ReplaceText := Grafik0;//Tecxt ersetzen
ReplaceText :=Grafik1;

//*********************************HTML SeitePageProducer***********