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

Question

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

Willian · Answer

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?

Arakan · Answer

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

Arakan · Answer

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

Fabriciocolombo · Answer

Grava como inteiro, ai basta fazer[code:1:74732e03ab]var  I: Integer;begin  I := Ord(IdSSLIOH.SSLOptions.Method); end;[/code:1:74732e03ab]e para voltar[code:1:74732e03ab]var  I: Integer;begin  IdSSLIOH.SSLOptions.Method := TIdSSLVersion(I);end;[/code:1:74732e03ab]...

Arakan · Answer

Boa Dica FabricioValeu mesmo, nem tinha me dado conta que podia ser assim...Arakan...

F�rum Como igualar string a um valor que n�o � string...(urgente) #372534