Skrim

Time to sum up this thread The enduser is not the most important part Most important, the "computer guy" Zero deployment, no local installation etc. Most developers are not capable of reviewing a program from the enduser's perspective

well, the web app is stateless... then each requirement is the only one... no exists "before"... exists "now" and only this. for sure, it's not appreciated but is this... Exactley why I "hate" to do work using a browser. I wold estimate my workload has increased by 30% over the last two or three years because of "The world is moving to the web". Even worse, a lot of software companies no longer offer support by phone, you have to talk to a robot or fill in a contact form, lucky you if you get an answer in only 1-2 days I'm so glad my main program is developed in Delphi by myself 🙂

"I want this". Yes, 15 clicks versus 4 clicks is exactly what the enduser wants 🙂 Why do programmers market such stupidity? I thought the whole idea using some software was to make the workload less, not worse. The list why a browser is less suitable for complex programs is endless. An example: In a browser based program (salary) I use there is a list (grid) and I want to edit row 25 and 26. I scroll down to row 25 and do my editing and save. Now row 26, but the list has moved back to row 1, scroll down again..... Why not stay in row 25 so I can easily choose row 26. (As it did in the "old" Win 32 program) Not a problem if you do the task 1-2 times a day, but what if you repeat 50 times a day? According to the Marketing Department, this is what an enduser wants.

Exactly what I mean too.

Sorry, I have no links to code, I wrote mine from scratch. But an xml is just an ordninary text file and you can build it in a memo control and save it to a file from there. What is a bit more complex is the "layout" of the ehf. It have to be a valid ehf before it is accepted by an Access Point, can be validated here https://anskaffelser.dev/service/validator/ Also if there is a small amount of ehf files pr. year it will be quite expensive, there is a fee of 8-10.000,- kroner pr. year to the Access Point, if I remember correctly. What is the pupose of your program, "for fun" or business?

There are several Access Points, this is the one I use https://ap.unit4.com/ As for the file, you can find information by doing a search, it is a lot of info out there. For example, search for EHF 3.

Do you mean how to produce the file or how to send the file? You don't send the file directly to the customer, you send it via a "access point".

60/8000 how can that be possible 🙂 Sounds like it was a showmessage('Are you sure...'); showmessage('Are you really sure...'); showmessage('Are you absolutely sure...'); I quess both OOP and procedural style can be structured badly. However, my program started it's life in 2005 and at that time I had no clue what OOP was. I have looked into it, but find it somehow confusing and hard to learn. My program is an accounting suite, I have separated into units where each unit does a specific task and the unit is named accordingly. There are hundreds and hundreds of units, no problem there. You will not be able to write that program in 60 lines or even 60' lines 🙂

As the boss/owner he can do whatever he wants with his own code and company. 15' or 150' lines, who cares as long as it works? I also hardly know how to make a class, however my code still works very well.

There is a field where according to the Help system: Indicates the Code Page that the user's system requires in order to run the application I have never "paid any attention" to this and it's set to Locale ID English(USA). Default? I'm in Norway and we have a few special characters, but I have never had any problems. Should I edit it to Norwegian?

"... In theory, there's not much required. But it seems every one has had one or two major melt-downs per year. ..." Really, I have run a Postgres server for 15 years, one "meltdown" only and that was due to Linux. Not much traffic, storing about 1 million records per year. But still. More impressive, Dell server with three 15' rpm disks. You do the math The quality of that server is just fantastic.

Hi Lately I have had trouble getting emails through to addressee@gmail.com from my Delphi app Win32/D11. Today I sent 8 emails to Gmail and 1 was returned "Message missing a valid messageID header are not 550 5.7.1 accepted". (Every mail is generated the same way) It seems pretty random as 7 went through and 1 not. Some days all emails to Gmail are returned, other days none. All other addresses than Gmail have no trouble being received by the addressee . Is there something I can set in Indy to avoid this?

Hi I will post a copy of the returned mail tomorrow, it's at work.

