Ver Mensaje Individual
  #15  
Antiguo 02-03-2011
Avatar de GustavoCruz
GustavoCruz GustavoCruz is offline
Miembro
 
Registrado: jul 2006
Ubicación: Sampués Sucre (Colombia)
Posts: 296
Reputación: 20
GustavoCruz Va por buen camino
Hola compañero foreros este es el código que tengo y según las indicaciones que me han dado pues debería funcionar.

Código Delphi [-]
procedure TfPrincipal.acListarClick(Sender: TObject);
var
    cFile : string;
    mFile : TFileName;
begin
  inherited;
    with fDatos do
      begin
        qArchivos.Open;
        TBlobField(qArchivos.FieldByName('arcarchivo')).SaveToFile( cFile );
        mFile := TFileName( #34+cFile+#34 );
      end;
end;

pero me sigue mostrando el error.
Y si se carga en un Stream. Aunque tampoco sé cómo se hace eso

Gracias por vuestro tiempo


Gustavo Cruz
Responder Con Cita