Hi,

How do I set different Timeout for different Users?

I use the IMAP system to dowload an email.
MSG: TIdMessage;
IMAP: TIdIMAP4;

I then call  IMAP.UIDRetrieve(IntToStr(IMAP.MailBox.SearchResult[i]), MSG);
I can now read all fields like From, Subject etc. fine.

Then the entire email is loaded into a Stream using
IMAP.UIDRetrieveNoDecodeToStream(IntToStr(IMAP.MailBox.SearchResult[i]), AStream);

This Stream is then saved to file, as an .eml file.
I can load this file with an email program fine, all data complete.

The same Stream is internally kept.
But when I afterwards use an IdMessage.LoadFromStream, all fields like From, Subject, etc. are all empty.
The LoadFromStream does not seem to initialize the fields.

It seems only the IMAP does this, during the call to IMAP.UIDRetrieve.

How do I get my data back in the TIdMessage after a LoadFromStream?

TIWVideo is a great component, but it seems to take a very long time to load before playing. In this case 'long time' is 20-30 seconds. Sometimes the circular hourglass will show for that time, sometimes it comes up and goes away after 2 seconds, which leaves the user not knowing what is happening, or if.
I know files must be in .mp4 format, but there are a lot of options within that format. What are the recommended settings for, say, converting a .m2ts such that it would load quickly? Or, in general, what are the 'best practices' for using TIWVideo?
Thank you.

Hello,

I am deveoping an IW app with Delphi 11.2 and IW 15.2.69.
I am using the RegisterCallBack procedure to retrieve some data in JSON format and fill a JQuery data table.
When I run the application as a standalone Intraweb application it runs fine, when I use the same code in an ISAPI project the call back respond "404 not found".
Though the browser debugger I saw the call to the ajax call back function are different between the standalon application and the ISAPI application.
How should I use the RegisterCallBack function under an ISAPI project and expect the same behaviour as the one in the standalon application?

Attached you can find the calls reported by the browser debugger.

Thank you,
Davide

Attached Files

Thumbnail(s)
       

On intraweb, is there a way to refresh an FDSQLQuery asynchronously? That is, enter a record and that it can be viewed immediately without having to load the page to request the data set. It's possible?

Is there any component that detects the current GPS coordinates.

Is javascript is it navigation.geolocation.getposition();

But it shows the right locations.

Hello!

From an Asynch event I want to update the Title of a TIWTabControPage belonging to a TIWTabControl. 
When changing the Title the screen is not updated!?

How can I force the TIWTabControl to Refresh?

It works if I do a Self.AsyncReload(False) but is this the best way to do it?

Best regards, Mikael




unit Unit1;
Interface
uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Graphics,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompExtCtrls,
  IWDrawButtonUnit, IWCompTabControl, Vcl.Controls, Vcl.Forms,
  IWVCLBaseContainer, IWContainer, IWHTMLContainer, IWHTML40Container, IWRegion,
  IWCompButton;
type
  TIWForm1 = class(TIWAppForm)
    IWTabControl1: TIWTabControl;
    IWTabControl1Page0: TIWTabPage;
    IWTabControl1Page1: TIWTabPage;
    IWTabControl1Page2: TIWTabPage;
    IWButton1: TIWButton;
    procedure IWButton1AsyncClick(Sender: TObject; EventParams: TStringList);
  public
  end;
implementation
{$R *.dfm}
procedure TIWForm1.IWButton1AsyncClick(Sender: TObject; EventParams: TStringList);
begin
  IWTabControl1Page0.Title := formatDateTime('hh:nns', Now);
  // Self.AsyncReload(False); // Works
end;
initialization
  TIWForm1.SetAsMainForm;
end.




object IWForm1: TIWForm1
  Left = 0
  Top = 0
  Width = 1130
  Height = 914
  RenderInvisibleControls = True
  AllowPageAccess = True
  ConnectionMode = cmAny
  Background.Fixed = False
  HandleTabs = False
  LeftToRight = True
  LockUntilLoaded = True
  LockOnSubmit = True
  ShowHint = True
  DesignLeft = 4
  DesignTop = 4
  object IWTabControl1: TIWTabControl
    Left = 0
    Top = 0
    Width = 1130
    Height = 914
    RenderInvisibleControls = True
    ActiveTabFont.Color = clWebWHITE
    ActiveTabFont.FontFamily = 'Arial, Sans-Serif, Verdana'
    ActiveTabFont.Size = 10
    ActiveTabFont.Style = [fsBold]
    ActiveTabFont.PxSize = 13
    InactiveTabFont.Color = clWebBLACK
    InactiveTabFont.FontFamily = 'Arial, Sans-Serif, Verdana'
    InactiveTabFont.Size = 10
    InactiveTabFont.Style = []
    InactiveTabFont.PxSize = 13
    ActiveTabColor = clWebDARKGRAY
    InactiveTabColor = clWebLIGHTGRAY
    ActivePage = 0
    Align = alClient
    BorderOptions.NumericWidth = 0
    BorderOptions.Style = cbsNone
    Color = clWebSILVER
    ClipRegion = False
    TabPadding = 0
    ActiveTabBorder.Color = clWebBLACK
    ActiveTabBorder.Width = 0
    InactiveTabBorder.Color = clWebBLACK
    InactiveTabBorder.Width = 0
    ExplicitLeft = 88
    ExplicitTop = 80
    ExplicitWidth = 60
    ExplicitHeight = 60
    DesignSize = (
      1130
      914)
    object IWTabControl1Page1: TIWTabPage
      Left = 0
      Top = 20
      Width = 1130
      Height = 894
      RenderInvisibleControls = True
      TabOrder = 1
      Title = 'Page1'
      BorderOptions.NumericWidth = 0
      BorderOptions.Style = cbsNone
      Color = clWebWHITE
    end
    object IWTabControl1Page2: TIWTabPage
      Left = 0
      Top = 20
      Width = 1130
      Height = 894
      RenderInvisibleControls = True
      TabOrder = 2
      Title = 'Page2'
      BorderOptions.NumericWidth = 0
      BorderOptions.Style = cbsNone
      Color = clWebWHITE
    end
    object IWTabControl1Page0: TIWTabPage
      Left = 0
      Top = 20
      Width = 1130
      Height = 894
      RenderInvisibleControls = True
      Title = 'Page0'
      BorderOptions.NumericWidth = 0
      BorderOptions.Style = cbsNone
      Color = clWebWHITE
      object IWButton1: TIWButton
        Left = 184
        Top = 184
        Width = 120
        Height = 30
        Caption = 'IWButton1'
        Color = clBtnFace
        FriendlyName = 'IWButton1'
        OnAsyncClick = IWButton1AsyncClick
      end
    end
  end
end

Hello!

Tried the TIWAudio component with no luck.

If I paste the following in Chrome it plays nicely: file://server/SoundFiles/RadioRing.wav

But if I put a TIWAudio on a form and set AudioFile.URL (or AudioFile.FileName) to "file://server/SoundFiles/RadioRing.wav" it does not play. 
The player show on screen but it's dimmed and length is indicated as 0.

How to play a soundfile?

Best regards, Mikael

If have Intraweb application with Templates (html, js).

How to easy build it as PWA?

Hi,

Where can I download a previous version specifically 15.1.6? Tried the URL below but the download link does not work.

https://www.atozed.com/2019/10/intraweb-15-1-6/

Thanks