SSLOptions. Parámetros por string.

[Carmelo Cash]

Hola Foro:

Quería saber si alguien sabe como puedo pasar el parámetro a SSLOpions desde un string.

por ejemplo:

Código Delphi [-]
    Method:=q_Correo.fieldByname('Method').asstring;
    SSLOptions.Method= fStrToAlgo(Method );                       // << Acá es donde hay que arreglar esto

Actualmente estoy haciendo como muestro más abajo, pero queda muy largo sobre todo porque son otros parámetros para UseTLS, Mode, etc.

Código Delphi [-]
    Method:=q_Correo.fieldByname('Method').asstring;

    if Method=  'sslvTLSv1' then begin
      SSLOptions.Method := sslvTLSv1  ;
    end else
    if Method =  'sslvSSLv2' then begin
      SSLOptions.Method := sslvSSLv2  ;
    end else
    if Method =  'sslvSSLv23' then begin
      SSLOptions.Method := sslvSSLv23 ;
    end else
    if Method =  'sslvSSLv3' then begin
      SSLOptions.Method := sslvSSLv3  ;
    end ;

Desde y agracias por su atención.

[Neftali [Germán.Estévez]]

Necesitas una clase que te convierta enumerados en strings y viceversa. Utilizando RTTI puedes hacerlo sin problemas.
Yo en mi caso utilizo esta:

Código Delphi [-]
  // classHelper para conversiones
  TEnumConverter = class
  public
    // Enumerado a entero
    class function EnumToInt(const EnumValue: T): Integer;
    // enumerado a string
    class function EnumToString(EnumValue: T): string;
    // class function StringToEnum(AValor:string):T;
    class procedure StringToEnum(strValue:String; var enValue:T);
  end;

Y la Implementacion:

Código Delphi [-]
//  obtener string como int (enum de un tipo)
class function TEnumConverter.EnumToInt(const EnumValue: T): Integer;
begin
  Result := 0;
  Move(EnumValue, Result, SizeOf(EnumValue));
end;

// Obtener enum como string
class function TEnumConverter.EnumToString(EnumValue: T): string;
begin
  Result := GetEnumName(TypeInfo(T), EnumToInt(EnumValue));
end;

// class function StringToEnum(AValor:string):T;
class procedure TEnumConverter.StringToEnum(strValue: String; var enValue:T);
var
  Tipo: PTypeInfo;
  Temp:Integer;
  PTemp: pointer;
begin
  Tipo := TypeInfo(T);
  Temp := GetEnumValue(Tipo, strValue);
  PTemp := @Temp;
  enValue := T(PTemp^);
end;

Añade las units: System.Rtti, System.TypInfo

Y la forma de utilizarlo sería algo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  alineacion:TAlign;
  i:Integer;
  str:string;
begin
  // enum a Cadena
  alineacion := TAlign.alBottom;
  ShowMessage('Alineacion como cadena: ' + TEnumConverter.EnumToString(TAlign(alineacion)));
  // enum a Integer
  i := TEnumConverter.EnumToInt(TAlign(alineacion));
  ShowMessage('Alineacion como entero: ' + IntToStr(i));
  // Cadena a enum
  str := 'alRight';
  TEnumConverter.StringToEnum(str, alineacion);
  Button1.Align := alineacion;
end;

[bucanero]

hola

Aqui propongo otras alternativas valida para las versiones modernas de delphi, y es utilizar directamente las funciones de la RTTI

- Forma 1:

Código Delphi [-]
uses  System.Rtti;

/// ...

function MethodAsString(const Method: TIdSSLVersion): String;
begin
  Result := TRttiEnumerationType.GetName(Method);
end;

function StrToMethod(const MethodName: string):TIdSSLVersion;
begin
  result := TRttiEnumerationType.GetValue(MethodName);
end;

-Forma 2:

Código Delphi [-]
uses System.TypInfo;

function MethodAsString(const Method: TIdSSLVersion): String;
begin
  result := GetENumName(TypeInfo(TIdSSLVersion), Ord(Method));
end;

function StrToMethod(const MethodName: string):TIdSSLVersion;
var
  value:integer;
begin
  value := GetEnumValue(TypeInfo(TIdSSLVersion), MethodName);
  result := TIdSSLVersion(value);
end;

Y forma de utilizarlo:

Código Delphi [-]
var
  Method: string;
begin
  Method := q_Correo.fieldByname('Method').asstring;
  with IdSSLIOHandlerSocketOpenSSL1 do begin
    SSLOptions.Method := StrToMethod(Method);  
    // ...
    MessageDlg(format('seleccionado %s ', [MethodAsString(SSLOptions.Method)]), mtInformation, [mbOK], 0);
  end;