Skrim

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

Does not work for me, The new version 11 is NOT listed, even after clicking Update. I have contacted Support several hours ago, no answer yet. This is not a nice experience. Ole

Database is PostgreSql. In a table I have: Customer Amount 10000 100 10020 110 10150 350 10000 -100 10300 200 I want to retrieve only customers where Amount is 0 (100-100=0), in this case Customer 10000. How can I do this using Sql? Thanks in advance. Ole

Thanks Stano Works great 🙂 SELECT customer, SUM(amount) FROM aTable Group by customer having sum(amount)= 0 Regards, Ole

D 10.4.2 and Win10. My program suddenly will not execute spesific parts of my program, but crashes. (No change in actual code) When that happens also the Delhi IDE crashes. There might be a file called XmlLite.Dll that causes this, but I'm not sure. The file is on my pc in several directories. Anybody else experienced this? Maybe reinstall Delphi? Regards, Ole