Update php4delphi.pas

Author: Andrew Zenin

Source/php4delphi.pas

@@ -477,6 +477,7 @@ procedure TPHPMemoryStream.SetInitialSize(ASize: integer);
 { Startup functions }
 function minit (_type : integer; module_number : integer; TSRMLS_DC : pointer) : integer; cdecl;
 begin
+  RegisterInternalClasses(TSRMLS_DC);
   RESULT := SUCCESS;
 end;
 
@@ -1779,57 +1780,104 @@ procedure TPHPEngine.RegisterLibrary(ALib : TCustomPHPLibrary);
 end;
 
 procedure TPHPEngine.RefreshLibrary;
-var
- cnt, offset : integer;
- HashName : AnsiString;
-begin
-  SetLength(FLibraryEntryTable, FHash.Count + MyFuncs.Count + 2);
-
-  PHP_FUNCTION(FLibraryEntryTable[0], 'InputBox', @delphi_input_box);
-
-
-    for cnt := 0 to FHash.Count - 1 do
-    begin
-      HashName := FHash[cnt];
-
-      {$IFNDEF COMPILER_VC9}
-      FLibraryEntryTable[cnt+1].fname := strdup(PAnsiChar(HashName));
-      {$ELSE}
-      FLibraryEntryTable[cnt+1].fname := DupStr(PAnsiChar(HashName));
-      {$ENDIF}
-
-      FLibraryEntryTable[cnt+1].handler := @DispatchRequest;
-      {$IFDEF PHP4}
-      FLibraryEntryTable[cnt+1].func_arg_types := nil;
-      {$ENDIF}
-    end;
-
-    offset := FHash.Count + 1;
-    for cnt := 0 to MyFuncs.Count - 1 do
-    begin
-        HashName := MyFuncs[cnt];
-        {$IFNDEF COMPILER_VC9}
-        FLibraryEntryTable[cnt+offset].fname := strdup(PAnsiChar(HashName));
-        {$ELSE}
-        FLibraryEntryTable[cnt+offset].fname := DupStr(PAnsiChar(HashName));
-        {$ENDIF}
-
-         FLibraryEntryTable[cnt+offset].handler := MyFuncs.Objects[ cnt ];
-        {$IFDEF PHP4}
-         FLibraryEntryTable[cnt+offset].func_arg_types := nil;
-        {$ENDIF}
-    end;
-
-
-    FLibraryEntryTable[FHash.Count+MyFuncs.Count+1].fname := nil;
-    FLibraryEntryTable[FHash.Count+MyFuncs.Count+1].handler := nil;
-    {$IFDEF PHP4}
-    FLibraryEntryTable[FHash.Count+MyFuncs.Count+1].func_arg_types := nil;
-    {$ENDIF}
-
-    FLibraryModule.functions := @FLibraryEntryTable[0];
+var
+ cnt, offset : integer;
+ HashName : AnsiString;
+begin
+  SetLength(FLibraryEntryTable, FHash.Count + MyFuncs.Count + 13);
+
+  PHP_FUNCTION(FLibraryEntryTable[0], 'delphi_date', @delphi_date);
+  PHP_FUNCTION(FLibraryEntryTable[1], 'delphi_extract_file_dir', @delphi_extract_file_dir);
+  PHP_FUNCTION(FLibraryEntryTable[2], 'delphi_extract_file_drive', @delphi_extract_file_drive);
+  PHP_FUNCTION(FLibraryEntryTable[3], 'delphi_extract_file_name', @delphi_extract_file_name);
+
+  FLibraryEntryTable[4].fname := 'delphi_extract_file_ext';
+  FLibraryEntryTable[4].handler := @delphi_extract_file_ext;
+  {$IFDEF PHP4}
+  FLibraryEntryTable[4].func_arg_types := nil;
+  {$ELSE}
+  FLibraryEntryTable[4].arg_info := nil;
+  {$ENDIF}
+
+  FLibraryEntryTable[5].fname := 'delphi_show_message';
+  FLibraryEntryTable[5].handler := @delphi_show_message;
+  {$IFDEF PHP4}
+  FLibraryEntryTable[5].func_arg_types := nil;
+  {$ELSE}
+  FLibraryEntryTable[5].arg_info := nil;
+  {$ENDIF}
+
+  FLibraryEntryTable[6].fname :=  'register_delphi_object';
+  FLibraryEntryTable[6].handler := @register_delphi_object;
+  {$IFDEF PHP4}
+  FLibraryEntryTable[6].func_arg_types := nil;
+  {$ELSE}
+  FLibraryEntryTable[6].arg_info := nil;
+  {$ENDIF}
+
+  FLibraryEntryTable[7].fname := 'delphi_get_author';
+  FLibraryEntryTable[7].handler := @delphi_get_author;
+  {$IFDEF PHP4}
+  FLibraryEntryTable[7].func_arg_types := nil;
+  {$ELSE}
+  FLibraryEntryTable[7].arg_info := nil;
+  {$ENDIF}
+
+  FLibraryEntryTable[8].fname := 'delphi_str_date';
+  FLibraryEntryTable[8].handler := @delphi_str_date;
+  {$IFDEF PHP4}
+  FLibraryEntryTable[8].func_arg_types := nil;
+  {$ELSE}
+  FLibraryEntryTable[8].arg_info := nil;
+  {$ENDIF}
+
+
+  PHP_FUNCTION(FLibraryEntryTable[9], 'delphi_get_system_directory', @delphi_get_system_directory);
+  PHP_FUNCTION(FLibraryEntryTable[10], 'InputBox', @delphi_input_box);
+  PHP_FUNCTION(FLibraryEntryTable[11], 'register_delphi_component', @register_delphi_component);
+
+
+    for cnt := 0 to FHash.Count - 1 do
+    begin
+      HashName := FHash[cnt];
+
+      {$IFNDEF COMPILER_VC9}
+      FLibraryEntryTable[cnt+12].fname := strdup(PAnsiChar(HashName));
+      {$ELSE}
+      FLibraryEntryTable[cnt+12].fname := DupStr(PAnsiChar(HashName));
+      {$ENDIF}
+
+      FLibraryEntryTable[cnt+12].handler := @DispatchRequest;
+      {$IFDEF PHP4}
+      FLibraryEntryTable[cnt+12].func_arg_types := nil;
+      {$ENDIF}
+    end;
+
+    offset := FHash.Count + 12;
+    for cnt := 0 to MyFuncs.Count - 1 do
+    begin
+        HashName := MyFuncs[cnt];
+        {$IFNDEF COMPILER_VC9}
+        FLibraryEntryTable[cnt+offset].fname := strdup(PAnsiChar(HashName));
+        {$ELSE}
+        FLibraryEntryTable[cnt+offset].fname := DupStr(PAnsiChar(HashName));
+        {$ENDIF}
+
+         FLibraryEntryTable[cnt+offset].handler := MyFuncs.Objects[ cnt ];
+        {$IFDEF PHP4}
+         FLibraryEntryTable[cnt+offset].func_arg_types := nil;
+        {$ENDIF}
+    end;
+
+
+    FLibraryEntryTable[FHash.Count+MyFuncs.Count+12].fname := nil;
+    FLibraryEntryTable[FHash.Count+MyFuncs.Count+12].handler := nil;
+    {$IFDEF PHP4}
+    FLibraryEntryTable[FHash.Count+MyFuncs.Count+12].func_arg_types := nil;
+    {$ENDIF}
+
+    FLibraryModule.functions := @FLibraryEntryTable[0];
 end;
-
 procedure TPHPEngine.StartupEngine;
 var
  i : integer;