Hallo Herr Kosch,
ich habe den Apache Webserver 3.1.6, PHP 4.0.6 und Mysql 3.23.41 installiert. Mein Wunsch ist es, ein Frontend für Mysql mit Delphi 5 Standard zu erstellen. Hierzu benutze ich die TWebbrowser Komponente.
Beispiel: Neue Datenbank erzeugen
procedure TForm1.Neu1Click(Sender: TObject);
var TempList: TStrings;
var verbindung : string;
var verb1 : string;
var verb2 : string;
var sql : string;
var sql1 : string;
var sql2 : string;
var sql3 : string;
var sql4 : string;
var sql5 : string;
var neudb : string;
begin
neudb:= InputBox('Neue Datenbank erstellen', 'Datenbankname', '');
TempList := TStringList.Create;
try
with TempList do begin
verb1 := '$verbindung = @mysql_connect ($server,$benutzer,$passwort)';
verb2 := 'or die ("Es konnte keine Verbindung hergestellt werden !");';
verbindung := verb1 + #13 + verb2;
add ('<?');
add ('$server = "localhost";');
add ('$benutzer = "ralph";');
add ('$passwort = "rgadmin";');
add (verbindung);
sql1 := 'if (mysql_create_db (' + neudb + ')) {';
sql2 := 'print ("Datenbank wurde erfolgreich erstellt !\n");';
sql3 := '} else {';
sql4 := 'printf ("%s\n", mysql_error ());';
sql5 := '}';
sql := sql1 + #13 + sql2 + #13 + sql3 + #13 + sql4 + #13 + sql5;
add (sql);
add ('?>');
end;
Memo.Clear;
Memo.Lines.AddStrings(TempList);
finally
TempList.Free;
end;
Memo.Lines.SaveTofile('c:\apache\htdocs\db_neu.php ');
Webbrowser.Navigate ('http://localhost/db_neu.php');
end;
Ich bin kein Profi und brauche deshalb Ihre Hilfe, denn ich möchte den Quellcode für das php Script direkt im Speicher erzeugen und dann an TWebbroser übergeben. Für reinen html Code gibt es hier im Forum ein Beispiel, das klappt auch. Aber wenn ich php Befehle mit benutze, wird in der Browser Komponente nichts mehr ausgeführt. Können Sie mir ein kleines Beispiel zeigen? Es reicht ja mit phpinfo(). Vielen Dank im voraus.
Ralph
ich habe den Apache Webserver 3.1.6, PHP 4.0.6 und Mysql 3.23.41 installiert. Mein Wunsch ist es, ein Frontend für Mysql mit Delphi 5 Standard zu erstellen. Hierzu benutze ich die TWebbrowser Komponente.
Beispiel: Neue Datenbank erzeugen
procedure TForm1.Neu1Click(Sender: TObject);
var TempList: TStrings;
var verbindung : string;
var verb1 : string;
var verb2 : string;
var sql : string;
var sql1 : string;
var sql2 : string;
var sql3 : string;
var sql4 : string;
var sql5 : string;
var neudb : string;
begin
neudb:= InputBox('Neue Datenbank erstellen', 'Datenbankname', '');
TempList := TStringList.Create;
try
with TempList do begin
verb1 := '$verbindung = @mysql_connect ($server,$benutzer,$passwort)';
verb2 := 'or die ("Es konnte keine Verbindung hergestellt werden !");';
verbindung := verb1 + #13 + verb2;
add ('<?');
add ('$server = "localhost";');
add ('$benutzer = "ralph";');
add ('$passwort = "rgadmin";');
add (verbindung);
sql1 := 'if (mysql_create_db (' + neudb + ')) {';
sql2 := 'print ("Datenbank wurde erfolgreich erstellt !\n");';
sql3 := '} else {';
sql4 := 'printf ("%s\n", mysql_error ());';
sql5 := '}';
sql := sql1 + #13 + sql2 + #13 + sql3 + #13 + sql4 + #13 + sql5;
add (sql);
add ('?>');
end;
Memo.Clear;
Memo.Lines.AddStrings(TempList);
finally
TempList.Free;
end;
Memo.Lines.SaveTofile('c:\apache\htdocs\db_neu.php ');
Webbrowser.Navigate ('http://localhost/db_neu.php');
end;
Ich bin kein Profi und brauche deshalb Ihre Hilfe, denn ich möchte den Quellcode für das php Script direkt im Speicher erzeugen und dann an TWebbroser übergeben. Für reinen html Code gibt es hier im Forum ein Beispiel, das klappt auch. Aber wenn ich php Befehle mit benutze, wird in der Browser Komponente nichts mehr ausgeführt. Können Sie mir ein kleines Beispiel zeigen? Es reicht ja mit phpinfo(). Vielen Dank im voraus.
Ralph
Comment