Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Descargar un archivo DLL de una IBTable (https://www.clubdelphi.com/foros/showthread.php?t=93268)

AnaBDiaz 06-07-2018 16:45:16

Descargar un archivo DLL de una IBTable
 
Buen día. Necesito descargar un archivo DLL de una base de datos por medio de un componente IBTable y copiarlo en otro archivo DLL creado dinámicamente con un TFileStream. El problema es que la funcion para copiar CopyFrom de TFileStream pide como parámetro un stream, y el archivo DLL de la base de datos lo obtengo en formato BlobStream y no se como convertirlo a Stream... O BUSCARLE OTRA SOLUCIÓN PARA PODER COPIAR EL ARCHIVO DE LA BD AL CREADO DINÁMICAMENTE.
Código C++....
Código:

archivo = IBTableAplic->CreateBlobStream(IBTableAplicARCHIVO, bmRead);
TFileStream *fs= new TFileStream((cPath+cNomArch), fmCreate);
 fs->CopyFrom( archivo, IBTableAplicARCHIVO->Size);


ecfisa 06-07-2018 23:06:14

Hola.


Habiendo declarado el campo blob del tipo correcto y estando el archivo ya cargado en él, una opción es:
Código PHP:

void __fastcall TForm1::btnSaveCurrBlobFldToFileClick(TObject *Sender)
{
  
TStreamStream = new TFileStream((AnsiString)cPath cNomArchfmCreate);
  
TBlobField *Bf static_cast<TBlobField*>(IBTableAplic->FieldByName("ARCHIVO"));

  
__try 
  
{
    
Bf->SaveToStream(Stream);
  }
  
__finally 
  
{
    
delete Stream;
  }


Saludos :)


La franja horaria es GMT +2. Ahora son las 21:10:44.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi