Welcome, Guest
You have to register before you can post on our site.

Username
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 107,449
» Latest member: sunvinonline
» Forum threads: 2,438
» Forum posts: 11,404

Full Statistics

Online Users
There are currently 1608 online users.
» 6 Member(s) | 1599 Guest(s)
Applebot, Bing, Google, abcvipcafe, cb79net, jessicawpro, puffsigarettait, sunvinonline, taj777

Latest Threads
Strict CSP Implementation
Forum: IntraWeb General Discussion
Last Post: joelcc
Yesterday, 08:28 PM
» Replies: 1
» Views: 145
Form doesn’t resize with ...
Forum: IntraWeb General Discussion
Last Post: BathDragonfly
10-29-2026, 09:48 AM
» Replies: 0
» Views: 114
Rerendering CG Tab Contro...
Forum: IntraWeb General Discussion
Last Post: MikeComb
10-29-2026, 07:38 AM
» Replies: 5
» Views: 599
Simply replacing the IW i...
Forum: IntraWeb General Discussion
Last Post: DidierMenant
10-28-2026, 10:31 AM
» Replies: 0
» Views: 191
Simply replacing the IW i...
Forum: IntraWeb General Discussion
Last Post: DidierMenant
10-28-2026, 10:30 AM
» Replies: 0
» Views: 177
IWDevTools
Forum: IntraWeb General Discussion
Last Post: AndreasK
10-26-2026, 01:19 PM
» Replies: 0
» Views: 207
SSL Revisited
Forum: IntraWeb General Discussion
Last Post: rlebeau
10-19-2026, 09:24 PM
» Replies: 3
» Views: 806
SpinBox Button Size
Forum: IntraWeb General Discussion
Last Post: MikeComb
10-19-2026, 06:12 PM
» Replies: 0
» Views: 308
CSS in CGDevTools
Forum: IntraWeb General Discussion
Last Post: MikeComb
10-13-2026, 04:12 PM
» Replies: 2
» Views: 775
Help with TIWPaintBox
Forum: IntraWeb General Discussion
Last Post: EmoPal
10-13-2026, 08:44 AM
» Replies: 0
» Views: 430

 
  Critical section problem: new problem on old code
Posted by: drueter - 06-01-2019, 01:50 AM - Forum: IntraWeb General Discussion - Replies (3)

Hi, all.  I have an IW10 stand-alone app packaged as a Windows service compiled with Delphi XE that continues to run great.  Except, that on one customer server (Win Server 2012 Datacenter) the service has begun crashing periodically.  The same .EXE doesn't seem to have this problem elsewhere.

In any case, the error logged in the Windows Event Log is Exception 0xc0000264 ... which pertains to critical section not owned.

I understand what that means, and am aware of fixes for some historical bugs.  (For example my project does use the IWRtlFix unit.)

I also understand that threading race conditions can be tricky, and can be masked until one day they appear.

So my question is:  Are there known Delphi or IW bugs discovered in the past few years that would impact IW10 on XE that are related to critical sections?

I've reviewed the code, and it seems to be OK.  But something (like a fairly recent Windows update) has caused the previously-stable service to crash.  This article seems relevant though:  https://docs.microsoft.com/en-us/windows...on-objects ...but that specific change was some time ago (before I began having problems).

Any ideas?

Print this item

  iwfileuploader max file size
Posted by: PDSBILL - 05-31-2019, 08:59 PM - Forum: IntraWeb General Discussion - Replies (1)

*** Problem Solved ***
Had to change <requestLimits maxAllowedContentLength /> setting in IIS



I created a simple ISAPI (.dll) and standalone (.exe) app with just a IWFileUploader on a blank form. I am not saving the file or have any events defined

I am getting error "UNKNOWN" when attempting to upload a file of size 39 meg when my intraweb app is run as ISAPI dll.

MaxFileSize is set to 90971520  (90 meg)

I can upload 19 meg file in both.

I can upload 39 meg file only in .exe app  ISAPI app shows uploading to 99% but then goes RED with hint saying "Unknown"

I have tried building in Delphi RIO with Intraweb 15.? and Delphi Tokyo 14.?

Is there a hard internal limit to the max size of a file that can be uploaded?

Bill B

Print this item

  Get Value From JavaScript
Posted by: ShaneStump - 05-30-2019, 05:11 PM - Forum: IntraWeb General Discussion - Replies (3)

Howdy All!

Is there an easy way to get a value from a control via javascript? That is, I want to do something like:

bool bChecked =  ExecuteJavaScript("document.getElementById("myCheck").checked;");


Thanks in advance,

Shane

Print this item

  Fast demands gives err 500
Posted by: ib elfving - 05-28-2019, 03:21 PM - Forum: IntraWeb General Discussion - Replies (13)

