Parametro para ingresar una variable en un blob

gzerox · #7 19-05-2004

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 //si la imagen tiene algo
  M:=TmemoryStream.Create;                    //creo un stream en memoria
  Image2.Picture.Graphic.SaveToStream(M); //asigno la imagen al stream
  M.Seek(0,0);                                        //posiciono el stream al inicio
  Consulta.ParamByName('imh').LoadFromStream(M,ftblob); //lleno el parametro con el stream
  M.Free;  //libero el stream
 end
 else begin  // si no hay imagen que guardar
  M:=TmemoryStream.Create; //creo el memory stream
  M.Clear;                           //lo limpio
  M.Seek(0,0);                    //lo posiciono al inicio
  Consulta.ParamByName('Foto').LoadFromStream(M,ftblob); //lo guardo en el parametro
  M.Free; //libero el stream
 end;
  Consulta.ExecSQL; //ejecuto la sentencia SQL

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