Subir imagen a base de datos
Buenas, como puedo subir a mi base de datos SQLServer una imagen al pulsar un botón. Necesito saber como pasarle la imagen del Image1:
procedure TForm1.btnAnyadirBLClick( Sender: TObject); begin with BL_ADOQ do begin SQL.Clear; SQL.Text := 'INSERT INTO Datos_BL (codigo, codigoBL, entregado, imagen) ' + 'VALUES (''' + edCodigo.Text + ''',''' + edCodigoBL.Text + ''',''0'', )'; ExecSQL; end; end; procedure TFormInsertIncidencias.Image1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; Gracias^\||/ |
|
Nunca he subido un archivo directamente a la db por el espacio que pueda consumir, lo que yo hago es copiar la imagen dentro de mi aplicación o de una ruta y ya en la base de datos salvo la ruta del archivo + nombre del archivo + extensión.
Aunque respondiendo a tu pregunta, pues chatgpt dice lo siguiente:
|
La franja horaria es GMT +2. Ahora son las 05:37:00. |
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