Recent

Author Topic: Production ready product  (Read 2586 times)

Prakash

  • Full Member
  • ***
  • Posts: 168
Production ready product
« on: December 25, 2022, 03:45:42 am »
Lazarus android we can build production ready product
Can we upload on Google Play Store apk
Is there any app on Google Play Store

Thaddy

  • Hero Member
  • *****
  • Posts: 14013
  • Probably until I exterminate Putin.
Re: Production ready product
« Reply #1 on: December 25, 2022, 10:02:02 am »
Yes, follow these steps: https://www.cubix.co/blog/how-to-upload-app-to-google-play-store
Will cost you a few $$, but cheaper than Apple.

And yes, there are several apps in the play store written in Freepascal, mostly using Lamw.
(some are announced on this forum)
« Last Edit: December 25, 2022, 10:08:52 am by Thaddy »
Specialize a type, not a var.

Prakash

  • Full Member
  • ***
  • Posts: 168
Re: Production ready product
« Reply #2 on: December 25, 2022, 07:50:54 pm »
Please share the app which is developed in Lazarus.
I would like to see the functionalities and smoothies

Thaddy

  • Hero Member
  • *****
  • Posts: 14013
  • Probably until I exterminate Putin.
Re: Production ready product
« Reply #3 on: December 25, 2022, 08:40:19 pm »
Well, as I wrote, there are much more than one. Search the forum.
You seem to bit lazy.
Specialize a type, not a var.

loaded

  • Hero Member
  • *****
  • Posts: 821
Re: Production ready product
« Reply #4 on: December 26, 2022, 08:47:19 am »
An example from me;
It's an app that I wrote entirely in Lazarus with the LAMW module (an obsolete CAD app) and published it on the play store (apprenticeship work)
https://play.google.com/store/apps/details?id=com.cadplugin.emlakcad

I have yet to release a more advanced app that I wrote with Android Studio + Lazarus. (journeyman's work)
https://youtu.be/gBS0AMrJ50s
« Last Edit: December 26, 2022, 09:03:10 am by loaded »
Check out  loaded on Strava
https://www.strava.com/athletes/109391137

Hansvb

  • Hero Member
  • *****
  • Posts: 598
Re: Production ready product
« Reply #5 on: December 26, 2022, 10:30:37 am »
What obsolete CAD app did you use?

loaded

  • Hero Member
  • *****
  • Posts: 821
Re: Production ready product
« Reply #6 on: December 26, 2022, 11:39:55 am »
What obsolete CAD app did you use?
When I said old, I meant it wrong. (Due to the fact that 3 years have passed)
I meant the first CAD application I wrote using Lazarus and LAMW.  ;D
Check out  loaded on Strava
https://www.strava.com/athletes/109391137

Hansvb

  • Hero Member
  • *****
  • Posts: 598
Re: Production ready product
« Reply #7 on: December 26, 2022, 01:50:08 pm »
I looked at the youtube. It looks great. For my work i use Esri software for these things. You made this with only lazarus Pascal?

loaded

  • Hero Member
  • *****
  • Posts: 821
Re: Production ready product
« Reply #8 on: December 26, 2022, 02:34:39 pm »
I used java in Android Studio for interface and user interactions. Everything else that requires speed;
-Reading and writing file formats (including whatsapp)
-Creation of tree of drawing objects (polygon, polyline, circle, arc, text)
-Making screen drawings
-I wrote Lazarus + LAMW for the features of printing from the printer that I added later (No raster support yet - All sizes - Pdf) that are not in the video.

Here is the method I used ;
https://youtu.be/SCAOeAN3eU4
Check out  loaded on Strava
https://www.strava.com/athletes/109391137

Hansvb

  • Hero Member
  • *****
  • Posts: 598
Re: Production ready product
« Reply #9 on: December 26, 2022, 05:02:05 pm »
Have you seen mergin maps or qfield for qgis? What if there was an app like that writen is Pascal? Youre app looks a lot like them. I guess that it would be great for Pascal.

loaded

  • Hero Member
  • *****
  • Posts: 821
Re: Production ready product
« Reply #10 on: December 26, 2022, 05:44:29 pm »
Have you seen mergin maps or qfield for qgis? What if there was an app like that writen is Pascal? Youre app looks a lot like them. I guess that it would be great for Pascal.

I knew qgis for windows (I was using it long ago) but I didn't know the mobile version of qfield. I learned from you, thank you very much.
Actually, I was a Vb6 user (I even have a license :)) I switched to pascal language just to write CAD program. And the experience I gained during this time;
Pascal is like Aladdin's Magic Lamp, he gives you whatever you want. I think it is not very difficult, but it takes a lot of effort.

