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}

[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...

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...

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...

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;

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...

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...

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...