Here a solution:
- Code: Select all
procedure TIWServerController.IWServerControllerBaseConfig(Sender: TObject);
begin
CacheDir := ExtractFilePath(WebApplicationFileName()) + 'cache\';
end;
procedure TIWServerController.IWServerControllerBaseConfig(Sender: TObject);
begin
CacheDir := ExtractFilePath(WebApplicationFileName()) + 'cache\';
end;