Cita:
Empezado por waly2k1
Código:
var
SP:TIBCStoredProc;
begin
SP := TIBCStoredProc.Create( Self );
SP.StoredProcName := 'SP_LOGO_UPD';
SP.Prepare;
SP.ParamByName( 'IMG_RPTFINAL' ).LoadFromFile( sPICT, ftBlob );
Data.IBCTran.StartTransaction;
SP.ExecProc;
Data.IBCTran.Commit;
Saludos y gracias por tu tiempo!!!
Walter
|
No olvides liberar la memoria del SP!!!
Código:
var
SP:TIBCStoredProc;
begin
try
SP := TIBCStoredProc.Create( Nil );
SP.StoredProcName := 'SP_LOGO_UPD';
SP.Prepare;
SP.ParamByName( 'IMG_RPTFINAL' ).LoadFromFile( sPICT, ftBlob );
Data.IBCTran.StartTransaction;
SP.ExecProc;
Data.IBCTran.Commit;
finally
SP.Free; // <-----
end;
end;