If the connection is lost ( bad Internet ), the timer does not recover when the connection reappears. How to resume the timer when the connection is active again ?

The timer is triggered 1 time per second. I use the method OnAsyncTimer.

Hello, good afternoon!

I represent RH3 Software and our license is active for Intraweb in version 14.0.31. We have developed a web portal with this technology, a legacy product of our company.

Recently some of our customers have complained about a problem that is taking our sleep: at some point, not specific, the use of the portal, the browser simply displays a blank page and it is as if the service had been deleted and just restarted the IIS. the portal returns to normal.

We have already activated the "ExceptionLogger" log of the ServerController and set the output to a file, in the same directory as the DLL. The place is allowed to read and write. But absolutely nothing is recorded. Not even the file is actually created.

This same portal runs on our internal structure and nothing goes wrong. But in these clients, "failure" persists.

Does anyone with a similar problem or with any one say so we can debug or find fault?

Forgive me for opening another thread but it is essential here that I get this going - I have staked my reputation on IntraWeb against almost irresistable opposition from the VS dot crap camp - so to recap ...

I have a clean install of XE7 on a 64-bit W7 PC with the latest IntraWeb release freshly downloaded and installed according to the instructions including removing the bundled edition.  On 32-bit platform an app builds and runs perfectly just like I am used to.

I start a new project in a new and completely different directory, adding 64-bit platform and removing 32-bit platform, I put a button on the IW form and build...

[ilink64 Error] Error: Unresolved external 'WinMain' referenced from C:\PROGRAM FILES (X86)\EMBARCADERO\STUDIO\15.0\LIB\WIN64\RELEASE\C0W64.O

I open Project | View Source where I know the main is located, there I see...

