Gravar ARQUIVO BINARIO em campo BLOB

[Shark]

Estou gravando um arquivo ZIP num campo MEDIUMBLOB com sucesso. Entretanto, se o ZIP contiver um arquivo EXE, a gravação dá erro. Alguém sabe dizer o que pode ser?

Estou usando xHarbou com SQLRDD. O código abaixo é o que estou usando:

cComm := "INSERT INTO atualiza ( bin_atualiza ) VALUES ( '" + SR_EscapeString( cText, 3 ) + " ')"
oSql := SR_GetConnection()
nErr := oSql:Exec( cComm )

IF nErr != 0
SR_EndConnection( SQLCONNECTION )
RETURN( NIL )
ENDIF

Essa é a mensagem de erro que recebo:

Error description: Error SR_MYSQL/0 SQLExecDirect Error
(1064) You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '¯·:3µOÇêئÓÕ‘&‡u% ÿxSf#؁özœ¤˜*¡tmË•Õ϶«C1
' at line 1 - You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '¯·:3µOÇêئÓÕ‘&‡u% ÿxSf#؁özœ¤˜*¡tmË•Õ϶«C1
' at line 1

[alaminojunior]

Já faz algum tempo mas vou deixar aqui, pois pode servir para outros colegas.

Isso eu utilizo para gravar imagens JPG, mas deve servir perfeitamente para gravar outros arquivos, pois inclusive os arquivos XML da MDe trazem arquivos zipados em sua estrutura.
Basicamente você precisa converter o conteúdo do arquivo antes de gravar, e quando precisa restaurar, só fazer o processo inverso.
Para salvar

Código: Selecionar todos

h1:= fopen(arquivo.jpg)      // abre o arquivo de imagem para leitura
tamanho:= fseek(h1,0,2)    // move o ponteiro pelo arquivo até o fim para pegar o tamanho
fseek(h1,0,0)                     // volta para o início
h4:= space(tamanho)         // declara variável para receber o conteúdo do arquivo
fread( h1, @h4, tamanho ) // faz a leitura do conteúdo do arquivo jogando-a na variável de memória
fclose( h1 )                        // fecha o arquivo
h4 = HB_Base64Encode( h4, tamanho )   // converte o conteúdo do arquivo em base64
cSql:= 'update produtos set imagem = ' + sr_cdbvalue(h4) + ' where codigo = ' + sr_cdbvalue(xCod) // salva no BD

Para restaurar

Código: Selecionar todos

cSql:= 'select imagem from produtos where codigo='+sr_cdbvalue(xCod) // pega o conteúdo do campo blob
sJPG:= { HB_Base64Decode( iJPG[1,1] )                                                 // decodifica o conteúdo do campo blob (iJPG[1,1] é o resultado da sentença SQL)
hJPG:= fcreate(GETENV("temp")+"\"+alltrim(str(xCod))+'.jpg',0)              // cria um arquivo
fwrite(hJPG, sJPG[1] )                                                                          // carrega o conteúdo do campo no arquivo
fclose(hJPG)                                                                                         // fecha o arquivo, o deixando ponto para uso

[Shark]

Obrigado pela dica Júnior. Funcionou perfeitamente. SharkAbraços!

[tonicm]

Obrigado pela dica.

Não consegui colocar a funcionar porque falta a função sr_cdbvalue.
O que faz essa função e onde a posso encontrar?

[alaminojunior]

O que faz essa função e onde a posso encontrar?

Essa função transforma qualquer dado num formato aceitável para as query´s numa sentença SQL, faz parte da SQLRDD.
Utilize qualquer outra que você já use para montar/tratar as sentenças se for o seu caso.