Announcement

**Jens Schumann** · 13.04.2000, 07:26

Hallo Michael, irgendwo im Demos Verzeichnis befindet sich ein Beispiel. :-) Jens Schuman

25.05.2000, 11:17

Hallo,
mit Delphi ist mit Sicherheit viel oder fast alles m�glich. F�r die Erstellung einer Homepage empfehle ich aber den Einsatz von entsprechend h�her qualifizierter Software(Homesite,Netjet oder Freeware wie Phase5 o.�.)
:Fred Ziebel

**RaMa** · 20.07.2001, 08:21

Ich bin ebenfalls auf der Suche nach Beispielen, um eine
Hompage mit Delphi bauen zu k�nnen. Es mag ja sein
das es h�her qualifizierte Software gibt, aber wenn Delphi
das nun mal kann, warum sollte man es dann nicht einmal
Versuchen ?
Mit den Beispielen in den Demos Verzeichnis konnte ich allerdings
noch nicht viel Anfangen. Das k�nnte bei mir auch ein Gedankliches
Problem sein, da ich die Endung htm oder html f�r eine
Homepage Vermisse. Bisher habe ich eine Homepage immer in zusammen
arbeit mit Word und Netscape Composer erstellt. Das gibt als
Dateiendung eben htm

**Klaus-Peter Fitzner** · 20.07.2001, 08:38

Homepage mit Delphi.

Ich nutze zum Beispiel Delphi zum Erstellen von 26 Dateien, wobei jede f�r einen Buchstaben des Alphabet steht. In einer Datenbank pflege ich alle Stichworte, wie "UpdateSQL, TForm usw.." Jedem dieser Stichworte ist ein downloadbares Programm zugeordnet. Mit einer SQL-Abfrage und einer Schleife werden auf Knopfdruck alle Seiten neu erstellt. Das k�nnte ich mit keinem mir bekannten Spezialprogramm. Hier mal der Quelltext dieser Routine:
Da der Quelltext HTML-Befehle enth�lt, kann die Darstellung anders aussehen 
procedure TMain.Button3Click(Sender: TObject); 
var 
i, zaehler: integer; 
f1: TextFile; 
s, s1:string; 
begin 
{Allle HML-Dokumente von a.htm bis z.htm werden durchforstet und m�ssen
vorhanden sein.} 
for i := ord('a') to ord('z') do begin 
s1 := htmPfad+chr(i)+'.php'; 
Statusbar1.Panels[2].Text := s1; 
Statusbar1.refresh; 
 
{Jetzt schreiben} 
AssignFile(F1, s1); 
Rewrite(f1); 
{Jetzt den ersten Teil schreiben.} 
Writeln(F1, '<!doctype html public "-//W3C//DTD HTML 4.0 PHP 4.0//EN">'); 
//Writeln(F1, '<php>'); 
 
Writeln(F1, '<head>'); 
s := '<title>' + Chr(i) + '</title>'; 
Writeln(F1, s); 
Writeln(F1, '<meta name="author" content="Klaus-Peter Fitzner">'); 
Writeln(F1, '</head>'); 
 
Writeln(F1, '<body text="#0000BF" bgcolor="#7B91A6" link=#0000DF vlink=#A00020 alink=#E06000>'); 
Writeln(F1, '<div align="center"><h1>Inhaltsverzeichnis</h1></div>'); 
s := '<div align="Center"><h1>'+UpperCase(Chr(i))+'</h1></div>'; 
Writeln(F1, s); 
Writeln(F1, '<a href="index.php">Startseite</a>'); 
Writeln(F1, '<?php'); 
Writeln(F1, ' setlocale(LC_TIME","ge");'); 
Writeln(F1, ' echo " Letzte �nderung: ",strftime("%A %x %H:%M", getlastmod())," ";'); 
Writeln(F1, '?>'); 
Writeln(F1, '<hr> '); 
{F�r die Darstellung der Tabelle erstelle ich eine SQL-Abfrage mit
allen ben�tigten Daten.} 
with Abfrage do begin 
close; 
SQL.Clear; 
s := 'SELECT keyword.Keyword, dateinamen.Name, dateinamen.groesse '+ 
'FROM (dateinamen INNER JOIN datkey ON dateinamen.ID = '+ 
'datkey.ID_Datei) INNER JOIN keyword ON '+ 
'datkey.ID_Keyword = keyword.ID '+ 
'WHERE UPPER(SUBSTRING(keyword.keyword FROM 1 FOR 1)) = "'+UpperCase(chr(i))+'" '+ 
'ORDER BY keyword.keyword'; 
SQL.add(s); 
open; 
end; 
Append(F1); 
while not Abfrage.eof do begin 
Writeln(F1, '<table border="3" cellspacing=1 width="92%" bordercolor=#007070>'); 
zaehler := 0; 
while (not Abfrage.eof) and (zaehler <= 18) do begin 
Writeln(F1,' <tr>'); 
Writeln(F1,' <td width="70%">'+ 
AbfrageKeyword.value + '</td>'); 
Writeln(F1,' <td width="20%"><a href="delphi/tutorials/'+ 
AbfrageName.value + '">' + AbfrageName.value + 
'</a></td>'); 
Writeln(F1,' <td align="right" width="10%">'+ 
FloatToStr(AbfrageGroesse.value)+' KB </td>'); 
Writeln(F1,' </tr>'); 
Flush(F1); 
inc(Zaehler); 
Abfrage.next; 
end; 
Writeln(F1, '</table>'); 
Writeln(F1, '<hr> '); 
Writeln(F1, '<a href="index.php">Startseite</a>'); 
Writeln(F1, '<hr> '); 
end; 
 
