Nigel Thomas

7 hours ago, Angus Robertson said:

As I said earlier, I can not test this since my D2010 license no longer works.  

Hi Angus, if you have an up-to-date licence for the latest does this not apply for you?

https://www.embarcadero.com/products/delphi/previous-versions

Or, have you run out of activations for your D2010 licence and Embaracero are being shits about bumping it?

I was in a similar situation, with Berlin 10.1 installed. When I installed CE 11.3 it was missing the option to install for other platforms, only Windows 32bit and 64bit. I messaged Marco Cantu who looked into it, and said this was by design. If a licenced copy exists on the same system then the CE versions will not allow installation of the other platforms. When I installed the CE version in a clean VM those platforms were available.

Edit to add: Mac OS was also available with Berlin installed, as well as Windows; so as per the OP Android, IOS and Linux are not.

More edit: I've now had a chance to review my correspondence with Marco Cantu and he did not say this was "by design", I didn't mean to misrepresent his comments. Rather, he informed me that this was a licence conflict. My experience goes back to installing CE 10.4, which is when I wrote to Marco. Our correspondence ended then as there was no fix offered, just " we have seen similar scenarios ".

DropBox link

On 2/12/2025 at 6:31 PM, Remy Lebeau said:

I didn't create the zip file, so I can't help with that error.  If someone wants to fix the zip, I'll replace it.

I've recreated the zipfile using Winzip 14.5, opens fine with Windows 11 Explorer. Too large to upload here (11.9MB), let me know if you'd like me to email it to you or upload it somewhere else.

Note that Azure Trusted Signing does not provide EV certificates, only OV:

Quote

Does Trusted Signing issue EV certificates?

No, Trusted Signing doesn't issue Extended Validation (EV) certificates. We don't plan to issue EV certificates in the future.

I don't see FastReport using D12.1 CE. Perhaps they moved it to subscription only?

It is now apparent to me that checking the documentation more often would be time well spent! Thanks all.

Using D12.1 CE.

I can do this:

TMyRec = record
private
  function ConvertStrAToNum: Integer;
  .
  function ConvertStrNToNum: Integer;
public
  StrA: string;
  .
  StrN: string;
  property IntA: Integer read ConvertStrAToNum;
  .
  property IntN: Integer read ConvertStrNToNum;
end;

function TMyRec.ConvertStrAToNum: Integer;
begin
  Result := StrToInt(StrA);
end;
.
function TMyRec.ConvertStrNToNum: Integer;
begin
  Result := StrToInt(StrN);
end;

What I'd like to be able to do:

TMyRec = record
private
  function ConvertStrToInt(const StrToConvert: string): Integer;
 public
   StrA: string;
   .
   StrN: string;
   property IntA: Integer read ConvertStrToInt(StrA);
   .
   property IntN: Integer read ConvertStrToInt(StrN);
 end;
 
function TMyRec.ConvertStrToInt(const StrToConvert: string): Integer;
begin
  Result := StrToInt(StrToConvert);
end;

But I can't.

Context: I'm reading strings into the record, as that is how they are read from a datafile. I could just parse the string data into integers as I read the file, but I thought the above option might be more elegant, as the conversion would only be done if later in the app I require the integer representation of the string data.

Hi All,

Is it still possible to access the GetIt server from Delphi D10.1 Berlin?

