EXE no Banco de Dados !!

Question

Boa tarde galera,Estou com uma d�vida, gostaria de salvar o EXE do meu sistema no meu banco de dados(SQL Server 2005).Pois preciso fazer uma �Atualizador� para o meu sistema, msa n�o quero ficar preso...

Raserafim · Answer

no firebird voc� utiliaria o tipo de dado Blob, que serve para armazenar qualquer tipo de dado bin�rio.

ent�o pelo nome, me parece que voc� dever� utiliar o Binary.

e no Delphi pode recuperar as informa��es deste campo (o arquivo EXE) atrav�s da fun��o Stream

Maic.rio · Answer

No firebird eu j� tinha feito algo parecido, e funcionou perfeitamente, mas no SQL Server eu ainda n�o consegui.
Caso alguem tenha algum modelo para me mostrar como deve salvar no banco atrav�s do delphi.
Pois algumas vezes que fiz, com um campo binary, ele grava apenas o caminho do arquivo.

Abra�os !
Maic

Maic.rio · Answer

Alguem sabe como pegar o executavel para gravar na minha base de dados ?S� estou conseguindo retornar o caminho do EXE e n�o o Exectavel em si.Delphi 7 que estou utilizando;Abra�os !!Maic...

Maic.rio · Answer

Se alguem ainda puder ajudar.Ainda n�o consegui resolveer este problema !Abra�o a todos !...

Emerson Nascimento · Answer

TBlobField(SeuCampoBlob).LoadFromFile( CaminhoCompletoDoSeuEXE ); <- grava no banco

TBlobField(SeuCampoBlob).SaveToFile( CaminhoDestinoCompletoDoSeuArquivo ); <- salva o conte�do do campo no HD (ou CD, FDD, DVD...)

eu recomendo que voc� tenha um campo onde possa guardar ao menos o nome do arquivo.

Da forma acima voc� pode guardar qualquer arquivo: .doc, .xls, .dwg... qualquer coisa.

Lembre-se que o campo tem que ser um BLOB que suporte dados bin�rios.

Maic.rio · Answer

Bom dia Emerson,Estou fazendo da seguinte forma:[code:1:9d4ae483cf]TBlobField(DMGestaoRisco.cdsGestaoRiscoAnexo).LoadFromFile(OpenDialog.FileName);[/code:1:9d4ae483cf]J� fiz teste com meu campo na Base de dados como Image e Binary.Quando meu campo no DB est� como Image ocorre sempre o seguinte erro:[img:9d4ae483cf]//img526.imageshack.us/img526/8329/erroun2.th.jpg[/img:9d4ae483cf]Quando est� como Binry ocorre um Acess Violation !Abra�os,Maic[img][/img]...

Maic.rio · Answer

Com a imagem n�o est� visivil, segue abaixo o erro:�Bitmap image is not valid�Abra�os,Maic...

Maic.rio · Answer

Galera,Ser� que alguem conseguiu algo ?Abra�os e desculpe o flame !Maic...

Maic.rio · Answer

Na Verdade meu campo n�o � �Blob�, pois no SQL Server 2005 n�o possui esse tipo de campo, possui apenas Binary e Image.Acho que por isso esta acontecendo esse tipo de erro.Abra�os...

Emerson Nascimento · Answer

tem que ser binary...

Maic.rio · Answer

Emerson,Quando coloco com Binary, e fa�o a rotina que me passou, recebo um acess violation !Abra�os.Maic...

Luciano.lirio · Answer

[code]Srs.,apesar desde assunto ser bem antigo n�o encontrei resposta para ele...Bom, meu problema foi gravar uma imagem no meu banco de dados, da forma normal lendo o jpg convertendo para bitmap ficou muito grande ent�o resolvi gravar como arquivo, como arquivo deu erro de convers�o, ou seja, o campo tipo imagem e importando como Blob deu erro de convers�o...pesquisando na net encontrei essa forma de importar qualquer tipo de arquivo para um campo image do sql server sem que apareca erro de convers�o...Se alguem tiver uma forma melhor de fazer isso nos informe...Dica do Site: [url]//www.ramosdainformatica.com.br/art_recentes01.php?CDA=576[/url]// Carrega um arquivo  TMemoField(qryFechamento.FieldByName(�ImgProtocolo�)).LoadFromFile(Abrir.FileName);// Salva para Arquivoif TMemoField(qryFechamento.FieldByName(�ImgProtocolo�)).BlobSize > 0 then    TMemoField(qryFechamento.FieldByName(�ImgProtocolo�)).SaveToFile(�c:Protocolo.exe�);...

Docdoc · Answer

Olha acho que percebi a quest�o.Vc quer guardar na base de dados o execut�vel, mas 1 grande quest�o que se p�e:O execut�vel est� em execu��o ?Bem se estiver vc ter� que mapear o arquivo na memoria, copiar esta memoria para um arquivo tempor�rio, ai sim mand�-lo para a base de dados.Para gravar o arquivo na base de dados n�o � dificil, basta ter um campo BLOB, que s�o campos binarios que podem conter arquivo com gigabytes.Para se usar um campo BLOB, vc ter� que primeiro abrir o arquivo em Stream, criar um Stream para o campo, e simplesmente copiar de um stream para o outro....

Docdoc · Answer

Vou colocar aqui um c�digo que vai ensinar como gravar para campos BLOB.

O exemplo � para uma imagem mas poder� ser usado para qualquer coisa, como por ex.: um arquivo ou som etc...

procedure GravarFotoDB;
var  
  jpg: TJPEGImage;
  bmp : TBitmap;
  st: TStream;
  fs: TFileStream;
begin
  
  //cria a imagem em jpg, copiando neste exemplo de um bitmap
  bmp := TBitmap.Create;
  try
    bmp.loadfromfile("minhaimagem.bmp");
    with TJPEGImage.Create do
      try
        Assign(bmp);
        Compress; 
        SaveToFile("minhaimagem.jpg"); //<---aten��o agora � um jpeg
      finally
        Free;
      end;
  finally
    bmp.free;
  end;

  //agora abre a imagem jpeg em um stream
  fs := TFileStream.Create( "minhaimagem.jpg", fmOpenRead);
  try
    //tbFoto � a tabela onde vamos guardar a foto.    
    try
      //pomos a tabela em edi��o, inser��o
      tbFoto.Insert;

      //criamos o stream do campo blob, que no caso se chama campo �imagem� 
      //aqui que est� o segredo, agora fica tudo + f�cil, pois temos dois streams
      //o primeiro � o fs,qque � o stream de arquivo que criamos ao abrirmos o
      //arquivo jpeg. O outro � o stream do blob... 
      st := tbFoto.CreateBlobStream(tbFoto.FieldByName(�imagem�), bmWrite);

      //basta ent�o agora copiar de um pro outro
      st.CopyFrom(fs, fs.Size);

      //fechamos a edi��o do registro
      tbFoto.Post;
    except
      //no caso de excess�o ent�o a tabela volta em estado browser 
      tbFoto.Cancel;
    end;
  finally
    st.free;
    fs.free;
    DeleteFile(filename);
  end;
end;

Penso que � auto explicativo

F�rum EXE no Banco de Dados !! #345305