Check out  loaded on Strava
https://www.strava.com/athletes/109391137

Hansvb

  • Hero Member
  • *****
  • Posts: 598
Re: Production ready product
« Reply #11 on: December 26, 2022, 06:05:27 pm »
Ok. My prgramming skils are not good enough to create something like that. I was thinking to create a programm that could convert Oracle sdo_ geometry to a Map. But i do not even know where to begin.

loaded

  • Hero Member
  • *****
  • Posts: 821
Re: Production ready product
« Reply #12 on: December 26, 2022, 07:21:17 pm »
My prgramming skils are not good enough to create something like that.
Rest assured, you're probably better than me.
I have never used oracle. I usually use postgresql+postgis. I think the sdo_ geometry you mentioned is equivalent to this;
http://postgis.net/workshops/postgis-intro/geometries.html
I have displayed this type of geometry in the qgis application before. But on large datasets Qgis was very slow.

But i do not even know where to begin.

If your goal is to draw;
Define a rectangle that is a quarter of your screen resolution and draw it in the middle of the screen on the canvas.
Then try to move this rectangle with the mouse. That is, apply the X-Y direction changes of mouse movements to your quadrilateral.
This is how I understood the logic of drawing. I prepared a simple example for you, you can improve yourself with a little trial and error.
But if there is a different logic, I don't know about it.


Code: Pascal  [Select][+][-]
  1. unit Unit1;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. interface
  6.  
  7. uses
  8.   Classes, SysUtils, Forms, Controls, Graphics, Dialogs;
  9.  
  10. type
  11.  
  12.   { TForm1 }
  13.  
  14.   TForm1 = class(TForm)
  15.     procedure FormCreate(Sender: TObject);
  16.     procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
  17.       Shift: TShiftState; X, Y: Integer);
  18.     procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  19.     procedure FormPaint(Sender: TObject);
  20.   private
  21.  
  22.   public
  23.  
  24.   end;
  25.  
  26. var
  27.   Form1: TForm1;
  28.   mx,my:integer;
  29.   sc_x,sc_y,sc_w,sc_h:integer;
  30. implementation
  31.  
  32. {$R *.lfm}
  33.  
  34. { TForm1 }
  35.  
  36. procedure TForm1.FormCreate(Sender: TObject);
  37. begin
  38.   sc_w:=round(ClientWidth/4);
  39.   sc_h:=round(ClientHeight/4);
  40.   sc_x:=round((ClientWidth/2)-(sc_w/2));
  41.   sc_y:=round((ClientHeight/2)-(sc_h/2));
  42. end;
  43.  
  44. procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  45.   Shift: TShiftState; X, Y: Integer);
  46.  
  47. begin
  48.    if Button= mbLeft then
  49.    begin
  50.    mx:=x;
  51.    my:=y;
  52.    end;
  53. end;
  54.  
  55. procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  56.   Y: Integer);
  57. begin
  58.   if   ssLeft in Shift then
  59.   begin
  60.    sc_x:=sc_x-(mx-x);
  61.    sc_y:=sc_y-(my-y);
  62.    mx:=x;my:=y;
  63.    Invalidate;
  64.   end;
  65. end;
  66.  
  67. procedure TForm1.FormPaint(Sender: TObject);
  68. begin
  69.   canvas.Rectangle(sc_x,sc_y,sc_x+sc_w,sc_y+sc_h);
  70. end;
  71.  
  72. end.
  73.  
Check out  loaded on Strava
https://www.strava.com/athletes/109391137

Hansvb

  • Hero Member
  • *****
  • Posts: 598
Re: Production ready product
« Reply #13 on: December 26, 2022, 08:31:36 pm »
Thanks, I will look at it.

Prakash

  • Full Member
  • ***
  • Posts: 168
Re: Production ready product
« Reply #14 on: December 27, 2022, 01:23:45 am »
Thanks.

May I use pascal code for iOS development too

 

TinyPortal © 2005-2018