RES: [sqlwin] SafeArray

[Marco Ant�nio Bhering da Silva]

Title: RES: [sqlwin] SafeArray

Antonio,

fiz algumas altera��es no seu c�digo, veja como ficou. Eu estou usando CTD2000.

Vale ainda a seguinte observa��o: no create do safearray deve-se usar os tipos VT_* ao inv�s dos equivalentes SAL_*, como vc fez antes.

 

Form Window: frm1
        Contents
                Data Field: df1
                Data Field: df2
                Data Field: df3
        Functions
        Window Parameters
        Window Variables 
                         SafeArray: sArray 
        Message Actions
                On SAM_Create 
                        If sArray.Create( VT_BSTR, 3, 0)
                             Call sArray.PutString( 'Teste0', 0 ) 
                             Call sArray.PutString( 'Teste1', 1 ) 
                             Call sArray.PutString( 'Teste2', 2 ) 
                             Call sArray.GetString( df1, 0 ) 
                             Call sArray.GetString( df2, 1 ) 
                             Call sArray.GetString( df3, 2 )

-----Mensagem original-----
De: Antonio Ribeiro de Mendon�a Neto [mailto:[EMAIL PROTECTED]]
Enviada em: segunda-feira, 4 de fevereiro de 2002 16:08
Para: [EMAIL PROTECTED]
Assunto: RES: [sqlwin] SafeArray

Marco,

 

Ser� que voc� poderia me mostrar um exemplo, pois esse abaixo n�o funciona (ser� que est� certo ?)

 

grato

-----Mensagem original-----
De: Marco Ant�nio Bhering da Silva [mailto:[EMAIL PROTECTED]]
Enviada em: segunda-feira, 4 de fevereiro de 2002 17:43
Para: [EMAIL PROTECTED]
Assunto: RES: [sqlwin] SafeArray

Ant�nio,
� claro que funciona, pelo menos os tenho utilizado em meus sistemas, especificamente quando se trabalha com componentes ActiveX.

-----Mensagem original-----
De: Antonio Ribeiro de Mendon�a Neto [mailto:[EMAIL PROTECTED]]
Enviada em: segunda-feira, 4 de fevereiro de 2002 14:56
Para: Lista Centura (E-mail)
Assunto: [sqlwin] SafeArray

Tentei fazer o seguinte:

Form Window: frm1
        Contents
                Data Field: df1
                Data Field: df2
                Data Field: df3
        Functions
        Window Parameters
        Window Variables
                FunctionalVar: sArray
                        Class: SafeArray
        Message Actions
                On SAM_Create
                        If sArray.Create( SAL_STRING, 3, 0 )
                                Call sArray.PutString( 'Teste0', 0 )
                                Call sArray.PutString( 'Teste1', 1 )
                                Call sArray.PutString( 'Teste2', 2 )
                                Call sArray.GetString( df1, 0 )
                                Call sArray.GetString( df2, 1 )
                                Call sArray.GetString( df3, 2 )

Algu�m sabe me dizer se o SafeArray funciona ?

grato

==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================