PHP4Delphi Problem

[Tommy1988]

Nein, "leider" so einfach nicht.

Hier ist der ausführende Code:

Delphi-Quellcode:

procedure TForm1.btnExecuteScriptClick(Sender: TObject);
var
 S : String;
 L : integer;
begin
  Memo1.Lines.Clear;
  RequestID := InitRequest;
  RegisterVariable(RequestID, 'x','2');
  RegisterVariable(RequestID, 'y','3');
  RegisterVariable(RequestID, 'z','0'); // z zu anfangs 0 zuweisen
  ExecutePHP(RequestID, 'test.php'); // test.php öffnen
  L := GetResultText(RequestID, nil, 0);
  if L > 0 then
   begin
     SetLength(S, L);
     GetResultText(RequestID, PChar(S), L);
   end;
  memo1.Lines.Text := S; // das hier wird garnicht erst ausgeführt
  L := GetVariableSize(RequestID, 'z');
  if L > 0 then
   begin
     SetLength(S, L);
     GetVariable(RequestID, 'z', PChar(S), L);
     ShowMessage('After execution z = ' + S); // S IMMER 0!
   end;
  DoneRequest(RequestID);
end;