Hi,
I have an intraweb application that runs smooth under normal condition, but under fast demands it sends a "internal error 500" to the clients.

The error arises when using a custom handler (e.g. iw.content.xml look alike) after this is called rapidly (Called by an external program, 5 times typically). If the same operation is done one at the time (slow) there is no problem.

I suspect that it might be a memory error, but have no clues.

Is it possible to release the custom handler after use (freeing the memory) or is this done automatically by intraweb?

Will it help to insert a small time delay between each call?

Sorry if this is a bit "fluffy", but i have no idea where to set in for a solution

regards ib

Print this item

  Some bugs in TIdIMAP4
Posted by: johnmay - 05-27-2019, 05:38 PM - Forum: Indy - Replies (3)

I use Indy 5499. After installing and compiling it, first thing I noticed is that right clicking on dclIndyCore140.dpk and selecting Install reports an error. This wasn't the case in earlier versions, however, Install on dclIndyProtocols140.dpk works fine. I assume this is some change since earlier release and that it is now enough to install just dclIndyProtocols140.dpk

Anyway, onto the main problem - when downloading message list from IMAP, using UIDRetrieveAllEnvelopes

I get a list which contains subjects like (reply log from server):


Quote:* 1760 FETCH (UID 12777 FLAGS (\Seen) ENVELOPE ("5 May 2019 07:50:59 +0200" "Test \"quoted text\", more text" (("test" NIL "test" "test.com")) (("test" NIL "test" "test.com")) (("test" NIL "test" "test.com")) ((NIL NIL "test2" "test2.com")) NIL NIL NIL "<msgid@test.com>"))


The list is from Gmail if that is of any relevance.

The problem is the \" escaping of quotes - Indy doesn't seem to decode this properly and the text ends up as Test \

It should be decoded as Test "quoted text", more text

Is this a known bug?

Print this item

  Reset the Tab Order?
Posted by: ioan - 05-27-2019, 01:25 PM - Forum: IntraWeb General Discussion - Replies (3)

I'm redesigning some IW forms using Bootstrap and I couldn't figure out yet how to reset the Tab Order. I assigned at design time a certain Tab Order for each form input in the old design and now, using Bootstrap the Tab Order needs to be changed. Being lazy (and in the same time wanting to keep the old design working), I'm trying to modify all the controls on all the forms in code, depending of what style I'm using and loading the corresponding template for each style. I tried setting Tab Order to 0 and to -1 when I load the BS design, but it seems that the old Tab Order is still there, any idea why and how to fix this?

Here is my code that deals with changing the components style at run time:

Code:
procedure ApplyBSStyle(AForm: TIWAppForm);
var
 sLst: TStringList;
