-
Content Count
1167 -
Joined
-
Last visited
-
Days Won
16
Everything posted by FPiette
-
ICS SLL3.2 much slower than Indy SSL1.0.2
FPiette replied to PizzaProgram's topic in ICS - Internet Component Suite
You are not clear enough. You MUST create ICS component in the thread's Execute() method. Creating it in the thread's constructor will result of all events running in the main thread context. The mistake is probably having the main thread with a less than 100mS response time. Are you polling devices from the main thread? If yes, that's there you have to move code to a thread. -
A few years ago, I used with great success Peak Systems CANUsb interface. They have a Delphi unit for it.
-
ICS SLL3.2 much slower than Indy SSL1.0.2
FPiette replied to PizzaProgram's topic in ICS - Internet Component Suite
Doing like this is likely makes your ICS component in the main thread context. You should create the ICS component inside the thread execute method. You cannot compare with different OpenSSL versions. Best performance with ICS is when using asynchronous operation and events. Synchronous operation will slow things down. You probably not even need a thread in the first place! -
Your TImageList seems to contain 16x16 pixels images. That's why it is pixelated. Use the same size - in pixels - as the source image.
-
I'm writing an application which read data from an external one. An XML file is used between. The external application has color defined by names while in my application, I have ARGB values. It is trivial to convert from color name to ARGB value: function ConvertGpxColor(const S : String) : UInt32; begin // AABBGGRR if SameText(S, 'Red') then Result := $FF0000FF else if SameText(S, 'Green') then Result := $FF00FF00 else if SameText(S, 'Yellow') then Result := $FF00F0F0 else if SameText(S, 'Blue') then Result := $FFFF4040 else if SameText(S, 'Magenta') then Result := $FFFE01FE else if SameText(S, 'Cyan') then Result := $FFFFFF00 else if SameText(S, 'White') then Result := $FFFFFFFF else if SameText(S, 'Black') then Result := $FF000000 else if SameText(S, 'DarkRed') then Result := $FF000060 else if SameText(S, 'DarkGreen') then Result := $FF006000 else if SameText(S, 'DarkYellow') then Result := $FF008080 else if SameText(S, 'DarkBlue') then Result := $FF600000 else if SameText(S, 'DarkMagenta') then Result := $FF600060 else if SameText(S, 'DarkCyan') then Result := $FF808000 else if SameText(S, 'LightGray') then Result := $FFC0C0C0 else if SameText(S, 'DarkGray') then Result := $FF606060 else if SameText(S, 'Transparent') then Result := $00000000 else Result := $FFC0C0C0; // Light Gray end; In my application, the user can select any ARGB colors using a color dialog. Now I must write the XML file for the external application and convert my ARGB colors to the name. For original values, there is no problem finding an exact match. But for other colors, undefined in the external application, I want to find the nearest color name. The alpha channel can be ignored. I tough about computing a distance between colors and pick the color name having the smallest distance. The distance could be computed considering the RGB channels as axis of a space volume where a distance in a 3-dimensional volume has a well known formula. But will this give a visually correct result ? Maybe a formula specific to color has already been designed?
-
Error 9009 means "File not found".
-
I told you to better describe your needs. Copy or CopyFile is Windows and it works whatever the physical network is between the two computers provided windows networking is running. TCP is a low level protocol that Windows Network use to implement his communication protocol (Which by the way is also implemented in Linux using SAMBA). FTP is a higher level protocol, making use of TCP to exchange files between two sites. IP address is the way to identify a computer inside a TCP/IP network. And there are many many more things that we cannot mention here (It would become a huge article). That's why you need to describe your needs.
-
You should better describe your needs because as is the answer is very simple: copy \\share\filepath localfilepath. Copy is the command line interpreter command. You can implement it in Delphi using Windows CopyFile API (https://learn.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-copyfile). Or using standard Defli file I/O (preferably using TFileStream).
-
Find computer with port 3306 open on LAN
FPiette replied to emileverh's topic in ICS - Internet Component Suite
Just try to connect to each IP in the range(s) using a TWSocket. If connection succeed, disconnect and store the corresponding IP somewhere, then try the next IP. To speed up the process, you may use an array of TWSocket, each one scanning a sub-range. TWSocket is asynchronous so you don't even need to use threads. -
Hard work Angus! Thanks a lot.
-
because a usb device can only be used by one machine at a time. Virtualhere presents the device on the remote machine as though it were local. I guess multiple remote PCs can connect, but only one at a given time. The connected PC must disconnect to allow another to connect. Just guessing.
-
Only the free version is discontinued! Here is what Jeff Woolsey, Principal PM Manager at Microsoft is saying: The only thing that was discontinued was the FREE Microsoft Hyper-V Server product because we simply don’t have the time and resources to keep producing the free version. That’s it. That’s the only thing that was deprecated. [explanation skipped] In short, Hyper-V is here for the very long run.
-
Select both label and panel to set MouseEnter and MouseLeave event handler or assign same event handler to both components.
-
Can a Send be done outside the thread a TWSocket is attached to?
FPiette replied to PeaShooter_OMO's topic in Network, Cloud and Web
This post can be deleted. -
Monitor Windows application and restart if needed
FPiette replied to bdw_nz20's topic in Windows API
In the program to be monitored, add code to make it answer to a message (for example a TCP socket or a pipe or a Windows message). Write a second program launch the first and periodically connect to the main program and check if he gets an answer. If no answer, it kills the program et start it again. When the second program starts the first (CreateProcess), it gets an handle that can be waited to catch when the program stops normally. -
Can a Send be done outside the thread a TWSocket is attached to?
FPiette replied to PeaShooter_OMO's topic in Network, Cloud and Web
A good architecture, scalable architecture, is to have ONE thread for the server component for a given protocol. That thread will handle all client communications (that's OK for up to one thousand clients) and unload any processing to worker threads. You can also consider splitting the application between different processes which will handle a single protocol and possibly use IPC to make those processes talk to each other if required. Having a single process doing everything is the best way to have an unstable system almost impossible to debug. -
Can a Send be done outside the thread a TWSocket is attached to?
FPiette replied to PeaShooter_OMO's topic in Network, Cloud and Web
This forum is not the place to discuss any issue with Indy, nor any comparison between ICS and any other socket component. If you want to discuss about other socket components go to their support channel. You are welcome to discuss about ICS here and nothing else. -
Can a Send be done outside the thread a TWSocket is attached to?
FPiette replied to PeaShooter_OMO's topic in Network, Cloud and Web
If you want to use ICS in threads, a good design would be to have all socket activity executed by the thread itself. If the data to be sent comes from another thread or received data must be processed by another thread, don't share the ICS component but use standard inter-thread communication techniques to do the transfert. Note that processing by ICS is not a CPU intensive process so you won't gain much using thread. Instead it is better to keep actual data processing along with the ICS component in the thread. For example, you can use a thread in a server application to handle a single client (or a few hundreds). Use ThreadAttach and ThreadDetach to move socket handling from one thread to another thread. Writing a multi-threaded application is hugely more complex than a single-threaded application, debugging is particularly difficult. You benefit from thread when computing can be done in parallel. For file transfer operation, there is almost no processing involved so benefit is low. Don't forget that the real network throughput is frequently the limiting factor. And even if you have a fast hardware speed (1Gbps for example) doesn't means that the network card you have is able to sustain such throughput. -
[MidWare] MidWare, Delphi 12
FPiette replied to WalkingAway's topic in ICS - Internet Component Suite
Midware has been developed for professional projects. It has been used for more than 10 year in a large scale application having more than 700 concurrent users on a LAN. Backend database was MS-SQL server. It has also been used it many smaller applications. -
[MidWare] MidWare, Delphi 12
FPiette replied to WalkingAway's topic in ICS - Internet Component Suite
Well, Midware is much, much more than a simple stream. At the highest level, it is a TDataSet and is meant to be used as middleware in a multi-tier database application. -
[MidWare] MidWare, Delphi 12
FPiette replied to WalkingAway's topic in ICS - Internet Component Suite
Thank you for trying Midware. The library doesn't support Unicode nor SSL. Unfortunately, I do not maintain this library anymore. But you are welcome to update the source code and mail it to me 😉 To make it working, you has to understand how it works... It should no be too complex to update the code for SSL. -
Do you want the exe with shared for to be launched by one application each time the application needs the form? It would be quite inefficient and you'll have to manage having several instances of the form hosting application. It is possible, but will be quite complex... Instead, you can put the form inside a DLL that each application will load. Or even simpler, just compile the form's code into the 5 applications.
-
How to debug an app that need to run as administrator from the IDE ?
FPiette replied to William23668's topic in General Help
Just run the IDE as administrator. -
ICS V9.0 - How to use it with Delphi 7 and Delphi XE Start without errors
FPiette replied to PavelOu's topic in ICS - Internet Component Suite
I don't read attached text file. You must make the effort of copying the relevant part of text in your message. I won't help you except if you follow the rules and follow what I ask you to do. -
ICS V9.0 - How to use it with Delphi 7 and Delphi XE Start without errors
FPiette replied to PavelOu's topic in ICS - Internet Component Suite
I told you: