Jump to content

ToddFrankson

Members
 View Profile  See their activity

  • Content Count

    14

  • Joined

  • Last visited

Posts posted by ToddFrankson

  2. Posted

    I have been looking into Zoom and Pan on mobile....

     

    Almost every example I find involves zooming and panning an Image...

     

    Anyone have an example using a TVertScrollBox and the components on it?

  3. Posted

    1 minute ago, Dave Nottage said:

    Yes, to both. Have you tried another URL?

    Yes, several files. Everytime I get a cannot write..... user doesn't have sufficient rights error, only displaying when I specifically show the error in a message. When I remove the try except, the file doesn't exist to open. 

     

    I just spent the day on the main project, using message dialogs to find this out. I am now using temppath.

  5. Posted · Edited by ToddFrankson

    14 minutes ago, Dave Nottage said:

    Your example code does not have any calls to Assign or Reset. Having said that, why are you using long deprecated file access methods? TStringList has LoadFromFile and SaveToFile methods.

     

    It might help to show an example that focuses just on GetDocumentsPath and the file access parts, if that's what is failing

    The failure Occurs in the code i posted with the Stringlist.SavetoFile.  No ERROR PRESENTED. I had to wrap almost everything with message Dialogs to find the failure.  

     

    I tried Assign /reset just on a whim .

     

    I have attached a new unit.pas.  On line 92 & 93 put a URL you know you can get too.

     

    Unit1.pas

  6. Posted

    So, I have figured out my problem.  Please alter the code with a web page you can hit.

     

    It seems that IOS No longer likes Getdocumentspath....A Stringlist failed to write to it, using Assign and reset failed to open or read the file....

     

    All in development mode.

     

    Can anyone check this?

     

     

  9. Posted

    53 minutes ago, Rollo62 said:

    Have you set the NSAppTransportSecurity and other Flags in the info.plist, according to your needs?
    Here is a sample, for various settings: 

    
<key>NSAppTransportSecurity</key>
<dict>
    <key>NSAllowsArbitraryLoads</key>
    <true/>
    <!-- Example for >= iOS 9  -->
    <key>NSExceptionDomains</key>
    <dict>
        <key>example.com</key>
        <dict>
            <key>NSIncludesSubdomains</key>
            <true/>
            <key>NSExceptionAllowsInsecureHTTPLoads</key>
            <true/>
            <key>NSExceptionRequiresForwardSecrecy</key>
            <false/>
        </dict>
    </dict>
</dict>

     

    I never had to set anything before.  Especially in the sandbox.

  10. Posted

    So, I have been working on a multi platform project, that has worked fine on Windows Android and IOS.

    IOS just updated to 17.5.1

    The code works fine Prior to the update, but not after.

     

    I use TNetHttpClient to do a get of a web page.  Prior to the Get, a Head returns just fine, to ensure internet access.

    I made a simple sample of the code.  

    tap a button to initiate the Get and load the same page in a Twebbrowser.

     

    Can anyone text the attached code and tell me why the Get doesn't "get"? And why it works fine Prior to 17.5.1, and on all other platforms??

     

    When the button is clicked, the Webbrowser browses the page, and the memo never gets filled.

     

    AndroidManifest.template.xml

    Entitlement.TemplateiOS.xml

    info.plist.TemplateiOS.xml

    Project1.deployproj

    Project1.dpr

    Project1.dproj

    Project1.dproj.local

    Project1.dsk

    Project1.identcache

    Project1.res

    Unit1.fmx

    Unit1.pas

  11. Posted

    On 5/31/2019 at 11:33 AM, Clément said:

    Hi,

     

    I have no idea where to ask for help, but hopefully that post might help other Delphi developers.
    I'll try not to make an advertise 😁

     

    I've build a program to help Network Administrator to monitor a network with two editions: Community edition (Free) and Professional Edition (Paid).
    The Community edition has the basic functionality and can be upgraded to Professional Edition.
    I've build an eStore to control the license and payments ( Delphi / PHP). The application show the modules to purchase and launch a link to the payment service provider (PSP). Once the payment is done, my eStore receives a notification from the PSP, processes it and the license is unlocked.
    Currently I'm supporting Paypal for international purchase and Paypal and Cielo for local purchase ( Purchase made in Brazil ).
    Both Paypal and Cielo are working flawlessly, but some friends told me that Paypal is not well seen by companies and will search for other application just because "Paypal is not company friendly".
    I was wondering if someone has a better experience with some other PSP that can be added/integrated in my store.
    As I intend to sell oversea what are the options I have that are "company friendly" that can work with Delphi. I will mostly focus on credit card payment.

     

    TIA,

    Clément
     

    Do you have sample code of the paypal processing?  I want to use paypal for a project and need guidance.  Not to well versed in JSon

  12. Posted

    17 hours ago, Dave Nottage said:

    Using the arrangement you described, I am still unable to reproduce this..

    ..using the same version of Delphi.

    Interesting.  Let me post my Sample project.  see if that does it.  I used android 32 on a Motorola Edge (2020) and a Samsung Galaxy S22 64 bit.  Haven't tried IOS yet.

    I have a screen recording, but the file is to large to post here.

    test.deployproj

    test.dpr

    test.dproj

    test.dproj.local

    test.dsk

    test.identcache

    test.res

    Unit1.fmx

    Unit1.pas

  13. Posted

    On 7/10/2024 at 2:16 AM, Dave Nottage said:

    I tried reproducing it using your steps, and was unable to. What version of Delphi?

    After a bit more looking into it, It occurs for me on android when I have a tabcontrol, within a tabcontrols Item

    Tabcontrol

       L Item1

       L Item2

             L Tabcontrol2

                      L Item1

                           L Vertscrollbox

     

    Add a few group boxes, enough to scroll

    Add 2 edits to the top group box,

    Tap into it then scroll.

  14. Posted

    On 7/10/2024 at 2:16 AM, Dave Nottage said:

    I tried reproducing it using your steps, and was unable to. What version of Delphi?

    I have the same issue since about 3 weeks ago in one of my apps:

    List index out of bounds (3)

    TList<FMX.Controls.TControl> range is 0..2

     

    I have a Tabcontrol, with 3 tabs.

    1 tab has a VertScrollbox.

    I dynamically create 24 group boxes,  each with either 1 edit, and 1 text or 2 of each in it. Groupboxes are aligned to the top

    All children of group boxes are aligned to the top.

    Running on windows, no error.

     

    Run on Android,  the error occurs every time an edit had focus (Cursor in the edit, keyboard displaying), but the scroll works fine after that selected

    edit has gone off screen, either top or bottom.  Happens the first time, meaning if I scroll up and get the error, I scroll down passing the top, no error.

    if I tap outside of the edit, no error, ever.

     

    It just started last week with this little utility I am putting together for a friend.

    I can't debug it because I can't find where the error is originating, IE-Groupbox,Scrollbox, etc., since it is a generic tcontrol error.  Like somewhere a count was not set to the right number of controls.

     

    Delphi 12 Version 29.0.51961.7529 

     

×