<![CDATA[Atozed Forums - Indy]]> https://www.atozed.com/forums/ Tue, 16 Jun 2026 05:42:49 +0000 MyBB <![CDATA[TIDFTP sending short files goes to timeout]]> https://www.atozed.com/forums/thread-5749.html Wed, 14 Jan 2026 12:40:48 -0500 Dany40]]> https://www.atozed.com/forums/thread-5749.html
I use a TIDFTP client in a RadStudio 10.4 project that connects to a FileZilla Server for sending thoudands of little files (1kb to 4 or 5 MB). The client is set to send in pasive mode and bynari mode, using PUT:

Code:
Ftp.Put(sSoruceFile, sTargetFile, False, -1);

In the very big number of files it sends every week, 3 or 4 different and small files (2 kb in size) appeared that could not be transferred to that server; FileZilla is receiving them, sure in only one package as those files are very little in size; but after the client reaches the 60 seconds timeout, the Put raises a read error. When I see at the server side, the file only have 1300 bytes, when the original file is 2406 bytes.

Using one of the files that fails, I can reproduce the same 100% of the times I try. I attached here a test file.

FileZilla server is 1.12.1 version, and it is running on a Windows 11 PRO virtual machine and behind a NAT.

Thank you in advanced for any idea or clue I can follow!]]>
I use a TIDFTP client in a RadStudio 10.4 project that connects to a FileZilla Server for sending thoudands of little files (1kb to 4 or 5 MB). The client is set to send in pasive mode and bynari mode, using PUT:

Code:
Ftp.Put(sSoruceFile, sTargetFile, False, -1);

In the very big number of files it sends every week, 3 or 4 different and small files (2 kb in size) appeared that could not be transferred to that server; FileZilla is receiving them, sure in only one package as those files are very little in size; but after the client reaches the 60 seconds timeout, the Put raises a read error. When I see at the server side, the file only have 1300 bytes, when the original file is 2406 bytes.

Using one of the files that fails, I can reproduce the same 100% of the times I try. I attached here a test file.

FileZilla server is 1.12.1 version, and it is running on a Windows 11 PRO virtual machine and behind a NAT.

Thank you in advanced for any idea or clue I can follow!]]> <![CDATA[Indy for Lazarus and SSL v3.x]]> https://www.atozed.com/forums/thread-5629.html Sun, 07 Dec 2025 01:53:49 -0500 dpapdpap]]> https://www.atozed.com/forums/thread-5629.html https://github.com/IndySockets/OpenSSL-Binaries are only v1.0 and v3.x.  
My question is: is There a working link from where I could download precompiled binaries that work with indy10 at Lazarus64/win or is there another way to make indy able to make SSL calls?
Thanls in advance]]> https://github.com/IndySockets/OpenSSL-Binaries are only v1.0 and v3.x.  
My question is: is There a working link from where I could download precompiled binaries that work with indy10 at Lazarus64/win or is there another way to make indy able to make SSL calls?
Thanls in advance]]> <![CDATA[TIdTCPServer with many concurrent connections]]> https://www.atozed.com/forums/thread-5413.html Wed, 10 Sep 2025 17:29:12 -0400 vince99]]> https://www.atozed.com/forums/thread-5413.html
I have a TIdTcpServer project with many clients that have permanent connections.  At the moment I am having 2300 concurrent connections (=2300 threads) all the time and I am running into performance problems.  The machine I am running the server application on is a Windows Server 2019 with 8 cores and 24 GB of RAM.  
I suspect the application starts running slow because of the thread scheduling of the operating system.

I have been reading about the IdSchedulerOfThreadPool that would use a thread pool instead of 1 thread per connection, but I also read something that contradicts that a  IdSchedulerOfThreadPool would help.

What is the best I can do to handle that many concurrent connections?

Vincent]]>
I have a TIdTcpServer project with many clients that have permanent connections.  At the moment I am having 2300 concurrent connections (=2300 threads) all the time and I am running into performance problems.  The machine I am running the server application on is a Windows Server 2019 with 8 cores and 24 GB of RAM.  
I suspect the application starts running slow because of the thread scheduling of the operating system.