I was looking for a service to check an xml/xsd and came across this great site. Lots of interesting things in one place. https://www.freeformatter.com I'm sure most of you knew this one, but i did not. Any other helpful sites I have missed? 🙂

Hi I am struggling parsing this Jsonfile. I can parse all of it's values, except from the array. This is where I fail: "adresse": ["Some text"], As I understand it this is an array. Code for parsing text elements: companyinfo:=tjsonobject.parsejsonvalue(restresponse1.Content) as tjsonobject; s:=companyinfo.GetValue('navn').Value; ss:=companyinfo.GetValue<string>('forretningsadresse'+ '.' + 'postnummer'); s now has the value of the string, aCompanyname LTD ss now has the value of the string, 3616 Help with parsing the array would be greatly appreciated. Here is the Json: { "organisasjonsnummer": "123456789", "navn": "aCompanyname LTD", "organisasjonsform": { "kode": "LTD", "beskrivelse": "Aksjeselskap", "_links": { "self": { "href": "https://..alink..." } } }, "registreringsdatoEnhetsregisteret": "1995-02-20", "registrertIMvaregisteret": true, "naeringskode1": { "beskrivelse": "Some text", "kode": "69.201" }, "antallAnsatte": 2, "forretningsadresse": { "land": "Norge", "landkode": "NO", "postnummer": "3616", "poststed": "KONGSBERG", "adresse": [ "Some text" ], "kommune": "KONGSBERG", "kommunenummer": "3006" }, "stiftelsesdato": "1994-06-06", "institusjonellSektorkode": { "kode": "2100", "beskrivelse": "Private aksjeselskaper mv." }, "registrertIForetaksregisteret": true, "registrertIStiftelsesregisteret": false, "registrertIFrivillighetsregisteret": false, "sisteInnsendteAarsregnskap": "2020", "konkurs": false, "underAvvikling": false, "underTvangsavviklingEllerTvangsopplosning": false, "maalform": "Bokmål", "_links": { "self": { "href": "https://...a link..." } } }

A big thank you to you Boris, also to Remy. I also read this thread with great interest, New to JSON. In addition to the code above I had to paste GetObject and GetValue from New to Json. I could not have done this on my own.

Thanks for your answer. You mean, jsonarray:=(jsonObj.Values['forretningsadresse'] as TJSONObject).Values['adresse']; It will not compile. I'm sorry, my knowledge/understanding of this topic is very poor.

Modified Json { "forretningsadresse":{ "land":"Norge", "landkode":"NO", "postnummer":"3616", "poststed":"KONGSBERG", "adresse":[ "Storgata 8" ] } } I have tried this code, but jsonArray is always nil. I quess I'm not refering correctly to the Json? var jsonObj: TJsonObject; jsonArray: TJsonArray; begin jsonObj:=TJsonObject.ParseJSONValue(memo1.Lines.Text) as TJsonObject; // Json in memo1 jsonArray:=jsonObj.GetValue('forretningsadresse'+ '.' + 'adresse') as TJsonArray; if jsonArray<>nil then begin ... end; ... end;

As far as I can see the last update was 29th May 2020? Anyone got news about this?

Hi I have this code: (Database is PostgreSql) try aDatabase.starttransaction; ... except on edatabaseerror do begin aDatabase.rollback; end; end; But what about a commit. Is it done automatically here, hence not necessary? Regards, Ole

I have done some testing, it seems I do need a Commit. Without it the data is not saved to the database. So at least using Postgresql and you start a transaction, you either have to commit or rollback. Ole

It's a PostgreSql database.

Done. Now, what is your answer to my question

Does this inc the installation counter for 10.4? I'm close to/on the limit. Ole

I have an active subscription but I am not able to install the new version. During installation I get a message about my license is not valid for Delphi 11. Here is a screen shot from the Customer Portal and my account. I understand there is a "hickup" in the license manager? The instructions by Marco Cantu to fix this does not work for me. Can you please fix this as soon as possible or at least give some information about the issue. Regards, Ole