{Jetzt den Rest schreiben.} 
Writeln(F1, '</body>'); 
Writeln(F1, '</html>'); 
Writeln(F1, ''); 
Flush(F1); 
CloseFile(F1); 
Statusbar1.Panels[2].Text := 'Aktualisierung beendet'; 
Statusbar1.refresh; 
end; 
end; 

mfg Klaus-Peter
Das Ergebnis kann man sic

**Klaus-Peter Fitzner** · 20.07.2001, 08:45

Ich mu� mich nochmal melden. Die HTML-Befehle, die ich per Delphi einf�ge haben die sichtbare Darstellung hier im Forum nat�rlich ver�ndert. Wer Interesse an diesem Code hat, dem schicke ich ihn gerne zu.
Die Auswirkungen dieses Codes kann man sich auf www.delphi-download.de ansehen.

mfg Klaus-Pete

**Uli Becker** · 20.07.2001, 15:20

Hallo Klaus-Peter,

Quelltext einfach in die Tags pre und /pre einf�gen, dann klappt's auch mit der Formatierung. ;-)

Gru� Ul

**RaMa** · 23.07.2001, 17:24

Hallo Klaus - Peter.
Ich habe mir gerade die von dir genannte Hompage angesehen.
Ich verstehe aber immer noch nicht, wie du das mit einem
Button Click Ereignis bewerkstelligst.
Ganz zu Anfang deines Beispiels steht :
procedure TMain.Button3Click(Sender: TObject);
Wenn ich jetzt davon ausgehe, das dies nur das Ereignis ist,
was hinter den einzelnen Buttons steckt, so frage ich mich, wie
du die Form hinbekommen hast.
In der Adressleiste des IE sieht man zum Beispiel nicht, wie ich
es gewohnt bin, eine Index.htm Seite.
Ich kenne bei Delphi eigentlich das eigentlich so, das ich
eine Form habe und auf diese Form Buttons setze.
Beim Kompilieren erhalte ich aber, so weit ich das weiss, eine
Exe Datei. Und hier hackt es halt noch. Wie bekomme ich statt der
Exe eine Htm Datei ?

PS : Wenn das alles in Delphi geschrieben ist, auf deiner Homepage,
dann ist das doch schon nicht schlecht, was du da gemacht hast

**Uli Becker** · 23.07.2001, 18:14

Hallo,

da handelt es sich wohl um ein Missverst�ndnis. Mit Hilfe des Delphi-Programmes werden die Dateien a.htm bis z.htm ("Allle HML-Dokumente von a.htm bis z.htm werden durchforstet und m�ssen vorhanden sein.") bearbeitet. HTM-Files sind ja nichts anderes als Text-Dateien.

Gru� Ul

**Klaus-Peter Fitzner** · 25.07.2001, 09:07

Genau so ist es. Ich schreibe Textdateien mit der Endung *.htm (oder wie in meinem Falle *.php).
Es ist kein Ersatz f�r einen HTML-Editor, aber die einzige komfortable M�glichkeit, den Inhalt einer Datenbank in 26 HTML-Dokumente in nur 1 Sekunde zu bringen.
Uli, als ich deinen Hinweis las , habe ich geschmunzelt. Diesen Hinweis gab ich vor kurzem jemand anderem. Aber wenn man selbst in N�ten ist, kommt man nicht darauf. Danke f�r den Tip. Werde sofort korrigieren.

mfg Klaus-Pete

Announcement

Hompage unter Delphi 5 erstellen

Hompage unter Delphi 5 erstellen

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment