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.
Error : Teste.CreateTemporary(ltClob);
-
Challenger
- Devart Team
- Posts: 925
- Joined: Thu 17 Nov 2005 10:53
-
Challenger
- Devart Team
- Posts: 925
- Joined: Thu 17 Nov 2005 10:53