10 replies to this topic

[TiammatMX]

(Título original: "Sí, ya sé, ya sé..., las reglas del foro (TiammatMX Emo y rebelde)") Ya sé que las reglas de DelphiAccess sugieren que se haga un hilo por duda, pregunta o sugerencia..., pero quiero avisar antes el por qué.

Duda #1.- En MS SQL Server 2008 R2, ¿qué tipo de campo debo definir para guardar un archivo PDF? En éste caso, plenamente justificado para evitar que se sature el directorio de imágenes y documentos, además que así me pidieron que se hiciese.

Duda #2.- Dado el tipo de campo del cuestionamiento anterior, una vez que tenga el nombre del archivo a guardar en el campo, ¿cómo puedo "subir" el archivo al campo y que se guarde?

Gracias por su colaboración, y ésta vez, no aceptaré que me regañe EgoPolice... 

[egostar]

Lo malo es que te saltas la regla #1, poner titulos adecuados o relativos al problema, eso no ayuda mucho a mantener la base de contenidos ordenados. 

Va

[TiammatMX]

...poner titulos adecuados o relativos al problema...

Hecho el tiro...

[egostar]

Hola mi chavo,

Yo sugiero que uses un campos de tipo blob, ¿como hacerlo? bueno pues te tocará  investigar un poco acerca de Streams

Saludos

PD, Ya vez, que bien se ve el título

[TiammatMX]

...Yo sugiero que uses un campos de tipo blob...

jojojojojojo  No existen los campos tipo blob en SQL Server 2008 R2..., binary es lo más cercano...

...¿como hacerlo? bueno pues te tocará  investigar un poco acerca de Streams

Precisamente por que no tengo mucho tiempo para documentarme, necesito un poco de ayuda. 

PD, Ya vez, que bien se ve el título

[egostar]

jojojojojojo  No existen los campos tipo blob en SQL Server 2008 R2..., binary es lo más cercano...

Eso, eso, no conozco los tipos aceptados, al final es el simil de blob

En cuanto a como almacenarlo, al ser un campo binario, supongo que se debe meter sin problema desde un TFilestream. Digo, es cosa de probar.

Saludos

[TiammatMX]

A ver, les muestro mi primera aproximación a resolver el problema. Obviamente, arroja excepción y no funciona. Capaz que alguien me puede echar una manita (pero no encima, por favor ):

delphi

procedure TfrmContenedor.btnImportarClick(Sender: TObject);
var
  sNombreArchivo : string;
  fsPDF : TStream;
  bfCampo : TBlobField;
begin
  sNombreArchivo := '';
  with dlgAbrirArchivo do
  begin
    InitialDir := ExtractFilePath(Application.ExeName);
    Filter := 'Archivos de Adobe Acrobat (*.pdf)|*.PDF';
    Title := 'Buscar archivos de documentos para el paciente.';
    DefaultExt := '*.pdf';
 
    if Execute then
      sNombreArchivo := FileName;
  end;
 
  if sNombreArchivo <> '' then
  begin
    fsPDF := TMemoryStream.Create;
    bfCampo := TBlobField.Create(Self);
    with tblPDFs do
    begin
{      bfCampo.LoadFromFile(sNombreArchivo);
      bfCampo.SaveToStream(fsPDF);}
      Connection := qryDocumentos.Connection;
      TableName := 'HY11_DocumentosPacElec';
      Open;
      try
        Insert;
        strngfldPDFsE2_CTRL_PAC.Value := lblExpediente.Caption;
        intgrfldPDFsC42_Documento_ID.Value := StrToInt(sID);
        [color=red]bytsfldPDFsHY11_DocumentoElectronico. LoadFromFile(sNombreArchivo);[/color]
        Post;
      finally
        Close;
      end;
    end;
    fsPDF.Destroy;
    bfCampo.Destroy;
  end;
end;

La línea que DEBERÍA estar marcada en rojo es precisamente donde da la excepción, y en donde quiero guardar el archivo PDF completo (no la ruta+nombre, no el texto, sino el archivo completo tal cual) para que sea contenido y respaldado (intención primaria del usuario) cada vez que la base de datos sea respaldada y que no se pierda ningún documento.

Si tienen un código que me permita llevar a cabo ésta tarea, se los agradeceré muchísimo.

[TiammatMX]

¿Ningún voluntario?

[fredycc]

Algún mensaje en tu excepción?

Saludos

[Rolphy Reyes]

Saludos.

La variable bfCampo se supone que debería tener asignado el campo blob de la BD, osea en esta línea:

delphi

bytsfldPDFsHY11_DocumentoElectronico. LoadFromFile(sNombreArchivo);

Algo como esto:

delphi

bfCampo := DataSet.FieldByName('CampoBlob');
bfCampo.LoadFromFile(sNombreArchivo);

¿Algo así?

[asesperu]

Me parece que hay forma de grabar de la siguiente manera:

delphi

if opdFoto.Execute then
 begin
  try
  qryFotoEntida.ParamByName('IdEntida').AsString := IdEntida;
  qryFotoEntida.Open;
  qryFotoEntida.Edit;
  qryFotoEntidaPhotoEntida.loadfromfile(opdFoto.FileName);
  qryFotoEntida.Post;
 
 except
    on E: Exception do
    begin
      Beep;
      MessageDlg(E.Message + #10 + 'The photo does not exist',mtWarning,[mbRetry],0);
      Exit;
    end;
  end;
 end;

ya que el cargar directamente da un error en el delphi por que no carga correctamente y se tiene que hacer un cambio en las unit base