Kelver Merlotti

Member since: Thursday, 28 August 2014
Last login: 4 years ago
Profile viewed: 1,677 views

No Rank
Points: 0

Kelver Merlotti is friends with NickHodges

Kelver Merlotti replied to the topic 'IdSMTP + SSL + iOS = Bad System Call (12)' in the forum. 4 years ago

Hello Folks!
Remy Lebeau remembered me about the need of using static libraries with iOS. So I did exactly what is mentioned in this Marco's post (blog.marcocantu.com/blog/using_ssl_delphi_ios.html): [size= 12.16px; line-height: 1.3em]I downloaded the compiled static libraries from indy.fulgan.com/SSL/OpenSSLStaticLibs.7z, then I copied the ".a" files to my project folder and added this line in the uses of the my dpr file:[/size]

{$IF defined(IOS) and defined(CPUARM)}IdSSLOpenSSLHeaders_Static,{$ENDIF}

Now, my App is sending e-mails through gmail, with SSL, on iOS 32 and 64 bit!
Thank you,
KM

Read More...

Kelver Merlotti created a new topic ' IdSMTP + SSL + iOS = Bad System Call (12)' in the forum. 4 years ago

[color=#000000; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: normal]Hello folks![/color]
[color=#000000; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: normal]When I'm trying to connect to gmail with IdSMTP on iOS (9.3.3 - 13G34), using Delphi Berlin, the App raises an exception with the message "Bad system call (12)". It's in the function IdSSLOpenSSL.LoadOpenSSLLibrary, line 2319 (OpenSSL_add_all_ciphers).[/color]
[color=#000000; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: normal]The app works pretty well on Android, Mac-OS and Windows.[/color]
[color=#000000; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: normal]Any suggestion about what can I do?[/color]
[color=#000000; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: normal]Thanks,[/color]

[color=#000000; font-family: Arial, Helvetica, sans-serif; font-size: 12px; line-height: normal]KM[/color]

Read More...

Kelver Merlotti is friends with Atanas

Kelver Merlotti is friends with Jim McKeeth

Kelver Merlotti is friends with DavidI

Kelver Merlotti replied to the topic 'Rtti and Enums' in the forum. 4 years ago

Hi Frank!
This is a framework that persist generic objects to disk to load them later, so I don't know the exact Enumeration type to do the typecast.
I only have a set of key-pair values, where keys are the property names and values are strings. Using RTTI I can get the object instance, its properties and its types, and then just load the stored values.
Hugs,
KM

Read More...

Kelver Merlotti replied to the topic 'Rtti and Enums' in the forum. 4 years ago

Samuel "Muka" David helped me. Solved this way:

procedure TForm7.Button1Click(Sender: TObject);

const

pname = 'Prop';

eval = 'e1';

var

c: TRttiContext;

p: TRttiProperty;

lValue: TValue;

begin

Prop := e2;

p := c.GetType( Self.ClassInfo ).GetProperty( pname );

ShowMessage('get: ' + p.GetValue(Self).ToString);


if p.PropertyType.TypeKind = tkEnumeration then

begin

lValue := TValue.FromOrdinal(p.PropertyType.Handle, GetEnumValue(p.PropertyType.Handle, eval));


if not lValue.IsEmpty then

begin

p.SetValue(Self, lValue);

ShowMessage('set: ' + p.GetValue(Self).ToString);

end;

end;

end;
Thank you, Muka!
KM.

Read More...

Kelver Merlotti created a new topic ' Rtti and Enums' in the forum. 4 years ago

Hello folks! Considering:

typeTEnum1 = (e1, e2, e3);
TForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);privateFProp: TEnum1;publicproperty Prop: TEnum1 read FProp write FProp;end;
...
procedure TForm1.Button1Click(Sender: TObject);constpname = 'Prop';ename = 'TEnum1';eval = 'e1';vare: TEnum1;
c: TRttiContext;t: TRttiType;p: TRttiProperty;et: TRttiEnumerationType;beginp := c.GetType( Self.ClassInfo ).GetProperty( pname );t := p.PropertyType;et := (t as TRttiEnumerationType);
e := ???; //TEnum1(0)end;
Is there a way to dynamically get the enum value having only these strings (in consts)?
Thanks,KM

Read More...

Kelver Merlotti created a new topic ' Improve TCircle rendering or replace it?' in the forum. 5 years ago

Hello Folks!
I need to have a kind of semaphores, to show percentage indicators.
I'm using TCircle with a TText inside of it, but it's rendering really ugly, as you can see in these images below (click to see original sizes):
Android 5.1.1 (Galaxy Note 4)Screenshot_2016_02_03_16_46_49_1.jpg
iOS 9.2 - 13C75 (iPad Air 3)IMG_0008.jpg
I saw why this occurs in a Sarina's post and I understood: http://community.embarcadero.com/forum/ui/196-missing-antialiasing-on-primitive-forms#383
But I need a presentable way to do this semaphores.
Is there a way to optimize TCircle rendering? If not, what do you suggest me to do?
Thanks in advance,
KM

Read More...

Kelver Merlotti replied to the topic 'DataSnap Auth. Mgr: tell client why conn. refused' in the forum. 5 years ago

I have the same need and I can't find a way to do this using the datasnap engine.
A workaround was to use my own authentication method, but with this I lost all the built-in features.
Don't we really have a "native" way to do this? If not, I think it's a good think to suggest to R&D, right?
Best regards,
KM

Read More...

Kelver Merlotti created a new topic ' TimeEdit Custom Interval' in the forum. 5 years ago

Folks, is there any way to set a custom interval to a TimePicker minutes?
Today it shows one by one, but I would like to show 15 by 15, for example:

08:00

08:15

08:30

08:45 .. and so on!
By now I'm using a ListBox with the desired range, but I would like to use the "native" picker.
Thanks in advance.
Cheers,
Kelver Merlotti

Read More...