Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 212
  • Last Modified:

PHP and COM

Dear Experts,

I'm trying to develop the COM library with Delphi 7, but I have problems using it in PHP. So far, I have added two COM objects "Domains" (collection) and "Domain". When I launch the simple PHP script below, the exception occurs, and window popups, asking to send the error report to Microsoft.

$domains = new COM("MyLib.Domains");
$domain = $domains->Item(1);
echo $domain->Name;

The ASP analog below, in VBScript works perfect

set Domains = Server.CreateObject("MyLib.Domains")
set Domain = Domains(1)
Response.Write Domain.Name

One interesting thing: when in Delphi I rename property "Domain.Name" to "Domain.DomainName" suddently it starts to work in PHP, but when I start to add other new properties and methods - they fall again.
I have tested it with PHP4.2.1, PHP4.3.2 and PHP5.0.0beta.

Maybe I should take into consideration some important details when I'm developing COM objects with Delphi, or is this is a PHP bug?

TIA,
dumb
0
iam_dumb
Asked:
iam_dumb
  • 5
  • 3
1 Solution
 
arjanhCommented:
Delphi arrays are 0-based, so probably
$domain = $domains->Item(1);
should become
$domain = $domains->Item(0);
0
 
arjanhCommented:
> Delphi arrays are 0-based, so probably

make that PHP arrays...
0
 
iam_dumbAuthor Commented:
Nop, didn't help :(
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
arjanhCommented:
what is the error message that you get?
0
 
arjanhCommented:
And which line exactly is causing the exception? Try commenting out the second and third, then only the third...
0
 
iam_dumbAuthor Commented:
There are no exact error message (I'm on XP), there is only common error popup, that ask to send error report to Microsoft if something is wrong.

The exact line, that causes an error is

echo $domain->Name;

Moreover, if for this property in Delphi I add Debug procedure (Debug is a custom procedure, that just writes the string param to my debug file) like shown below, it never invoke the Debug, so I guess, PHP can't find this property for some reason.

function TDomain.Get_Name: WideString;
begin
    Debug('Property Works!');
    Result := FDomain.DomainName;
end;
0
 
arjanhCommented:
What is the value of
$domains->Item->Count();

And what about
$domain = $domains->Item[0];
or
$domain = $domains->Domain[0];
0
 
iam_dumbAuthor Commented:
echo $domains->Item->Count()
raises an exception

echo $domains->Item->Count
raises an exception

echo $domains->Count
returns the valid number of domains

$domain = $domains->Item[0];
raises an exception

$domain = $domains->Item[0];
raises an exception

$domain = $domains->Domain[0];
raises an exception

$domain = $domains->Item(1);
works
0
 
moduloCommented:
PAQed with points refunded (250)

modulo
Community Support Moderator
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 5
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now