Almacenar Imagen en Mysql usando ADO

[adeszeus]

Buenas tardes he estado haciendo las pruebas y hasta conflictos con mis tipos de datos me marca, hahahaha de manera demasiado rustica lo he logrado solucionar, sin embargo sigo sin poder colocar la imagen en el campo de tipo blob tengo este codigo

Código Delphi [-]
if OpenPictureDialog1.FileName<>'' then
  begin
  sql:='insert into piezas (tipo,precio,cantidad,imagen)'+
        '            values('+#39+Edit2.Text +#39 +','+#39+ Edit3.Text +#39+','+#39+Edit4.Text +#39+',:Imagen)';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:=Trim(sql);
  ADOQuery1.Parameters.ParamByName('Imagen').LoadFromFile(OpenPictureDialog1.FileName,
  ftblob);
//  ADOQuery1.Active:=True;
  ADOQuery1.ExecSQL;
  end;

Pero en la linea de cargar la imagen me marca error de Ole Exception, argumentos incorrectos, fuera del intervalo permitodo o en conflicto con otros... espero me puedan auxiliar gracias

[rgstuamigo]

Has una búsqueda usando nuestro buscador y de seguro vas encontrar muchos hilos(temas) que te van a ayudar , ya que ese asunto se a tratado en infinidades de ocaciones..
Saludos...

[[Caral]]

Hola
By cHackAll:

Código Delphi [-]
var
  Form1: TForm1;

implementation

{$R *.dfm}

uses jpeg;

var jpg: TJPEGImage;

procedure TForm1.FormCreate(Sender: TObject);
begin
 jpg := TJPEGImage.Create;        // Creamos el objeto que "entiende" al JPEG

end;

procedure TForm1.Button1Click(Sender: TObject);
var bmp: TBitmap; Stream: TStream;
begin
 if not OpenDialog1.Execute then Exit;

 bmp := TBitmap.Create;           // Creamos el objeto que "entiende" al Bitmap
 bmp.LoadFromFile(OpenDialog1.FileName);  // cargamos la imagen
 jpg.Assign(bmp);                 // signamos la imagen BMP al objeto del JPEG
 bmp.Destroy;                     // y liberamos el objeto. }

 ADOTable1.Open;                  // Abrimos la tabla
 ADOTable1.Insert;                // Insertamos una nueva tupla
 Stream := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('photo'), bmWrite); // Asignamos el BLOB a un stream
 jpg.SaveToStream(Stream);        // y guardamos la imagen como JPEG (convertido), en el stream
 Stream.Destroy;                  // liberamos.
 ADOTable1.Post;                // Guardamos.

end;

Saludos