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

Username
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 98,758
» Latest member: Tructiepbongda1space
» Forum threads: 2,426
» Forum posts: 11,371

Full Statistics

Online Users
There are currently 826 online users.
» 3 Member(s) | 820 Guest(s)
Applebot, Bing, Google, 888vndto1, sutbongtvfit, Tructiepbongda1space

Latest Threads
WebApplication.IP change ...
Forum: IntraWeb General Discussion
Last Post: MJS@mjs.us
09-11-2026, 09:49 PM
» Replies: 1
» Views: 280
Hook/callback to handle t...
Forum: IntraWeb General Discussion
Last Post: Lenfors
09-08-2026, 09:03 AM
» Replies: 0
» Views: 215
Reproducible IIS crash in...
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
09-08-2026, 01:48 AM
» Replies: 0
» Views: 237
The packages IW16.xx inc...
Forum: IntraWeb General Discussion
Last Post: hsbelli
09-03-2026, 11:46 AM
» Replies: 2
» Views: 539
Redirection issues with F...
Forum: IntraWeb General Discussion
Last Post: magosk
08-31-2026, 10:03 AM
» Replies: 0
» Views: 287
Source Code
Forum: IntraWeb General Discussion
Last Post: magosk
08-31-2026, 08:11 AM
» Replies: 3
» Views: 711
TContenthandler requires ...
Forum: IntraWeb General Discussion
Last Post: valmeras
08-30-2026, 02:35 AM
» Replies: 0
» Views: 262
TIWjQDBGrid erratic behav...
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
08-20-2026, 05:12 PM
» Replies: 8
» Views: 2,341
Change Language DataTable
Forum: IntraWeb General Discussion
Last Post: Rigoberto Mercedes
08-19-2026, 03:21 PM
» Replies: 1
» Views: 399
How to terminate HTTP Thr...
Forum: Indy
Last Post: rlebeau
08-14-2026, 08:01 AM
» Replies: 5
» Views: 1,053

 
  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

  Hide/Visible IWButton with template
Posted by: matija - 05-21-2019, 06:58 AM - Forum: IntraWeb General Discussion - Replies (5)

I have IWButton in my Form with RenderVisibility=true. 

This button i have defined in HTML template {%IWButton%}.

I want one time hide button in another time visible this button with Event.

IWButton.Visible:=false / IWButton.Visible:=true;

Change other property? Why not work?!

Print this item

  Encoding problems
Posted by: MikaK - 05-19-2019, 10:59 AM - Forum: IntraWeb General Discussion - Replies (10)

Hi,
I'm migraring on of our vcl apps to intraweb and run to exception "No mapping for the Unicode character exists in the target multi-byte code page". 
I understand that it something to with encoding, but how I do encode data when it comes directly from dataset trough datasource?
I'm using Delphi 10.3.1 and IW 15.0.21. At form I have tiwdbedits, tiwdbgrids
Characters are special characters like ä and ö (iso-8859-15) 

thanks
mika

Print this item