Fixed issue #2 : TWebUIFileHandlerCallback must return a generic poin…

…ter.
salvadordf · May 20, 2024 · b201c2d · b201c2d
1 parent 5cc67af
commit b201c2d
Show file tree

Hide file tree

Showing 6 changed files with 6 additions and 6 deletions.
diff --git a/demos/Delphi_Console/serve_a_folder/serve_a_folder.dpr b/demos/Delphi_Console/serve_a_folder/serve_a_folder.dpr
@@ -72,7 +72,7 @@ begin
   LSecondWindow.Show('second.html');
 end;
 
-function my_files_handler(const filename: PWebUIChar; len: PInteger): PWebUIChar; cdecl;
+function my_files_handler(const filename: PWebUIChar; len: PInteger): Pointer; cdecl;
 var
   LFilename, LResult : string;
 begin

diff --git a/demos/Delphi_FMX/serve_a_folder/uMainForm.pas b/demos/Delphi_FMX/serve_a_folder/uMainForm.pas
@@ -132,7 +132,7 @@ procedure TMainForm.show_second_window(const aEvent: IWebUIEventHandler);
   FSecondWindow.Show('second.html');
 end;
 
-function my_files_handler(const filename: PWebUIChar; len: PInteger): PWebUIChar; cdecl;
+function my_files_handler(const filename: PWebUIChar; len: PInteger): Pointer; cdecl;
 var
   LFilename, LResult : string;
 begin

diff --git a/demos/Delphi_VCL/serve_a_folder/uMainForm.pas b/demos/Delphi_VCL/serve_a_folder/uMainForm.pas
@@ -126,7 +126,7 @@ procedure TMainForm.show_second_window(const aEvent: IWebUIEventHandler);
   FSecondWindow.Show('second.html');
 end;
 
-function my_files_handler(const filename: PWebUIChar; len: PInteger): PWebUIChar; cdecl;
+function my_files_handler(const filename: PWebUIChar; len: PInteger): Pointer; cdecl;
 var
   LFilename, LResult : string;
 begin

diff --git a/demos/Lazarus_Console/serve_a_folder/serve_a_folder.lpr b/demos/Lazarus_Console/serve_a_folder/serve_a_folder.lpr
@@ -72,7 +72,7 @@ procedure show_second_window(e: PWebUIEvent); cdecl;
   LSecondWindow.Show('second.html');
 end;
 
-function my_files_handler(const filename: PWebUIChar; len: PInteger): PWebUIChar; cdecl;
+function my_files_handler(const filename: PWebUIChar; len: PInteger): Pointer; cdecl;
 var
   LFilename, LResult : string;
 begin

diff --git a/demos/Lazarus_LCL/serve_a_folder/umainform.pas b/demos/Lazarus_LCL/serve_a_folder/umainform.pas
@@ -164,7 +164,7 @@ procedure TMainForm.show_second_window(const aEvent: IWebUIEventHandler);
   FSecondWindow.Show('second.html');
 end;
 
-function my_files_handler(const filename: PWebUIChar; len: PInteger): PWebUIChar; cdecl;
+function my_files_handler(const filename: PWebUIChar; len: PInteger): Pointer; cdecl;
 var
   LFilename, LResult : string;
 begin

diff --git a/source/uWebUITypes.pas b/source/uWebUITypes.pas
@@ -195,7 +195,7 @@   TWebUIEvent = record
   PWebUIEvent = ^TWebUIEvent;
 
   TWebUIBindCallback           = procedure(e: PWebUIEvent); cdecl;
-  TWebUIFileHandlerCallback    = function(const filename: PWebUIChar; len: PInteger): PWebUIChar; cdecl;
+  TWebUIFileHandlerCallback    = function(const filename: PWebUIChar; len: PInteger): Pointer; cdecl;
   TWebUIInterfaceEventCallback = procedure(window : TWebUIWindowID; event_type: TWebUIEventType; const element: PWebUIChar; event_number: TWebUIEventID; bind_id: TWebUIBindID); cdecl;
 
   TOnWebUIEvent = procedure(Sender: TObject; const aEvent: IWebUIEventHandler) of object;