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
