Hello,

We have developed a thread-based TCPServer-application running on company machine (Windows 7) with fixed IP and fixed Port.
We also developed a standalone TCPClient application distributed to our customers.
We are now planning to change this Client-Server model to use SSL encryption (a server certificate does exist).

Can you please point me to some sample code how to implement SSL on server and on client  side.

Thanks in advance,
Wolfgang

Hello,

could you please help me on how to iterate over all forms included in the application.

This is a continuation of a thread at Embarcadero forum, which no longer responds to my input...


Background:
I have programmed an embedded IoT device (ESP8266) for which I have created a configuration application using FPC/Lazarus with Indylaz (Indy 10).
All of this works fine after some help from Remy L.
But there is one thing I also want to incorporate in the config application and this is firmware update via the network of the IoT device.
The ESP8266 has libraries with a lot of functions including web firmware updating, which I have included in my system.
It works as a simple web server operating on the http port of the IoT device, one simply opens the URI http://<ip address of IoT>/firmware and a minimal form is presented where there are two buttons, one file select button to select which firmware file to use and an Update button which starts the firmware update process.

The form presented by the IoT device on the URI shown above has the following html source:

Hello,

Can someone help me implement these functions (in Delphi XE4)


function Base64EncodeBytes(Input: TBytes): TBytes;
function Base64DecodeBytes(Input: TBytes): TBytes;

Could be using Indy or Soap.EncdDecd.

Thank you
Rael

Hi Guys, I've developed an application that uses Style Sheets, each form has the same CSS file and each component has it's CSS property set to an entry in the CSS file.

All works brilliantly in Chrome, Firefox & Opera but Internet Explorer just won't play ball and doesn't seem to apply anything from the CSS file.  My experience of CSS/HTML is limited and I guess IE doesn't like something in my CSS.

Any ideas or pointers would be much appreciated, I'm pulling my hair out.

Thanks

First of all, thanks for the new forum. It is unclear whether the community.embarcardero.com is a replacement for forums.embarcardero.com but all I see is that community is working and forums is not. Anyway, onto the possible bug.

In the example:

Quote:with TIdMessageBuilderHtml.Create do
try
PlainText.Text := 'plain text goes here';
FillMessage(IdMessage1);
finally
Free;
end;

Quote:Content-Type: text/plain; charset=us-ascii

plain text goes here

Quote:with TIdMessageBuilderHtml.Create do
try
PlainText.Text := 'äüø';
FillMessage(IdMessage1);
finally
Free;
end;

Quote:Content-Type: text/plain; charset=utf-8

äüø

This my "prototype" of Ocelot using Codepage 437 to do "graphic" in text mode:



How your OS looks like?

I have been struggling with inserting IW logged on user session information into my MADshi bug reports.

Thanks to fantastic support and help from both IW (yes, you Alexandre ) and MADshi the issue now appears to be resolved.

The caveat is that either or both of IW and MADshi may advise differently....

If you are interested here is the link (http://forum.madshi.net/viewtopic.php?f=4&t=28464).

No need to read all the posts.  The first few posts and the last 3 to 5 posts are the important ones.

All the best...

Hi guys, I'm having problems with RemObjects Remoting SDK TROSuperTCPChannel which uses TIdTCPClient to communicate.

When setting active = false -> disconnect or destroying the component which does the same thing, there is a 20-30 second delay before the destruction completes.
This doesn't occur with Delphi under Windows 32 or 64bit.

The issue is occurring on Centos 7 64bit in may case, I haven't tested other linux builds at this time.

I've tested identical code in Lazarus with Synapse and don't have any delays destroying their components that have connected to the same server.

I'm just wondering whether you can test TIdTCPClient running on Centos 7 64bit through a Delphi console app connecting to a Windows TIdTCPServer server on a delphi console app and see if you get the same issue or can see/suggest what might be causing it...

I am not sure if the Indy system can help here, or that this is a pure Android issue (and forums.embarcadero.com is down again).

Android has an 'Active Network', which is set by the system. I get a notification from the 'ConnectionManager' when Android is changing this 'Active' network.
Problem is that Android claims the active network is "connected" when it has Internet access. NOT when it is in fact connected to a Network!

So I have this situation.
Android is connected to a WIFI network on which runs my Local Database Server. But this WIFI network does NOT have Internet access.
At the same time the Android device is also connected to a 'Mobile' network, which DOES have Internet access.
The ConnectionManager sends a notification that the Active Network is the Mobile network and that the WIFI network is NOT connected (but it is).

My App is aware that on the WIFI my Server is active (because I get a broadcast message from it via the IdUDPServer) on the WIFI network, which includes its IP address).

But when I try to connect to it, this connect request goes out over the Mobile network, NOT to the WIFI network.

So. Is there any way I can force the IdTCPClient to specifically do a 'Connect' to via the WIFI network (of which I can get all details) as opposed to the default 'Active' network?

PS:
I tried to set the BoundIP with the local IP address assigned to the WIFI network; But this does not have any effect:
{code}
IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
          IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmClient;  // sslmUnassigned
          IdSSLIOHandlerSocketOpenSSL1.SSLOptions.SSLVersions := [sslvTLSv1_2];
          IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1_2;
          IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyDepth := 0;
          IdSSLIOHandlerSocketOpenSSL1.OnStatusInfo := TDTBEventHandlers.IdSSLIOHandlerSocketOpenSSL1StatusInfo;
          IdSSLIOHandlerSocketOpenSSL1.OnStatus := TDTBEventHandlers.IdSSLIOHandlerSocketOpenSSL1Status;
          IdSSLIOHandlerSocketOpenSSL1.OnVerifyPeer := TDTBEventHandlers.IdSSLIOHandlerSocketOpenSSL1VerifyPeer;
          IdSSLIOHandlerSocketOpenSSL1.PassThrough := true;

          IdTCPClient1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
          if NetworkData.LocalIP <> '' then
          begin
            IdTCPClient1.BoundIP := NetworkData.LocalIP;
            IdSSLIOHandlerSocketOpenSSL1.BoundIP := NetworkData.LocalIP;
            LocalLog('=== TCPThread.Execute: Connect using BoundIP: '+NetworkData.LocalIP);
          end;
{code}


Thanks, Bart