Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 30-03-2010
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Poder: 19
rgstuamigo Va por buen camino
Arrow

A simple vista veo que tienes algunas lineas de códigos que estan por demás y cómo siempre es bueno destruir(liberar lo que se crea), que quisas sean las causantes del error.
Prueba hacerlo de ésta manera:
Código Delphi [-]
procedure GrabarTexto(varIDTexto:Integer; varStream:TStream);
var cmdActDatos:TADOQuery;
begin
     cmdActDatos:=TADOQuery.Create(nil);
    try
      cmdActDatos.Connection :=cnn;
      {No es necesario crear los parametros por código ya que delphi los crea automáticamente
       cuando en la consulta SQL anteponemos los dos puntos ":"}
      cmdActDatos.SQL.Add('insert into tabmaetextos (nroRs, descripBreve, pltTexto) Values (:nroRs, :descripBreve, :ltTexto)');
      cmdActDatos.Parameters.ParamByName('nroRs').Value := varIDTexto;
      cmdActDatos.Parameters.ParamByName('descripBreve').Value := 'Probando textos';
      cmdActDatos.Parameters.ParamByName('pltTexto').LoadFromStream(varStream, ftBlob);
      cmdActDatos.ExecSQL;
    finally
     cmdActDatos.Free; // Siempre debemos liberar los objetos que hemos creado cuando ya no lo necesitemos
   end;
end;
.
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
¿como usar un campo blob para almacenar un archivo en mysql? r1d2m3 SQL 2 22-04-2010 13:42:42
Almacenar y usar consultas vistas y procedimientos en campos blob sitrico Firebird e Interbase 6 07-09-2007 05:19:05
Encryptacion para memo o Blob vroa74 OOP 8 04-07-2007 21:03:48
Campos Memo son MySQL 5.0 vinicc Conexión con bases de datos 2 18-12-2006 21:29:11
Cómo declarar un campo blob en interbase para almacenar un *.jpg jaderl Firebird e Interbase 1 20-10-2004 16:50:02


La franja horaria es GMT +2. Ahora son las 06:48:53.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi