Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Ayuda con tipo de Dato BLOB Mysql 4.1 (https://www.clubdelphi.com/foros/showthread.php?t=62031)

JerS 01-12-2008 23:04:19

Ayuda con tipo de Dato BLOB Mysql 4.1
 
Amigos estoy tratando de insertar en mi tabla de Mysql una foto. efectivamente lo hago pero solo me deja insetar un solo registro luego me arroja la siguiente Exception!! EInvalitCast Invalid class typecast, pero esto susede siempre que intento insetar un registro cuando la tabla no esta vacia de lo contrario inserta los datos sin ningun problema.

Código Delphi [-]
Procedure TForm1.TomarFoto();
  var
    mybmp:TBitmap;
    myjpg:TJPEGImage;
begin
//Capturo la Imagen con mi webcam
  tsCap321.SaveAsBMP:='C:\pruebax.bmp';
// aqui lo que hago es convertir la imagen capturada a Jpeg
  mybmp:=TBitmap.Create;
  mybmp.LoadFromFile('C:\pruebax.bmp');
  myjpg:=TJPEGImage.Create;
  myjpg.Assign(MyBmp);
  myjpg.SaveToFile('C:\pruebax.jpeg');
  myjpg.Free;
  mybmp.Free;
end;



procedure TForm1.Button1Click(Sender: TObject);
var rs:TAdodataset;
begin
ShortDateFormat:='yyyy/mm/dd';
TomarFoto;
          rs := TADODataSet.Create(nil);
          rs.Connection := ADOConnection1;
          rs.CursorType := ctKeyset;
          rs.LockType := ltOptimistic;
          rs.CommandText := 'SELECT * FROM Captura';
          rs.Open();
          rs.Append();
          rs.FieldByName('hora').asstring:=formatdatetime('H:mm',now);
          rs.FieldByName('fecha').AsString:=formatdatetime('yyyy/mm/dd',now);
          (rs.FieldByName('foto') as  TBlobField).LoadFromFile('C:\pruebax.jpeg');
          rs.post();
          rs.Close();
          rs.Free();
end;

JerS 02-12-2008 23:45:24

Vamos muchachos, una ayudita, me han dicho que la version 4.1 de Mysql presentaba muchos problemas con los tipos de datos BLOB, voy a instalar la vesion 5 a ver como me va, pero si ven algo en el codigo me avisan :D

JerS 03-12-2008 03:00:41

Cita:

Empezado por JerS (Mensaje 329299)
Vamos muchachos, una ayudita, me han dicho que la version 4.1 de Mysql presentaba muchos problemas con los tipos de datos BLOB, voy a instalar la vesion 5 a ver como me va, pero si ven algo en el codigo me avisan :D


Amigos de la Comunidad de Delphi, si alguien por casualidad tiene el mismo problema que tenia yo , simplemente cambie la version de mysql a la 5, Mysql 4.1 el manejo de BLOB es una cagada!!!.. Bueno me despido!!


La franja horaria es GMT +2. Ahora son las 02:46:32.

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