Announcement

**Andreas Tengicki** · 21.08.2001, 12:57

soweit ich wei� nein,

was auch nicht sinnvoll ist, da php eine eigene Skriptsprache ist, also eher sowas wie Perl, ASP, JSP

und ISAPI Module etc, compiliert werden und eher sowas wie Servlets etc. sind

**Rul Wagner** · 22.08.2001, 00:47

@Andreas Tengicki

danke einstweilen!
klar, php ist eine eigene skript sprache, ich frage mich immer nur, wie ich die Auswertung des scripts also z.B.

empfang.php
...........

.html.
.head.
.title. Test Seite ./title.
./head.
.body.
.h1. <?php echo ("hallo ich bin der text"); ?> ./h1.
./body.
./html.

in eine WepPageProducer bekomme.
oder zumindestens in eine Variable...

Hab ich da jetzt einen Denkfehler?
Konsolenanwendung,,,...php.exe... irgendwie stehe ich jetzt auf dem Schlauch..wer kann mir weiterhelfen?

in einer Server Umgebung wird ja das Script auch ausgef�hrt, wie wird es dort "gehandled"...wie bekommt der Webserever die Auswertung, die er dann sendet?

Wag

**Andreas Tengicki** · 22.08.2001, 10:10

Wieso soll das php in eine WebProducer Komponente? Irgendwas versteh ich da noch nicht?

Eintige Erkl�rung Du willst mit dem WebProducer php erzeugen, das dann auch noch interpretiert wird.

Also http-request > ISAPI -> PHP (Interpreter) -> Response

Dann spare Dir dioch PHP und mache alles mit ISAPI geht eh schneller, oder mache alles mit PGP. Aber warum der Zwitter

**Rul Wagner** · 23.08.2001, 02:43

hallo Andreas Tengicki,
hallo zusammen,

Der client ruft eine seite namens...empfang.php .... auf.
der Webserver reagiert darauf und f�hrt den "php" script uber die php.exe aus. Das Ergebnis wird dem Client �ber den Webserver mitgeteilt.

Meine Frage ist, wie wird das ergebnis gehandhabt?

Wenn ich dies in eine Variable haben m�chte, wie w�rde das in etwa aussehen...

