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

Hello,

Is it possible to have 2 instalations of Intraweb in the same computer without problem, conflict :

- 1 Intraweb 14 with Delphi Tokyo
- 1 Intraweb 15 with Delphi 10.3.1

they are two ultimate versions of Intraweb. The goal is to migrate from Delphi Tokyo to Delphi 10.3.1.

thank you for your help

Regards,
Dany

This function is called internally by IW to attach an event handler to an object. For example an onclick event.
If the html already declares an onclick event listener for that object, IWCL_HookEvent moves this original event handler to an internal structure (array[]) and adds the new one.
This way they both get called I presumed but that didn't work.
Debugging the code I am not sure if following is ok.

Howdy All!

Has anyone using the bootstrap with IW 15 figured out how to set the valid date range of input control when it is set to date?

I find many examples around web but it seems everyone has a 'different' date picker they are using with bootstrap.

** Update **

I just realized the input control was using an HTML 5 control so I added the min/max properties.

Thanks in advance,

Shane

Converted our D7 & Indy 9 application to Studio 10.3 & Indy 10 with one exception:   POP3 email processing.  Under Indy 9, our code worked as we wished.  Moving to Indy 10 apparently requires an additional module which we have yet to identify.

The following identifiers become 'undeclared idenitifier":

 [            if (EmailMsg.MessageParts.Items[Jdx] is TIdAttachment) then


              if EmailMsg.MessageParts.Items[Jdx] is TIdText then

              pnlAttachments.visible := true;
              li := lvMessageParts.Items.Add;
              li.ImageIndex := 8;
              li.Caption := TIdAttachment(Msg.MessageParts.Items[Jdx]).Filename;
              li.SubItems.Add(TIdAttachment(Msg.MessageParts.Items[Jdx]).ContentType);
]

We greatly appreciate the Indy Project it has been a great assistance to us since the release of Indy9.

Jack

Using Toyko 10.2.3 with the "DUnit Test Project" for Intraweb.

Using Intraweb 14.2.7

I can't get the program to start up at all as it bombs out due to not being able to access "IW_FAVICON"

Hello
 
I want to use the TIdSMTP with Office 365
What are the settings or where I can find an example of this?
 
Thanks, Sorin

with if I wanted to use http.sys does the ssl encryption come from openssl or from windows?

How do I handle the ssl certificates?

Hi

Versions:
C++Builder Rio 10.3.1
IW15.0.18

EInvalidAppID exception raises EConvertError now!

Debugger event log:

Erste Gelegenheit für Exception bei $754C18A2. Exception-Klasse EConvertError mit Meldung 'Format 'Session ID         : %s' ungültig oder nicht kompatibel mit Argument'. Prozess MyApplication.exe (9320)
"First chance exception at $754C18A2. Exception class EConvertError with message 'Format 'Session ID         : %s' invalid or not compatible with argument'. process MyApplication.exe (9320)"


Exception logfile:

------------------------------------------------------------------------------------------------------------------------
Exception message  : Session ID is invalid.
Exception class    : EInvalidAppID
Exception address  : 009E9E77
Exception Time     : 2019-02-24 11:17:36.118
------------------------------------------------------------------------------------------------------------------------
Application Name   : MyApplication.exe
Application Version: 1.0.0.0
Started at         : 2019-02-24 11:14:33.103
Running for        :  3 minutes 3 seconds
Computer Name      : MyComputer
Compiler Version   : 330
------------------------------------------------------------------------------------------------------------------------
IntraWeb Version   : 15.0.18
Multi-session      : False
Content Path       : MyPath
Session count      : 0
------------------------------------------------------------------------------------------------------------------------
Error getting Request information: Format 'Session ID         : %s' ungültig oder nicht kompatibel mit Argument
------------------------------------------------------------------------------------------------------------------------
[Stack trace is empty]
------------------------------------------------------------------------------------------------------------------------

Debugger call stack:

:754c18a2 KERNELBASE.RaiseException + 0x62
:00765F8E System::Sysutils::ConvertErrorFmt(ResString=????, Args=????, ...)
:0076926D System::Sysutils::FormatBuf(Buffer=????, BufLen=????, Format=????, FmtLen=23, Args=:0791F5B8, AFormatSettings={ { ???? }, '\0', '\0', '\0', L'', L'ޑ', { ???? }, { NULL }, { ???? }, { u"Session ID         : %s" }, { ???? }, { ???? }, { { { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? } } }, { { { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { u"[Stack trace is empty]" } } }, { { { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? } } }, ... }, Result=????)
:00769405 System::Sysutils::FmtStr(Result=????, Format=????, Args=:0791F5B8, AFormatSettings={ { ???? }, '\0', '\0', '\0', L'', L'ޑ', { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { { { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? } } }, { { { NULL }, { NULL }, { NULL }, { NULL }, { NULL }, { NULL }, { NULL }, { NULL }, { NULL }, { NULL }, { NULL }, { NULL } } }, { { { ???? }, { ???? }, { u"Session ID         : %s" }, { NULL }, { ???? }, { ???? }, { ???? } } }, ... }, Len=9751543)
:0076937F System::Sysutils::Format(Format=????, Args=????, AFormatSettings={ { ???? }, 'X', 'F', L'̒', L'䙘', L'̒', { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { { { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { ???? }, { NULL }, { NULL }, { NULL }, { NULL }, { NULL } } }, { { { NULL }, { NULL }, { NULL }, { NULL }, { NULL }, { NULL }, { NULL }, { ???? }, { ???? }, { u"Session ID         : %s" }, { NULL }, { ???? } } }, { { { ???? }, { ???? }, { NULL }, { ???? }, { ???? }, { ???? }, { ???? } } }, ... }, Result=????)
:00769364 System::Sysutils::Format(Format=????, Args=????, Result=????)
:0094d328 ; GetRequestInfo
:0094d5d8 ; CreateReport
:0094da36 ; LogException
:00967247 Iwservercontrollerbase::TIWServerControllerBase:oLogException + 0x1F
:009671d0 Iwservercontrollerbase::TIWServerControllerBase:oException(Iwapplication::TIWApplication *,System::Sysutils::Exception *,Iw::Http::Request::THttpRequest *) + 0x20
:009ea297 Iwserversession::_16444 + 0x1F
:009d883e ; Execute
:009e596c Iwserversession::HttpExecute + 0x2C
:00a291aa ; DoCommandGet
:00922e46 ; DoExecute
:0090f476 Incontext::TInContext::Run + 0x12
:0080833C System::Classes::ThreadProc(Thread=:030A25D0)
:0074B9B2 System::ThreadWrapper(Parameter=????)
:74b78484 KERNEL32.BaseThreadInitThunk + 0x24
:770d41c8 ntdll.RtlAreBitsSet + 0x88

The exception will be raised when the session has been closed.

Best regards
Juergen