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

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