en caso de querer ingresar una imagen, prueba esto
Código Delphi
[-]
Consulta.Close;
Consulta.SQL.Clear;
Consulta.SQL.Add('INSERT INTO tabla (Imagen)');
Consulta.SQL.Add('VALUES (:img)');
if Image2.Picture.Graphic <> nil then begin M:=TmemoryStream.Create; Image2.Picture.Graphic.SaveToStream(M); M.Seek(0,0); Consulta.ParamByName('imh').LoadFromStream(M,ftblob); M.Free; end
else begin M:=TmemoryStream.Create; M.Clear; M.Seek(0,0); Consulta.ParamByName('Foto').LoadFromStream(M,ftblob); M.Free; end;
Consulta.ExecSQL;
se puede sin embargo guardar con este codigo cualquier tipo de archivo siempre y cuando se asigne primero al TMemoryStream y luego este se asigne al parametro