Descargar un archivo DLL de una IBTable

[ecfisa]

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)
{
  TStream* Stream = new TFileStream((AnsiString)cPath + cNomArch, fmCreate);
  TBlobField *Bf = static_cast<TBlobField*>(IBTableAplic->FieldByName("ARCHIVO"));

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


Saludos