#if _WIN64
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
#elif __WIN32__
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
#endif
{

So, I try renaming _tWinMain to just WinMain and rebuild - success !

Then I run the app, which immediately crashes out with "The application was unable to start correctly (0x0000007b)."

So there was obviously a reason why WinMain was renamed.  Now I am stumpped and need to make progress...

Help Alexandre my hero !!!

PS I should have said - I'm using C++ Builder not Delphi.

PPS...
Since the whole rational behind this new project is to add a Web form to the 64-vit VCL app....

I tried adding IW to a VCL application using the technique I developed last year (and which was so successful I published it in the then C++ Builder Journal) thinking this would navigate around the Linker error - which it did.  But unfortunately the program still crashed out on start-up with the same Unable to start correctly ... error as above.

I am quite willing to pay for support and a solution !


Denville.

Attached Files

  IntraWeb - add a web page.doc (Size: 29.5 KB / Downloads: 0)

I use Delphi xe8 in combination with Intraweb 14.1.13. In my intraweb application I use HTML templates after bootstrap mode.
 
How do I have to insert (settting) a TIWBSRegion/TIWRegion into an HTML template that has some elements inside it?
 
Elements (TIWLabel/TIWBSLabel, …) lose their format!  But if they are not within TIWBSRegion/TIWRegion, the form is OK.
  
I also tried to use IWBootstrap elements, but not help.
 
Part of HTML template:
 
<div class="container-fluid">
     <div class="row">
          {%MyIWBSRegion%}
            <div class="col">
                  <h1><span class="badge badge-info">{% MyIWBSLabel0%}</span></h1>
                  <h2>{%MyIWBSLabel1%}</h2>
                  <h2>{% MyIWBSLabel2%}</h2>
             </div>
        </div>
</div>

Hello
 
I try to send an email using IdSMTP and IdMessage.
I define all the settings:
 
When I try to send to my email and define:
Msg.Recipients.EMailAddresses := 'myemail@zahav.net.il' its work ok
 
 When I try to send to my Gmail email and define:
Msg.Recipients.EMailAddresses := 'myemail@gmail.com'  
Its raise an error "Relaying not allowed"
 
Why?


Thanks, Sorin
 

How do I download a demo?

Hi, I am updating some old projects to 64-bit versions.  To that end I have re-ibstalled my trusty C++ Builder XE7 Enterprise in a nice new Windows 7 64-bit PC (it has to be W7), and downloaded the latest IW 15.0.17, installed it (meticulously following the guide and tool for removing pre-existing stuff), and registered it with my licence.

All is well in 32-bit mode, I started regaining familiarity by the simplest possible project, that has just a button that changes caption when clicked.  Compiles and runs fine under 32-bit platform.

So I add 64-bit platform to the project, select same and completely re-build, which all went well until:

[ilink64 Error] Error: Unresolved external 'WinMain' referenced from C:\PROGRAM FILES (X86)\EMBARCADERO\STUDIO\15.0\LIB\WIN64\RELEASE\C0W64.O

Referring to something I found on-line, I ensured that Link with Dynamic RTL is UNCHECKED as is Link with Runtime Packages but still the same error.  Not sure what I have done wrong ?

Thanks
Denville.

Due to OpenSSL site 

Quote:Version 1.0.2 will be supported until 2019-12-31 (LTS).

Howdy All!

I have a third party javascript component that attaches itself to a an Input control (say TIWBSInput for example). The component will update the text value of attached input control if the user changes anything.

As soon as the Text field of the TIWBSInput field is updated, I need to update a few other variables. The SetText method is virtual and I have modified it to no avail.

None of the AsyncChange, etc get called of the TIWBSInput.

So here is my question: since the Text of the TIWBSInput is obviously getting updated, how can I get notified when it does?

Thanks in advance,

Shane

Hi,

I have this function 

function TFDMFE.EncodeFile(const FileName: string): AnsiString;
var
  stream: TMemoryStream;
begin
    stream := TMemoryStream.Create;
    try
      stream.LoadFromFile(filename);
      result := EncodeBase64(stream.Memory, stream.Size);
    finally
         FreeAndNil(stream);
    end;
end;

procedure TFDMFE.InviaFE(Autorizzazione, PercorsoFileXML, Credenziali, Dominio : string);
var
 lHTTP: TIdHTTP;
 lParamList: TStringList;
 Comando, RisultatoPost : string;
begin
   //************ COMANDO HTTP ********
   Comando := 'https://ws.fatturazioneelettronica.aruba.it/services/invoice/upload';
   //**********************************

   lParamList := TStringList.Create;

   Credenziali := '""';
   Dominio := '""';

   try
     lParamList.Add('"dataFile":"'+EncodeFile(PercorsoFileXML)+'"');
     lParamList.Add('"credential":'+Credenziali); // vuoti
     lParamList.Add('"domain":'+Dominio);     // vuoti

     lHTTP := TIdHTTP.Create;
     try
        lHTTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(lHTTP);
        lHTTP.HandleRedirects := True;
        lHTTP.Request.CustomHeaders.FoldLines := False;
        lHTTP.Request.Accept := 'application/json';
        lHTTP.Request.CustomHeaders.Add('Authorization:Bearer ' + Autorizzazione);
        lHTTP.Request.ContentType := 'application/json';
        lHTTP.Request.CharSet := 'UTF-8';

         try
              RisultatoPost := lHTTP.Post(Comando, lParamList);
          except
            on E: EIdHTTPProtocolException do
            begin
                Memo1.Lines.Add(E.ErrorMessage);
            end;
          end;
     finally
       lHTTP.Free;
     end;

   finally
      lParamList.Free;
   end;
end;

I have this error:

{"timestamp":"2019-03-01T21:45:29.634+0000","status":400,"error":"Bad Request","message":"JSON parse error: Unexpected character ('%' (code 37)): expected a valid value (number, String, array, object, 'true', 'false' or 'null'); nested exception is com.fasterxml.jackson.core.JsonParseException: Unexpected character ('%' (code 37)): expected a valid value (number, String, array, object, 'true', 'false' or 'null')\n at [Source: (PushbackInputStream); line: 1, column: 2]","path":"/core-trasmissione-rest-fattura/services/invoice/upload"}


THIS IS THE DOCUMENTATION:

7.1. Upload invoice