Jump to content

Mark-

Members
  • Content Count

    328
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Mark-

  1. > We are especially interested in hearing from people with Yubikey tokens Which Yubikey series would you support? And would code signing be able to be automated with your "client/server product"?
  2. Mark-

    I'm NOT Able to Stop This Thread....

    I do not see a call to terminate the thread. Normally, for me, works like a charm. procedure TForm1.Button2Click(Sender: TObject); begin MyThread.Terminate; MyThread.WaitFor; MyThread.Free; end; //I don't do this: FreeOnTerminate := True; // Free memory when finished procedure TMyThread.Execute; begin //if an exception is thrown in the thread we need to catch it try MyExecute; except on E:exception do exceptionString:=E.Message; end; end; procedure TMyThread.MyExecute; begin while (not terminated) do begin try //some code except end; if not terminated then Sleep(sleepAmount); end; end;
  3. Mark-

    Multi-Threading Example Code

    Which version of Delphi are you using? 10.2, "Synchronize" is protected. I have always used Queue to access the main thread. Queue(procedure begin <some procedure>; end); But, I do not use FMX.
  4. Mark-

    Close modal form by clicking outside?

    I know that works for non modal forms, never tried with modal forms. Just tried with 10.2 and OnDeactivate is not called with a modal form, unless I am doing something wrong.
  5. I need to run the database desktop application in the tools menu of delphi 7 but these two messages come up "private directory is invalid or undefined. using temporary directory instead." and "working directory is invalid or undefined. use startup directory instead." If anyone can help me I will be grateful? So that I can continue to program my application.
  6. Hello, Delphi 10.2 If I set the form's Constraint.MaxWidth to some value, 650 for example, with the form open, normal size and maximize the form, icon, right click menu, etc., the form bottom is hidden by the taskbar. With all Constraint.MaxWidth set to 0, works as expected. No anchors, align is none. Anyone seen this? It is reproducible with all forms I tested. Web searching, no joy. Ideas? Cheers, Mark
  7. Mark-

    Maximum form with MaxWidth constraint set...

    Thanks. Done: https://embt.atlassian.net/servicedesk/customer/portal/1/RSS-1709
  8. Mark-

    Maximum form with MaxWidth constraint set...

    I am using 10.2. Does the issue exist in 12.x?
  9. Mark-

    Maximum form with MaxWidth constraint set...

    Hello, I attached a very simple project that demonstrates the issue. Here, the label is 1/2 hidden by the task bar if the max width constraint is set and the form maximized. Cheers, Mark Max.zip
  10. Hello, Using the sample project to fetch file size. Binary Mode is checked and the error returned for "Size" and "FileSize" button is: I verified "Binary" was true. Ideas? Thanks, Mark
  11. Right, the Async (FileSize, calls FileSizeAsync) function to fetch a file size does not do that, in the version I am using.
  12. Using version: 8.65 Just a follow up for anyone wanting to fetch a file size. I could not get the Async call to work. VerifyFTP.UserName:=<UserName>; VerifyFTP.PassWord:=<Password>; VerifyFTP.HostName:=<HostName>; VerifyFTP.HostDirName:=<HostDirName>; VerifyFTP.HostFileName:=<HostFileName>; try VerifyFTP.Connect; VerifyFTP.Cwd; VerifyFTP.TypeBinary; VerifyFTP.Size; finally VerifyFTP.Quit; ShowMessage(VerifyFTP.SizeResult.ToString); end; Thanks François and Angus.
  13. Hello, Delphi 10.2 I have been using TIcsFtpMulti.FtpUpOneFile for long time without issue. In the last month of so it started failing, no changes on this end. A TIcsLogger was set up and this is the end portion of the transfer. 14:14:49:951 07261C40 PutDataInSendBuffer handle=1332 len 65536 [1492] 14:14:49:951 07261C40 TryToSend handle=1332 14:14:49:998 07261C40 TryToSend handle=1332 14:14:50:029 07261C40 TryToSend handle=1332 14:14:50:029 07261C40 TryToSend handle=1332 14:14:50:045 07261C40 TryToSend handle=1332 14:14:50:201 07261C40 TryToSend handle=1332 14:14:50:201 07261C40 TriggerDataSent handle=1332 14:14:50:201 DataSocketPutDataSent 47272 14:14:50:201 07261C40 PutDataInSendBuffer handle=1332 len 47272 [1493] 14:14:50:201 07261C40 TryToSend handle=1332 14:14:50:201 07261C40 TryToSend handle=1332 14:14:50:295 07261C40 TryToSend handle=1332 14:14:50:295 07261C40 TryToSend handle=1332 14:14:50:373 07261C40 TryToSend handle=1332 14:14:50:373 07261C40 TryToSend handle=1332 14:14:50:467 07261C40 TryToSend handle=1332 14:14:50:467 07261C40 TryToSend handle=1332 14:14:50:467 07261C40 TriggerDataSent handle=1332 14:14:50:467 DataSocketPutDataSent 0 14:14:50:467 07261C40 TCustomWSocket.Shutdown 1 handle=1332 14:14:50:795 ! Data Session closed <------------------Does this mean the server closed the session, or is this an "internal" TIcsFtpMulti session? 14:14:50:795 ! Next3PutAsync 14:14:50:795 07261C40 SocketCloseCalled handle=1332 14:14:50:795 07261C40 TCustomWSocket.Shutdown 1 handle=1332 14:15:05:481 ! Aborting 14:15:05:481 Control Socket Closed, error=0 14:15:05:481 ! HighLevelAsync 0 14:15:05:481 ! Abort detected 14:15:05:481 ! HighLevelAsync done If I read correctly. the server is aborting the connection after the complete file is sent. Looking at the server contents the file is there with the transferred file name and if I read this right, the next step would be, delete the old file and rename the transferred file to the correct name. If the old file does not exist, it still fails. Ideas? Thanks, Mark
  14. Right, in the demo using that option failed on the STOR call. Back to the server shenanigans. Recall, this work fine for years. Something changed, not on my end. > The component will zip files... It is an installer that is already compressed. I need the file to be a "double click" run the installer action, just like it is now with the exe file. Thanks for your help.
  15. That is the version of the sample program. Is there a newer version of the sample program?
  16. Thanks for your help Angus. I spent all day and some night, testing and I am confident the host has done some shenanigans to stop supporting "exe" files. I tested against https://sftpcloud.io/tools/free-ftp-server and it failed due to not supporting the rename function. Stepping though code, "RemTarFile not being passed to the function, " is without a doubt being correctly passed. For now, because I needed a working solution, I went back to an old version of the program what uses TFtpClient, altered it to: Delete the file to be replaced on the server. Set the new file name to .zip. Transfer the file. Rename the file to exe. That works. I know that is basically what the multi component did. I suspect the "zip" extension, a "supported" file type, is ignored as a potential threat. And perhaps the lack of a file extension for the temporary file name, of uploading the file, was an issue. Speculation. Now, I will be looking at switching to using 7zip to wrap the installer.exe in a self extracting archive. That should handle the "exe" support issue for the current host and future host.
  17. Thanks Angus. Yeah the hosting company support is giving me nothing. "We don't support exe". But, for more than a decade it has not been an issue. When did it change? Answer: Crickets. Our 25 MB pdf file upload also fails. Uploading with FileZilla works. It does time out at the end, on occasion, but the file is uploaded. I will be testing with https://sftpcloud.io/tools/free-ftp-server, RebexTinyFtpServer and FileZilla_Server_1.8.2, soon. As well as seeking a new host. 🙂 I might have to switch to zipping the installer. It will cause some issues that will need sorting.
  18. Thanks for the response. Yes, the file name is passed in "RemTarFile". function TIcsFtpMulti.FtpUpOneFile (const LocFileFull, RemTarDir, RemTarFile: string; Replopt: TIcsFileCopyRepl) : TIcsTaskResult ; > the file name a few times already. It does. This has been working for years. I wonder if something server side has changed. Very interesting. More testing.
  19. Thanks for the response. The location/log has customer data that I cannot share. I will set up another location for testing. When I I got: 11:09:38:967 > STOR 11:09:39:084 < 500 'STOR' not understood 11:09:39:084 Upload Failed: 500 'STOR' not understood
  20. Thanks. I ran the OverbyteIcsXferTst sample, using the SingltFTP tab and here is the end of the transfer. 08:47:35:099 08:47:35:099 DataSocketPutDataSent 47864 08:47:35:376 08:47:35:376 DataSocketPutDataSent 0 08:47:35:376 08:47:35:376 024E0A60 TCustomWSocket.Shutdown 1 handle=1260 08:47:37:443 08:47:37:443 ! Data Session closed 08:47:37:443 08:47:37:443 024E0A60 SocketCloseCalled handle=1260 08:47:37:443 08:47:37:443 024E0A60 TCustomWSocket.Shutdown 1 handle=1260 08:47:37:449 < 226 Transfer complete 08:47:37:449 ! 81.7Mbytes received/sent in 279 seconds (300Kbytes/sec) 08:47:37:650 Uploaded File 08:47:37:650 08:47:37:650 Start command, Req=MlstAsync - MLST filetest_exe 08:47:37:650 > MLST filetest_exe 08:47:37:844 < modify=20240821134736;perm=adfrw;size=85703416;type=file;unique=10004AU3E699E12;UNIX.group=15000;UNIX.groupname=www;UNIX.mode=0644;UNIX.owner=454709;UNIX.ownername=<me>; /public_html/releases/filetest_exe 08:47:37:844 < 250 End of list 08:47:37:844 08:47:37:844 Start command, Req=DeleAsync - DELE 08:47:37:844 > DELE 08:47:37:921 < 501 Invalid number of parameters 08:47:37:921 08:47:37:921 Start command, Req=RenFromAsync - RNFR filetest_exe 08:47:37:921 > RNFR filetest_exe 08:47:37:992 < 350 File or directory exists, ready for destination name 08:47:37:992 08:47:37:992 Start command, Req=RenToAsync - RNTO 08:47:37:992 > RNTO 08:47:38:059 < 501 Invalid number of parameters 08:47:38:059 Final Rename Failed from: filetest_exe to 08:47:38:059 Upload Failed: 501 Invalid number of parameters
  21. Thanks for the response. > Can you please email me the normal log of the complete session, showing all commands and files. I do not see any logging options other than TIcsLogger. Do I need to create logging with OnCommand, OnResponse, etc.? I am not using SSL/TLS. The file is about 95 MB. Yeah I have thought about upgrading but, I use other ICS components, extensively, and it would take a good bit of testing. Might need to do it. Thanks for all your work on ICS.
×