Como igualar string a um valor que não é string...(urgente)

Delphi

21/07/2009

Olá pessoal,

Estou com um problema que acredito ser simples...

Preciso pegar o valor de IdSSLIOH.SSLOptions.Method e colocar em uma string, tipo:

S := IdSSLIOH.SSLOptions.Method;

sendo que IdSSLIOH.SSLOptions.Method é do tipo TidSSLVersion com valores sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1

Como posso fazer isso?

Arakan


Arakan

Arakan

Curtidas 0

Respostas

Willian

Willian

21/07/2009

Pq vc precisa ´igualar´ a uma string? Tipo: pq vc quer que ele seja string?

Se você declarou assim:

S : string


Declara assim

S: TidSSLVersion


E aí vc faz os testes.

Precisa mesmo ´igualar´ a uma string?


GOSTEI 0
Arakan

Arakan

21/07/2009

Na realidade preciso gravar esse valor na base de dados, Firebird, em uma variável que é uma string...por isso o problema.

Todas verificações já foram feitas exatamente como vc mencionou, mas na hora de gravar que aparece o problema.

Arakan


GOSTEI 0
Arakan

Arakan

21/07/2009

Tô começando a achar que o problema não é tão simples como pensava...

Fiz uma meio gambiarra, por enquanto resolveu...o código fica mais lento, mas até conseguir gravar direto, resolveu.

Se opção for sslvSSLv2 gravo na base: 1, se for sslvSSLv23 gravo: 2, e assim por diante. Depois para recuperar da base faço o contrário.

Arakan


GOSTEI 0
Fabriciocolombo

Fabriciocolombo

21/07/2009

Grava como inteiro, ai basta fazer

var
  I: Integer;
begin
  I := Ord(IdSSLIOH.SSLOptions.Method); 
end;


e para voltar

var
  I: Integer;
begin
  IdSSLIOH.SSLOptions.Method := TIdSSLVersion(I);
end;



GOSTEI 0
Arakan

Arakan

21/07/2009

Boa Dica Fabricio

Valeu mesmo, nem tinha me dado conta que podia ser assim...

Arakan


GOSTEI 0
POSTAR