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