![]() ![]() It gives Python developers access to the FireMonkey GUI framework and is freely redistributable. I'm not proud of Application.ProcessMessages but I will replace it later with a thread and in any case there seems to be no 'TidAntiFreeze' in the Android framework (although the same code placed into a VCL application form with a TidAntiFreeze behaved the same too).Delphifmx is a natively compiled Python module powered by the Python4Delphi library. ![]() Procedure TForm4.IdFTP1Status(ASender: TObject const AStatus: TIdStatus IdFTP1.Get( 'hope.txt', 'c:\scratch\wow.txt', True ) IdFTP1.Host := 'IdFTP1.Username := 'username' ![]() Here's my code cribbed largely from this SO question to fetch a small text file in the root of my website: procedure TForm4.Button1Click(Sender: TObject) I'm running in a virtual machine so I've tried running my EXE's (demo and my simple project) on the host machine and I get the same problem, however 'WinSCP' the FTP tool works fine with the same logon and port 21 allowing me to see my source file. I've downloaded and built the Indy FTP client demo which runs but does exactly the same thing. ![]() The first time this pops up a firewall warning which I accept but retries do the same thing. The problem is that my FTP status text (as shown by a memo) 'resolves host', 'connects', 'establishes connection', and then 'Starts FTP transfer' but hangs there never returning from Get until a 'read timeout'. My objective is later to see this working in Android before using this functionality in my App but for now, I'm running this test in Windows 32-bit. I'm making a simple FTP download test with TidFTP using a Multi-device application in Delphi XE7. ![]()
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |