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
tsCap321.SaveAsBMP:='C:\pruebax.bmp';
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;