WebPageProducer1.content := ???(ergebnis daraus..php.exe empfang.php 
response.content := WebPageProducer1.content; 

Danke!

Wag

**Andreas Tengicki** · 23.08.2001, 09:26

Der Client ruft empfang.php

Der WebServer bekommt einen http Request auf empfang.php

Der WebServer erkennt, daf�r ist php.exe zust�ndig

php.exe tut seinen job und generiert einen repsonse, diese geht an den WebServer

Der WebServer sendet diese Response an den Client.

Wo soll denn jetzt das CGI/ISAPI Modul in die Architektur? Was willst Du mit Delphi machen? Wo ist das Problem? Was willst Du �ndern

**Rul Wagner** · 23.08.2001, 15:42

<html>
<head>
<title>
</title>
</head>
<body>
<pre>
hallo Andreas Tengicki,
hallo zusammen,

ich bin Anf�nger in Sachen WebEntwicklung, und auch mit den
Delphi 6 Internet Komponenten bin ich noch nicht so vertraut.
ich habe mich in der WebModulierung mal versucht.
Dabei habe ich f�r den IIS eine DLL zusammengestellt.
Dies klappt ja auch ganz gut.
Mich st�rt abert der IIS.
Dann habe ich f�r Samba die CGI-EXE versucht.
Dies klappt auch ganz gut.
Dabei ist mir aufgefallen, das die Exe / Script in einer Art
Shell Umgebung l�uft und wenn ich das Script so aufrufe, die Auswertung
am Bildschirm sehe.
Nun habe ich mir gedacht, wenn ich einen eigenen WebServer mit
den Indy Komponenten versuchen w�rde, m��te ich dann auch das Script
ausf�hren lassen k�nnen...
das geht auch..aber wie bekomme ich den Inhalt zur�ck?
Response??
Mu� ich den Aufruf ungef�hr so starten...
..
Response.content := Response.ShellExecute(Handle,
'open',
'command.com',
' /Cc:\cgi-bin\Scriptinterpreter.exe c:\Scripte\Script.pl',
'c:\windows\',
typ);
Ich denke mal, ich f�hre mal meine Alternative Beispiel vor....
Aber bitte nicht zu sehr kritisieren...bin wirklich Anf�nger!

Ich rufe das Script �ber eine ShellExecute auf,
dabei speichere ich die Information in eine Text-datei.
diese Lese ich dann wieder aus...(leider momentan ueber eine Timer
Komponente, da ich den Befehl noch nicht kann, dass der Vorgang "einlesen"
erst nach Ausf�hren der Shell und Fertigstellen der TextDatei erfolgen soll...

Irgendwie so...

while...solange noch nicht ertstellt warten bzw tue was anderes...
else
einlesen.

Ich m�chte halt meine bereits f�r PHP erstellten Scripte einbinden...

Wenn mir einer sagen k�nnte, wie ich die ISAPI DLL f�r "meinen" Server
verwenden kann, w�rde ich wahrscheinlich alles in Delphi machen.
Aber ich weiss nicht, wie ich die *.dll in meinem eigenen "ServerProgram"
einbinden mu�.

Ich kenne eben bisher nur die *.dll f�r den IIS.
Und ich m�chte den IIS (Personal Web Server) nicht
mehr einsetzen.

Danke!

WagI

TEIL 2 Folgt in der n�chsten Message da der text abgeschnitten wird,
ist der beitrag auf eine bestimmte Zeichenl�nge begrenzt?
</pre>
</body>
</HTML>

&#10

**Rul Wagner** · 23.08.2001, 15:47

<html>
<head>
<title>
</title>
</head>
<body>
<pre>

Also (F�r alle Profis nun etwas zum lachen) bitte nicht so
arg kritisieren...wenn so zwitterhaft ist....

mein Beispiel

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
shellapi, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
Label1: TLabel;
Timer1: TTimer;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
i,typ:integer;
f: TextFile;
EinzelneZeile,GesamterInhalt: String ;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: TYP:=SW_HIDE;
1: TYP:=SW_MINIMIZE;
2: TYP:=SW_RESTORE;
3: TYP:=SW_SHOW;
4: TYP:=SW_SHOWMAXIMIZED;
5: TYP:=SW_SHOWMINIMIZED;
6: TYP:=SW_SHOWMINNOACTIVE;
7: TYP:=SW_SHOWNA;
8: TYP:=SW_SHOWNOACTIVATE;
9: TYP:=SW_SHOWNORMAL;
end;

Memo1.Clear ;
i:= shellexecute(
Handle,
'open',
'command.com',
//'',
' /Cc:\php\php1.exe c:\php\test.php > c:\php\mein.txt',
'c:\windows\',
typ);

// AnzeigeKontrolle der Aufruf Variablen i

label1.caption := IntToStr(i);

// to do...#12 Ueberpruefung, ob datei vorhanden, wenn nicht
// nochmal versuchen...
// Vorest noch ueber Timer Interval 1500
Timer1.Enabled := True;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
AssignFile(f,'c:\php\mein.txt');
{$i-}
Reset(f)
{$i+} ;
if IOResult <> 0 then
begin
ShowMessage ('Fehler...');
Exit
end;
// Variablen auf leer setzen
EinzelneZeile := '';
GesamterInhalt := '';
// ersten 3 Zeilen uebergehen
// da PHP Info Text am Anfang
// generiert und ich
// nur den HTML Code
// haben m�chte
// Zeile 1: X-Powered-By: PHP/4.0.6
// Zeile 2: Content-type: text/html
// Zeile 3: leer

if RadioGroup2.ItemIndex = 1 then
Readln(f,EinzelneZeile);
if RadioGroup2.ItemIndex = 2 then
begin
Readln(f,EinzelneZeile);
Readln(f,EinzelneZeile);
end;
if RadioGroup2.ItemIndex = 3 then
begin
Readln(f,EinzelneZeile);
Readln(f,EinzelneZeile);
Readln(f,EinzelneZeile);
end;
if RadioGroup2.ItemIndex = 0 then
begin

// Zusatz Include Anweisung falls eigener Info Text
// generiert werden soll

end;

// dann erst einlesen beginnen

while not EOF(f) do
begin
Readln(f,EinzelneZeile);
GesamterInhalt:= GesamterInhalt + EinzelneZeile ;
//
end;
CloseFile(f);

Memo1.Text:= GesamterInhalt;
// memo1.Lines.Add(GesamterInhalt); // unter Delphi 6
// PageProducer1.HTMLDoc.Add(GesamterInhalt); // unter Delphi 6
timer1.Enabled := false;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// Manual l�schen
Memo1.Clear;
end;

end.
</pre>
</body>
</html&gt

**Rul Wagner** · 23.08.2001, 15:50

P.S.
Ach ja...dies habe ich mit !Delphi 3.0 professional geschrieben
Als OS nehme ich Win 98.
Danke!

Wag

**Andreas Tengicki** · 24.08.2001, 08:28

Hallo Rul,

um was geht es denn nun.

a) PHP L�uft bei Dir

b) CGI l�uft bei Dir

