PHP4Delphi Problem

[omata]

Ja und? Das geht doch auch damit...

Delphi-Quellcode:

function PHPExecute(php:string):string;
var psvPHP:TpsvPHP;
begin
  psvPHP:=TpsvPHP.Create(nil);
  try
    psvPHP.DLLFolder:='c:\programme\php\';
    delete(php, 1, pos('<?', php)+1);
    php:=copy(php, 1, pos('?>', php)-1);
    Result:=psvPHP.RunCode(php);
  finally
    psvPHP.free;
  end;
end;

Aufruf:

Delphi-Quellcode:

var s:string;
begin
  s:=
    '<?'#13 +
    ' $z =  1 + 2;'#13 +
    ' echo "Result ";'#13 +
    ' echo $z;'#13 +
    '?>';
  ShowMessage(PHPExecute(s));
end;

Ausgabe: "Result 3"

Gruss
Thorsten