Jump to content

JohnLM

Members
 View Profile  See their activity

  • Content Count

    350

  • Joined

  • Last visited

Everything posted by JohnLM

  1. JohnLM
    Okay, thanks for the tips.
  2. JohnLM
    Update. . . Remy, I am getting 127.0.0.1 on Android with your code, compiled in Delphi 11.2 Alexandria. Note, I compiled for both my Galaxy phones, the A01 (32bit) and S10+ (64bit), and both report 127.0.0.01 on them. { creation 8-8-2023 tue purpose - to obtain the IP addresses of all devices } unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Memo.Types, FMX.StdCtrls, FMX.ScrollBox, FMX.Memo, FMX.Controls.Presentation, FMX.Edit, IdGlobal, IdStack; type TForm1 = class(TForm) eb1: TEdit; m1: TMemo; btnGet: TButton; btnGetRemy: TButton; ToolBar1: TToolBar; Label1: TLabel; Memo1: TMemo; procedure btnGetRemyClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} {$R *.LgXhdpiPh.fmx ANDROID} // remy's code function GetLocalIpList2(Name: string): TStringList; var Lista: TIdStackLocalAddressList; temp: TIdStackLocalAddress; I: Integer; begin Result := TStringList.Create; try TIdStack.IncUsage; // instantiates GStack if needed... try Lista := TIdStackLocalAddressList.Create; try GStack.GetLocalAddressList(Lista); for I := 0 to Lista.Count-1 do begin temp := Lista[I]; if temp.IPVersion = Id_IPv4 then Result.add(temp.IPAddress); end; finally Lista.Free; end; finally TIdStack.DecUsage; // frees GStack if needed... end; except Result.Free; raise; end; end; procedure TForm1.btnGetRemyClick(Sender: TObject); begin m1.Lines := GetLocalIpList2(''); end; end.
  3. JohnLM
    @ Remy - for the one that reports 127.0.0.1, that was from the XE7 Pro compile. I've also ported that to D11.2 Pro, so I will report back what it produces. Note, the only code that works for Android is yours, and that is the one that I am using for mobile.
  4. JohnLM
    I started a new mobile app, threw a button and edit box, and compiled it to Android successfully and it ran. So it appears to be an issue with the XE7 vs D11.2 when compiling the D11.2 version of the Photowall sample app in D11.2 If anyone know's have to resolve the issue mentioned in my previous post above with the photo showing the error, please advise how I can fix and compile it in D11.2, TIA
  5. JohnLM
    The USB cable part is a new situation. I never use to get a pop-up for it to configure it for the network. I used to plug it the cable in the laptop and phone and that was it. Due to the nature of unexplained issues way back in the XE7 days of mobile development, I decided not to allow the pop-up to auto-accept and never pop up. I wanted to make sure that I had a true connection to each device, each time I connected the cable. But, until recently, and I don't remember exactly when or why, on one day this past July/2023, when I plugged in the USB cable that it started to pop-up a network dialog box with three options to choose to setup with, (home, work, or public) and ask me which one I wanted for that session at the time of plug-in, as seen below. This started when I was debugging and reinstalling Bluetooth support on this laptop this past July.
  6. JohnLM
    Patrick, when I attempt to compile (under Delphi 11.2) the Photowall app for mobile, it fails to complete -- see below. Do you know how I can resolve this new conflict? I think it has to do with XE7 and D11.2 is not compatible or something all the sudden. I've never had this issue before when writing mobile apps in both XE7 and D11.2 on the same day.
  7. JohnLM
    Patrick, I was busy trying another idea using one of the Embarcadero samples (the Photowall) from the Rad Studio Delphi XE7 Pro IDE and samples folder, and it worked. I was able to take a photo from my phone and send it over to a VCL app in Windows on my laptop. Only this time, I had the wifi turned on in my phone. When I turned it off, the app did not work. Now, I want to try the same app but from the Delphi 11.2 IDE and its sample folder version (not the XE7's one).
  8. JohnLM
    Update on this endeavor. . . Yesterday, I compiled the two code snippets (from both DelphiUdIT and Remy) into an app, and both work. Then I compiled and made several apps under Windows 7 (VCL and FMX apps) and Android, in both Delphi XE7 Pro and Delphi 11.2 Alexandria. The IP numbers I received so far are (10.0.0.3 laptop) and (127.0.0.1 cellphone). Now, depending on when I connect and disconnect the USB cable from my Windows laptop to my cellphone, I will get different IP numbers. So, for example, the following is what I receive in that test app: USB cable Connected * Windows app -- (192.168.nn.nnn) and (10.0.0.3) where n is a 2-to-3 digit number, * Phone s10+ -- (127.0.0.1) USB cable Disconnected * Windows app -- (10.0.0.3) * Phone s10+ -- (127.0.0.1)
  9. JohnLM
    @Patrick PREMARTIN. It depends. I was running a small test app (from a code snippet found elsewhere here on this forum in another discussion) and that app was showing me an IP 10.0.0.3 most of the time. And running on my cellphone, it was showing and IP 127.0.0.1
  10. JohnLM
    Post Deleted - I got confused and posted a reply for another similar topic. I will update this one later.
  11. JohnLM
    Update on this endeavor. . . So far, I have not been able to get App Tethering working on my laptop and Android phone via Delphi 11.2 Alexandria. This has been a big failure! And just to note, I've been working on multiple smaller projects having similar purposes/features.
  12. JohnLM
    Delphi 11.2, Windows 7 Home Prem 64bit To my knowledge, this was the first time this has ever happened to me. When I opened a project from a window's folder by the .dproj file, I received this pop-up message, "Please enter a valid Embarcadero serial number" I tried opening other projects in this same way and received the same message. I normally open projects through Delphi but I was searching my folders for a project and opened it this way. Is this a known bug?
  13. JohnLM
    I'm still debugging this connection problem. I tried setting the [Allowed Adapters] to 'Bluetooth' in both apps (VCL/Mobile) but it still will not connect. In this case, I get a black screen on the cellphone. I've been watching the video (posted link in the previous post above) many times and still do not understand why it will not connect. I believe that the person in that video did not cover enough of the process for App Tethering. I also believe he left out a number of steps in the source code.
  14. JohnLM
    I've been debugging various things. I found that there are two passwords in each app, but Unit 1 seems to reference two, as shown below. Unit 2 - VCL app - 'TetherBDTest' - but makes no reference to it in the source code, nor does it check/verify it. Unit 1 - Mobile app - 'TetherBDTestClient' - this has a reference in the source code and has 'TetherBDTest' in it. I've compiled various password scenarios to no avail and still does not connect.
  15. JohnLM
    Progress Update. . . Well, I tried the sample from the above video from the C:\Users\Public\Documents\Embarcadero\Studio\22.0\Samples\Object Pascal\RTL\Tethering\BDShoppingList folder and it fails to connect on the mobile device. The VCL app is up and running, and the TetherDBClient compiles and runs on the mobile device, but there is no database showing and the two devices do not connect, that is, when I click on the [Connect] button on the mobile device. The screen on the mobile device is blank or white with the message "You are not connected" displayed at the bottom left.
  16. JohnLM
    @Zoran Bonuš - I've been looking into the app tethering idea and found this video (below) but I've read some comments and some people say it no longer works. But I will take a look into it later today and see since the project is in my C:\Users\Public\Documents\Embarcadero\Studio\22.0\Samples folder, the project is dated 8/23/2022 so there must be some updates made since. @Remy Lebeau - I searched around for TCP/UDP demo(s) on tethering or sending/receiving data (text/image/etc) but did not find any source code snippets to get me started. I am not fluent in Indy as I'd like to be. Thank you both for your suggestions. PS: forgot to mention at the beginning, I am using the Delphi Professional, both XE7 and 11.2 versions, mainly using version 11.2
  17. JohnLM
    I have an e-scooter that I use for riding around towns and trails. There is an app to download. However, that app does not connect to my scooter and the developer is slow to fix/resolve/respond and still does not connect. So, I would like to look into writing my own app for my phone (android) to do the following: 1. track start and end times 3. track my routes - where i've been or stopped at 4. show the miles I am traveling during my ride in real-time 5. show the total miles of my ride 6. possibly show speed (via calculation) and in real-time 7. eventually, to show a map of my route in real-time, and show all my stops Is this possible with Delphi 11.2 and free components/services/API's ?
  18. JohnLM
    @ Rollo62, Hi, I am starting out slowly. But I've coded various apps on Android over the years since XE7. I am not fluent in the Permissions area, but so far in this project, I am okay with what I have working on. I ride through trails in my area, so I am using that as an opportunity to test my app in order to debug and make any necessary changes/additions.
  19. JohnLM
    For step 2, I've added a tmemo control to hold all the data (latitude and longitude) that comes in during my travels. In addition, I added to the list to include an Index counter (line # 1, 2, 3, .. 200, etc.) and a time stamp entry for each lat/long value, thus. . . 001 - 5:06:03 PM - 0.0101-nnn : 0.0101-nnn 002 - 5:06:09 PM - 0.0102-nnn : 0.0102-nnn 003 - 5:06:10 PM - 0.0102-nnn : 0.0103-nnn I just need to find a way to plug those values for the lat/long into a map somehow and have it plot my previous travel route onto a map in my app. Next, I will research how to do this.
  20. JohnLM
    After some searching, I found and tried various code snippets dating back a few years but they did not work because they were missing the code snippets for handling Permissions on Android or at least my phone's version of Android 12. Then, I decided to search around in my samples folder and did find a sample called, "Location" in the C:\Users\Public\Documents\Embarcadero\Studio\22.0\Samples\Object Pascal\Mobile Snippets\Location folder. I compiled it into my Android phone and it work right from the start. Thanks, Embarcadero! I also found a couple of youtube videos, below, showing exactly this app in action. I believe I can complete steps 1, 2, and 6, below. 1. track start and end times 2. track my routes - where I've been or stopped at 3. show the miles I am traveling during my ride in real-time 4. show the total miles of my ride 5. possibly show speed (via calculation) and in real-time 6. eventually, to show a map of my route in real-time, and show all my stops
  21. JohnLM
    Delphi XE7/11, VCL, win7 Hi everyone. I've got a problem here. Because of the angle that I have to have my laptop screen at, the image when playing videos is too dark. I can barely make it out. I've learned that I can adjust the color brightness level in windows. I may also need to custom change the other colors (contrast gamma hue sat) as well, and then reset them back to standard when I'm not playing videos from youtube. The tool I used to adjust the Brightness level is the Intel control panel applet, below. However, it is difficult to bring up when I need it. And I only just discovered it today. I used to just sit up higher in my chair, which was terrible. If this is possible, how can I do this in Delphi? TIA
  22. JohnLM
    Delphi 11, win7, office 2010, ms access I did not know anywhere else to post this and thought it best here. I use Office 2010, and when I open an Access database and proceed to open a text file for importing as a new Table or Linked source, it fails with the message "there is no object in this control" Also, when I proceed to open the Linked Table Manager, it also fails with the same message. After some time thinking about, and how it might have happened (I initially thought that Office got corrupt) I came to the conclusion that this happened when I installed Delphi 11.2 Alexandria because it uses the new Edge Browser components/dll's, etc., and that had to get installed which it installed, I think. Either way, I have to keep that installed in order to use Delphi 11 and/or some of the components. They appear to be necessary, so I'm stuck. It appears that I have lost some functionality in Access, like the above-mentioned, which I need and use regularly. Note, I use MS Access every day on this laptop. Does anyone know about this and how I can resolve that error message to get Access working correctly again ?
  23. JohnLM
    RESOLVED !! I resolved it by re-installing office 2010. I was searching around for the install repair feature because I thought it would have that feature but I couldn't find one. I had found old install directory still around and hit the setup.exe app. Went through the product key/activation process with success. The old link in the pop-up dialog box still works in this version. Anyway. The Import and Linked Table Manager features are now working again!
  24. JohnLM
    Unfortunately, that test can not work because it's not a single .mdb / .accdb file, its all of them. Even new files I create suffer the same fate. It is definitely MS Access on this laptop.
  25. JohnLM
    No form in my Access db. This occurs inside the IDE of Access. I've been using Access (office products) since 1998, and never had this problem. I have no clue exactly what could have caused it, in terms of files and things. I use Access every day, but I haven't the need to import since early November/2022. So, no way to track exactly when this occurred except that it had to be when I installed Delphi 11 in mid Nov/2022. Today, I needed to import a fresh text (csv) file and that's when I discovered the problem.
×