begin
 if (UserSession.LevelString <> 'USER') and
   (UserSession.ReceivedLevelString <> 'USER')
 then
   Exit;

 if (not UserSession.IsMobile) and (not UserSession.IsNewDesign) then
   Exit;

 sLst := TStringList.Create; // get a list of all controls, we might need to create the template
 try
   with AForm do
   begin
     for var i := 0 to AForm.ComponentCount - 1 do
     begin
       if Components[i] is TIWCustomControl then
       begin
         var curCtrl := Components[i] as TIWCustomControl;
         sLst.Add('{%'+curCtrl.Name+'%}');
         curCtrl.StyleRenderOptions.RenderSize := false;
         curCtrl.StyleRenderOptions.RenderPosition := false;
         curCtrl.StyleRenderOptions.RenderFont := false;
         curCtrl.StyleRenderOptions.RenderVisibility := false;
         // seems that RenderStatus is required for BS to work
         //curCtrl.StyleRenderOptions.RenderStatus := false;
         curCtrl.StyleRenderOptions.RenderAbsolute := false;
         curCtrl.StyleRenderOptions.RenderZIndex := false;
         curCtrl.StyleRenderOptions.RenderPadding := false;
         curCtrl.StyleRenderOptions.RenderBorder := false;
         // TabOrder doesn't seem to work...
         curCtrl.TabOrder := 0; //<--???

         if curCtrl is TIWButton then
         begin
           // first digit is the btn style and the second digit is 1 = btn-block, 0=none
           var first_digit := StrToIntDef(curCtrl.Tag.ToString[1], 0);
           var second_digit := StrToIntDef(curCtrl.Tag.ToString[2], 0);
           case first_digit of
             1: curCtrl.Css := 'btn';
             2: curCtrl.Css := 'btn btn-default';
             3: curCtrl.Css := 'btn btn-primary';
             4: curCtrl.Css := 'btn btn-success';
             5: curCtrl.Css := 'btn btn-info';
             6: curCtrl.Css := 'btn btn-warning';
             7: curCtrl.Css := 'btn btn-danger';
           else
             curCtrl.Css := 'btn btn-primary'
           end;
           if second_digit = 1 then
             curCtrl.Css := curCtrl.Css + ' btn-block';
         end
         else if curCtrl is TIWLabel then
           curCtrl.Css := 'control-label'
         else if curCtrl is TIWComboBox then
           curCtrl.Css := 'form-control'
         else if curCtrl is TIWEdit then
           curCtrl.Css := 'form-control'
         else if curCtrl is TIWText then
           curCtrl.Css := 'form-control'
         else if curCtrl is TIWMemo then
           curCtrl.Css := 'form-control'
         else if curCtrl is TIWCheckBox then
           curCtrl.Css := 'checkbox-inline'
         else if curCtrl is TIWRadioGroup then
           curCtrl.Css := 'radio'
         else if curCtrl is TIWRadioButton then
           curCtrl.Css := 'radio'
         else if curCtrl is TIWListbox then
           curCtrl.Css := 'form-control'
         else if curCtrl is TIWImageFile then
           curCtrl.Css := 'img-responsive'
         else if curCtrl is TIWDBGrid then
           curCtrl.Css := 'table-hover table-striped table-bordered';
       end
       else if Components[i] is TIWTemplateProcessorHTML then
       begin
         // for now, keep the jQueryMobile style for the mobile version of the page
         if UserSession.IsMobile then
         begin
           (Components[i] as TIWTemplateProcessorHTML).Templates.Default := 'mobi'+AForm.Name+'.htm';
           StyleSheet.Filename := '';
         end
         // use the BS style if the user wants the new design
         else if UserSession.IsNewDesign then
         begin
           (Components[i] as TIWTemplateProcessorHTML).Templates.Default := 'BS'+AForm.Name+'.htm';
           StyleSheet.Filename := '';
         end;
         (Components[i] as TIWTemplateProcessorHTML).RenderStyles := false;
         (Components[i] as TIWTemplateProcessorHTML).Enabled := true;
       end;
     end;
   end;
   // if there isn't already a template for this page, save all the controls into a text file
   // with the name of the expected template to which the BS head can be added
   if not FileExists(WebApplication.ApplicationPath + 'Templates' + PathDelim + 'BS'+AForm.Name+'.htm') then
     sLst.SaveToFile(WebApplication.ApplicationPath + 'Templates' + PathDelim + 'BS'+AForm.Name+'.htm');
 finally
   sLst.Free;
 end;
end;

Print this item

  There a no available objects in the pool
Posted by: etwoss - 05-25-2019, 06:39 AM - Forum: IntraWeb General Discussion - Replies (1)

Hi

Since i use "RestartExpiredSessions" i'm getting these kind of errors.
I use a TIWDataModulePool.

Somebody any idea?

Eric

Print this item

  Scroll Sync Between 3 ListBoxes.
Posted by: jdenell - 05-23-2019, 08:08 PM - Forum: IntraWeb General Discussion - Replies (1)

I currently have 3 TIWListBox objects which I am trying to sync together. When I scroll down/up in one I want them all to scroll but I haven't had any luck finding a solution.

I am using Delphi 10.1 Berlin

Thanks in advance for any help!

Print this item

  HTTPS with Intraweb
Posted by: Orpair - 05-23-2019, 10:27 AM - Forum: IntraWeb General Discussion - Replies (16)

Hi,

I recently make a web application with Intraweb and deploy it as a Windows Service on a server.
Now I want to install SSL to have a HTTPS access. 

I look at this project : https://github.com/Atozed/IntraWeb/tree/...ndAloneSSL to see how it works but 
the secured link didn't work. (Chrome : This page of the site ... was not found /This site is inaccessible  Exception message : Secure mode is required for this form).

I add libeay32.dll and ssleay32.dll on the project folder and I use their .pem files  to test their application.
I test on 127.0.0.1 and I install it as a windows service to test with IP of my server too.
I'm on Delphi 10.2 and Intraweb 15.0.15.

Does anyone knows what is wrong ?

Thanks.

Print this item

  cannot started service after deploy http.sys application
Posted by: Stéphane - 05-22-2019, 08:01 AM - Forum: IntraWeb General Discussion - Replies (4)

i try to test Http.sys application sample "HttpSysDemo" with Intraweb 15.0.17

in DPR file :
TIWStartHSys.Execute(False);

then i deploy then HttpSysDemo1.exe as service with cmd run as administrator :
sc create HSysApp1 binPath="C:\PROJETS\\Intraweb\Samples\15\Delphi\HttpSysDemo\App1\Win32\Debug\HttpSysDemo1.exe"

When i try to start the service in the previous cmd windows with :
net start HSysApp1

the result is :


Le service HSysApp1 démarre........ (i.e. HSysApp1 service starts......)

Le service HSysApp1 n’a pas pu être lancé. (i.e. HSysApp1 service cannot be started)

why ? i don't find any detail about this failure.
Any  idea please ?

Print this item