Skip to content

Instantly share code, notes, and snippets.

@svanas

svanas/Unit1.pas

Last active May 31, 2023 17:28
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save svanas/332f5198420900512483ed6ebcea1376 to your computer and use it in GitHub Desktop.
Save svanas/332f5198420900512483ed6ebcea1376 to your computer and use it in GitHub Desktop.
Download ZIP
ENS resolve address
Raw
Unit1.pas
TAddress.FromName(TWeb3.Create(
Ethereum.SetRPC('https://mainnet.infura.io/v3/your-project-id')), // Ethereum mainnet
'thecoinoffering.eth', // Ethereum domain name
procedure(addr: TAddress; err: IError)
begin
TThread.Synchronize(nil, procedure
begin
if Assigned(err) then
MessageDlg(err.Message, TMsgDlgType.mtError, [TMsgDlgBtn.mbOK], 0)
else
ShowMessage(addr);
end);
end);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment