GillesL.

First app migration to Rest was easy and works. One issue but I think it is server side. Working on 2d app, looks good so far. So much easier! Thanks for the help.

 The problem was with th TSSLContext. I duplicated the settings from the sample code and everything worked. The issue was in the SSLOptions I am not sure which one was causing the problem:

[sslOpt_MICROSOFT_SESS_ID_BUG,sslOpt_NETSCAPE_CHALLENGE_BUG,sslOpt_NETSCAPE_REUSE_CIPHER_CHANGE_BUG,sslOpt_MICROSOFT_BIG_SSLV3_BUFFER,sslOpt_SSLEAY_080_CLIENT_DH_BUG,sslOpt_TLS_D5_BUG,sslOpt_TLS_BLOCK_PADDING_BUG,sslOpt_TLS_ROLLBACK_BUG,sslOpt_NO_SSLv2,sslOpt_NO_SSLv3,sslOpt_NETSCAPE_CA_DN_BUG,sslOpt_NETSCAPE_DEMO_CIPHER_CHANGE_BUG]

I do appreciated the suggestion about using Rest instead and I will rewrite my code to do so. Thanks for the response.

Can someone point me out in the right direction please. I used the following code in 2 different programs. One works the other fails because the "Document" file does not get created...

const Document : string = 'c:\temp\rcvdata.txt';

function TForm5.PostURL(URL, HeaderKey, HeaderValue, Data: string): string;
var S: TStringList;
begin
  if FileExists(Document) then
    DeleteFile(Document);
  S:= TStringList.Create;
  try
    if HeaderKey <> '' then
    begin
      SslHttpCli1.ExtraHeaders.Add(HeaderKey + ': ' + HeaderValue);
    end;
    SslHttpCli1.SendStream := TMemoryStream.Create;
    SslHttpCli1.SendStream.Write(Data[1], Length(Data));
    SslHttpCli1.SendStream.Seek(0, 0);
    SslHttpCli1.RcvdStream      := TMemoryStream.Create;  //not to sure about this see HTTPDocBegin
    SslHttpCli1.URL             := Trim(URL);
    SslHttpCli1.ContentTypePost := 'application/json';
    SslHttpCli1.Post;
    S.LoadFromFile(Document);
    Result:= S.Text;
    Memo1.Lines.Add('DATA SENT:');
    Memo1.Lines.Add(Data);
    Memo1.Lines.Add('RESPONSE:');
    Memo1.Lines.Add(Result);
  finally
    S.Free;
  end;
end;

procedure TForm5.SslHttpCli1BeforeHeaderSend(Sender: TObject; const Method: string;
  Headers: TStrings);
begin
  Memo1.Lines.Add('HEADERS:');
  Memo1.Lines.add(Headers.text);
end;

procedure TForm5.SslHttpCli1DocBegin(Sender: TObject);
begin
  FByteCount:= 0;
  SslHttpCli1.RcvdStream := TFileStream.Create(Document, fmCreate);
end;

procedure TForm5.SslHttpCli1DocData(Sender: TObject; Buffer: Pointer; Len: Integer);
begin
  Inc(FByteCount, Len);
end;

procedure TForm5.SslHttpCli1DocEnd(Sender: TObject);
begin
  if Assigned(SslHttpCli1.RcvdStream) then
  begin
    SslHttpCli1.RcvdStream.Free;
    SslHttpCli1.RcvdStream := nil;
  end;
end;

Thanks. I did not realize that the property "State"  was published, which makes it easier so I do not have to modify the source.

Windows 10, icsv864, Delphi 10.4, VCL app using SMTPClient...

I have an app which runs in the background and must send an email (unattended) when a certain event takes place. From time to time the app stops because the component  is not smtpReady:

procedure TCustomSmtpClient.CheckReady;
begin
    if not (FState in [smtpReady, smtpInternalReady]) then
      raise SmtpException.Create('SMTP component not ready');
end;
 

Is it possible to have a quiet exception, no need for user to click OK, and have the app recover and continue to work.

Anyone has experience with something like this:

procedure TCustomSmtpClient.CheckReady;
begin
    while not (FState in [smtpReady, smtpInternalReady]) then

   begin

       Application.ProcessMessages; //not sure if it is warranted
      Sleep(1000); //maybe 100 would be sufficient

   end;
end;
 

Or maybe a better solution...

Fixed the problem... it was a simple port issue.

I developed an app under Windows 10. If I try to run it under windows 7 when I try to send an email I get this error on connect:

RequestDone Rq=0 Error: Winsock - Interrupted system call
 

Is there something to change on the old windows 7 box?

Any help would be appreciated.

I followed the example and used the TSslSmtpCli component instead and it works fine. Thanks for the input.

Thanks. I will give it a go.

I am having a problem using TSslSmtpCli (v8.55) in a console app (cgi) under windows 10 and Delphi Tokyo (10.2.3). The problem is I can not assign a procedure (created as a TSmtpRequestDone) to the event OnRequestDone since procedures and methods are not compatible. Using a Form provides a mechanism to do so but creates another problem since the app is a console app and I end up with a run time error 216 as the app terminates. Is there any other way other than creating a new component using TCustomSslSmtpCli as a base.