c) ISAPI l�uft bei Dir

d) Der IIS gef�llt Dir nicht, mir auch nicht

< bis hier hin ist doch alles prima >

e) Du willst als �nf�nger einen eigenen WebServer schreiben und besch�ftigst bei dem mit der Einbindung von Skripten? Nen bi�chen viel f�r den Anfang, oder?

Als Tipp noch:
Sollte php die Datei so �ffnen da� Du sie nicht auch noch zum schreiben �ffnen kannst, kannst Du versuchen Sie exklusiv zum Lesen zu �ffnen

<pre>
Wenn das Request .php ist
dann anfrage zu php (vgl CGI Spezifikation)
while not offen
begin
sleep(500)
versuche noch mal zu �ffnen
end
Hier ist das Skript fertig.

Jetzt senden der Datei als Response
</pre>

p.s. Win98 ist daf�r wirklich die falsche Umgebung, erst Recht zum Entwickeln

p.p.s Ich klinke mich aus

**Hendrik R.** · 06.10.2001, 16:14

Hi!

Rul W. hast du den Browser schon fertig?
Ich hab mir auch schon �berlegt so was zu machen, weil es in manchen Situationen einfach vorteilhafter ist nicht immer den IIS oder so zu installieren.
Aber ich habe leider noch nie einen Browser programmiert und stelle f�r meine F�higkeiten dass auch schwierig vor.
Besonders um PHP einzubinden.

Wenn du Ihn fertig hast oder hilfe brauchst sag bescheid.
Ich bin daran sehr interessiert.

Gru� Hendrik

PS: Kannst mir auch mailen, bekomm ich schneller bescheid

[email protected]

**Rul Wagner** · 26.11.2001, 23:50

<pre>
hallo zusammen,
.
ich versuchs nochmal...ich h�nge da einfach irgendwo fest..
>>> Wenn das Request .php ist // ok. oncommandget..
// case anweisung
// html = 0
// php = 1
// usw. wenn 1 dann
// php.exe etc

dann anfrage zu php (vgl CGI Spezifikation) // wo muss ich da
...................... >// nachsehen. ich
// m�chte den output
// des konsolenaufrufs
// in eine Variable
// haben. vorerst
// w�rde mir auch
// eine zwischenl�sung
// als generierte
// datei reichen, die
// ich dann einlese,
// lieber w�re mir
// delphi stellt vor
// f�r den output
// eine variable zur
// verf�gung.
//
while not offen
begin
sleep(500)
versuche noch mal zu �ffnen
end
Hier ist das Skript fertig. // dann w�rde ich
// einer Webpagepro-
// ducer.content die
// variable zuweisen.

Jetzt senden der Datei als Response // wie muss das aussehen das
// senden. ich krieg das
// nicht in die Reihe.
//
<<<

</pre>

Ru

**Rul Wagner** · 26.11.2001, 23:56

mein problem liegt speziel bei Delphi,
stell dir vor, ich befinde mich im dos fenster (Konsole),
dort gebe ich jetzt ein:
c:\type hallo.txt
dann erscheint am bildschirm der text von der datei hallo.txt
ich m�chte jetzt in delphi ein memo haben,
wenn ich jetzt auf einen button druecke, dann sollte
delphi den konsolenbefehl type hallo.txt ausf�hren und im memo
anzeigen ...aber!!!!
der type Hallo.txt Teil soll auf der konsole passieren, delphi stellt
f�r den output eine variable zur verf�gung, in der dann der output von
c:\type hallo.txt ist; diese variable wird dann dem memo �bergeben.
ich will nicht die datei hallo.txt �ffnen zum einlesen, sondern
es mit einser variablen l�sen.
.
anstatt c:\type hallo.txt steht dann c:\php.exe index.php
es wird ja dann auch ein output erzeugt. und diesen w�rde ich gerne
in eine von delphi zur verf�gung gestellten variable f�r diesen
einen aufruf. ein zweiter oder anderer aufruf erh�lt eine fortlaufende
indizierung, falls zwei aufrufe sich �berschneiden...createProcess?...
.
mir gehts jetzt erstmal um den output, wie lenke ich den in eine variable?

Ru

Announcement

PHP aus Delphi....wie ISAPI/CGI/DLL

PHP aus Delphi....wie ISAPI/CGI/DLL

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment