Recent changes to bugs

PHP 5.3 is deprecated

AnrDaemon — Wed, 12 Feb 2014 17:50:13 -0000

The PHP release 5.3 is deprecated, and is reaching end of it's life cycle in 4 months order.
Any news about support for PHP 5.4/5.5 would be appreciated.

I can't send POST

Mariusz Maximus — Thu, 03 Jan 2008 21:36:57 -0000

I use your "idRunner" component and exaple "isapidemo"
When i use HTML GET it works OK
When i use POST i see
PHP has encountered an Access Violation at 100018EF

Have you any ideas ?

I can't send POST

Anonymous — Thu, 03 Jan 2008 21:34:12 -0000

I use your "idRunner" component and exaple "isapidemo"
When i use HTML GET it works OK
When i use POST i see
PHP has encountered an Access Violation at 100018EF

Have you any ideas ?

Link to idDebugger.zip is broken

hilt2 — Mon, 05 Mar 2007 10:34:44 -0000

please correct it

Thank You

Delphi7 and PHP4 bug

hupu — Thu, 01 Jun 2006 18:56:16 -0000

When compiling under Delphi 7 for PHP4, we get some
errors in DelphiFunctions.pas.
This is because code separation for Delphi7 and earlier
versions is ommitted for the PHP4 part of the code. The
affected functions are:
function delphi_set_property_handler(property_reference
: Pzend_property_reference; value : pzval) : integer;
cdecl;
procedure delphi_get_property_handler(val : pzval;
property_reference : PZend_property_reference); cdecl;

I made some changes (marked between "// -->" and "//
<--" signs) to the code inspired from the code
separation for Delphi 7 and earlier versions for the
PHP5 part... It compiles and works. <b>However I don't
know if my changes are appropiate.</b>

{$IFDEF PHP4}
function delphi_set_property_handler(property_reference
: Pzend_property_reference; value : pzval) : integer;
cdecl;
var
this_ptr : pzval;
OBJ : TObject;
data: ^ppzval;
element : pzend_list_element;
prop : pzend_overloaded_element;
p : pointer;
propname : string;
// --> hupu, 2006.06.01
// pt : TTypeKind;
{$IFDEF VERSION7}
Scripter : TPHPScriptableObject;
{$ELSE}
pt : TypInfo.TTypeKind;
{$ENDIF}
// <-- hupu, 2006.06.01
begin
element := property_reference^.elements_list^.head;
p := @element^.data;
prop := pzend_overloaded_element(p);
propname := prop^.element.value.str.val;

this_ptr := property_reference^._object;
new(data);
zend_hash_find(this_ptr^.value.obj.properties,
'instance', strlen('instance') + 1, data);
Obj := TObject(data^^^.value.lval);
freemem(data);

// --> hupu, 2006.06.01
{$IFDEF VERSION7}
Scripter := TPHPScriptableObject(Obj);
if SameText('Parent', propname) then
begin
TWinControl(Scripter.InstanceObj).Parent :=
TWinControl(value^.value.lval);
end
else

Scripter.SetPropertyByID(Scripter.NameToDispID(propname),
[zval2variant(value^)] );
{$ELSE}
// <-- hupu, 2006.06.01
pt := PropType(Obj, propname);
if ( pt in SimpleProps) then
SetPropValue(OBJ, propname, zval2variant(value^))
else
if pt = tkClass then
begin
Obj := GetObjectProp(Obj, propname);
while element <> nil do
begin
element := element^.prev;
p := @element^.data;
prop := pzend_overloaded_element(p);
propname := prop^.element.value.str.val;
pt := PropType(Obj, propname);
if ( pt in SimpleProps) then
begin
SetPropValue(OBJ, propname,
zval2variant(value^));
break;
end
else
if pt = tkClass then
Obj := GetObjectProp(Obj, propname);
end;
end;
// --> hupu, 2006.06.01
{$ENDIF}
// <-- hupu, 2006.06.01
Result := SUCCESS;
end;

procedure delphi_get_property_handler(val : pzval;
property_reference : PZend_property_reference); cdecl;
var
this_ptr : pzval;
OBJ : TObject;
data: ^ppzval;
element : pzend_list_element;
prop : pzend_overloaded_element;
p : pointer;
propname : string;
// --> hupu, 2006.06.01
// pt : TTypeKind;
{$IFDEF VERSION7}
Scripter : TPHPScriptableObject;
{$ELSE}
pt : TypInfo.TTypeKind;
{$ENDIF}
// <-- hupu, 2006.06.01
begin
element := property_reference^.elements_list^.head;
p := @element^.data;
prop := pzend_overloaded_element(p);
propname := prop^.element.value.str.val;
this_ptr := property_reference^._object;
new(data);
zend_hash_find(this_ptr^.value.obj.properties,
'instance', strlen('instance') + 1, data);
Obj := TObject(data^^^.value.lval);
freemem(data);

Scripter.SetPropertyByID(Scripter.NameToDispID(propname),
[zval2variant(val^)] );
{$ELSE}
// <-- hupu, 2006.06.01
pt := PropType(Obj, propname);
if ( pt in SimpleProps) then
variant2zval(GetPropValue(OBJ, propname), val)
else
if pt = tkClass then
begin
Obj := GetObjectProp(Obj, propname);
while element <> nil do
begin
element := element^.prev;
p := @element^.data;
prop := pzend_overloaded_element(p);
propname := prop^.element.value.str.val;
pt := PropType(Obj, propname);
if ( pt in SimpleProps) then
begin
variant2zval(GetPropValue(OBJ,
propname), val);
break;
end
else
if pt = tkClass then
Obj := GetObjectProp(Obj, propname);
end;
end;
// --> hupu, 2006.06.01
{$ENDIF}
// <-- hupu, 2006.06.01
end;

Serious POST Problem (Pathetic)

Carlos Barreto Feitoza Filho — Thu, 18 May 2006 20:03:17 -0000

Hello!

I'm using the component TpsvPHP with the HTTP Server
from ICS (Internet Component Suite).

The ICS component has methods to get the variables
(POST and GET).

All i have to do is
1. Trap the requests (GET / POST)
2. Get variables
3. Populate the psvPHP with the pairs (name/value) of
variables
4. Execute the PHP code from the current file
5. Return the parsed text to client with a method of
HTTP Server (ICS)

The steps above works fine to GET, *BUT*, the POSTed
variables seems aren't being passed to the script.
Simply the script considerate them empty or not set!!

The $_POST superglobal is a very, very, very... basic
PHP variable. Why PHP4Delphi is not considerating it?

To better explain (my english sucks!), see the below HTML:

<HTML>
<HEAD>
<TITLE>ICS WebServ Form Demo</TITLE>
</HEAD>
<BODY>
<H2>Enter your first and last name</H2>
<FORM METHOD="POST" ACTION="setup.php">
<HR>

<TABLE BORDER="0" ALIGN="DEFAULT">
<TR>
<TD>First name: </TD><TD><INPUT TYPE="TEXT"
NAME="FirstName" MAXLENGTH="25"></TD>
</TR>
<TR>
<TD>Last name: </TD><TD><INPUT TYPE="TEXT"
NAME="LastName" MAXLENGTH="25"></TD>
</TR>
<TR>
<TD> </TD><TD><INPUT TYPE="SUBMIT" NAME="Submit"
VALUE="Send"></TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>

the script setup.php is here

<?
echo("By post: " . $_POST["FirstName"]);
echo("\n");
echo("By post: " . $_POST["LastName"]);
echo("\n");
?>

Seems simple ham?

FILL THE FORM AND click on the submit button and the
generated page is

By post:
By post:

Damn!!

WHY THE POST VARIABLES ARE NOT "DETECTED"?

ps: I'm already tried the TpsvPHP, with and without the
registerglobals property setted. The Variables Property
is being correctly filled with valid data. I'm using
PHP 5.1.4. It is corrected loaded. There are no other
bug as SERIOUS as THIS!

Problem getting binary data via RunCode or Execute

Falcosoft — Sat, 05 Jun 2004 01:54:16 -0000

Hi !

If i'm trying to get binary data (graphics via php image
functions) I only get part of the data which can not be
dispalyed by my browser. I would like to create a php
editor that could be able to display the result of the
executed code.
I think the the reason of the failure is the
php_delphi_ub_write function that catches the result as
a null terminated string(pchar) , so meeting with the first
zero results in not handling the other elements of the
buffer.
Can you help me finding a workaround to this problem ?

Thanks in advance
Best regards
falco

Zend timeout window when closing delphi app

Joao Inacio — Sun, 02 May 2004 01:20:31 -0000

in sample1, closing the application after running
demo.php wil throw an exception. ("zend timeout window"?!?)

it seems that UnloadPHP (php4delphi.pas, arround line
944) is executed too fast after either sapi_shutdown or
tsrm_shutdown.

my quick-fix was to add the following "delay" code in
psvPHP.OnModuleShutdown event:

var
x,y:integer;
begin
for x:=1 to 10000 do
for y:=1 to 10000 do
;
end;

Cheers,
Joăo Inácio

(running delphi 7 on AMD XP 2800+)

POST and GEST prob. with Php

Anonymous — Thu, 15 Apr 2004 13:43:06 -0000

hi,

I've probleme with GET variables in Php when i've use
both POST and GET.

in this case $_GET["myvar"] is not set.

i've change the idCGIRunner.pas file (line 285) and that
seems to OK.

Replace :
if RequestInfo.Command <> 'POST' then
cEnv := cEnv + Format(FEnv, ['QUERY_STRING',
RequestInfo.UnparsedParams]);

By :

if RequestInfo.Command <> 'POST' then
cEnv := cEnv + Format(FEnv, ['QUERY_STRING',
RequestInfo.UnparsedParams])
else
cEnv := cEnv + Format(FEnv, ['QUERY_STRING',
RequestInfo.QueryParams]);

Thank, Virux

Delphi 7 Entreprise.
IdRunner V3.3
php v4.3.1.1
Windows XP Sp1

variable assignement problem

Anonymous — Sun, 04 Jan 2004 00:04:45 -0000

Under PhP4Delphi 5.3, making this little program to pass
a variable to a php file :

psvPHP.Variables.Clear;
psvPHP.Variables.Add.Name := 'filename';
psvPHP.Variables.Items[psvPHP.Variables.IndexOf
('filename')].Value := 'test';

doc := psvPHP.Execute('openfile.php');

First time, during php script execution all is ok,
$filename='$test';

But if we execute another time the same script the
variable become Undefined.