Jump to content

microtronx

Members
  • Content Count

    107
  • Joined

  • Last visited

Everything posted by microtronx

  1. Thanks for link to rsp. I have read a lot regarding DBXJSONReflect but there is no good documentation so i don't know how to create a custom converter for my object, so that datasnap uses the registered converters for Marshal and UnMarshal.
  2. Hi Folks, i'm new to Android Services world but have successful created my first app with a background-service (used demo of Kastrifree / CrossPlatformLocation) as base. It works good, but as soon i add a tfdconnection for a local sqlite table or a TDSRestConnection for connecting to a remote-server in the service-module it does not start. My question is: What are the limits of a android-service-module created with Delphi Rio? What is blocking the service from starting if we add one of those components?
  3. Now i can note, that only adding the servermethodsclient's unit to implementation use clause is enough so the service is not starting any more. You don't have to use anything in your source.
  4. If i open the demo, select the service as active project and add a new clientmodule to a datasnap-server, save it and change the code in locationchangehandler to this: procedure TServiceModule.LocationChangeHandler(Sender: TObject; const ALocation: TLocationCoord2D; const ASource: TLocationSource); var LStatus: Integer; begin // This is where to use the location data to update a server, or to a database when not connected to the internet and the data is to be sent later LStatus := 0; // Service in foreground means app is inactive if IsForeground then LStatus := 1; if FBackgroundMonitor.IsDozed then LStatus := 2; // FUpdater.SendLocation(ALocation, LStatus); try if locationClientModule.ServerMethodsClient.savelocation('hardwareidxx', aLocation.Latitude, aLocation.Longitude, lStatus, now())=true then begin toslog.d('savelocation REST OK'); end; except on e:Exception do begin toslog.d('savelocation REST Error:'+e.message); end; end; end; plus add the locationclientmodule's unit to implementation/uses the module does not start any more, this is from logcat: 01-22 12:40:55.046 1491 1510 W ActivityManager: Timeout executing service: ServiceRecord{8ba5020 u0 org.xxxx.xxxx/com.embarcadero.services.xxxxLocationService} 01-22 12:40:57.623 1491 1510 E ActivityManager: Reason: executing service org.xxxx.xxxx/com.embarcadero.services.xxxxLocationService I have also tried to add only a tfdConnection and a tfdQuery onto service-module and same problem, the service can't be started. the device i'm testing this is a Huawei P30-Lite with Android 9 on it. Possible that the problem is connected with this?
  5. microtronx

    PaxCompiler

    Guys, have heard about htscripter from Delphihtlmcomponents? We are using it as runtime interpreter and it is working very good and stable plus it registers classes with only few lines of code (rtti) and the most important thing is: it is still developed and optimized by the developer. We have switched over from jvInterpreter! and it was a very good decision!
  6. microtronx

    EDI (Electronic Data Interchange)

    Hi CarloM, we've used https://www.nsoftware.com/in/edi/ to create our own converter which can read and write all versions of Edifact. So give it a try.
  7. microtronx

    Simple Android App Template

    Hi Dave, give me a while so i can check the projects in limelect's suggestion. If i can start with something from there i will need only the service programmed by someone. So yes i'm interested. But i have not too much time so if someone is willing to create everything on his side i can invest my time for serverside so the beta in january is not impossible 😉
  8. Hi programmers, i'm a Delphi programmer now for 20+ years since Delphi 3, having subscription and now on Delphi Rio 10.3.3. Because of not having enough experiences with Android i need a template for starting projects with android: I need at least following functionality: * Login Screen with Register new user screen (all data can be saved / received later from a restserver) * List of Functions Screen like the settings screen on android 9 with a search-area on top + in same area my details with login/registrationdata and below a list of different functions with icon+caption + small description (smaller font) * Function details screen where we have different options details etc (can be made later by us) * An android service in backgroud which can i.e. collect gps positions each x minutes into a table for later use within the app For now this is all. I'm searching for a programmer which has enough experiences with android to create this template / app for us so we can use it as "starting template" with latest Delphi Rio. Offers welcome. Yusuf Zorlu / MicrotronX
  9. microtronx

    RAD Studio 10.3.3 now available

    New projects are not using things like "tstringlist" as a result ... Yep, we will change all "old" projects. Thx.
  10. microtronx

    RAD Studio 10.3.3 now available

    Great, so all rest-server-apps are not compatible with prior clients ...
  11. microtronx

    RAD Studio 10.3.3 now available

    I do nothing special, i open the project compile it with Tokyo and it works, i open the same project without changing anything with Rio 10.3.3 and it does not work. In Rio and in Tokyo it shows System.Classes.xxx when i move the mouse over tStrings and tStringList
  12. microtronx

    RAD Studio 10.3.3 now available

    Here's a example. 1. Servers method: function tmyServerMethods.Load_Scanning_Functions(vuserid:longint):tstrings; var i:integer; begin result:=tstringlist.create; // data is a query ... for i:=1 to vdata.recordcount do begin result.add(inttostr(vdata.fieldbyname('statusid').asinteger)+'|'+vdata.fieldbyname('statusname').asstring); end; vdata.next; end; end; 2. Answer compiled with Tokyo: {"result":[{"type":"System.Classes.TStringList","id":1,"fields":{"FList":[["10|Einlagern",null],["30|Umlagern",null],["400|Kundenbarcode",null],["100|St\u00FCckgutverladung",null],["400|NVE zu Kundenbarcode",null],["",null],["",null],["",null]],"FCount":5,"FCapacity":8,"FSorted":false,"FDuplicates":"dupIgnore","FCaseSensitive":false,"FOwnsObject":false,"FEncoding":null,"FDefaultEncoding":{"type":"System.SysUtils.TMBCSEncoding","id":2,"fields":{"FCodePage":1252,"FMBToWCharFlags":0,"FWCharToMBFlags":0,"FIsSingleByte":true,"FMaxCharSize":1}},"FLineBreak":"\r\n","FUpdateCount":0,"FDelimiter":",","FQuoteChar":"\"","FNameValueSeparator":"="}}]} 3. Answer compiled with Rio: {"result":[{"type":"System.Classes.TStringList","id":1,"fields":{"FList":[["10|Einlagern",null],["30|Umlagern",null],["400|Kundenbarcode",null],["100|St\u00FCckgutverladung",null],["400|NVE zu Kundenbarcode",null],["",null],["",null],["",null]],"FCount":5,"FCapacity":8,"FSorted":false,"FDuplicates":"dupIgnore","FCaseSensitive":false,"FOwnsObject":false,"FCompareStringsOverriden":false,"FEncoding":"","FDefaultEncoding":"1252","FLineBreak":"\r\n","FUpdateCount":0,"FDelimiter":",","FQuoteChar":"\"","FNameValueSeparator":"="}}]} 4. In the client app (compiled with Tokyo) cannot work with the result. We're no able to update the client apps at the moment.
  13. microtronx

    RAD Studio 10.3.3 now available

    The Rest-Application's difference is between Tokyo and Rio. I'll try to isolate that at a later time ...
  14. microtronx

    RAD Studio 10.3.3 now available

    Good / Great news: Some problems with Regular Expressions in 10.3.2 are not appearing in 10.3.3 so this is a good bugfix update! Bad news: A Datasnap Rest Application Server compiled with 10.2 Tokyo is working very good for months without restart, compiled with 10.3.3 it answers with different REST / JSON encoding so client apps don't work any more !
  15. microtronx

    Best components for creating windows service apps

    That means it is still supported? I have send two request to their mails but have not received any answers so i thinked that they not "online" anymore ...
  16. microtronx

    Best components for creating windows service apps

    Thanks for your tips, will think about creating a class for all logic. Has someone used SvCom in the past; are the components still supported?
  17. microtronx

    Sending HTML based eMails with UTF8 encoding and SSL

    What about assigning the Subject and Body as Utf8Encoded with msg.Subject := UTF8Encode(Subject); if not IsBodyHtml then msg.Body.Text := UTF8Encode(EmailBody);
  18. microtronx

    Drag and Drop Component Suite + Drop to Outlook not working

    Changed to tDropEmptySource with tDataFormatAdapter set to TVirtualFileStreamDataFormat and now it looks like it works ... +Anders: Thanks a lot for you tip!
  19. Hi, on my side i can drop from delphi app with this component to desktop without problems but drop to a new message window in outlook is not working. It shows the [+] sign when moving the mouse on that new message form but dropping does nothing See: https://github.com/DelphiPraxis/The-Drag-and-Drop-Component-Suite-for-Delphi/issues/38 Anyone having same issues or a solution?
  20. microtronx

    Drag and Drop Component Suite + Drop to Outlook not working

    Thank you very much Anders, i will try to work with FileContents and FileGroupDescriptor if possible. But it must be possible to drag&drop to desktop or any other target. We have 99.99% only files which are saved to a temporary folder and added to dropsource. If we get it work, we will post it here.
  21. microtronx

    Drag and Drop Component Suite + Drop to Outlook not working

    Here's my Outlook 2019 in 64bit, can someone test this with new Outlook in 32bit so we can compare: TDropFileSource,Execute,>>> TDropFileSource,OnGetDragImage, TDropFileSource,OnGetData,Shell IDList Array TDropFileSource,OnGetData,IsShowingText TDropFileSource,OnGetData,UsingDefaultDragImage TDropFileSource,OnGetData,DragSourceHelperFlags TDropFileSource,OnGetData,IsComputingImage TDropFileSource,OnGetData,DisableDragText TDropFileSource,OnGetData,IsComputingImage TDropFileSource,OnGetData,DropDescription TDropFileSource,OnGetData,DragContext TDropFileSource,OnGetData,Shell IDList Array TDropFileSource,OnFeedback, TDropFileSource,OnGetData,DisableDragText TDropFileSource,OnGetData,IsComputingImage TDropFileSource,OnGetData,DropDescription TDropFileSource,OnFeedback, TDropFileSource,OnGetData,Shell IDList Array TDropFileSource,OnGetData,IsShowingText TDropFileSource,OnGetData,UsingDefaultDragImage TDropFileSource,OnGetData,DragSourceHelperFlags TDropFileSource,OnGetData,IsComputingImage TDropFileSource,OnGetData,DisableDragText TDropFileSource,OnGetData,IsComputingImage TDropFileSource,OnGetData,DropDescription TDropFileSource,OnGetData,DragContext TDropFileSource,OnFeedback, TDropFileSource,OnGetData,UntrustedDragDrop TDropFileSource,OnGetData,Shell IDList Array TDropFileSource,OnGetData,Shell IDList Array TDropFileSource,OnGetData,Preferred DropEffect TDropFileSource,OnGetData,Shell IDList Array TDropFileSource,OnGetData,DropEffectFolderList TDropFileSource,OnGetData,Preferred DropEffect TDropFileSource,OnGetData,Shell IDList Array TDropFileSource,OnGetData,DisableDragText TDropFileSource,OnGetData,IsComputingImage TDropFileSource,OnGetData,DropDescription TDropFileSource,OnFeedback, TDropFileSource,OnGetData,UntrustedDragDrop TDropFileSource,OnGetData,DisableDragText TDropFileSource,OnGetData,IsComputingImage TDropFileSource,OnGetData,DropDescription TDropFileSource,OnFeedback, TDropFileSource,OnGetData,UntrustedDragDrop TDropFileSource,OnGetData,DisableDragText TDropFileSource,OnGetData,IsComputingImage TDropFileSource,OnGetData,DropDescription TDropFileSource,OnFeedback, TDropFileSource,OnGetData,UntrustedDragDrop TDropFileSource,OnGetData,DisableDragText TDropFileSource,OnGetData,IsComputingImage TDropFileSource,OnGetData,DropDescription TDropFileSource,OnFeedback, TDropFileSource,OnGetData,UntrustedDragDrop TDropFileSource,OnGetData,DisableDragText TDropFileSource,OnGetData,IsComputingImage TDropFileSource,OnGetData,DropDescription TDropFileSource,OnFeedback, TDropFileSource,OnGetData,UntrustedDragDrop TDropFileSource,OnGetData,DisableDragText TDropFileSource,OnGetData,IsComputingImage TDropFileSource,OnGetData,DropDescription TDropFileSource,OnFeedback, TDropFileSource,OnGetData,UntrustedDragDrop TDropFileSource,OnGetData,DisableDragText TDropFileSource,OnGetData,IsComputingImage TDropFileSource,OnGetData,DropDescription TDropFileSource,OnFeedback, TDropFileSource,OnGetData,UntrustedDragDrop TDropFileSource,OnGetData,DisableDragText TDropFileSource,OnGetData,IsComputingImage TDropFileSource,OnGetData,DropDescription TDropFileSource,OnFeedback,19 TDropFileSource,OnDrop, TDropFileSource,OnGetData,Object Descriptor TDropFileSource,OnGetData,FileName TDropFileSource,OnGetData,CF_HDROP TDropFileSource,OnAfterDrop, TDropFileSource,Execute,<<<
  22. microtronx

    Report components: good, bad, ugly

    We can recommend ReportBuilder from Digital-Metaphors. We're using it since 20 years now. We have total dynamic reports including "creating your query components for current report" in "onBeforePrint" so we have >40 dynamic report pipelines which can be used within the reportbuilder itself to query the database + a lot more. You get very good support + bugfixes if they were reconstructable within 24 hours.
  23. microtronx

    Convert SQL from i.e. ADS to SQL2003

    Hi folks, any tips for VCL components doing a automatisch SQL convert from advantagedatabase to other sql standards? Most important are converting where-joins to sql-joins.
  24. microtronx

    Convert SQL from i.e. ADS to SQL2003

    If someone is searching for such a component: Alexander from delphihtmlcomponents.com has created a wonderful extension for his SQL Components to do this for us with ElevateDB syntax. Thanks a lot.
  25. microtronx

    Context sensitive code completion and syntax checking

    Wow! Alexander, is this available at the moment for customers?
×