I have been reading about the IdSchedulerOfThreadPool that would use a thread pool instead of 1 thread per connection, but I also read something that contradicts that a  IdSchedulerOfThreadPool would help.

What is the best I can do to handle that many concurrent connections?

Vincent]]> <![CDATA[Documentations Link doesn`t work]]> https://www.atozed.com/forums/thread-5402.html Thu, 04 Sep 2025 07:20:39 -0400 Andy Night]]> https://www.atozed.com/forums/thread-5402.html all links in the Website of Indy doesn`t work. Is there a Bug? https://www.indyproject.org/documentation/
Thanks Big Grin]]> all links in the Website of Indy doesn`t work. Is there a Bug? https://www.indyproject.org/documentation/
Thanks Big Grin]]> <![CDATA[New Google Security Requirements for smtp access]]> https://www.atozed.com/forums/thread-5039.html Tue, 25 Feb 2025 13:28:20 -0500 OldBob1938]]> https://www.atozed.com/forums/thread-5039.html
I am using TidSMTP version 10.6.2.  I have 3 apps that run daily by themselves to perform specific tasks and to report the results of the tasks.  I don't understand google's requirement that accounts with app passwords must have 2 step verification.  How can this work for automatic tasks?  Also, don't understand the requirements for OAuth 2 starting next month.  

Am out of my depth here and any pointers will be appreciated]]>
I am using TidSMTP version 10.6.2.  I have 3 apps that run daily by themselves to perform specific tasks and to report the results of the tasks.  I don't understand google's requirement that accounts with app passwords must have 2 step verification.  How can this work for automatic tasks?  Also, don't understand the requirements for OAuth 2 starting next month.  

Am out of my depth here and any pointers will be appreciated]]> <![CDATA[TIdTCPServer connection limits?]]> https://www.atozed.com/forums/thread-4930.html Sun, 26 Jan 2025 15:43:52 -0500 Justin Case]]> https://www.atozed.com/forums/thread-4930.html
So my server is working with quite a complex ACL that allows user groups and permissions to be changed for users in real time without logging off and back on again. The good old 'Apply' button has it's uses but not in something where I may need to restrict something fast..

Anyhow, when running on my Win7 Pro box (2x 4core proccys at 3GHz, 16GB ram) it maxes out with 93 clients connected. After that, i can launch new clients but they fail to connect (or at least if they do connect, they do it fast and disconnect without me noticing).

At this point, the server memory according to task manager is: 137,668K - which doesn't seem a lot when some instances of chrome can use far more than that!

I'm using Delphi 6 (32bit obviously).

Any ideas where i start with this?

Thanks]]>
So my server is working with quite a complex ACL that allows user groups and permissions to be changed for users in real time without logging off and back on again. The good old 'Apply' button has it's uses but not in something where I may need to restrict something fast..

Anyhow, when running on my Win7 Pro box (2x 4core proccys at 3GHz, 16GB ram) it maxes out with 93 clients connected. After that, i can launch new clients but they fail to connect (or at least if they do connect, they do it fast and disconnect without me noticing).

At this point, the server memory according to task manager is: 137,668K - which doesn't seem a lot when some instances of chrome can use far more than that!

I'm using Delphi 6 (32bit obviously).

Any ideas where i start with this?

Thanks]]> <![CDATA[TIdTCP(CMD)Server bindings]]> https://www.atozed.com/forums/thread-4788.html Fri, 13 Dec 2024 17:44:28 -0500 Justin Case]]> https://www.atozed.com/forums/thread-4788.html I have a hunch I already know the answer to this..

Is there a way to change the bindings while the server is running?

I'd like to be able to send a command to my server and have it bind to another port and accept a connection there - but only when instructed to do so. After use, I'd like that binding to vanish and it stop listening there.

I know the bindings are usually taken care off in the Active property but can it be managed outside of this?]]> I have a hunch I already know the answer to this..

Is there a way to change the bindings while the server is running?

I'd like to be able to send a command to my server and have it bind to another port and accept a connection there - but only when instructed to do so. After use, I'd like that binding to vanish and it stop listening there.

I know the bindings are usually taken care off in the Active property but can it be managed outside of this?]]> <![CDATA[UDP Broadcast across VLANs]]> https://www.atozed.com/forums/thread-4757.html Thu, 05 Dec 2024 04:21:23 -0500 Ahmed Sayed]]> https://www.atozed.com/forums/thread-4757.html I have a server app that needs to know if there are other instances of the same server app running on the same VLAN or different VLANs.

When I try using the Broadcast function in the UDP client/server and using the IP address "255.255.255.255," it only sends the message to the current VLAN and local machine. But when I use that VLAN IP address something like "192.168.5.255" it does broadcast the message to all the servers that listen to the port I defined. 

I already have a way in mind which is to force the user to add a list of VLANs in a config file, but let's say they forget or make a mistake I want this to be more automatic so that the Master server can discover the other VLANs on the network on its own. Also, I don't want to loop all possible IP numbers from 0 to 255 just to discover if there is a possibility that this IP is in fact a VLAN or not.

Does Indy have anything to help me with this, or maybe broadcast the message to the whole network across VLANs?]]> I have a server app that needs to know if there are other instances of the same server app running on the same VLAN or different VLANs.

When I try using the Broadcast function in the UDP client/server and using the IP address "255.255.255.255," it only sends the message to the current VLAN and local machine. But when I use that VLAN IP address something like "192.168.5.255" it does broadcast the message to all the servers that listen to the port I defined. 

I already have a way in mind which is to force the user to add a list of VLANs in a config file, but let's say they forget or make a mistake I want this to be more automatic so that the Master server can discover the other VLANs on the network on its own. Also, I don't want to loop all possible IP numbers from 0 to 255 just to discover if there is a possibility that this IP is in fact a VLAN or not.

Does Indy have anything to help me with this, or maybe broadcast the message to the whole network across VLANs?]]> <![CDATA[TIdTCPServer - Reading TCP option values from Header packet]]> https://www.atozed.com/forums/thread-4711.html Thu, 21 Nov 2024 16:18:57 -0500 philip.joseph]]> https://www.atozed.com/forums/thread-4711.html <![CDATA[IOHandler.ReadTimeout]]> https://www.atozed.com/forums/thread-4695.html Sun, 17 Nov 2024 20:12:18 -0500 BartKindt]]> https://www.atozed.com/forums/thread-4695.html
What does this mean if it is not changed?  Is it internally setting another default, or wil it not time out at all, and keep waiting?

I have a situation where a ReadTimeout occurs all the time with the default settings, and the Client loops. I have no idea after how much time it actually times out.

Bart]]>
What does this mean if it is not changed?  Is it internally setting another default, or wil it not time out at all, and keep waiting?

I have a situation where a ReadTimeout occurs all the time with the default settings, and the Client loops. I have no idea after how much time it actually times out.

Bart]]> <![CDATA[NTLM Support for TidSMTP]]> https://www.atozed.com/forums/thread-4658.html Sun, 10 Nov 2024 15:05:09 -0500 Matt G]]> https://www.atozed.com/forums/thread-4658.html
Code:
AV was with this line: setup_des_key(PDES_cblock(Integer(Akeys) + 7)^, ks);


Is there any information on NTLM support now or is that gone?

Looks like IdFIPS.pas disables NTLM by default now:

Code:
function DefLoadNTLMLibrary: Boolean;
begin
  Result := False;
end;



Thanks
Matt]]>
Code:
AV was with this line: setup_des_key(PDES_cblock(Integer(Akeys) + 7)^, ks);


Is there any information on NTLM support now or is that gone?

Looks like IdFIPS.pas disables NTLM by default now:

Code:
function DefLoadNTLMLibrary: Boolean;
begin
  Result := False;
end;



Thanks
Matt]]> <![CDATA[Encoding problem?]]> https://www.atozed.com/forums/thread-4626.html Sun, 27 Oct 2024 16:27:42 -0400 Justin Case]]> https://www.atozed.com/forums/thread-4626.html
The client sends a string command like this: logon¦<username>¦password

After being stumped as to it not working anymore, I ended up doing a debug and seeing that the clients TCP thread is sending it but the server isn't happy - and sends back a 400 quoting it with ? instead of ¦

So I went and debugged the server and the TIdCmdTCPServer.DoExecute function is reading it in as: logon?<username>?password

Clearly this is not what was sent however ¦ is turning into ?

In IdGlobal there is this function that the client calls when calling WriteLn():


Code:
function ToBytes(const AValue: string; const ALength: Integer; const AIndex: Integer = 1;
  ADestEncoding: IIdTextEncoding = nil
  {$IFDEF STRING_IS_ANSI}; ASrcEncoding: IIdTextEncoding = nil{$ENDIF}
  ): TIdBytes; overload;
var
  LLength: Integer;
  {$IFDEF STRING_IS_ANSI}
  LBytes: TIdBytes;
  {$ENDIF}
begin
  {$IFDEF STRING_IS_ANSI}
  LBytes := nil; // keep the compiler happy
  {$ENDIF}
  LLength := IndyLength(AValue, ALength, AIndex);
  if LLength > 0 then
  begin
    EnsureEncoding(ADestEncoding);
    {$IFDEF STRING_IS_UNICODE}
    SetLength(Result, ADestEncoding.GetByteCount(AValue, AIndex, LLength));
    if Length(Result) > 0 then begin
      ADestEncoding.GetBytes(AValue, AIndex, LLength, Result, 0);
    end;
    {$ELSE}
    EnsureEncoding(ASrcEncoding, encOSDefault);
    LBytes := RawToBytes(AValue[AIndex], LLength);

//LBytes is: (76, 111, 103, 111, 110, 166, 83, 97, 102, 102, 108, 101, 115, 166, 104, 111, 114, 97, 99, 101, 13, 10)

    CheckByteEncoding(LBytes, ASrcEncoding, ADestEncoding);

//LBytes is: (76, 111, 103, 111, 110, 63, 83, 97, 102, 102, 108, 101, 115, 63, 104, 111, 114, 97, 99, 101, 13, 10)

    Result := LBytes;
    {$ENDIF}
  end else begin
    SetLength(Result, 0);
  end;
end;

As you can see the bytes 166 are transformed into bytes 63. This never used to happen. Why does it happen now?

This seems to be triggered here:

Code:
function TIdASCIIEncoding.GetBytes(const AChars: PIdWideChar; ACharCount: Integer;
  ABytes: PByte; AByteCount: Integer): Integer;
var
  P: PIdWideChar;
  i : Integer;
begin
  // TODO: decode UTF-16 surrogates...
  P := AChars;
  Result := IndyMin(ACharCount, AByteCount);
  for i := 1 to Result do begin
    // replace illegal characters > $7F
    if UInt16(P^) > $007F then begin

//This next line seems to do it
      ABytes^ := Byte(Ord('?'));

    end else begin
      ABytes^ := Byte(P^);
    end;
    //advance to next char
    Inc(P);
    Inc(ABytes);
  end;
end;


Any ideas please?

Thanks]]>
The client sends a string command like this: logon¦<username>¦password

After being stumped as to it not working anymore, I ended up doing a debug and seeing that the clients TCP thread is sending it but the server isn't happy - and sends back a 400 quoting it with ? instead of ¦

So I went and debugged the server and the TIdCmdTCPServer.DoExecute function is reading it in as: logon?<username>?password

Clearly this is not what was sent however ¦ is turning into ?

In IdGlobal there is this function that the client calls when calling WriteLn():


Code:
function ToBytes(const AValue: string; const ALength: Integer; const AIndex: Integer = 1;
  ADestEncoding: IIdTextEncoding = nil
  {$IFDEF STRING_IS_ANSI}; ASrcEncoding: IIdTextEncoding = nil{$ENDIF}
  ): TIdBytes; overload;
var
  LLength: Integer;
  {$IFDEF STRING_IS_ANSI}
  LBytes: TIdBytes;
  {$ENDIF}
begin
  {$IFDEF STRING_IS_ANSI}
  LBytes := nil; // keep the compiler happy
  {$ENDIF}
  LLength := IndyLength(AValue, ALength, AIndex);
  if LLength > 0 then
  begin
    EnsureEncoding(ADestEncoding);
    {$IFDEF STRING_IS_UNICODE}
    SetLength(Result, ADestEncoding.GetByteCount(AValue, AIndex, LLength));
    if Length(Result) > 0 then begin
      ADestEncoding.GetBytes(AValue, AIndex, LLength, Result, 0);
    end;
    {$ELSE}
    EnsureEncoding(ASrcEncoding, encOSDefault);
    LBytes := RawToBytes(AValue[AIndex], LLength);

//LBytes is: (76, 111, 103, 111, 110, 166, 83, 97, 102, 102, 108, 101, 115, 166, 104, 111, 114, 97, 99, 101, 13, 10)

    CheckByteEncoding(LBytes, ASrcEncoding, ADestEncoding);

//LBytes is: (76, 111, 103, 111, 110, 63, 83, 97, 102, 102, 108, 101, 115, 63, 104, 111, 114, 97, 99, 101, 13, 10)

    Result := LBytes;
    {$ENDIF}
  end else begin
    SetLength(Result, 0);
  end;
end;

As you can see the bytes 166 are transformed into bytes 63. This never used to happen. Why does it happen now?

This seems to be triggered here:

Code:
function TIdASCIIEncoding.GetBytes(const AChars: PIdWideChar; ACharCount: Integer;
  ABytes: PByte; AByteCount: Integer): Integer;
var
  P: PIdWideChar;
  i : Integer;
begin
  // TODO: decode UTF-16 surrogates...
  P := AChars;
  Result := IndyMin(ACharCount, AByteCount);
  for i := 1 to Result do begin
    // replace illegal characters > $7F
    if UInt16(P^) > $007F then begin

//This next line seems to do it
      ABytes^ := Byte(Ord('?'));

    end else begin
      ABytes^ := Byte(P^);
    end;
    //advance to next char
    Inc(P);
    Inc(ABytes);
  end;
end;


Any ideas please?

Thanks]]> <![CDATA[Bug with TIdMessageBuilderHtml and TIdAttachmentFile]]> https://www.atozed.com/forums/thread-4625.html Sun, 27 Oct 2024 15:08:13 -0400 BartKindt]]> https://www.atozed.com/forums/thread-4625.html
I have just found out that when I create an HTML email using TIdMessageBuilderHtml and also want to attach a file using TIdAttachmentFile, the file attachment fails.

It does not make a difference in which order I do it.
Is there anything I can do to fix it?

Code:
with TIdMessageBuilderHtml.Create do
    try
      PlainText.Text := PlainBody;
      Html.Text := HTMLBody;
      FillMessage(IdMessage);
    finally
      Free;
    end;

TIdAttachmentFile.Create(IdMessage.MessageParts, AAttachment);
idMessage.SaveToFile('msg.eml');

When opening the saved file, no attachments. Obviousely also when I actually send it with SMTP.]]>
I have just found out that when I create an HTML email using TIdMessageBuilderHtml and also want to attach a file using TIdAttachmentFile, the file attachment fails.

It does not make a difference in which order I do it.
Is there anything I can do to fix it?

Code:
with TIdMessageBuilderHtml.Create do
    try
      PlainText.Text := PlainBody;
      Html.Text := HTMLBody;
      FillMessage(IdMessage);
    finally
      Free;
    end;

TIdAttachmentFile.Create(IdMessage.MessageParts, AAttachment);
idMessage.SaveToFile('msg.eml');

When opening the saved file, no attachments. Obviousely also when I actually send it with SMTP.]]> <![CDATA[Contexts AThread?]]> https://www.atozed.com/forums/thread-4624.html Sat, 26 Oct 2024 17:01:32 -0400 Justin Case]]> https://www.atozed.com/forums/thread-4624.html
Is there a way to access the AThread of TIdContext?

I've been unable to find it..

Thanks

JC]]>
Is there a way to access the AThread of TIdContext?

I've been unable to find it..

Thanks

JC]]> <![CDATA[Context.Connection.Socket.WriteInteger() not available?]]> https://www.atozed.com/forums/thread-4611.html Wed, 23 Oct 2024 16:00:28 -0400 Justin Case]]> https://www.atozed.com/forums/thread-4611.html
On this version (10.6.3.3) there is still no WriteInteger() procedure available yet it was in Indy 9 (and 8 I think too).

How can I get around this please?

Thanks]]>
On this version (10.6.3.3) there is still no WriteInteger() procedure available yet it was in Indy 9 (and 8 I think too).

How can I get around this please?

Thanks]]>