Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > MySQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 14-11-2015
marvajes marvajes is offline
Registrado
NULL
 
Registrado: nov 2015
Posts: 6
Poder: 0
marvajes Va por buen camino
Muchas gracias por la ayuda.

Muchas gracias por tu ayuda AgustinOrtu, primeramente por la corrección, pues tenia una idea errónea del uso de try finally.
Con el tema de bajar el archivo, solo hice una pequeña modificación al código.

Insertar el archivo en la Base de datos
Código Delphi [-]
  var
  LStream: TStream;
begin
   SQL.SQL.Add('INSERT INTO ARCHIVOS VALUES(:ID,ATO)');
   SQL.ParamByName('ID').AsInteger:=1;
   SQL.ParamByName('DATO').LoadFromFile('1.pdf',ftblob);
    try
      Sql.ExecSQL;
    finally
        //ERROR
    end;
end;

Recuperar el archivo y almacenar en disco duro
Código Delphi [-]
var
  LStream: TStream;
begin
  LStream := TFileStream.Create('1.pdf', fmOpenRead);
    Sql.SQL.Add('SELECT * FROM ARCHIVOS');
  try
      SQL.Open; // abrimos
   TBlobField(SQL.FieldByName('NOMBRE')).SaveToFile('C:\u\1.pdf');
  finally
    LStream .Free;
  end;
end;

Cabe mencionar que inicialmente al recuperar el archivo, este aparecia corrupto o no mostraba el contenido y esto debido justamente como indicaste el limite, utilizado inicialmente BLOB ≈ 64KB, MEDIUMBLOB ≈ 16MB and LONGBLOB ≈ 4GB. Lo deje en MEDIUMBLOB y perfecto.
Muchas gracias por la ayuda amigo!.
Saludos.
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
MySQL y ADO desde Delphi 2010 mjjj MySQL 9 21-01-2013 19:03:57
No puedo conectar Mysql con delphi 2010 juanmarchettini Conexión con bases de datos 8 17-04-2011 20:47:34
MySQL y DBNavigator Delphi 2010 johnytsekieng Conexión con bases de datos 4 16-02-2011 14:45:48
Mysql con delphi 2010 consulta tabla gdlrinfo SQL 6 29-09-2010 01:15:39
Firebird, Mysql y Delphi 2010 tec Varios 3 16-04-2010 15:34:51


La franja horaria es GMT +2. Ahora son las 11:01:24.


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