Error : Teste.CreateTemporary(ltClob);
Posted: Wed 27 Jun 2007 19:34
Dear friends,
We have one stored procedure in oracle (9i) for sending of emails. When the method Execute is called appears the error: "Lob Locator Should Be Inited".
The commented line ('//Teste.CreateTemporary(ltClob);') is causing an error “Function is not suported”.
Below the used code:
procedure TForm1.Button1Click(Sender: TObject);
var
Teste : TOraLob;
begin
try
Teste:=TOraLob.Create(OraSession1.OCISvcCtx);
Teste.AllocLob;
//Teste.CreateTemporary(ltClob);
Teste.LoadFromFile('C:\Arquivos de programas\Borland\Delphi5\Projects\Unit1.dfm');
OSP1.Prepare;
OSP1.ParamByName('P_FROM_NAME').Value:='[email protected]';
OSP1.ParamByName('P_TO_NAME').Value:='[email protected]';
OSP1.ParamByName('P_CC_NAME').Value:='';
OSP1.ParamByName('P_CCO_NAME').Value:='';
OSP1.ParamByName('P_SUBJECT').Value:='Teste de mensagem';
OSP1.ParamByName('P_MESSAGE').Value:='Teste de mensagem';
OSP1.ParamByName('P_ANEXO').AsOraClob:=Teste;
OSP1.Execute;
except
on E: Exception do
begin
raise Exception.Create('Erro : ' + E.message);
end;
end;
end;
If somebody will be able to help, since already is thankful.
Rcdill.
We have one stored procedure in oracle (9i) for sending of emails. When the method Execute is called appears the error: "Lob Locator Should Be Inited".
The commented line ('//Teste.CreateTemporary(ltClob);') is causing an error “Function is not suported”.
Below the used code:
procedure TForm1.Button1Click(Sender: TObject);
var
Teste : TOraLob;
begin
try
Teste:=TOraLob.Create(OraSession1.OCISvcCtx);
Teste.AllocLob;
//Teste.CreateTemporary(ltClob);
Teste.LoadFromFile('C:\Arquivos de programas\Borland\Delphi5\Projects\Unit1.dfm');
OSP1.Prepare;
OSP1.ParamByName('P_FROM_NAME').Value:='[email protected]';
OSP1.ParamByName('P_TO_NAME').Value:='[email protected]';
OSP1.ParamByName('P_CC_NAME').Value:='';
OSP1.ParamByName('P_CCO_NAME').Value:='';
OSP1.ParamByName('P_SUBJECT').Value:='Teste de mensagem';
OSP1.ParamByName('P_MESSAGE').Value:='Teste de mensagem';
OSP1.ParamByName('P_ANEXO').AsOraClob:=Teste;
OSP1.Execute;
except
on E: Exception do
begin
raise Exception.Create('Erro : ' + E.message);
end;
end;
end;
If somebody will be able to help, since already is thankful.
Rcdill.