With ServiceURL set to the installed default for D10.1 (https://getit.embarcadero.com) I just get the error message:

The Embarcadero GetIt server could not be reached

If I change the ServiceUrl to https://getit-olympus.embarcadero.com I connect to the GetIt server but I only get a small subset (11) of packages available to download. No filters are set.

GetIt is configured to work online.

This is the Delphi 12.1 (and as far back as 10.1 at least, but not in D2007) definition of ShellExecuteInfoW (the A version has the same issue):

_SHELLEXECUTEINFOW = record
    cbSize: DWORD;
    fMask: ULONG;
    Wnd: HWND;
    lpVerb: LPCWSTR;
    lpFile: LPCWSTR;
    lpParameters: LPCWSTR;
    lpDirectory: LPCWSTR;
    nShow: Integer;
    hInstApp: HINST;
    { Optional fields }
    lpIDList: Pointer;
    lpClass: LPCWSTR;
    hkeyClass: HKEY;
    dwHotKey: DWORD;
    case Integer of
      0: (
        hIcon: THandle);
      1: (
        hMonitor: THandle;
        hProcess: THandle;);
  end;

According to the definition in MSDN, the hProcess Handle is not part of the union:

typedef struct _SHELLEXECUTEINFOW {
  DWORD     cbSize;
  ULONG     fMask;
  HWND      hwnd;
  LPCWSTR   lpVerb;
  LPCWSTR   lpFile;
  LPCWSTR   lpParameters;
  LPCWSTR   lpDirectory;
  int       nShow;
  HINSTANCE hInstApp;
  void      *lpIDList;
  LPCWSTR   lpClass;
  HKEY      hkeyClass;
  DWORD     dwHotKey;
  union {
    HANDLE hIcon;
    HANDLE hMonitor;
  } DUMMYUNIONNAME;
  HANDLE    hProcess;
} SHELLEXECUTEINFOW, *LPSHELLEXECUTEINFOW;

Does that mean that the Delphi translation is faulty?

@cupboy

Reply back and threaten them with action from whatever comsumer rights legislation you have in your country. In the UK it's Trading Standards.

Refer them to this blog from their General Manager, particularly the "Policy Update" section;

https://blogs.embarcadero.com/from-the-gm-new-updates-and-changes-to-the-registration-bumps-policy/

It really irks me when Embarcadero try to weasel out of their contractual responsibilities. When we purchase their product the licence is "lifetime" - the subscription element is an add-on that can allow you to keep updated at a lower price than buying new licences, but it is in no way mandatory. What is mandatory is that the lifetime licence for the product you purchased is honoured. Registration limits are there to prevent you from installing more than x installations at any one time. They should not (and in most jurisdictions, cannot) be used to stop one from migrating an installation to a new system.

Contact Sales. They are obliged to provide a download link to the software you have purchased. They did for me when I needed to re-install D10.1 Berlin. Although I did make sure I stored a copy of that installer in a safe place for the next time I need it!

Nigel

I have Delphi CE 11.3 and Delphi CE 12.1 installed and running on the same machine with no issues.

https://fastspring.com/consumer-support-form/

My Microsoft account already uses 2FA (Microsoft Authenticator). I've been browsing Azure to see if I need to do anything else, but not found anything yet. Rather hope I'm covered and there are no additional costs. I've not received an email about this yet.

https://azure.microsoft.com/en-us/blog/announcing-mandatory-multi-factor-authentication-for-azure-sign-in/

Check your spelling?

5 hours ago, David Heffernan said:

No, this is not possible in Delphi 2007. You can declare typed constants for fixed length arrays, but not dynamic arrays.

Thanks. I've worked around it by declaring FileSig.arrSig as a fixed array, e.g: array [0..4] of byte, then I can set the const array using padding where necessary e.g. arrSig: ($00, $01, $02, $00, $00); By adding a SigLength to the FileSig type I will know what padded bytes I can remove when I come to using the array.

3 minutes ago, JonRobertson said:

What do you get when you try

const
  sig1: FileSig =
    (Offset: 10;
     arrSig: [$00,$01,$02];
    )

in D2007?

E2010 incompatible types: 'dynamic array' and 'Set'

Using Delphi D2007.

I'm trying to do the following:

type
  FileSig = record
    Offset: Integer;
    arrSig: array of byte;
  end;

const
  sig1: FileSig =
    (Offset: 10;
     arrSig: array [0..2] of byte = ($00,$01,$02);
    )

But I can't: E2029 ')' expected but ',' found

In D10+ I can do:

const
  sig1: FileSig =
    (Offset: 10;
     arrSig: [$00,$01,$02];
    )

Is there a way I can do similar in D2007?

Hi,

The following access violation occurs when running the "HTTP Dowload List of Files" snippet with the program compiled as 64Bit:

HTTP Error - Access violation at address 000000000090E55F in module 'OverbyteIcsSnippets.exe'. Read of address 0000000000000004

It works seamlessly with no errors when the program is compiled as 32Bit.

Using latest svn version of ICS 9.1, compiled using D11.3 CE running on Windows 10 and on Windows 11.

Full diagnostic attached.

Is this issue duplicatable or just something to do with my setup?

diag.txt

Don't get hooked up on just books. There is a lot of useful visual material on the Net that is targeted at Delphi beginners. Embarcadero's Helpful Resources for New Users has some good links to both books and visual resources.

6 hours ago, Luis Enrique said:

I've already seen that the old Embarcadero Getit server is not working. So, what should I do to make it work again?

Check where the GetIt server is pointing and try an alternative. In the registry key HKCU\Software\Embarcadero\BDS\21.0\CatalogRepository look at the value for "ServiceUrl". If it isn't already, change this to https://getit.embarcadero.com and retry the installation. That's the url my copy of D10.4 (CE) is pointing at, and the GetIt Package Manager seems to connect fine.

I've used FileZilla for some time. I've just checked my latest installation:

Version 3.66.5

Signature:

VirusTotal:

As @Vincent Parrettsuggests, the installer referenced by the OP may indeed bundle "sponsorship" software. Each time FileZilla updates it shows a sponsorship screen stating who sponsored the latest update - but it's only shown the once and is not intrusive.

That's not a code-signing certificate, that's just a time-stamped certificate.

A code-signing certificate looks like this: