segunda-feira, 14 de abril de 2008

Inserindo um arquivo no banco de dados (MYSQL)

Estava desenvolvendo uma aplicação, onde era necessário incluir um arquivo no bd.
Este arquivo era de extensão (.rtm - relatório do reporter builder). Segue Abaixo como fazer, forma simplificado, claro que retirei alguns dados:

procedure TfrmIncluirRelatorio.IncluirRelatorio(codigoPasta: integer);
var
qryRelatorio: TSDQuery;
templateRel: TMemoryStream;
begin
// Incluir o relatório
try
// criando um stream
templateRel := TMemoryStream.Create;
// lendo um arquivo..
templateRel.LoadFromFile(edtRelatorio.FileName);

qryRelatorio.SQL.Add('INSERT INTO brelitem(');
qryRelatorio.SQL.Add(' BRI_TEMPLATE');
qryRelatorio.SQL.Add(')');
qryRelatorio.SQL.Add('VALUES(');
qryRelatorio.ParamByName('BRI_TEMPLATE').LoadFromStream(templateRel, ftTypedBinary);

qryRelatorio.ExecSQL;
finally
TFuncoesClass.DestroiQuery(qryRelatorio);
FreeAndNil(templateRel);
end;
end;

Nenhum comentário: