Fabricio,
Descobri o erro!!
O correto eh:
------------------------------------------------------------------------------------------
PSScript.SetPointerToData('qry_sql', @qry1,
PSScript.FindNamedType('TDataSet'));
------------------------------------------------------------------------------------------
Substituindo como vc diz abaixo, ele dah erro de UNABLE TO FIND VARIABLE
Cara,
MUITO OBRIGADO mesmo!!
Vc me deixou muito feliz hoje, agora posso mostrar uma solucao à altura
de nossa empresa!!!
MUITO OBRIGADO!
Obs:
Onde vc aprendeu a mexer com estes comandos do PascalScript? Gostaria de
me aprofundar mais neste assunto!
Obrigado
MuriloCunha
On 25/06/2010 09:38, Fabricio Colombo wrote:
> substitua "qry_sql" pelo nome real do seu objeto. Esse arroba @ antes é para
> retornar o endereço do objeto, no caso, seu dataset.
>
> Em 25 de junho de 2010 09:20, Murilo Cunha<mcscu...@yahoo.com.br> escreveu:
>
>
>>
>> Fabricio,
>>
>> Estamos perto de solucionar!!
>> Agora estamos com este erro na hora de compilar a aplicacao
>>
>> Comando colocados no PSScriptExecute
>>
>>
>> PSScript.SetPointerToData('DataSet', @qry_sql,
>> PSScript.FindNamedType('TDataSet'));
>>
>> [DCC Error] fMain.pas(119): E2003 Undeclared identifier: 'qry_sql'
>>
>> Obrigado
>> MuriloCunha
>>
>>
>> On 24/06/2010 17:38, Fabricio Colombo wrote:
>>
>>> No evento Compile fica assim
>>>
>>> procedure TfrmScript.PSScriptCompile(Sender: TPSScript);
>>> begin
>>> AddRegisteredPTRVariable('qry_sql', 'TDataSet');
>>> end;
>>>
>>> e no execute fica assim
>>>
>>> procedure TfrmScript.PSScriptExecute(Sender: TPSScript);
>>> begin
>>> PSScript.SetPointerToData('DataSet', @qry_sql,
>>> Compiler.FindNamedType('TDataSet'));
>>> end;
>>>
>>> Em 24 de junho de 2010 16:35, Murilo
>>> Cunha<mcscu...@yahoo.com.br<mcscunha%40yahoo.com.br>>
>>>
>> escreveu:
>>
>>>
>>>
>>>> Pessoal,
>>>>
>>>> Como eu faco para ligar meu TSQLQuery da aplicacao no TScriptPascal, da
>>>> REMObjects??
>>>>
>>>> Tenho o seguinte:
>>>>
>>>> Um MEMO, onde digito o SCRIPTPASCAL, por exemplo:
>>>>
>>>> program Test;
>>>> begin
>>>> writeln( IntToStr( qry_sql.RecordCount ) );
>>>> // qry_sql.Close;
>>>> end.
>>>>
>>>> Em outro MEMO (na mesma tela) é exibido o resultado desta compilacao.
>>>> Tenho tb um TSQLQuery ja ligado ao banco Oracle e funcionando - O nome
>>>> dele é QRY1.
>>>> Declarei uma variavel QRY_SQL no codigo do TPascalScript desta forma:
>>>>
>>>> procedure TfrmScript.PSScriptCompile(Sender: TPSScript);
>>>> begin
>>>> PSScript.AddRegisteredVariable('qry_sql', 'TDataSet');
>>>> PSScript.SetVarToInstance('qry_sql', qry1 );
>>>> end;
>>>>
>>>> Quando executo o codigo do PASCALSCRIPT da este erro:
>>>> Compiling
>>>> Compiled succesfully
>>>> Could not call proc at 0.42
>>>>
>>>> Me parece que ele nao consegue achar o QRY1.
>>>> Como fazer para ligar esta minha variavel declarada no TPascalScript ao
>>>> meu componente no form??
>>>>
>>>> Obrigado
>>>> MuriloCunha
>>>>
>>>>
>>>>
>>>>
>>>>
>>> [As partes desta mensagem que não continham texto foram removidas]
>>>
>>>
>>>
>>> ------------------------------------
>>>
>>>
>>>
>>
>>
>>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> ------------------------------------
>
>
